Erro Retorno Liquidado Sicredi 'C7'

[João Paulo F. Bellucci]

A rotina de retorno do Sicredi não está prevendo a situação do retorno 'C7' que é 'Título já baixado'

Para resolver o problema coloquei essa situação no código.

Segue parte do código modificada e o arquivo.

toRetornoLiquidado:   //06
          case AnsiIndexStr(CodMotivo, ['A8', 'H5', 'H6', 'H8', 'X1', 'X2', 'X3', 'X4', 'X5',
                                        'X0', 'X6', 'X7', 'X8', 'X9', 'XA', 'XB', 'C7']) of
            0: Result:= 'A8-Recebimento da liquidação fora da rede Sicredi - via compensação eletrônica';
            1: Result:= 'H5-Recebimento de liquidação fora da rede Sicredi - VLB Inferior - Via compensação';
            2: Result:= 'H6-Recebimento de liquidação fora da rede Sicredi - VLB Superior - Via compensação';
            3: Result:= 'H8-Recebimento de liquidação fora da rede Sicredi - Contingência Via Compe';
            4: Result:= 'X1-Regularização centralizadora - Rede Sicredi';
            5: Result:= 'X2-Regularização centralizadora - Compensação';
            6: Result:= 'X3-Regularização centralizadora - Banco correspondente';
            7: Result:= 'X4-Regularização centralizadora - VLB Inferior - via Compensação';
            8: Result:= 'X5-Regularização centralizadora - VLB Superior - via Compensação';
            9: Result:= 'X0-Pago com cheque';
            10: Result:= 'X6-Pago com cheque - bloqueado 24 horas';
            11: Result:= 'X7-Pago com cheque - bloqueado 48 horas';
            12: Result:= 'X8-Pago com cheque - bloqueado 72 horas';
            13: Result:= 'X9-Pago com cheque - bloqueado 96 horas';
            14: Result:= 'XA-Pago com cheque - bloqueado 120 horas';
            15: Result:= 'XB-Pago com cheque - bloqueado 144 horas';
            16: Result:= 'C7-Título já baixado';   <---- Situação que não estava sendo tratada e gerava erro
          else
            case StrToInt(CodMotivo) of
               00: Result:= '00-Ocorrência aceita, liquidação normal';
            else
               Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos';
            end;
          end;

ACBrBancoSicredi.pas

[Graziele Rocha Serafim]

Boa tarde @João Paulo F. Bellucci,

A alteração já está disponível no SVN.

Att.

[Fernando Henrique]

Bom dia. situação, similar a  post acima do João Paulo, gerando erro ''C7'' is not a valid integer value  de  porém em outra parte do código, conforme consta na imagem e na unit anexada.

 

att mais.

 

 

ACBrBancoSicredi.rar

[José M. S. Junior]

Obrigado, favor aguardar atualização.

[José M. S. Junior]

Ajuste atualizado no SVN....