Pesquisar na Comunidade

No arquivo atualizado em 19/04/2018 altero a procedure AdicionarMensagensPadroes da seguinte forma Implementação anterior : [line 1978] if ValorAbatimento <> 0 then begin if DataAbatimento <> 0 then AStringList.Add(ACBrStr('Conceder abatimento de ' + FormatCurr('R$ #,##0.00',ValorAbatimento) + ' para pagamento ate ' + FormatDateTime('dd/mm/yyyy',DataAbatimento))) else AStringList.Add(ACBrStr('Conceder abatimento de ' + FormatCurr('R$ #,##0.00',ValorAbatimento) + ' para pagamento ate ' + FormatDateTime('dd/mm/yyyy',Vencimento))); end; Nova Implementação: [line 1978] if ValorAbatimento <> 0 then begin if DataAbatimento <> 0 then AStringList.Add(ACBrStr('Conceder abatimento de ' + FormatCurr('R$ #,##0.00',ValorAbatimento) + ' para pagamento ate ' + FormatDateTime('dd/mm/yyyy',DataAbatimento))) else AStringList.Add(ACBrStr('Conceder abatimento de ' + FormatCurr('R$ #,##0.00',ValorAbatimento))); end; Justificativa: A data de abatimento para os bancos não existe, ou seja o banco não reconhece uma data que condicione o recebimento do boleto com abatimento, tanto é que na remessa não existe campo definido para a data de abatimento. Citação do documento http://www.bb.com.br/docs/pub/emp/empl/dwn/CbrVer04BB.pdf >>> Particularidades BB Leiaute CNAB 240 Na página 10; Então penso que se o cedente quiser reforçar uma data para o abatimento na impressão do titulo, ela pode ser preenchida, mas, se a data de abatimento estiver ausente, a data de vencimento não deve ser apresentada como condicionante a concessão do abatimento a fim de evitar transtorno para o sacado na hora do pagamento do boleto bancário. Agradeço a atenção e aguardo análise do pessoal, para melhorarmos cada vez mais este componente conceituado; ACBrBoleto.pas