Distribuição DFE - como ler o arquivo XML

[colmanetti]

bom dia,

depois de executar ACbrNFe1.DistribuicaoDFe  com o ultimo NSU

baixou o arquivo 20210108064325-dist-dfe.xml, mas no processo de gravação deu erro, se tento executar novamente ACbrNFe1.DistribuicaoDFe mostra erro de consumo indevido e pede o ultimo numero NSU.

Como carrego o arquivo 20210108064325-dist-dfe.xml no componente novamente?

 

[Juliomar Marchetti]

Não carrega ele.

esse arquivo contém os cabeçalhos .

se está dando consumo indevido tu deve de estar enviando mesmo NSU logo após já ter feito a consulta

seu sistema tem um timer ou thread que fica rodando a todo momento?

[colmanetti]

Neste XML tem os NSU e os cabeçalhos, mas o sistema deu um erro no processamento deste cabeçalho, assim o ultimo NSU fica o mesmo.

se eu pular os 50 NSU que veio neste arquivo vai processar novamente o ACbrNFe1.DistribuicaoDFe, mas vai ficar faltando os 50 cabeçalhos deste arquivo.

Não tem timer.

[BigWings]

Você tem o arquivo XML *-dist-dfe.xml gravado?

Se sim, pode fazer assim:

uses
  pcnRetDistDFeInt;

...

var
  ret: TRetDistDFeInt;
  I: Integer;
begin
  ret := TretDistDFeInt.Create('NFe');
  try
    ret.LerXMLFromFile(nomeArq);
    for I := 0 to ret.docZip.Count - 1 do
    begin
      ANSU := ret.docZip[I].NSU;
      AXML := ret.docZip[I].XML;
    end;
  finally
    ret.Free;
  end;

 

[colmanetti]

 

Deu Certo, 

Obrigado.

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.