Ir para conteúdo
  • Cadastre-se

dev botao

Erro Retorno Liquidado Sicredi 'C7'


  • Este tópico foi criado há 2381 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

João Paulo F. Bellucci

Analista e Programador

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • 8 meses depois ...
  • Este tópico foi criado há 2381 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.