Erro Ao Assinar Arquivo Gerado Pelo Sintegra

[Gutierres]

Bom dia.. 

 

estou com um problema eu gero o arquivo do Sintegra pelo pdv para atender o PAF mas quando mando gerar o EAD da erro no AssinarArquivoComEAD

 

 

Alguém já teve esse problema 

 

Estou enviando em anexo o arquivo

SINTEGRA.txt

[Isaque Pinheiro]

O sintegra não permite mandar intervalo menor dentro do mês, ou seja a Data Inicial TEM que ser 01/??/???? e a data final tem que ser o último dia do mês no registro 10, mesmo que a movimentação seja só de dois dias.

[Gutierres]

Ok mas isso interfere na geração do Arquivo EAD ? 

[Isaque Pinheiro]

Não, agora vc testou assinar outro arquivo? Pois para que colocou o TXT em anexo ? Seu problema deve ta com a rotina de assinar não no arquivo.

[Gutierres]

sim estou assinando outro no mesmo menu fiscal 

e o piro que tenho que ir homologar o sistema amanha

 

 

veja fiz agora 

 

 

AMFDR0510BR000000222017_20140607_085746.TXT

[Gutierres]

Mudei o comando 

 

estou fazendo um teste com MD5FromString agora deu esse erro 

 

Access violation at address 10050661 in module 'libeay32.dll'. Read of address 00000014

[Isaque Pinheiro]

pode ser a versão dessa DLL, pegue a que tem no dir do ACBr e leve para o System32

[Gutierres]

Resolvi o Problema não sei por que mas quando usava o AAC mesmo destruindo ele estava segurando o EAD ai Destrui e Criei Novamente 

 

 

Obrigado

[Helyeldo Sousa Gomes]

Eu tive o mesmo problema.

Isso ocorre porque TACBrEAD.FreeOpenSSL é executado depois que é destruído algum form. E quando necessário o uso da 'libeay32.dll' não é  inicializado a procedure TACBrEAD.InitOpenSSL novamente. 

Para resolver o problema é só alterar a variável fsInicializado e a procedure  conforme abaixo

TACBrEAD = class(TComponent)
  private
    fsOnGetChavePrivada: TACBrEADGetChave;
    fsOnGetChavePublica : TACBrEADGetChave ;
    fsOnProgress: TACBrEADOnProgress;

    fsKey : pEVP_PKEY ;
    fsIsXMLeECFc : Boolean ;
    fsBufferSize: Integer;
    class var fsInicializado : Boolean;

 

procedure TACBrEAD.FreeOpenSSL;
begin
  LiberarChave;
  {$IFDEF USE_libeay32}
   EVP_cleanup();
  {$ELSE}
   EVPcleanup();
  {$ENDIF}
  fsInicializado := False;
end;

  

[Daniel Simoes]

Apliquei modificações nos fontes do SVN, baseados na sugestão proposta...