Retorno NFC-e em TXT

[paulocsc]

Olá a todos, eu já vi que alguns softwares salva o retorno da NFC-e em um TXT (log) para que não se faça preciso esta emitindo a mensagem de erro em tela, por exemplo eu tentar emitir uma NFC-e se acorrer erro de NCM ele transmite a NFC-e em contingencia e grava no TXT o retorno do erro e o numero da NFC-e isso é feito a mão ou é alguma função do próprio ACBR ?

[sysnet sysnet]

Não sei te dizer se o acbr faz isso mas uso uma função que salva os erros da NFC-e

 

procedure TfrmVenda.CriaLogErro(erro: string);
var
  log: TextFile;
begin
  if not DirectoryExists('C:\SYS_NET\PDV\Log') then
    begin
      ForceDirectories('C:\SYS_NET\PDV\Log');
    end;

  AssignFile(log, 'C:\SYS_NET\PDV\Log\log.txt');

  if FileExists('C:\SYS_NET\PDV\Log\log.txt') then
    begin
      Append(log);
    end
  else
    begin
      Rewrite(log);
    end;

  Writeln(log, 'Data..: ' + DateTimeToStr(Now));
  Writeln(log, 'Erro..: ' + erro);
  Writeln(log, '---------------------------------------');

  CloseFile(log);
end;

[Juliomar Marchetti]

6 horas atrás, paulocsc disse:

Olá a todos, eu já vi que alguns softwares salva o retorno da NFC-e em um TXT (log) para que não se faça preciso esta emitindo a mensagem de erro em tela, por exemplo eu tentar emitir uma NFC-e se acorrer erro de NCM ele transmite a NFC-e em contingencia e grava no TXT o retorno do erro e o numero da NFC-e isso é feito a mão ou é alguma função do próprio ACBR ?

Sim. abre os fontes do ACBr. eles estão todos disponíveis. olhando lá tu vai ver como é feito.

[paulocsc]

Em 08/01/2021 at 05:15, Juliomar Marchetti disse:

Sim. abre os fontes do ACBr. eles estão todos disponíveis. olhando lá tu vai ver como é feito.

realmente no ACBR tem um exemplo mas é basicamente é o status da venda, onde saí todas informação de NFC-e, mas preciso salva o retorno(motivo do erro de NFCe) ! ainda não resolvi esse problema !

[Juliomar Marchetti]

O retorno está todo ali, não sei o que tu tá querendo além do que possui

[paulocsc]

realmente não tem o que eu queria, mas vou tentar fazer  como sysnet sysnet  passou pra ver se da certo, basicamente eu quero o codigo do erro, motivo, data:hora, numero da NFC-e fica mais ou menos assim:

 

****************************NFC-e****************************

NFCe 100 - Autorizada - 20/01/2021 08:30:21

Chave: 12345678901234567890123456789012345678901234

-------------------------------------------------------------------- 

****************************NFC-e****************************

NFCe 101 - Rejeição NCM Item 01 - 20/01/2021 08:31:21

Chave: 6546546576542313465468798413546546546546546

-------------------------------------------------------------------

[paulocsc]

Em 07/01/2021 at 23:13, sysnet sysnet disse:

Não sei te dizer se o acbr faz isso mas uso uma função que salva os erros da NFC-e

 

procedure TfrmVenda.CriaLogErro(erro: string);
var
  log: TextFile;
begin
  if not DirectoryExists('C:\SYS_NET\PDV\Log') then
    begin
      ForceDirectories('C:\SYS_NET\PDV\Log');
    end;

  AssignFile(log, 'C:\SYS_NET\PDV\Log\log.txt');

  if FileExists('C:\SYS_NET\PDV\Log\log.txt') then
    begin
      Append(log);
    end
  else
    begin
      Rewrite(log);
    end;

  Writeln(log, 'Data..: ' + DateTimeToStr(Now));
  Writeln(log, 'Erro..: ' + erro);
  Writeln(log, '---------------------------------------');

  CloseFile(log);
end;

Resolvido com a sua solução amigo, muito obrigado ! 

[Juliomar Marchetti]

Obrigado por reportar.

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