Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

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


romerofartura
Go to solution Solved by José M. S. Junior,
  • Este tópico foi criado há 823 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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

  • Like 1
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.