Ir para conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Showing results for tags 'acbrdfeutil'.

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Fóruns

  • Fórum Aberto - ACBr
    • Notícias do ACBr
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrDFe
    • Dúvidas sobre TEF
    • Dúvidas sobre PIX
    • ACBrMonitor PLUS
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
  • ACBr Pro
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • Boteco do ACBr
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Banco de Dados
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categorias

  • ACBr Pro
    • ACBrLib - PRO
    • ACBrMonitorPLUS - PRO
    • Utilitários - PRO
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Download Livre
    • ACBrLib - DEMO
    • ACBrMonitorPLUS - DEMO
    • Demos / Testes / Utilitários
    • Apresentações - Palestras

Calendários

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Calendário da Comunidade
  • ACBr Papo Pro
  • Feriados Nacionais

Find results in...

Find results that contain...


Data de Criação

  • Início

    End


Data de Atualização

  • Início

    End


Filter by number of...

Data de Registro

  • Início

    End


Grupo


Website URL

Encontrado 4 registros

  1. Reinaldo Cartuchos

    ValidarCodigoDFe

    Bom dia Pessoal, já vi dois tópicos a respeito deste problema, mas eu não consegui solucionar ele ainda. Já fiz a atualização de todo o trunk2, já refiz a instalação, pelo ACBrInstal marcando a tag 'Remover Arquivos Antigos', mas o problema ainda continua. O Wenderli postou que fez o seguinte : " -Desinstalei e exclui tudo relacionado ao delphi -Instalei novamente -É importante instalar o FastReport e o FortesReport antes do ACBR " Ele quis dizer que desinstalou o delphi por completo e refez a instalação do Delphi ??? Estou usando Delphi Rio Grato pela atenção.
  2. Boa tarde a todos Seguindo alguns tópicos que encontrei no fórum, fiz um resumo da conversão que fiz para quem estiver migrando para o trunk 2, espero que possa ajudar alguém: CTe ** CTe * Valida De: ACBrCTe1.Conhecimentos.Valida; Para: ACBrCTe1.Conhecimentos.Validar; * Configuracoes.Geral.PathSalvar De: ACBrCTe1.Configuracoes.Geral.PathSalvar Para: ACBrCTe1.Configuracoes.Arquivos.PathSalvar * EnviarEventoCTe De: ACBrCTe1.EnviarEventoCTe(idLote); Para: ACBrCTe1.EnviarEvento(idLote); * De: if ACBrCTe1.Conhecimentos.Items[i].Confirmada then Para: if ACBrCTe1.Conhecimentos.Items[i].Confirmado then * De: ACBrCTe1.Conhecimentos.Items[i].SaveToFile(cFileName); Para: ACBrCTe1.Conhecimentos.Items[i].GravarXML(cFileName); * De: DFEUtil.LimpaNumero(cDocumento) Para: OnlyNumber(cDocumento) * De: ACBrCTe1.Configuracoes.Certificados.DataVenc Para: ACBrCTe1.SSL.CertDataVenc NFe ** NFe * De: cNroSerieCertificado := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado; Para: cNroSerieCertificado := ACBrNFe1.SSL.SelecionarCertificado; * De: ACBrNFe1.NotasFiscais.Valida; Para: ACBrNFe1.NotasFiscais.Validar; * De: ACBrNFe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFe1.EnviarEventoNFe(idLote); Para: ACBrNFe1.EnviarEvento(idLote); * De: cSituacao := SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); Para: cSituacao := SituacaoDFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); * De: ACBrNFe1.NotasFiscais.Items[i].SaveToFile(cFileName); Para: ACBrNFe1.NotasFiscais.Items[i].GravarXML(cFileName); * Removidos: ( não existe mais DPEC) ACBrNFe1.WebServices.EnviarDPEC.Executar ACBrNFe1.WebServices.ConsultaDPEC.NFeChave ACBrNFe1.WebServices.ConsultaDPEC.Executar; * De: NFe.Det[idx].Prod.nItemPed := 0; Para: NFe.Det[idx].Prod.nItemPed := ''; * Disponível NFe.Det[idx].Prod.CEST ( trunk 2 ) * Remover Componentes ACBrNFeDANFERave1 e ACBrNFeDANFERaveCB1 * De: ACBrNFe1.NotasFiscais.Items[idx].SaveToFile(cFileName ); Para: ACBrNFe1.NotasFiscais.Items[idx].GravarXML(cFileName); * De: ACBrNFe1.Configuracoes.Certificados.DataVenc Para: ACBrNFe1.SSL.CertDataVenc NFSe ** NFSe * De: ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True Para: ACBrNFSe1.Configuracoes.Arquivos.SepararPorMes := True * De: ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := 9999 Para: ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := 9999 * De: ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas); Para: ACBrNFSe1.Configuracoes.Geral.SetConfigMunicipio; * De: ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := cSenhaWeb; Para: ACBrNFSe1.Configuracoes.Geral.SenhaWeb := cSenhaWeb; * De: ACBrNFSe1.Configuracoes.WebServices.UserWeb := cUserWeb; Para: ACBrNFSe1.Configuracoes.Geral.UserWeb := cUserWeb; * De: cProvedor := ACBrNFSe1.Configuracoes.WebServices.xProvedor; Para: cProvedor := ACBrNFSe1.Configuracoes.Geral.xProvedor; * De: ACBrNFSe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFSe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := noTributacaoNoMunicipio; ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := StrToNaturezaOperacao(ok, cNaturezaOperacao); Geral * pcnConversao ( ainda existe ) - especializado para pcnConversaoNFe e pcteConversaoCTe adicionem no uses pcnConversaoNFe e pcteConversaoCTe junto com pcnConversao * ACBrDFeUtil // Unificado: ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil ( não existem mais ) remover ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil e deixem ACBrDFeUtil * Added novo uses ACBrUtil * EstaVazio De: if DFeUtil.EstaVazio(cPathSalvar) then Para: if EstaVazio(cPathSalvar) then
  3. Bom dia pessoal, Criei um teste unitário para a unit ACBrDFeUtil. Gostaria de saber se há interesse por parte dos desenvolvedores. Também adicionei mais 2 testes para a função FloatMask na unit ACBrUtilTest. Para testar a função com e sem separador de milhar. Pois essa função foi modificada no commit 12770, passando a ser facultativo o uso do Separador de Milhar. Segue em anexo Patch da pasta Testes. Atenciosamente, Wesley Luan. UnitTest.patch
  4. Bom dia, boa tarde e boa noite! Conforme for a hora pra todos. Pessoal estamos com CT-e e MDF-e em produção, e fomos questionados pela mudança de mascara da Chave de Acesso, e gostaria de questionar o motivo desta mudança. Em Trunk1 (ACBrCTeUtil) havia a seguinte função de Mascarar a Chave de Acesso: class function CTeUtil.FormatarChaveAcesso(AValue: String; Mascara: Boolean = False ): String; begin AValue := DFeUtil.LimpaNumero(AValue); if Mascara then Result := copy(AValue,1,2) + '-' + copy(AValue,3,2) + '/' + copy(AValue,5,2) + '-' + copy(AValue,7,2) + '.' + copy(AValue,9,3) + '.' + copy(AValue,12,3) + '/' + copy(AValue,15,4) + '-' + copy(AValue,19,2) + '-' + copy(AValue,21,2) + '-' + copy(AValue,23,3) + '-' + copy(AValue,26,3) + '.' + copy(AValue,29,3) + '.' + copy(AValue,32,3) + '-' + copy(AValue,35,1) + '-' + copy(AValue,36,2) + '.' + copy(AValue,38,3) + '.' + copy(AValue,41,3) + '-' + copy(AValue,44,1) else Result := copy(AValue,1,4) + ' ' + copy(AValue,5,4) + ' ' + copy(AValue,9,4) + ' ' + copy(AValue,13,4) + ' ' + copy(AValue,17,4) + ' ' + copy(AValue,21,4) + ' ' + copy(AValue,25,4) + ' ' + copy(AValue,29,4) + ' ' + copy(AValue,33,4) + ' ' + copy(AValue,37,4) + ' ' + copy(AValue,41,4); end; Em Trunk2 (ACBrDFeUtil) há a seguinte função de Mascarar a Chave de Acesso: function FormatarChaveAcesso(AValue: String): String; var I: Integer; begin AValue := OnlyNumber(AValue); I := 1; Result := ''; while I < Length(AValue) do begin Result := Result+copy(AValue,I,4)+' '; Inc( I, 4); end; Result := Trim(Result); end; O porque dessa mudança e porque tirou a opção da primeira mascara. Certo de vossas atenção, antecipo agradecimentos, Atenciosamente
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.