DataDesconto3

Joel · 15 Dezembro, 2020

Boa tarde Pessoal, estou homologando remessa cnab240 sicredi e exigiram o preenchimento dos campos datadesconto2 valordesconto2 e datadesconto3 e valordesconto3.

Na unit ACBrBoleto precisei criar os campos:

fValorDesconto3 : Currency; // criado por joel necessidade sicredi

fDataDesconto3 : TDateTime;// criado por joel necessidade sicredi

na unit sicredi precisei alterar as linhas:

// PadLeft('0', 8, '0') + // 43-50 data do desconto 3
// PadLeft('0', 15, '0') + // 51-65 Valor ou percentual a ser concedido
IfThen(ValorDesconto3 = 0, '00000000', FormatDateTime('ddmmyyyy', Vencimento)) + // 43-50 data do desconto 3
IntToStrZero(Round(ValorDesconto3 * 100), 15) +// 51-65 Valor ou percentual a ser concedido

Por gentileza poderiam validar.

Obrigado!

ACBrBancoSicredi.pas ACBrBoleto.pas

Joel · 15 Dezembro, 2020

Pessoal, tive que alterar mais coisas nos arquivos ACBrBoleto e ACBrBancoSicredi;

Vi que os arquivos não estavam respeitando as datas de desconto conforme alimentadas, estavam jogando o vencimento.

Na unit acbrboleto tive que criar variaveis que não tinham.

fValorDesconto3 : Currency; // criado por joel necessidade sicredi

No acbrbancosicredi tive que alterar as linhas de data de desconto e data de desconto 2 e 3 e também seus valores:

// IfThen(ValorDesconto = 0, '00000000', FormatDateTime('ddmmyyyy', Vencimento)) + // 143 a 150 - Data do desconto 1
IfThen(ValorDesconto = 0, '00000000', FormatDateTime('ddmmyyyy', DataDesconto)) + // 143 a 150 - Data do desconto 1 alterado por joel 15/12/2020

// IfThen(ValorDesconto2 = 0, '00000000', FormatDateTime('ddmmyyyy', Vencimento)) + // 19 - 26 Data do Desconto 2
IfThen(ValorDesconto2 = 0, '00000000', FormatDateTime('ddmmyyyy', DataDesconto2)) + // 19 - 26 Data do Desconto 2 alterado por joel 15/12/2020
IntToStrZero(Round(ValorDesconto2 * 100), 15) + // 27 - 41 Valor/Percentual

// PadLeft('0', 8, '0') + // 43-50 data do desconto 3
// PadLeft('0', 15, '0') + // 51-65 Valor ou percentual a ser concedido
// IfThen(ValorDesconto3 = 0, '00000000', FormatDateTime('ddmmyyyy', Vencimento)) + // 43-50 data do desconto 3
IfThen(ValorDesconto3 = 0, '00000000', FormatDateTime('ddmmyyyy', DataDesconto3)) + // 43-50 data do desconto 3 alterado por joel 15/12/2020

Anexei também o layout cnab240 do sicredi e também as criticas da homologação do banco.

Desde já agradeço a vossa atenção.

ACBrBancoSicredi.pas ACBrBoleto.pas criticasCNAB (1)Tanques canção 08-12 (1).pdf Manual Sicredi CNAB240.pdf