Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

logos

Texto.png

p200

click.png

click.png

click.png

Registros PAF-NFC-e


Go to solution Solved by Juliomar Marchetti,

Recommended Posts

  • Usuários SAC

Bom dia!

Eu linguei os componentes ACBrPAF.EAD :=ACBrEAD mudei o campo Layout para lpPAFNFCe e inclui as chaves em 

procedure TForm6.ACBrEADGetChavePrivada(var Chave: AnsiString);
procedure TForm6.ACBrEADGetChavePublica(var Chave: AnsiString);
 

e marquei Assinar Arquivos com EAD, porem não esta gerando para mim os dados EAD no final do arquivo do botão "Tipo Z"

falta em preencher algo?

Link to post
Share on other sites
  • Solution

Estranho mesmo. rodei aqui o exemplo. consegue depurar com o f8 e f7 pra entrar e ver se ele está configurado para assinar?

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
  • Usuários SAC

Esta parando nessa função, ainda não entedi o porque, mais parece que esta faltando iniciar alguma coisa

function TACBrPAF.AssinaArquivoComEAD(const Arquivo: String): Boolean;
begin
  if Assigned(fsOnPAFCalcEAD ) then
 -->    fsOnPAFCalcEAD( Arquivo )
  else
     GetACBrEAD.AssinarArquivoComEAD( Arquivo ) ;

  Result := True;
end;
 

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...