PROTOCOLO DE AUTORIZAÇÃO DE USO sem DATA e hora

[Filippe]

Boa tarde povo.

vamos la. Estou emitir uma NFe e esta indo normalmente imprimindo bonito com protocolo de autorização de uso. quando manda reimprimir no campo PROTOCOLO DE AUTORIZAÇÃO DE USO esta saindo sem a data. segue a foto das 2 impressões.

 

[Filippe]

Rotina de reimpressão.. 

 

xCaminho := dsetEmpresaDIRNFEEMPRESA.AsString+'\'+
                    formatDateTime('DD-MM-YYYY',dSetNFCabecalhoDATAEMI.AsDateTime)+'\'+
                    dSetNFCabecalhoNFE_CHAVE.AsString;

        NFe.NotasFiscais.LoadFromFile(xCaminho+'-NFe.xml');

 

ConfiguraNFe(dsetEmpresaDIRNFEEMPRESA.AsString+'\'+formatDateTime('DD-MM-YYYY',dSetNFCabecalhoDATAEMI.AsDateTime),
                     dsetEmpresaLOGONFEMPRESA.AsString,
                     dsetEmpresaCERTEMPRESA.AsString,
                     tpcNormal);

        NFE.DANFE.ProtocoloNFe := dSetNFCabecalhoNFE_PROTOCOLO.AsString;

        NFe.NotasFiscais.Clear;

        xCaminho := dsetEmpresaDIRNFEEMPRESA.AsString+'\'+
                    formatDateTime('DD-MM-YYYY',dSetNFCabecalhoDATAEMI.AsDateTime)+'\'+
                    dSetNFCabecalhoNFE_CHAVE.AsString;

        NFe.NotasFiscais.LoadFromFile(xCaminho+'-NFe.xml');

        if (FileExists(xCaminho + '.pdf') = false) and
        (FileExists(xCaminho+'-nfe.PDF') = false) then
          NFE.NotasFiscais.ImprimirPDF;

          if FileExists(xCaminho+'-nfe.PDF') Then
                  xCaminhoPDF := xCaminho+'-nfe.PDF'
                else if FileExists(xCaminho+'.PDF') Then
                  xCaminhoPDF := xCaminho+'.PDF'
                else
                 xCaminhoPDF := '';

    
          NFe.NotasFiscais.Imprimir;