Rlvenda:erro Durante A Preparacao Do Relatorio Exception (Erro Ao Calcular Hash Do Qr-Code )

[elrond]

Bom dia Galera,

 

Estou com um problema que ocorre da seguinte maneira

 

Eu Emito uma NFc-e ele vai normal, ao emitir a segunda, sendo que esta tudo "fechado" e toda vez que inicio uma nova eu "reinicializo" todos os componente  ... ele ocorre esse erro que esta em anexo.

Unit ACBrNFeUtil;  

sEntrada  := 'chNFe=' + AchNFe + '&nVersao=100&tpAmb=' + TpAmbToStr(AAmbiente) +
               DFeUtil.SeSenao(AcDest = '', '', '&cDest='+AcDest) +
               '&dhEmi=' + sdhEmi_HEX + '&vNF=' + sNF + '&vICMS=' + sICMS +
               '&digVal=' + sdigVal_HEX + '&cIdToken=';

  // Passo 5 calcular o SHA-1 da string sEntrada
  if fsHashQRCode = nil then
    fsHashQRCode := TACBrEAD.Create(nil);
  try
    cHashQRCode := fsHashQRCode.CalcularHash(sEntrada + sToken, dgstSHA1);
  except
    raise Exception.Create('Erro ao calcular Hash do QR-Code');
  end;

o que pode ser ?

Editado 6 Maio, 2015 por elrond

[Régys Silveira]

Coloque o componente ACBrNFe em um datamodule e use por lá, colocar ele em um forma geralmente causa erro na capicom ou openssl.

[elrond]

Obrigado Regys, 

 

eu fiz uma pequena modificacao no nessa parte do codigo que postei acima, deu certo mais tbm é "adaptacao" que deu certo,

if fsHashQRCode = nil then
    fsHashQRCode := TACBrEAD.Create(nil);
  try
    cHashQRCode := fsHashQRCode.CalcularHash(sEntrada + sToken, dgstSHA1);
  except
    raise Exception.Create('Erro ao calcular Hash do QR-Code');
  end;

alterei para

    //if fsHashQRCode = nil then
    fsHashQRCode.Free;
    fsHashQRCode := TACBrEAD.Create(nil);
  try
    cHashQRCode := fsHashQRCode.CalcularHash(sEntrada + sToken, dgstSHA1);
  except
    raise Exception.Create('Erro ao calcular Hash do QR-Code');
  end;

dessa forma , ele esta dando free no componente criado e recriando novamente, deu certo, parou de dar o erro. mas vou efetuar o teste como você disse.

 

Obrigado.