Load De Arquivo Xml E Geração De Pdf

[MauricioGuedes]

Boa tarde!

 

 

Legenda: Utilizo Fortes Rerport para impressão de notas e PDF.

 

 

Na seguinte Classe de coleção de Notas: TNotasFiscais = class(TOwnedCollection)

que esta localizada dentro do arquivo ACBrNFeNotasFiscais;

 

 

Tenho método:

function TNotasFiscais.LoadFromStream(Stream: TStringStream; AGerarNFe: Boolean = True): Boolean;

 

que dentro estancia o seguinte objeto:

LocNFeR := TNFeR.Create(Self.Add.NFe);

 

e chama o método: LocNFeR.LerXml;

 

 

Dentro do método lerXML o mesmo elimina a parte "NFe" do ID da Nota, ficando apenas a chave de acesso, conforme o seguinte código:

NFe.infNFe.ID := StringReplace( UpperCase(NFe.infNFe.ID), 'NFE', '', [rfReplaceAll] ) ;

 

O problema é que ao gerar o PDF pelo Fortes Rerport, utilizando a classe:   TACBrNFeDANFeRL = class( TACBrNFeDANFEClass )

localizada no arquivo ACBrNFeDANFeRLClass;

 

utilizando o método: procedure TACBrNFeDANFeRL.ImprimirDANFEPDF(NFE : TNFe = nil);

o NFe é removido com o copy, abaixo:

          sFile := TACBrNFe(ACBrNFe).DANFE.PathPDF +

                   Copy(TACBrNFe(ACBrNFe).NotasFiscais.Items.NFe.infNFe.ID,

                   4, 44) + '-nfe.pdf';

 

 

Agora, chegando ao assunto que interessa, quando o sistema emite uma nota fiscal, ele trás o ID idêntico ao que esta no Arquivo XML:

Id="NFe42141003657739000169550310000000451922859016">

 

então, elimina o NFe e gera o pdf com o seguinte nome: 42141003657739000169550310000000451922859016.pdf

ficando corretamente.

 

o Problema é que quando eu faço um load no xml, no caso de uma reimpressão de nota, utilizando o método descrito ali em cima, ele substitui o Nfe, aí o arquivo pdf é gerado com o seguinte nome:

41003657739000169550310000000451922859016.pdf

 

Cortando os primeiros dígitos da string.

 

 

 

A minha dúvida, é tem algum motivo específico pra isso, ou existe outro método para gerar PDF que gere corretamente, ou então é um problema?,

 

Acredito que eliminando o seguinte código, o problema seria resolvido se não há motivos específicos para o mesmo estar ali.

 

 

 

NFe.infNFe.ID := StringReplace( UpperCase(NFe.infNFe.ID), 'NFE', '', [rfReplaceAll] ) ;

dentro do método: LocNFeR.LerXml;

 

Pois testei e funcionou perfeitamente, os arquivos PDF são gerados com os nomes idênticos.

 

Aguardo uma posição!

 

 

 

 

 

 

 

 

 

[Juliomar Marchetti]

Boa noite Mauricio!

chegou a ler o seguinte tópico >

agora estamos criando notas técnicas do projeto!

 

também gostaria de saber se fez o update do svn! percebi que o Italo subiu alterações para a impressão em Fortes e geração de PDF no dia de ontem!

[MauricioGuedes]

Acabei de ler o tópico e estava com o SVN atualizado, atualizei novamente e conferi se houve alguma mudança, mas nada mudou, como devo proceder? 

Aguardar a padronização dos arquivos e corrigir o problema internamente aqui, ou é possível apenas ajustar esta situação, por enquanto?

[Italo Giurizzato Junior]

Bom dia Mauricio,

 

Favor atualizar os fontes e testar novamente.

[MauricioGuedes]

Funcionou perfeitamente Ítalo, grato pela atenção.

[renatojosecampos]

Boa tarde!

 

Acabei de atualizar o ACBR e agora o PDF (função ImprimirPDF do DafeRave) gera o arquivo como seguinte nome :

 

52141108674453000105550010000002091000002091.pdf (sem "-nfe.pdf").

 

Porém na função envia email  ele procura o arquivo 

 

52141108674453000105550010000002091000002091-nfe.pdf

 

e da arquivo não encontrado e não envia email da nota.

 

alterei o fonte do ACBR emergencialmente no meu disco das seguinte forma:

 

AcbrNFeNotasFiscais.pas - Função EnviarEmail

 

Linha: 324

         TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.ImprimirDANFEPDF(NFe);
          NomeArq :=  StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]);
          NomeArq := PathWithDelim(TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.PathPDF)+NomeArq+'-nfe.pdf';

            //se nao existir com o "-nfe.pdf" procura o arquivo  ".pdf"
          if not FileExists( NomeArq ) then
          begin
            NomeArq :=  StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]);
            NomeArq := PathWithDelim(TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.PathPDF)+NomeArq+'.pdf';
          end;


          AnexosEmail.Add(NomeArq);

[renatojosecampos]

Toda vez que acho um bug no ACBR posto aqui no fórum , porém em vão. 

 

Acabo tendo que manter uma versão modificada em meu computador.

[Juliomar Marchetti]

Toda vez que acho um bug no ACBR posto aqui no fórum , porém em vão. 

 

Acabo tendo que manter uma versão modificada em meu computador.

Bom dia

todos os posts assim que possível são analisados e corrigidos!

mas também é preciso ler o fórum e também atualizar o SVN!

 

se acompanha deve ter visto a Nota Técnica subida pelo nosso amigo Italo padronizando os nomes, também a atualização no svn com as alterações onde está com problemas!

chegou a ver isso?

[renatojosecampos]

Caro Juliomar,

 

Passei um dia inteiro pesquisando no fórum sobre a função mencionada acima e não localizei nenhum post sobre o assunto, somente este.

 

Sempre vejo respostas desse tipo, "Procure no forum", se eu tivesse encontrado não estaria postando aqui.

 

Ninguém  entrou aqui para falar sobre o BUG que eu postei ontem, mas pra entrar aqui e mandar eu pesquisar no fórum sem pre aparece.

 

* Li o fórum,  atualizei meu componente, corrigi o fonte e postei o código aqui.

[Juliomar Marchetti]

Caro Juliomar,

 

Passei um dia inteiro pesquisando no fórum sobre a função mencionada acima e não localizei nenhum post sobre o assunto, somente este.

 

Sempre vejo respostas desse tipo, "Procure no forum", se eu tivesse encontrado não estaria postando aqui.

 

Ninguém  entrou aqui para falar sobre o BUG que eu postei ontem, mas pra entrar aqui e mandar eu pesquisar no fórum sem pre aparece.

 

* Li o fórum,  atualizei meu componente, corrigi o fonte e postei o código aqui.

Então faz o seguinte:

atualize o svn, depois faça uma olhada na pasta do svn/Doctos/NotasTecnicas e leia o arquivo ACBr NT 2014-001 versão 1.02.pdf!

Sera esse o padrão então já digo que a alteração acima não será implementada no svn!

[renatojosecampos]

Juliomar,

 

Muito obrigado por responder.

 

A questão é que temos notas fiscais já emitidas nos clientes, onde foi gerado o PDF no formato antigo ( sem o '-nfe.pdf' ) , e os clientes podem precisar enviar estas notas por email 

a questão é que a função ACBrNFe.NotasFiscais.Items[ ].EnviarEmail   procura agora somente o arquivo com a nova nomeclatura ( chave-nfe.pdf ).

 

Resumindo  os usuários do ACBR  que usam esta função não conseguirão enviar o email das notas emitidas antes da atualização.

 

Mais uma vez muito obrigado por responder.

[Italo Giurizzato Junior]

Boa tarde Renato,

 

Por gentileza, favor atualizar e testar mais uma vez.

 

Fico no aguardo de um retorno para saber se agora esta funcionando corretamente.

[André Ferreira de Moraes]

Juliomar,

 

Muito obrigado por responder.

 

A questão é que temos notas fiscais já emitidas nos clientes, onde foi gerado o PDF no formato antigo ( sem o '-nfe.pdf' ) , e os clientes podem precisar enviar estas notas por email 

a questão é que a função ACBrNFe.NotasFiscais.Items[ ].EnviarEmail   procura agora somente o arquivo com a nova nomeclatura ( chave-nfe.pdf ).

 

Resumindo  os usuários do ACBR  que usam esta função não conseguirão enviar o email das notas emitidas antes da atualização.

 

Mais uma vez muito obrigado por responder.

Então o problema deve estar em outro lugar, pois toda vez que vc chama o comando EnviarEmail o PDF é gerado novamente, veja a linha "TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.ImprimirDANFEPDF(NFe);"

[renatojosecampos]

André ,

 

Até a versão de ontem da função ImprimirDANFEPDF  do "RAVE REPORTS" estava gerando o arquivo sem o "-nfe.pdf",  não posso atualizar agora o componente porque estou publicando uma versão já testada do meu sistema.

 

Ítalo, vou atualizar o ACBR em uma outra maquina aqui e posto o resultado.

 

Muito obrigado pessoal.

[renatojosecampos]

Atualizei novamente e agora sim funcionou 100% !! Gerou arquivo correto e enviou por email.

 

 

Mais uma vez obrigado.