Alteração ACBrBancoBradescoSICOOB dias de protesto

[Gamarra]

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

[Juliana Tamizou]

Boa tarde.

Neste caso, se tiver sido passada qualquer outra instrução, vc acaba ignorando. No seu caso bastaria não informar nada nas instruções.

Att.