Realmente faltava o DATAMULTA , agora esta fucnionando. segue o exemplo de como fiz e
PercentualMulta := 0;
If TaMensalidadePERC_MULTA.value>0 then
Begin
PercentualMulta := TaMensalidadePERC_MULTA.value;
CodigoMulta:=cmPercentual;
DataMulta:=Vencimento_Boleto+1;
end;
ValorMoraJuros := 0;
if TaMensalidadePERCJUROS.value>0 then
Begin
DataMoraJuros := Vencimento_Boleto+1;
ValorMoraJuros := xValorATualBoleto*TaMensalidadePERCJUROS.value/100; //valor em R$ juro ao dia.
CodigoMoraJuros:=cjTaxaDiaria;
CodigoMora:='1'; // 1 -valor dia 2=taxa mensal 3=isento
end;