Ir para conteúdo
  • Cadastre-se

dev botao

ACBrLibBoleto - boleto.ObterRetorno


tdressano
Ver Solução Respondido por Rafael Dias,
  • Este tópico foi criado há 955 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Senhores, Boa tarde.

Estou alterando do Monitor para a Lib, mas estou com um problema no retorno que não consigo resolver:

O retorno do comando  boleto.ObterRetorno (da Lib) está me trazendo os caracteres dessa forma:

06-Liquida??o Normal

Estou utilizando o VB6, alguma sugestão para corrigir isso?

Já alterei a CodificacaoResposta = 1 e não mudou nada.

Obrigado,

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Sim estou usando a suas Classe, eu vi que tenta tratar isso, mas não está funcionando

Uso da seguinte forma:

txtRetorno = boleto.ObterRetorno(txtImportarDiretorio, txtImportarArquivo)

Classe:

Public Function ObterRetorno(ByVal eDir As String, ByVal eNomeArquivo As String) As String
    Dim retorno   As Long
    Dim buffer    As String
    Dim bufferLen As Long
    
    bufferLen = BUFFER_LENGTH
    buffer = String$(bufferLen, " ")
    
    retorno = Boleto_ObterRetorno(eDir, eNomeArquivo, buffer, bufferLen)
    CheckResult retorno
    
    ObterRetorno = processResult(buffer, bufferLen)
End Function

 

Private Function processResult(ByRef buffer As String, ByRef bufferLen As Long) As String
    
    If bufferLen > BUFFER_LENGTH Then
        buffer = String$(bufferLen, " ")
        Boleto_UltimoRetorno buffer, bufferLen
    End If

    processResult = Trim$(FromUTF8(buffer))
End Function

 

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia, 

Logo o @Rafael Dias te retorna, mas enquanto seria sim interessante anexar tudo que puder ajudar na análise.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Administradores

Boa tarde.

Nova versão disponível para download.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 955 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.