J. B. Santos

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;