hleorj

Enviado ao SVN. na revisão 12874 Grato pela ajuda de todos os envolvidos.

Minha sugestão, otimizada : - Remoção de variáveis - Refatoração / remoção no uso do if.. else.. end; - Remoção de códigos duplicados - Nova inicialização de variáveis ; Se passar nos seus testes, envio ao SVN. ACBrNFeDANFeRLRetrato.pas ACBrNFeDANFeRLPaisagem.pas

Para facilitar .. post a tag prod completa dos produtos.

Pesquisou ?

Segue a analise de alteração Antes teContingencia, teFSDA, teSCAN, teSVCAN, teSVCRS, teSVCSP : begin sChaveContingencia := TACBrNFe(TACBrNFeDANFeRL(Owner).ACBrNFe).GerarChaveContingencia(FNFe); rlbCodigoBarrasFS.Caption := sChaveContingencia; rlbCodigoBarrasFS.Visible := True; rllDadosVariaveis3_Descricao.Caption:= 'DADOS DA NF-E'; rllDadosVariaveis3.Caption := FormatarChaveAcesso(sChaveContingencia); if (dhCont > 0) and (xJust > '') then rllContingencia.Caption := ACBrStr( 'Data / Hora da entrada em contingência: ') + FormatDateTime('dd/mm/yyyy hh:nn:ss', dhCont) + ' Motivo contingência: ' + xJust; end; Depois teContingencia, teFSDA, teSCAN, teSVCAN, teSVCRS, teSVCSP : begin sChaveContingencia := TACBrNFe(TACBrNFeDANFeRL(Owner).ACBrNFe).GerarChaveContingencia(FNFe); if FNFe.Ide.tpEmis = teFSDA then begin rlbCodigoBarrasFS.Caption := sChaveContingencia; rlbCodigoBarrasFS.Visible := True; rllDadosVariaveis3_Descricao.Caption:= 'DADOS DA NF-E'; rllDadosVariaveis3.Caption := FormatarChaveAcesso(sChaveContingencia); end else begin rllDadosVariaveis1a.Visible := ( FNFe.procNFe.cStat > 0 ); rllDadosVariaveis1b.Visible := rllDadosVariaveis1a.Visible; rllDadosVariaveis1c.Visible := rllDadosVariaveis1a.Visible; if FProtocoloNFe <> '' then rllDadosVariaveis3.Caption := FProtocoloNFe else rllDadosVariaveis3.Caption := FNFe.procNFe.nProt + ' ' + DateTimeToStr(FNFe.procNFe.dhRecbto); end; if (dhCont > 0) and (xJust > '') then rllContingencia.Caption := ACBrStr( 'Data / Hora da entrada em contingência: ') + FormatDateTime('dd/mm/yyyy hh:nn:ss', dhCont) + ' Motivo contingência: ' + xJust; end; @Kiko Fernandes, @BigWings @medeiros.sunsystem, Favor analisarem o código e o pdf anexo 35170112342787000159550140000070426005016418.pdf

@Kiko Fernandes, obrigado pela orientação no detalhe. @BigWings, obrigado pela dica, vou ter que ler o pai dos burros com mas atenção, para controlar as variáveis de mensagem. @medeiros.sunsystem, foi possível simular o erro no demo, com o seu XML. Mas alguma orientação ou dica ?

Problema foi solucionado. Só esperar a nova versão do acbrmonitor.

Quais ?

Ok . Postem o xml .. rlbCodigoBarrasFS.Visible := (FNFe.Ide.tpEmis = teFSDA ); para eu testar o código

@medeiros.sunsystem, post o xml , gerado.. @Kiko Fernandes , me ajude a pensar case FNFe.Ide.tpEmis of .. teContingencia, teFSDA, teSCAN, teSVCAN, teSVCRS, teSVCSP : begin sChaveContingencia := TACBrNFe(TACBrNFeDANFeRL(Owner).ACBrNFe).GerarChaveContingencia(FNFe); rlbCodigoBarrasFS.Caption := sChaveContingencia; rlbCodigoBarrasFS.Visible := True; rllDadosVariaveis3_Descricao.Caption:= 'DADOS DA NF-E'; rllDadosVariaveis3.Caption := FormatarChaveAcesso(sChaveContingencia); if (dhCont > 0) and (xJust > '') then rllContingencia.Caption := ACBrStr( 'Data / Hora da entrada em contingência: ') + FormatDateTime('dd/mm/yyyy hh:nn:ss', dhCont) + ' Motivo contingência: ' + xJust; end; De rlbCodigoBarrasFS.Visible := True; Para rlbCodigoBarrasFS.Visible := (FNFe.Ide.tpEmis = teSVCRS ); Seria a solução ?

@Kiko Fernandes, é possível reproduzir no demo ?

Qual gerador que foi utilizado ( fast ou forte ) . Se fast qual arquivo fr3 q foi utlilizado.

Assunto está em analise.. Grato por reportar

Favor atualizar os seus arquivos. Segue pdf DANFeRetratoNovo.pdf

Faça atualização do componente.. e verifique a nova propriedade ExibirBandInforAdicProduto

Faça atualização dos seus arquivos .. não encontrei problema.informado no SVN.

Efetuou algum teste com a danferetratonovo.fr3 ?

Favor, criar um novo post com o fonte atualizado e anexado pdf / xml , para validar o codigo a seguir : sTexto := ''; for i := 0 to (iRestanteLinhas) do begin sTexto := sTexto + rlmDadosAdicionaisAuxiliar.Lines.Strings[ (iMaximoLinhas + i -1)]; end;

OK. Por favor , abra um novo um.post. Informando os problemas encontrados, anexando pdf / XML para facilitar o entendimento do problema. Grato

Problema resolvido e solucionado na melhor maneira possível ?

Eu, analisei o problema na DANFE desenvolvida em fortes report. Se eu soubesse , desde o início do post, que era uma DANFE desenvolvida nó fast report. Teria sido informado dos problemas existentes, além do seu problema. Pegou o obsoleto ?

Caro , Amigo. Não estamos querendo que deixe ajudar, mas informando a situação atual dos referidos aqui arquivos. Grato por está aqui, nós incentivando a melhorar sempre .

Boa noite, O manual de integração do contribuinte versão 4.0, informa que devem existir, sempre, as Tag's PIS e COFINS. ( ocorrências 1-1 ). Ver as paginas 145 a 150 para maiores informações. @Celso, temos uma situação que o monitor não demostrou o erro na geração do xml. @medeiros.sunsystem, as informações do PIS e do COFINS deve ser informadas sempre.

@Igor Bastos, qual danfe fastreport utilizou ?