Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

  • Este tópico foi criado há 2436 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Pessoal atualizei o ACBR e na impressão do meu NFCE esta dando o seguinte erro:

 

---------------------------
WJ Informática - SISCOM - PDV
---------------------------
 Erro ao calcular Hash do QR-Code
---------------------------
OK   
---------------------------
 
 
So que engracado que se eu fechar o sistema e abrir novamente ele nao da erro..
 
Fui mais afundo para ver o problema:
 
Access violation at address 100468DA in module 'libeay32.dll'. Read of address 
 
Isso acontece sempre quando imprimo o segundo cupom...
 
Uso o procedimento:
 
 with ACBrNFe1.NotasFiscais.Items[0].NFe do
    begin
        Memo1.Text :=
            NotaUtil.GetURLQRCode(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF,
            ide.tpAmb,
            procNFe.chNFe,
            cDest,
            Ide.dEmi,
            Total.ICMSTot.vNF,
            Total.ICMSTot.vICMS,
            procNFe.digVal, '000001', FrmPrincipal.edtIdToken.Text);
    end;
 
O erro acontece em ACBRNFeUtil.pas
em class function NotaUtil.GetURLQRCode(const AUF : Integer; AAmbiente : TpcnTipoAmbiente;
 
 
O que pode estar acontecendo? como dito anteriormente se fecho a aplicação e mando imprimir o cupom sai normal, mas se imprimo o segundo dae da o erro...
 
 
Valeu..
 
 
 
Link to comment
Share on other sites

Também estou tendo esse problema.

O erro ocorre na função "InternalDigest" da unit ACBrEAD.pas, no momento em que é chamada a função "EVP_DigestUpdate( @md_ctx, Memory, BytesRead ) ;", que está na unit "libeay32.pas"

 

Como o Dionatan comentou, na primeira impressão funciona perfeitamente. Ao mandar outra impressão, o problema aparece.

 

Tentei atualizar a dll com a última que vem ao baixar os fontes, mas o problema permanece.

Rodrigo Cantelli

Link to comment
Share on other sites

  • Consultores

Não é isso!

é algum ponto está sendo liberado a dll mas não está saindo da memoria e após é feito o carregamento de novo!

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

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • Consultores

Ta mas e o que podemos fazer Juliomar... Ja atualizei fontes... e tudo mais... e nada...

A primeira coisa é debugar e tentar achar o ponto! ou o problema!

depois posta aqui que ajudamos! não tenho como ver agora pois estou trabalhando com outras coisas !

mas assim que possível vou dar uma olhada!

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

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • Moderadores

Deixe os componentes relacionados a NFe em um DataModule que seja criado na abertura do sistema e destruído apenas qdo o sistema for finalizado.

Não crie cópias do datamodule ou componente e nem adicione o mesmo em vários forms do seu projeto.

  • Like 1
djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link to comment
Share on other sites

Pessoal valeu pelas dicas.... Não sei se foi a melhor solução... Mas resolveu meus problemas...

 

Vejam na unit ACBRNfeUtil.pas

 

    if fsHashQRCode <> nil then
    begin
        try
            fsHashQRCode.FreeOnRelease;
        except
        end;
 
        try
            fsHashQRCode := nil;
        except
        end;
    end;
 
  // 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;

 

Não deus mais erro e esta funcionando 100%...

 

Valeu...

Link to comment
Share on other sites

  • 9 months later...
  • Este tópico foi criado há 2436 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.