Amigos,
Ao gerar o arquivo remessa de 400 posições, quando não há protesto deve gerar zera para as posições 159,160
as quais são referentes a quantidade de dias para protesto, porém está lendo as instruções do boleto o que
causa a inserção dos dois primeiros caracteres de forma errada.
Quem pode submeter a alteração?
procedure TACBrBancoBradescoSICOOB.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList);
......
{Pegando campo Intruções}
if (DataProtesto > 0) and (DataProtesto > Vencimento) then
aProtesto := '06' + IntToStrZero(DaysBetween(DataProtesto,Vencimento),2)
else if aOcorrencia = '31' then
aProtesto := '9999'
else
//Linha atual
//aProtesto := PadLeft(trim(Instrucao1),2,'0') + PadLeft(trim(Instrucao2),2,'0');
//Nova linha
aProtesto := '0000';
ACBrBancoBradescoSICOOB.pas