Cecred - Erro no retorno de boleto com rejeição

[Dercide Alvarez]

Boa tarde,

Encontrei um problema leitura do retorno do Cecred CNAB 240.

Quando o titulo tem uma rejeição - 03-Entrada Rejeitada, o componente não carregava o motivo da rejeição.

unit ACBrBancoCecred ne linha 1197

OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(copy(Linha, 16, 2), 0)); ==> Retorna toRetornoRegistroRecusado

Mas na function TACBrBancoCecred.CodMotivoRejeicaoToDescricao é comparado toRetornoComandoRecusado

Com isso, o motivo da rejeição não é alimentada.

Adicionei toRetornoComandoRecusado na comparação para poder alimentar o componente, não sei se é o ideal, pois tinha urgência na solução.

 

ACBrBancoCecred.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3660

[Dercide Alvarez]

@Juliana Tamizou

Apenas corrigindo o meu comentario :

Adicionei toRetornoRegistroRecusado, junto com toRetornoComandoRecusado na comparação para poder alimentar o componente, não sei se é o ideal, pois tinha urgência na solução.

 

[robertovilela]

Pessoal alguém pode me ajudar, arquivo Retorno CNAB 400 Unicred, não estou conseguindo obter a descrição do Motivo da Rejeição.
EX:
CBrBoleto2.ListadeBoletos.Objects[1].OcorrenciaOriginal.Descricao   ----- aqui esta ok  "03 - Instrução Rejeitada"
ACBrBoleto2.ListadeBoletos.Objects[1].DescricaoMotivoRejeicaoComando.text -- mas aqui era para vir qual  motivo da rejeição e retorna vazio
e se for la na unit ACBrBancoUnicredES a função DescricaoMotivoRejeicaoComando passa certinho. 
Obrigado a todos .. tentei procurar em todo fórum mas com os exemplos sugeridos  não deram certo.

[Dercide Alvarez]

Esse problema do UNICRED é porque o código é lido com 8 caracteres, com isso ficam caracteres em branco no final.

Quando é comparado na function TACBrBancoUnicredES.CodComplementoMovimento(

    if StrToInt(ACodMotivo) > 0 then ==> Aqui ocorre a exceção
 

Inclui um TRIM na leitura, e o problema foi resolvido.

Segue o fonte corrigido para analise.

ACBrBancoUnicredES.pas

[Daniel InfoCotidiano]

@Dercide Alvarez
Primeiramente obrigado pela contribuição
Estava verificando talvez o manual estava antigo, atualizei.
Como teve muitas mudanças, antes de subir para o svn vou te enviar a unit, pode salvar ela na pasta (ACBr\Fontes\ACBrBoleto)
E por favor rode o instalador do ACBr
ACBrBancoCecred.pas

Se tiver alguns arquivos de retorno 240 e 400 se puder me passar via email: [email protected] (anexado os arquivos de retorno e o link aqui do post no fórum)
Aguardo um feeback. Obrigado !
 

 

[Dercide Alvarez]

@Daniel InfoCotidiano

Já enviei um arquivo com rejeição CNB 240.

Chegou a verificar quanto ao mesmo problema do UNICREDI ?

O @robertovilela me chamou e me mandou o retorno, aonde fiz o teste.

Eu anexei o fonte corrigido.

Editado 15 Março, 2023 por Dercide Alvarez

[Daniel InfoCotidiano]

@Dercide Alvarez
Peço por favor para mantermos a regra do forum, como é referente a  outro banco, criar um tópico novo, isso tbm ajuda quem está fazendo buscas / pesquisas.
Então por favor @robertovilela criar um tópico novo para não misturar os bancos.
Mas pelo q li no seu print, vamos ter q criar um loop para tratar 4 retornos diferentes que são alimentadas nesta posição (319/8 posições.)
Dai vou criar outra tarefa para tratar este retorno.
 

[Daniel InfoCotidiano]

@Dercide Alvarez
Subimos uma atualização Cecred para o SVN, atualize seus fontes e rode o instalador por favor