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:
Fechar



0 comentários:
Postar um comentário