SICREDI "Espécie do título" CNAB 240

romerofartura · 17 Fevereiro, 2020

Bom dia!

O arquivo de remessa CNAB 240 do SICREDI de um cliente nosso estava sendo rejeitado quando tentava usar o "tipo de Documento" como "DSI" o componente estava alterando para 99 "Outros" e no caso da conta ou carteira dele acontece a rejeição.
Fiz alteração na Unit e enviei o arquivo para o banco e foi validado. Estou disponibilizando para conferência pelos administradores e posterior publicação se possível.

Unit ACBrBancoSicredi.pas em GerarREgistroTranscacao240.

Tenho o manual do banco caso precise, mas como é maior que 2mb não consigo postar aqui.

De acordo com o Layout enviado pelo SICREDI, as opções de "Espécie do Título" são:
'03' = DMI duplicata mercantil por indicação
'05' = DSI duplicata de serviço por indicação
'06' = DR duplicata rural
'07' = LC letra de câmbio
'12' = NP nota promissória
'13' = NPR nota promissória rural
'16' = NS nota de seguro
'17' = RC recibo
'19' = ND nota de débito
‘32’ = Boleto Proposta
'99' = Outros

//Código REMOVIDO
{Espécie}
{if (EspecieDoc = 'DM') then
Especie := '03'
else if (EspecieDoc = 'DMI') then
Especie := '03'
else
Especie := '99';}

//Código ADICIONADO
case AnsiIndexStr(EspecieDoc, ['DMI', 'DSI', 'DR', 'LC', 'NP', 'NPR', 'NS', 'RC', 'ND', 'BP']) of
0 : Especie := '03'; //DMI duplicata mercantil por indicação
1 : Especie := '05'; //DSI duplicata de serviço por indicação
2 : Especie := '06'; //DR duplicata rural
3 : Especie := '07'; //LC letra de câmbio
4 : Especie := '12'; //NP nota promissóri
5 : Especie := '13'; //NPR nota promissória rural
6 : Especie := '16'; //NS nota de seguro
7 : Especie := '17'; //RC recibo
8 : Especie := '19'; //ND nota de débito
9 : Especie := '32'; //Boleto Proposta
else
Especie := '99'; //Outros
end;

ACBrBancoSicredi.pas