NFE validade corretamente, mais quando vou imprimir da DANFE novamente o PROCOTO ESTÁ sem autorização de uso pela sefaz

[Diogo Camelo]

Esse é o código

Para um consulta ou segunda via

o resultado é : PROCOTO ESTÁ sem autorização  de uso  pela sefaz.

Peço ajuda

 

var
  sXML: string;
begin
  if qrnota.RecordCount = 0 then
    exit;

  sXML := qrnota.fieldbyname('nfe_xml').asstring;
  if sXML = '' then
    exit;
  try
    if FileExists(sXML) then begin
      ACBrNFeDANFEFR1.Protocolo := '';
      ACBrNFeDANFEFR1.FastFile := 'C:\WG\Server\danfe\DANFE.fr3';
      ACBrNFe1.NotasFiscais.clear;
      ACBrNFe1.NotasFiscais.LoadFromFile(sXML);
      ACBrNFe1.NotasFiscais.Imprimir;
      //ACBrNFe1.NotasFiscais.Imprimirpdf;
    end
    else begin
      Application.messagebox('Arquivo XML não econtraddo!', 'Erro', mb_ok + mb_iconerror);
    end;
  except
    on E: exception do begin
      Application.messagebox(PWideChar('Erro ao criar/imprimir NFe!' + #13 + 'Mensagem: ' + E.message), 'Erro', mb_ok + mb_iconerror);
    end;
  end;
end;

[Juliomar Marchetti]

Verifica se está salvando e marcando as opções corretamente.

caso tenha dúvidas olha o exemplo do svn

[Diogo Camelo]

9 horas atrás, Juliomar Marchetti disse:

Verifica se está salvando e marcando as opções corretamente.

caso tenha dúvidas olha o exemplo do svn

vou verificar novamente