Ajuste em danfe report forte retrato para aceita denegad

[hleorj]

Ajustes na danfe para aceita Nfe denegadas corretamente (  205 , 301 e 302 );

Ajustes no código . : Remoção de variáveis e if's,

Implementação de algumas rotina em case após ajustes no código.

Danfe Testada em xe8 e  xml´s do regine normal e simples nacional.

Favor fazerem os seus teste para devida implantacao no SVN

   

 

 

ACBrNFeDANFeRLRetrato.dfm

ACBrNFeDANFeRLRetrato.pas

[Daniel Simoes]

Testei no Lazarus, e tudo OK... já subi para o SVN,  com algumas outras modificações que tb fiz...

-- ACBrNFeDANFeRLRetrato --
[*]  Ajustes na danfe para aceita Nfe denegadas corretamente (  205 , 301 e 302 )
[*]  Ajustes no código . : Remoção de variáveis e if's,
[*]  Implementação de algumas rotina em case após ajustes no código.
     http://www.projetoacbr.com.br/forum/index.php?showtopic=23439
     (por: hleorj)

[*]  Revisão de Strings com acentos convertendo-as com ACBrStr()
[*]  Remoção de comentários desnecessários, indentação
     (por: DSA)
                 

 

Muito Obrigado pela contribuição

[hleorj]

Muito  Obrigado.

  Revisão 2  -  

  Em testes :

    - Mais Remoção de Variáveis  

    - Mais Remoção de If´s

    - Mais Estrutura em case.

    - Novos procedimentos e Funções.

    - Código limpo para manutenção e implementação.

    - Novos enumeradores para implantar em pcnConversoNfe.pas para serem aproveitados.

 

[hleorj]

Implatação de Enumaradores :

function modFreteToDesStr(const t: TpcnModalidadeFrete): string;

function indProcToDescrStr(const t: TpcnIndicadorProcesso): string;

 

 

pcnConversao.pas

Implatação de Enumaradores : 

function VeiculosRestricaoStr( const iRestricao :Integer ): String;
function VeiculosCorDENATRANStr( const sCorDENATRAN : String ): String;
function VeiculosCondicaoStr( const condVeic: TpcnCondicaoVeiculo ): String;
function VeiculosVinStr( const sVin: String ): String;
function VeiculosEspecieStr( const iEspecie : Integer ): String;
function VeiculosTipoStr( const iTipoVeic : Integer ): String;
function VeiculosCombustivelStr( const sTpComb : String ): String;
function VeiculosTipoOperStr( const TtpOP : TpcnTipoOperacao ): String;

function ArmaTipoStr( const TtpArma : TpcnTipoArma ): String;

pcnConversaoNFe.pas

Revisão 2 : Diversos ajustes no código fonte.

Implantação de Encerrante no grupo combustível.

 

 

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLRetrato.dfm

[Daniel Simoes]

Mais uma vez muito obrigado pelas contribuições...

Seu Refactoring em ACBrNFeDANFeRLRetrato.pas foi de ótimo nível...

suas contribuições já estão no SVN

[hleorj]

Obrigado.

Grupo Encerrante , Não enviado na revisão 2.

Segue.

ACBrNFeDANFeRLRetrato.pas

[hleorj]

Erro Grave :

     Após novos teste

       De        

        cdsItens.FieldByName('ALIQIPII').AsString     := FormatFloat('##0.00', Imposto.IPI.VIPI);

      Para 

        cdsItens.FieldByName('VALORIPI').AsString     := FormatFloat('##0.00', Imposto.IPI.VIPI);

 

ACBrNFeDANFeRLRetrato.pas

Editado 10 Agosto, 2015 por hleorj

[Rodrigo Cardilo]

Boa tarde,

Quando tento instalar o pacote ACBR_NFeDanfeRL aparece os seguints erros na unit ajustada pelo nosso amigo Henrique:

 

[DCC Error] ACBrNFeDANFeRLRetrato.pas(1291): E2003 Undeclared identifier: 'modFreteToDesStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1444): E2003 Undeclared identifier: 'indProcToDescrStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1804): E2003 Undeclared identifier: 'VeiculosTipoOperStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1813): E2003 Undeclared identifier: 'VeiculosCombustivelStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1820): E2003 Undeclared identifier: 'VeiculosTipoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1821): E2003 Undeclared identifier: 'VeiculosEspecieStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1822): E2003 Undeclared identifier: 'VeiculosVinStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1823): E2003 Undeclared identifier: 'VeiculosCondicaoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1825): E2003 Undeclared identifier: 'VeiculosCorDENATRANSTr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1827): E2003 Undeclared identifier: 'VeiculosRestricaoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1865): E2003 Undeclared identifier: 'ArmaTipoStr'
 

Esses estão declarados na unit pcnconversao.pas porém não compila. Alguma dica do que pode ser?

 

Grato,

[hleorj]

Atualize o acbr; 

   Atentar para o meu erro grave.

 

Boa tarde,

Quando tento instalar o pacote ACBR_NFeDanfeRL aparece os seguints erros na unit ajustada pelo nosso amigo Henrique:

 

[DCC Error] ACBrNFeDANFeRLRetrato.pas(1291): E2003 Undeclared identifier: 'modFreteToDesStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1444): E2003 Undeclared identifier: 'indProcToDescrStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1804): E2003 Undeclared identifier: 'VeiculosTipoOperStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1813): E2003 Undeclared identifier: 'VeiculosCombustivelStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1820): E2003 Undeclared identifier: 'VeiculosTipoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1821): E2003 Undeclared identifier: 'VeiculosEspecieStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1822): E2003 Undeclared identifier: 'VeiculosVinStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1823): E2003 Undeclared identifier: 'VeiculosCondicaoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1825): E2003 Undeclared identifier: 'VeiculosCorDENATRANSTr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1827): E2003 Undeclared identifier: 'VeiculosRestricaoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1865): E2003 Undeclared identifier: 'ArmaTipoStr'
 

Esses estão declarados na unit pcnconversao.pas porém não compila. Alguma dica do que pode ser?

 

Grato,

Os enumerados estão declarados em pcnConversaoNfe.pas

 

Atualize o Acbr.

   Atentar para o erro Grave. postado acima.

[Rodrigo Cardilo]

Atualize o acbr; 

   Atentar para o meu erro grave.

 

Boa tarde,

Quando tento instalar o pacote ACBR_NFeDanfeRL aparece os seguints erros na unit ajustada pelo nosso amigo Henrique:

 

[DCC Error] ACBrNFeDANFeRLRetrato.pas(1291): E2003 Undeclared identifier: 'modFreteToDesStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1444): E2003 Undeclared identifier: 'indProcToDescrStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1804): E2003 Undeclared identifier: 'VeiculosTipoOperStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1813): E2003 Undeclared identifier: 'VeiculosCombustivelStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1820): E2003 Undeclared identifier: 'VeiculosTipoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1821): E2003 Undeclared identifier: 'VeiculosEspecieStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1822): E2003 Undeclared identifier: 'VeiculosVinStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1823): E2003 Undeclared identifier: 'VeiculosCondicaoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1825): E2003 Undeclared identifier: 'VeiculosCorDENATRANSTr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1827): E2003 Undeclared identifier: 'VeiculosRestricaoStr'
[DCC Error] ACBrNFeDANFeRLRetrato.pas(1865): E2003 Undeclared identifier: 'ArmaTipoStr'
 

Esses estão declarados na unit pcnconversao.pas porém não compila. Alguma dica do que pode ser?

 

Grato,

Os enumerados estão declarados em pcnConversaoNfe.pas

 

Atualize o Acbr.

   Atentar para o erro Grave. postado acima.

Oi Henrique. já atualizei o svn e inclusive baixei o arquivo que você postou no erro grave e não consigo compilar.

Estranho pois está declarado tudo corretamente nas 2 units, pcnConversao e pcnCoversaoNFe.

O que mais pode ser?

[hleorj]

1-  Esta utilizando o Trunk2 ? pois estas atualizações devem ser aplicadas nele;

2- caso ja esteja no trunk2 , Abra o seu projeto 

                                               Selecione Project

                                                  selecione Build All  Project

                                               

Editado 10 Agosto, 2015 por hleorj

[Daniel Simoes]

Henrique,

Devo considerar apenas esse post para o Merge ?

[Rodrigo Cardilo]

1-  Esta utilizando o Trunk2 ? pois estas atualizações devem ser aplicadas nele;

2- caso ja esteja no trunk2 , Abra o seu projeto 

                                               Selecione Project

                                                  selecione Build All  Project

                                               

Oi Henrique, 

É no trunk2 sim.. fiz o que você sugeriu e resolveu..

 

Muito agradecido.

 

[hleorj]

Henrique,

Devo considerar apenas esse post para o Merge ?

Correto , Daniel

Editado 10 Agosto, 2015 por hleorj

[Daniel Simoes]

Ok... Já no SVN... Obrigado...

[hleorj]

Por favor, feche o post

e obrigado