Remessa Santader - Datamorajuros < Vencimento Deve Colocar Zero

[carlosmarian]

Olá,
   Recebi um retorno do banco Santader referente a data de Mora e Juros.
   Segundo a crítica, o campo DataMoraJuros deve ser preenchido com zeros caso seja inferior a data de Vencimento(Vencimento).
   Vi que no código o campo DataMoraJuros tem tratamento para colocar zero caso for inferior a 01/01/2000, será que vale a pena complementar esta validação verificando se a data é inferior ao vencimento?
   Então no método "function TACBrBancoSantander.GerarRegistroTransacao400"
  Hj esta assim:

...
Result:= '1' + // ID Registro
IfThen(Length(Cedente.CNPJCPF) > 12,'02','01') +
padR(trim(OnlyNumber(Cedente.CNPJCPF)),14,'0') +
padL(trim(Cedente.CodigoTransmissao),20,'0') +
padL( SeuNumero ,25,' ') +
Copy(NossoNumero,6,7) + DigitoNossoNumero +
IfThen(DataAbatimento < EncodeDate(2000,01,01),
'000000',FormatDateTime( 'ddmmyy', DataAbatimento)) +
' '+IfThen(PercentualMulta > 0,'4','0') +
IntToStrZero( round( PercentualMulta * 100 ), 4) +
'00'+StringOfChar( '0', 13)+space(4) +
IfThen(DataMoraJuros < EncodeDate(2000,01,01)) ,
'000000',FormatDateTime( 'ddmmyy', DataMoraJuros)) +
....

 

  Ficaria assim:

Result:= '1' + // ID Registro
IfThen(Length(Cedente.CNPJCPF) > 12,'02','01') +
padR(trim(OnlyNumber(Cedente.CNPJCPF)),14,'0') +
padL(trim(Cedente.CodigoTransmissao),20,'0') +
padL( SeuNumero ,25,' ') +
Copy(NossoNumero,6,7) + DigitoNossoNumero +
IfThen(DataAbatimento < EncodeDate(2000,01,01),
'000000',FormatDateTime( 'ddmmyy', DataAbatimento)) +
' '+IfThen(PercentualMulta > 0,'4','0') +
IntToStrZero( round( PercentualMulta * 100 ), 4) +
'00'+StringOfChar( '0', 13)+space(4) +
IfThen((DataMoraJuros < EncodeDate(2000,01,01)) or {**PONTO DE AJUSTE**}
(DataMoraJuros <= Vencimento)) ,
'000000',FormatDateTime( 'ddmmyy', DataMoraJuros)) + 

Alguma sugestão?

 

Obrigado.

[Juliana Tamizou]

Bom dia.

 

A data de mora/juros é referente a quando estes valores começam a ser cobrados do seu cliente, não tem sentido você informar uma data menor que o vencimento do boleto, uma vez que se ele não está vencido esses valores não são cobrados.

 

Att.