Sicredi - Retorno com CodMotivo vazio

[sidnei_alves1]

Bom dia.

Hoje recebi de um cliente um retorno do sicredi que continha 3 retorno de pagamento, mais o sistema so mostrava 1 pagamento.

debugando vi que ocorria um erro na leitura do retorno por que o CodMotivo vinha em branco sendo assim ao dar o StrToInt dava erro.

           

case StrToInt(CodMotivo) of
    00: Result:= '00-Ocorrência aceita, liquidação normal';
else
    Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos';
end;

ai mudei da seguinte forma , mais nao sei se e o modo mais correto, se poderem dar uma analisada para subir no SVN agradeço.

 

else   
            case AnsiIndexStr(CodMotivo, ['  ', '00']) of
               0: Result:= '00-Ocorrência aceita, liquidação normal';
               1: Result:= '00-Ocorrência aceita, liquidação normal';
            else
               Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos';
            end;
          end;

 

ACBrBancoSicredi.pas

[j2c9m7]

Veja

http://www.projetoacbr.com.br/forum/topic/32540-erro-ao-buscar-arquivo-de-retorno-sicredi/

Abraços

[sidnei_alves1]

A sim desculpe criar outro tópico, moderadores podem fechar o tópico que vou acompanhar o outro.