Valor da Multa no retorno

[Fernanda Penteado]

Bom dia. 

Estou processando o retorno dos boletos, estou pegando o valor dos juros na propriedade

ListadeBoletos.Objects.ValorMoraJuros

não encontrei a propriedade correspondente para o valor de Multa.

Poderiam me ajudar?

Obrigada

 

 

[BigWings]

47 minutos atrás, Fernanda Penteado disse:

Estou processando o retorno dos boletos, estou pegando o valor dos juros na propriedade

ListadeBoletos.Objects.ValorMoraJuros

não encontrei a propriedade correspondente para o valor de Multa.

Bom dia,

Eu faço a leitura da multa assim:

Titulo := Cobranca.ListadeBoletos[I];
[...]
cdsTitulos.FieldByName('DATA_OCORRENCIA').AsDateTime := Titulo.DataOcorrencia;
cdsTitulos.FieldByName('DATA_CREDITO').AsDateTime := Titulo.DataCredito;
cdsTitulos.FieldByName('VALOR_DOCUMENTO').AsCurrency := Titulo.ValorDocumento;
cdsTitulos.FieldByName('VALOR_ACRESCIMOS').AsCurrency := Titulo.PercentualMulta * IfThen(Titulo.MultaValorFixo, 1, Titulo.ValorDocumento / 100) + Titulo.ValorMoraJuros + Titulo.ValorOutrasDespesas;
cdsTitulos.FieldByName('VALOR_ABATIMENTOS').AsCurrency := Titulo.ValorDesconto + Titulo.ValorAbatimento + Titulo.ValorOutrosCreditos;
cdsTitulos.FieldByName('TARIFA').AsCurrency := Titulo.ValorDespesaCobranca;

 

[Felipe E. Resende Mesquita]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Fernanda Penteado]

2 horas atrás, BigWings disse:

Bom dia,

Eu faço a leitura da multa assim:

Titulo := Cobranca.ListadeBoletos[I];
[...]
cdsTitulos.FieldByName('DATA_OCORRENCIA').AsDateTime := Titulo.DataOcorrencia;
cdsTitulos.FieldByName('DATA_CREDITO').AsDateTime := Titulo.DataCredito;
cdsTitulos.FieldByName('VALOR_DOCUMENTO').AsCurrency := Titulo.ValorDocumento;
cdsTitulos.FieldByName('VALOR_ACRESCIMOS').AsCurrency := Titulo.PercentualMulta * IfThen(Titulo.MultaValorFixo, 1, Titulo.ValorDocumento / 100) + Titulo.ValorMoraJuros + Titulo.ValorOutrasDespesas;
cdsTitulos.FieldByName('VALOR_ABATIMENTOS').AsCurrency := Titulo.ValorDesconto + Titulo.ValorAbatimento + Titulo.ValorOutrosCreditos;
cdsTitulos.FieldByName('TARIFA').AsCurrency := Titulo.ValorDespesaCobranca;

 

Resolvido, Obrigada!!!

[Felipe E. Resende Mesquita]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.