Ir para conteúdo
  • Cadastre-se

dev botao

Recommended Posts

Postado

Olá, estou necessitando de uma ajuda.

Recentemente após alguns atualizações do componente, comecei a enfrentar uma problemática com a carta de correção que não estou conseguindo identificar.

No meu PC de desenvolvimento, funciona perfeitamente. Contudo quando coloco no servidor, dá o problema.

O que ocorre é que o documento PDF gerado no servidor esta saindo em branco, como se não localizasse os dados do evento.

Como disse no meu PC de desenvolvimento, fica tudo certo.

O que é que pode estar ocasionando o problema?

Abaixo segue o código que estou utilizando:

O Tipo do danfe é definido em outro local:  mm.ACBrNFe.DANFE := mm.ACBrNFeDANFeRL;

Parte do código da geração do PDF da Carta.

                      if not FieldByName('arqXML').IsNull then
                      begin
                           nome := FieldByName('chave').AsString+'-ProcEventoNFe.xml';
                           TBlobField(FieldByName('arqXML')).SaveToFile(mm.ACBrNFe.DANFE.PathPDF+nome);
                      end else
                      exit;

                      if not FieldByName('arqXML_nota').IsNull then
                      begin
                           nome2 := FieldByName('chave').AsString+'-nfe.xml';
                           TBlobField(FieldByName('arqXML_nota')).SaveToFile(mm.ACBrNFe.DANFE.PathPDF+nome2);
                      end else
                      exit;

                      nome := mm.ACBrNFe.DANFE.PathPDF+nome;
                      nome2 := mm.ACBrNFe.DANFE.PathPDF+nome2;

                      if FileExists(nome2) then
                      begin
                           mm.ACBrNFe.NotasFiscais.Clear;
                           mm.ACBrNFe.NotasFiscais.LoadFromFile(nome2);
                      end else
                      exit;

                      if FileExists(nome) then
                      begin
                           mm.ACBrNFe.DANFE := mm.ACBrNFeDANFeRL;
                           mm.ACBrNFe.DANFE.TipoDANFE := tiRetrato;

                           mm.ACBrNFe.EventoNFe.Evento.Clear;
                           mm.ACBrNFe.EventoNFe.LerXML(nome);

                           mm.ACBrNFe.DANFE.NomeDocumento := mm.ACBrNFe.DANFE.PathPDF+FieldByName('chave').AsString+'.pdf';

                           mm.ACBrNFe.ImprimirEventoPDF;
                           if FileExists(mm.ACBrNFe.DANFE.ArquivoPDF) then
                              result :=  ExtractFileName(mm.ACBrNFe.DANFE.ArquivoPDF) ;
                      end;
 

No servidor:

image.png.f12f45ff68c1ee280d79b36a4a698d2f.png

No PC desenvolvimento:

image.thumb.png.dfa875affa2606cd14b5b0bef0ea0611.png

  • Moderadores
Postado

Olha não lembro do código ser mutável então o que pode ser é as questões de alguma dll faltando

ou no seu ambiente de desenvolvimento ele estar com valores fixos e lá no clientes os dados serem outros, por exemplo de path ou configurações de carregamento ou salvamente

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...