Impressao De Danfe Em Dpec/epec - Fastreport

[Antonio Gomes]

Ao fazer a impressão do DPEC/EPEC não autorizado e autorizado, deparei com o mesmo rótulo de texto acima do nProt.

 

O problema está no código abaixo:

 

 if (FNFe.Ide.tpEmis = teDPEC) then

      begin

        FieldByName('Contingencia_Descricao').AsString := 'NÚMERO DE REGISTRO DPEC';

        //prioridade para ProtocoloNFe informado

        if DFeUtil.NaoEstaVazio(FDANFEClassOwner.ProtocoloNFe) then

          FieldByName('Contingencia_Valor').AsString := FDANFEClassOwner.ProtocoloNFe

        else

        begin

          try

            FieldByName('Contingencia_Valor').AsString := FNFe.procNFe.nProt + ' ' + DFeUtil.SeSenao(FNFe.procNFe.dhRecbto <> 0, DateTimeToStr(FNFe.procNFe.dhRecbto), '');

            FieldByName('Contingencia_Descricao').AsString := 'PROTOCOLO DE AUTORIZAÇÃO DE USO';

          except

            raise EACBrNFeException.Create('Protocolo de Registro no DPEC não informado.')

          end;

        end;

      end

 

Mudei para: 

 

 if DFeUtil.NaoEstaVazio(FNFe.procNFe.nProt) then // DPEC TRANSMITIDO

        begin

           FieldByName('Contingencia_Descricao').AsString := 'PROTOCOLO DE AUTORIZAÇÃO DE USO';

           FieldByName('Contingencia_Valor').AsString := FNFe.procNFe.nProt + ' ' + DFeUtil.SeSenao(FNFe.procNFe.dhRecbto <> 0, DateTimeToStr(FNFe.procNFe.dhRecbto), '');

        end

        else

        begin

           FieldByName('Contingencia_Descricao').AsString := 'NÚMERO DE REGISTRO DPEC';

           if DFeUtil.NaoEstaVazio(FDANFEClassOwner.ProtocoloNFe) then

             FieldByName('Contingencia_Valor').AsString := FDANFEClassOwner.ProtocoloNFe;

        end;

 

 

Caso seja util, e puder incorporar.

 

ACBrNFeDANFEFRDM.pas

Editado 23 Setembro, 2014 por Antonio Gomes

[Antonio Gomes]

A impressao da contingencia teSVCAN deu problema também, porém tive que acrescentar na linha abaixo, o teSVCAN.

    if ((FNFe.Ide.tpEmis in [teNormal, teSVCAN, teSCAN,teSVCRS,teSVCSP])) then

 

Linha 1477 da unit ACBrNFeDANFEFRDM

[Juliomar Marchetti]

Boa tarde

favor atualizar o svn e testar!

 

Obrigado pela contribuição!