Erro ao gerar PDF

[Devanir Frasao]

Olá boa tarde!

Estou com problemas ao gerar um PDF, ao tentar executar a rotina abaixo, simplesmente aparece que o VB6 parou de responder, no Exe acontece a mesma coisa, travando o sistema.

Estou usando da seguinte forma.

                     bufferLen = 256
                     buffer = String$(bufferLen, " ")
                     
                     retorno = SAT_GerarPDFExtratoVenda("C:\ACBR_SAT\Vendas\201905\21\AD41190582373077000171599000043240004616856902.xml", "C:\ACBR_SAT\PDF\teste.pdf", buffer, bufferLen)
                     CheckResult retorno
                     
                     SetResposta buffer, bufferLen

 

 

[Rafael Dias]

Poderia postar o log da lib para analisarmos ?

Acabei de testar com o demo em VB6 e não tive erro algum.

[Devanir Frasao]

Bom dia.

Log em anexo.

Att

ACBrLibSAT-20190522.log

[Rafael Dias]

Você esta usando a ultima versão do svn ou a ultima versão disponível para download ?

[Devanir Frasao]

1 hora atrás, Rafael Dias disse:

Você esta usando a ultima versão do svn ou a ultima versão disponível para download ?

Qual seria a última versão ? e como verifico a versão que estou utilizando ?

[Rafael Dias]

O que eu quis saber é se você baixou na sessão downloads ou se você compilou a mesma visto que esta usando a dll diretamente em vez de usar a classe de alto nível.

Por favor teste com esta nova versão que enviei agora.
2019.5.22.1

[Devanir Frasao]

19 horas atrás, Rafael Dias disse:

O que eu quis saber é se você baixou na sessão downloads ou se você compilou a mesma visto que esta usando a dll diretamente em vez de usar a classe de alto nível.

Por favor teste com esta nova versão que enviei agora.
2019.5.22.1

Continuo com o mesmo problema.

Enviei o anexo do log e do erro.

E abaixo esta o codigo de programação que estou utilizando, onde sera que estou errando ?

                      bufferLen = 256
                      buffer = String$(bufferLen, " ")
                      
                      retorno = SAT_ConsultarSAT(buffer, bufferLen)
                      'CheckResult ret
           
                      SetResposta buffer, bufferLen
                      
                      retornoString = GetToken(RTBRESPOSTAS.Text, 2, "|")
                      
                      
                      If retornoString <> "08000" Then
                         MsgBox RTBRESPOSTAS.Text
                         Exit Function
                      End If
        
                     bufferLen = 256
                     buffer = String$(bufferLen, " ")
                     

                     'O ERRO ACONTECE NESSA LINHA ABAIXO E TRAVA O SISTEMA CONFORME ANEXO.
                     retorno = SAT_GerarPDFExtratoVenda(VENDAS!VEN_CAMINHOXML, Parametros!PAR_CAMINHOACBR & "\PDF\" & Numero_da_venda & ".pdf", buffer, bufferLen)
                     CheckResult retorno
                     
                     SetResposta buffer, bufferLen
                     
                               
                     retorno = SAT_DesInicializar()
                     CheckResult retorno

ACBrLibSAT-20190523.log

[Rafael Dias]

Consegue reproduzir o erro com o demo ?
Poste seu acbrlib.ini, fazendo favor.

[Devanir Frasao]

 

14 horas atrás, Rafael Dias disse:

Consegue reproduzir o erro com o demo ?
Poste seu acbrlib.ini, fazendo favor.

Olá boa tarde!

Fui executar pelo demo e não consigo mais abrir o mesmo, fica me retornando o seguinte erro no vb6 "bad dll calling convention" (no meu outro projeto funciona normalmente)

O que posso fazer para ajustar esse problema ?

[Rafael Dias]

Este erro significa que você esta usando a dll errada, você deve usar a dll StdCall e não a Cdecl.