nfce erro apos emitir

[Dfox]

boa tarde, apos atualizar o acbr estou recebendo o seguinte erro apois emitir uma nfce veja na imagem

Screenshot_1.bmp

[Dfox]

debugando o fonte cheguei nessa messagem

[Juliomar Marchetti]

é certificado A1 e é novo recente correto?

se sim instale ele no windows. marcando a opção de ser exportavel 

e depois exporte ele novamente para pfx e use esse pfx novo

mas lembrando esse erro só aparece em debug se estiver com o executável ele é omitido

[Dfox]

Hum estranho antes de eu atualizar não dava esse erro 

[Juliomar Marchetti]

1 hora atrás, Dfox disse:

Hum estranho antes de eu atualizar não dava esse erro 

Atualizar oque? o ACBr.
não é algo mutavel que possa ter mudado a situação sobre as criptgrafias o certificado é novo ou é antigo é o mesmo

[BigWings]

Em 09/08/2025 at 15:24, Dfox disse:

Essa mensagem é esperada e tratada, e só vai aparecer em debug.

Continue depurando, o cStat 100 não devia gerar exceção...

[Juliomar Marchetti]

complementando ao bigwings. a menos que tu tenha lá um abort no seu código

[Dfox]

O erro  ocorre logo apos eu mandar imprimir o Nfce modelo 65 para PDF

try

ACBrNFe1.Enviar(0, True, True);
ACBrNFe1.NotasFiscais.ImprimirPDF;

  Except //erro
    on E: Exception do
    begin

      with ACBrNFe1.WebServices.Enviar do
      begin
        Application.MessageBox(PChar('Ocorreu o seguinte erro ao Emitir a nota fiscal eletrônica!' + LineBreak +
          format(
          'Código: %d' + LineBreak +
          'Mensagem: %s',[
             cStat,
             xMotivo
          ])), 'Erro', mb_ok + mb_iconerror);
      end;
    end;
  end;

[Dfox]

e tambem da erro ao tentar enviar email

[Dfox]

O problema é aqui esta opção não esta funcionando

ACBrNFeDANFEFR1.PathPDF := ExtractFilePath(ParamStr(0)) + 'PDF\';

nem esta

ACBrNFeDANFCEFR1.PathPDF := ExtractFilePath(ParamStr(0)) + 'PDF\';

 

[Dfox]

descobri o erro acontece quando eu uso a opção

ACBrNFeDANFEFR1.UsaSeparadorPathPDF := True;

ACBrNFeDANFCEFR1.UsaSeparadorPathPDF := True;

e seguido de 

ACBrNFeDANFEFR1.PathPDF := ExtractFilePath(ParamStr(0)) + 'PDF\';

ACBrNFeDANFCEFR1.PathPDF := ExtractFilePath(ParamStr(0)) + 'PDF\';

dai  o compomenete não consegue localizar o pdf e da erro, e antes dava certo!