ACBrBancoCaixa.pas - Alteração na geração da Remessa CNAB400 (DataBaixa)

sismais · 24 Julho, 2018

Caros moderadores, fiz um pequeno ajuste no ACBrBancoCaixa.pas e envio em anexo para que possam analisar e remeter ao repositório.

De acordo com a o Manual do Layout CNAB400 (MO 67126 009) da caixa, o campo 43.1, posição 392 a 393 é usado tanto para Dias para Protesto quanto para Dias para Baixa/Devolução do Boleto.

Na linha 1023 o trecho abaixo não contempla o prazo para Baixa/Devolução:

                   IfThen((DataProtesto > 0) and
                      (DataProtesto > Vencimento),
                       PadLeft(IntToStr(DaysBetween(DataProtesto,
                       Vencimento)), 2, '0'), '99')                                + //392 até 393 - Quantidade de dias para início da ação de protesto ou devolução do Título

Alterei para que considere também a DataBaixa:

                   IfThen((DataProtesto > 0) and (DataProtesto > Vencimento),
                             PadLeft(IntToStr(DaysBetween(DataProtesto,Vencimento)), 2, '0'),
                          IfThen( (DataBaixa > 0) and (DataBaixa > Vencimento),
                             PadLeft(IntToStr(DaysBetween(DataBaixa,Vencimento)), 2, '0'),
                             '99')
                          )                                                          + //392 até 393 - Quantidade de dias para início da ação de protesto ou devolução do Título