Erro Na Impressão Da Nfe Após Atualização Para Versão 8242

[Jean Carlo]

Caros Colegas,

 

Após atualização dos componentes para a versão 8242 aconteceu o seguinte problema:

• Quando mando visualizar qualquer  impressão de uma NFe  a visualização que sai é de uma outra NFe;

Uso o seguinte comando:

 

ACBrNFe1.NotasFiscais.Clear;
....
ACBrNFe1.NotasFiscais.Imprimir;

 

OBS: Uso o Fast Report.

[Juliomar Marchetti]

Boa noite!

favor postar o trecho do código todo!

obrigado

[Jean Carlo]

Bom dia Juliomar,

 

Estou enviando o trecho do código como solicitado.

 

begin
  FSaidas.ACBrNFe1.NotasFiscais.Clear;
  if  (FSaidas.pFIBDSPesquisaSaidaBXML_NFE.IsNull = True) then
    Application.MessageBox('Dados da NFe não encontrados.', 'Aviso', MB_OK+MB_ICONWARNING)
  else
    begin
        Archiver:= TZipForge.Create(nil);
     
        ms:= FSaidas.pFIBDSPesquisaSaida.CreateBlobStream(FSaidas.pFIBDSPesquisaSaidaBXML_NFE, bmRead);
       
      try
        Archiver.OpenArchive(ms, False);
        Archiver.BaseDir:= FSaidas.ACBrNFe1.Configuracoes.Geral.PathSalvar;
        Archiver.ExtractFiles('*.*');
        Archiver.CloseArchive;
      finally
        ms.Free;
        Archiver.Free;
      end;

      if FileExists(FSaidas.ACBrNFe1.Configuracoes.Geral.PathSalvar +   FSaidas.pFIBDSPesquisaSaidaVCHAVE_NFE.AsString + '-nfe.xml') then
        begin

       
           FSaidas.ACBrNFe1.NotasFiscais.LoadFromFile(FSaidas.ACBrNFe1.Configuracoes.Geral.PathSalvar +                                                          

            FSaidas.pFIBDSPesquisaSaidaVCHAVE_NFE.AsString + '-nfe.xml');

          if FSaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then
            begin
              if not(Fsaidas.ACBrNFe1.WebServices.StatusServico.Executar) then
                raise Exception.Create(FSaidas.ACBrNFe1.WebServices.StatusServico.Msg);
              FSaidas.ACBrNFe1.WebServices.ConsultaDPEC.NFeChave:= FSaidas.ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;
              FSaidas.ACBrNFe1.WebServices.ConsultaDPEC.Executar;
              FSaidas.ACBrNFe1.DANFE.ProtocoloNFe:= FSaidas.ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC + ' ' +
                                                    DateTimeToStr(FSaidas.ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC);
            end;

          FSaidas.ACBrNFe1.NotasFiscais.Imprimir;
          DeleteFile(FSaidas.ACBrNFe1.Configuracoes.Geral.PathSalvar + FSaidas.pFIBDSPesquisaSaidaVCHAVE_NFE.AsString + '-nfe.xml');

        end

      else
        Application.MessageBox('Arquivo XML da nota não encontrado.', 'Aviso', MB_OK+MB_ICONWARNING);

      DeleteXMLAux;
    end;

[jrc]

Caros Colegas,

 

Após atualização dos componentes para a versão 8242 aconteceu o seguinte problema:

• Quando mando visualizar qualquer  impressão de uma NFe  a visualização que sai é de uma outra NFe;

Uso o seguinte comando:

 

ACBrNFe1.NotasFiscais.Clear;

....

ACBrNFe1.NotasFiscais.Imprimir;

 

OBS: Uso o Fast Report.

Também estou com o mesmo problema, realmente antes da atualização não apresentava esse erro.

[Juliomar Marchetti]

tentaram olhar se o arquivo que está sendo descompactado ali está conseguindo substituir o outro?

abriram ele e verificaram?

[jrc]

tentaram olhar se o arquivo que está sendo descompactado ali está conseguindo substituir o outro?

abriram ele e verificaram?

Boa noite Juliomar,

 

Desde já agradeço pela atenção.

 

No meu caso é bastante simples o que faço:

 

if FileExists(_XML) then

begin

   FormNFe.ACBrNFe1.NotasFiscais.Clear;

   FormNFe.ACBrNFe1.NotasFiscais.LoadFromFile(_XML);

   FormNFe.ACBrNFe1.NotasFiscais.Imprimir;

end;

 

mesmo assim algumas vezes, sai o DANFE de outra NF.

obs.

1 esta rotina funcionava perfeitamente até alguns dias.

2 ao faturar, o sistema envia automaticamente por e-mail, e percebi que o xml vai correto porem o pdf vai errado(outra nf) nos casos que acontece o erro.

 

acredito que de alguma forma não está sendo possível atualizar o pdf da nf.

[Juliomar Marchetti]

Boa noite

olha duas possibilidades, ou seu xml não está mudando conforme deveria ser ou 

o pdf está ficando preso e não consegue gerar o outro,  mas as segunda opção iria levantar um exceção~!