Ir para conteúdo
  • Cadastre-se

dev botao

Erro ao gerar PDF


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

Recommended Posts

  • Membros Pro

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

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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

Screenshot_1.jpg

ACBrLibSAT-20190523.log

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

 

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 ?

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.