Banco Inter via API não envia instruções de Juros e Multa

[Luiz Carlos Panoni Junior]

Fiz inúmeros testes de emissão de boleto do banco Inter través da API e consigo registrar normalmente o boleto porém embora exiba nas informações do boleto os juros e multa elas não são enviadas ao banco, quando se consulta no internet banking aparece isento de juros e multas, ja tentei mudar os tipos mais não envia estas instruções

 

    Titulo.ValorMoraJuros                  := StrToCurr(0,03);
    Titulo.DataMoraJuros                   := StrToDate(incday(vencimento,10));
    Titulo.PercentualMulta                 := StrToCurr(2,00);
    Titulo.CodigoMoraJuros                 := cjTaxaDiaria;

[Luiz Carlos Panoni Junior]

Alguém ?

[Aggille Sistemas de Gestão]

eu faço dessa forma.. e funciona.. sempre mando valor por dia.. em todas carteiras...

        if( FCarteira.CODIGOMORA > '0' ) then
          begin
            CodigoMoraJuros := cjValorDia;
            ValorMoraJuros  := TFuncoes.new.Numericas.Arredondar ( 2,( ValorDocumento * ( FCarteira.Taxa_Juros / 100 ) ) / 30 );
            if( FCarteira.MULTA_ATRASO ) > 0 then
              begin
                PercentualMulta   :=  TFuncoes.new.Numericas.Arredondar ( 2,ValorDocumento * ( FCarteira.MULTA_ATRASO/ 100 ));
              end
            else
              begin

              end;
          end
        else
          begin
//            PercentualMulta := 0;
//            ValorMoraJuros  := 0;
            CodigoMoraJuros := cjIsento;
          end;