Novas ocorrências de tarifa S4 e S5 CNAB 400 - Sicredi

fernandoschulz · 17 Janeiro, 2019

Boa tarde,

Ao importar um retorno no Sicredi ocorreu o seguinte erro: "'S4' is not a valid integer value". O problema são duas novas ocorrências de Tarifa no retorno que não estão tratadas no componente ACBR.

Efetuei o download do manual atualizado do CNAB 400 do Sicredi e as ocorrências não implementadas no acbr que constam na página 18 do manual são:

Antes de efetuar as alterações fiz um update no componente, porém, ainda não estavam implementadas, sendo assim implementei e anexei o fonte atualizado para serem atualizados no ACBR.

O manual atualizado não consegui anexar por ser maior que 2MB, então segue link: https://www.sicredi.com.br/html/para-sua-empresa/recebimentos/cobranca/arquivos/manual-cnab-400---2018-v1.pdf

Alterações:

Antigo:

        toRetornoDebitoTarifas: //28
          case AnsiIndexStr(CodMotivo,['A9', 'B1', 'B2', 'B3', 'E1', 'F5']) of
            0: Result:= 'A9-Tarifa de manutenção de título vencido';
            1: Result:= 'B1-Tarifa de baixa da carteira';
            2: Result:= 'B2-Não implementado';
            3: Result:= 'B3-Tarifa de registro de entrada do título';
            4: Result:= 'E1-Não implementado';
            5: Result:= 'F5-Tarifa de entrada na rede SICREDI';
          else
            case StrToInt(CodMotivo) of
              03 : Result:= '03-Tarifa de sustação';
              04 : Result:= '04-Tarifa de protesto';
              08 : Result:= '08-Tarifa de custas de protesto';
            else
              Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos';
            end;
          end;

Novo:

        toRetornoDebitoTarifas: //28
          case AnsiIndexStr(CodMotivo,['A9', 'B1', 'B2', 'B3', 'E1', 'F5', 'S4', 'S5']) of
            0: Result:= 'A9-Tarifa de manutenção de título vencido';
            1: Result:= 'B1-Tarifa de baixa da carteira';
            2: Result:= 'B2-Não implementado';
            3: Result:= 'B3-Tarifa de registro de entrada do título';
            4: Result:= 'E1-Não implementado';
            5: Result:= 'F5-Tarifa de entrada na rede SICREDI';
            6: Result:= 'S4-Tarifa de inclusão negativação';
            7: Result:= 'S5-Tarifa de exclusão negativação';
          else
            case StrToInt(CodMotivo) of
              03 : Result:= '03-Tarifa de sustação';
              04 : Result:= '04-Tarifa de protesto';
              08 : Result:= '08-Tarifa de custas de protesto';
            else
              Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos';
            end;
          end;

Agradeço a atenção,
Fernando Schulz.

ACBrBancoSicredi.pas