Chave Danfe Fortes Report

[Dangelo2010]

Chave do Danfe no Fortes Report esta Truncando as ultimas 3 casas no modo retrato.

[Juliomar Marchetti]

Bom dia 

poste o pdf gerado e o xml para que possamos analisar !

[Dangelo2010]

O erro não esta no xml e sim nos fontes ACBrNFeDANFeRLRetrato

 

procedure TfrlDANFeRLRetrato.Header;

var sChaveContingencia: String;

begin

  with FNFe.InfNFe, FNFe.Ide do

  begin

     rllChave.Caption := (Copy (FNFe.InfNFe.Id, 4, 44));   --> nao seria 1, 44

     rlbCodigoBarras.Caption := Copy (FNFe.InfNFe.Id, 4, 44);

 

[Astrogildo82]

Bom dia, na verdade houve alguma mudança no FNFe.InfNFe.Id, pois antes vinha com 'NFe' + nro da chave  e agora está somente o nro da chave. Percebi isso porque eu gero um PDF manualmente com o nome do arquivo usando esse campo e na sexta-feira começou a dar problema pq o nome do arquivo não saia mais nesse padrão.

[Dangelo2010]

Isso e preocupante, pois as transportadoras aqui nao aceitaram e nao fizeram a entrega somente hoje e que vao fazer, os clientes estao pilhados aqui, estou muito preocupado com esse tipo de mudança que vem acontecendo a algum tempo.

[Juliomar Marchetti]

Bom dia

vejam acredito que está tendo um equivoco!

peguem um xml e abram o mesmo

verifiquem que o campo acima citado está como abaixo:

-<infNFe versao="2.00" Id="NFe35121002914460019412550010000059771721484874">

[Dangelo2010]

Mais não e assim que vem no campo, pois eu mesmo debuguei e achei o erro.

 

rllChave.Caption := (Copy (FNFe.InfNFe.Id, 4, 44))

 

correto rllChave.Caption := (Copy (FNFe.InfNFe.Id, 1, 44))

[Juliomar Marchetti]

Por favor anexe o xml que utilizou junto ao post! 

[Dangelo2010]

O Erro não esta no xml.

40702464557000109550010000059071000059073.pdf

52140702464557000109550010000059071000059073-nfe.xml

[Juliomar Marchetti]

Façamos um tratamento de forma sútil e elegante ao código:

 

 

     rllChave.Caption := OnlyNumber(FNFe.InfNFe.Id);

     rlbCodigoBarras.Caption := OnlyNumber(FNFe.InfNFe.Id);

 

será que resolveria nossa situação?

[Dangelo2010]

De onde vem esse OnlyNumber?

[Juliomar Marchetti]

ACBrUtil.pas

[Dangelo2010]

Vou incluir e testar.

[Dangelo2010]

Funciona blz

 

so nao esquece de formatar

 

     rllChave.Caption := NotaUtil.FormatarChaveAcesso(OnlyNumber(FNFe.InfNFe.Id));

     rlbCodigoBarras.Caption := OnlyNumber(FNFe.InfNFe.Id);

 

[Astrogildo82]

Fiz a alteração proposta acima e funcionou blz aqui também. Vou deixar os fontes alterados em anexo para facilitar o merge para quem for subir para o SVN.

DanfeFortes.zip

[Régys Silveira]

Conferido é enviado, obrigado pela colaboração.

[Dangelo2010]

Blz

 

[Riquena]

Tudo certo.

Editado 25 Julho, 2014 por Riquena

[Astrogildo82]

Você poderia mandar um xml em que está acontecendo isso? Aqui não consegui detectar esse problema.