ACBrLibBoleto - boleto.ObterRetorno

[tdressano]

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,

[Rafael Dias]

Você esta usando a nossa classe ?? pois este erro ai é erro de enconding e nossa classe já tem um tratamento para isso.

[tdressano]

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

 

[Rafael Dias]

Funcionando esta senão todos os outros retornos tbm estariam com problema, temos que ver o que esta causando este erro neste caso.

Vou ver se pego um arquivo de retorno aqui para fazer uns testes.

[tdressano]

Rafael,

Sim, não está funcionando para esse caso. Quer que eu anexe meu retorno?

Obrigado

[Juliana Tamizou]

Bom dia, 

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

Att.

[Rafael Dias]

Achei o possivel erro, a correção deve sair na próxima compilação da Lib.

[Juliana Tamizou]

Boa tarde.

Nova versão disponível para download.

Att.

[tdressano]

Rafael / Juliana,

Funcionou.

Obrigado

[Juliana Tamizou]

Obrigado por reportar.

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