hleorj

No SVN. Grato pela contribuição.

Esta função Gera o Hint ? function CRTTocRegTrib(const t: TpcnCRT): TpcnRegTrib; begin case T of crtSimplesNacional: Result := RTSimplesNacional; crtSimplesExcessoReceita, crtRegimeNormal: Result := RTRegimeNormal; end; end; se sim Use function CRTTocRegTrib(const t: TpcnCRT): TpcnRegTrib; begin case t of crtSimplesExcessoReceita, crtRegimeNormal: Result := RTRegimeNormal; else Result := RTSimplesNacional; end; end; como um novo padrão.

@Waldir Paim, Quase tirou um 8 Mas olhando a implementação do enumerador : TpcnRegTrib = (RTSimplesNacional, RTRegimeNormal); O do case end é a melhor implementação do que a função EnumeradoToStr

@Waldir Paim, Não sou contra as implementações no sentido de boas práticas e utilizar o melhor do nosso conhecimento. Serei sempre contra algo que não mostre um bom padrão de implementação . E eu ( Henrique Leonardo ) , gostaria que você ( Waldir Paim ) revesse a implementação. Minhas dicas são : Faz sentido quebrar o padrão Preciso criar uma Const ou variável para controlar uma rotina. Trocar um if else if else end por do case end. vai melhorar o código. Outros desenvolvedores irão manter o código.

@Waldir Paim, function CRTTocRegTrib(const t: TpcnCRT): TpcnRegTrib; const pcnRegTrib: array[TpcnCRT] of TpcnRegTrib = (RTSimplesNacional, RTRegimeNormal, RTRegimeNormal); begin result := pcnRegTrib[t]; end; Melhor manter o padrão, que é a utilização de enumeradores . em do Array.

@Adonias, post a sua sugestão , pdf e um breve descrição da sugestão. Tudo isto, em um novo post.

@Fausto , leia o manual de integração .. a geração da chave de nfe.

Post o xml para eu testar

qual alteracao que praticou ?

Teste o arquivo anexo; Fiz a seguinte alteração : if Engine.FinalPass then begin if ( ( Trim(VarToStr(<ISSQN."vBC" >)) = '' ) or ( Trim(VarToStr(<ISSQN."vBC" >)) ='0') or ( Trim(VarToStr(<ISSQN."vISS" >)) = '' ) or ( Trim(VarToStr(<ISSQN."vISS" >)) ='0') or ( Trim(VarToStr(<ISSQN."vServ">)) = '' ) or ( Trim(VarToStr(<ISSQN."vServ">)) ='0') ) then begin ColumnFooter1.Visible := False; ColumnFooter1.Height := 0; end; end; DANFeRetrato.fr3

@Weber, post Arquivo Pdf ,e o arquivo de xml , para avaliação. Pois devo adotar uma regra parecida conforme a seguir : rlbISSQN.Visible := ( ( FNFe.Total.ISSQNtot.vServ > 0 ) or ( FNFe.Total.ISSQNtot.vBC > 0 ) or ( FNFe.Total.ISSQNtot.vISS > 0 ) ) and ( fMostraDadosISSQN = True ); Regra retirada da Danfe em Report Fortes.

@tbalbinos, Na propriedade ImprimirDetalhamentoEspecifico informe False;

@netstart, estou ciente que dever ser string. E qualquer alteração na unit pcnNfe.pas , requer um bom conhecimento do funcionamento do projeto acbr e com uma grande quantidade de testes.

@marciotga, por favor post . um pdf do resultado da sua sugestão.

leia @jose jair de oliveira

@netstart, Qualquer sugestão de alteração na unit pcnNfe.pas , requer um bom conhecimento do funcionamento do projeto acbr e com uma grande quantidade de testes. Grato.

@Giovani Da Cruz, anexe um arquivo de xml. para ser verificar se existe algum fator não visto ate o momento. Grato.

Agora preciso de mas de Arquivos de Dados de Txt. para aprovar a refatoração do código.

Correto , @Waldir Paim. Quando der Inicie a sua ideia de Teste. Quem sabe aproveitamos alguma ideia sua.

@Daniel Simoes, daqui a 2 anos teremos o acbr todo em testes unitário. @Waldir Paim, teste que comentou seira AcbrLerTxt. ? é uma versão beta . mas segue telas do teste, tela a esquerda - código em refatoração tela a direita - código atual do SVN. Muito bom o seu trabalho @wilson Paim.

@tbalbinos, Faça teste usando o arquivo DANFeRetratoNovo.fr3 DANFeRetratoNovo.pdf

@Sérgio Assunção, faça atualizaçao do acbr.

03/03/2016 -- ACBrNFeDANFeRLRetrato ACBrNFeDANFeRLPaisagem -- [*] Modificado para imprimir o codigo do produtos em varias linhas. Modificado o Svn

@Marcelo Calvi Belanga, Não existe uma propriedade disponível para deixa o valor desconto visível ou não.

@Rodrigo Sidney, Caso não queria o imprimir o detalhe. Coloque a propriedade ImprimirDetalhamentoEspecifico igual a false.