DistribuicaoDFePorChaveNFe - Como extrair a NFe

[Earmarques]

Bom dia,

Estou estudando o exemplo do ACBr NFe e ao clicar no botão "Distribuição DF-e por Chave", consultando uma nota já manifestada, retorna esse arquivo, mas ao carregar no navegador não se parece com um XML de documento fiscal, embora o componente salve como tal, inclusive na pasta de NFe mesmo. Como posso visualizar isso como uma nota mesmo?

 

Obrigado

20250608085913-dist-dfe.xml

[BigWings]

1 hora atrás, Earmarques disse:

Como posso visualizar isso como uma nota mesmo?

Carregue o arquivo no componente, conforme demonstração no programa exemplo do ACBrNFe.

O componente converte de base64 e descompacta o conteúdo (gzip) para ter o XML.

[Earmarques]

Bom dia,

Pois é. Notei que o componente não está carregando, portanto devo estar esquecendo alguma coisa:

 

procedure TfrmACBrNFe.btnDistrDFePorChaveClick(Sender: TObject);
var
  xTitulo, cUFAutor, CNPJ, Chave: string;
begin
  xTitulo := 'Distribuição DFe Por Chave';
  cUFAutor := '';
  if not(InputQuery(xTitulo, 'Código da UF do Autor', cUFAutor)) then
     exit;

  CNPJ := '';
  if not(InputQuery(xTitulo, 'CNPJ/CPF do interessado no DF-e', CNPJ)) then
     exit;

  Chave := '';
  if not(InputQuery(xTitulo, 'Chave da NF-e', Chave)) then
     exit;


  ShowMessage('Documentos antes: ' + ACBrNFe1.NotasFiscais.Count.ToString);

                  ACBrNFe1.DistribuicaoDFePorChaveNFe(StrToInt(cUFAutor), CNPJ, Chave);

  ShowMessage('Documentos depois: ' + ACBrNFe1.NotasFiscais.Count.ToString);

  MemoResp.Lines.Text := ACBrNFe1.WebServices.DistribuicaoDFe.RetWS;
  memoRespWS.Lines.Text := ACBrNFe1.WebServices.DistribuicaoDFe.RetornoWS;

  LoadXML(ACBrNFe1.WebServices.DistribuicaoDFe.RetWS, WBResposta);
end;

 

Nos ShowMessages acima retorna 0 antes e 0 depois. Mesmo retornando o arquivo que anexei acima contendo ele em base64.

Atenciosamente,

 

Editado 8 Junho, 2025 por Earmarques

[BigWings]

22 horas atrás, Earmarques disse:

Pois é. Notei que o componente não está carregando, portanto devo estar esquecendo alguma coisa:

No botão de distribuição por último NSU tem o exemplo carregando o arquivo em vez de fazer a chamada ao webservice.

22 horas atrás, Earmarques disse:

Mesmo retornando o arquivo que anexei acima contendo ele em base64.

O componente também salva o XML extraído, e você também consegue acessar o conteúdo pela propriedade ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[x].XML.