Fechar

sexta-feira, 9 de março de 2012

ACBR Exibindo o MD5 No campo de Informações Complementares do Danfe

0 comentários

Para Exibir o  MD5 do PAF-ECF no campo de informações complementares do Danfe no componente ACBR é muito simples, basta informar na propriedade InfAdic da Nfe.


ACBrNFe1.NotasFiscais.Items[0].NFe.InfAdic.infAdFisco := MD5; 


Veja no exemplo abaixo:

var

  Nfe: string;

begin

  Nfe := DirNFeXMLs + '\' + 
Numero  + '.xml';



  if not FileExists(Nfe) then

    raise Exception.Create('XML da Nota não encontrado');



  ACBrNFe1.NotasFiscais.Clear;

  ACBrNFe1.NotasFiscais.LoadFromFile(Nfe);

  if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then

  begin

    ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;

    ACBrNFe1.WebServices.ConsultaDPEC.Executar;

    ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC + ' ' + DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC);

  end;

  ACBrNFe1.NotasFiscais.Items[0].NFe.InfAdic.infAdFisco := 
MD5 ;

  ACBrNFe1.NotasFiscais.Imprimir;



end;

E a impressão no Danfe:


Mais Populares

Seguidores

Є & V. Copyright 2011 Evaldo Avelar Marques - sprintrade network