Bom dia!
Feito mais alguns ajustes.
ACBrBoletoRet_Bradesco
na consulta, titulos pago via PIX ou pelo codigo de Barras no mesmo dia o banco retorna o codStatus "13-PAGO NO DIA".
porem nao traz a data do Pagamento e nem o Valor.
if (ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca = 'PAGO NO DIA') then
begin
ARetornoWS.DadosRet.TituloRet.ValorPago := ARetornoWS.DadosRet.TituloRet.ValorDocumento;
ARetornoWS.DadosRet.TituloRet.DataBaixa := ARetornoWS.DadosRet.TituloRet.DataDocumento;
ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca := 'LIQUIDADO';
end;
Se consultado no dia seguinte, o banco retorna o codStatus "51-POR ACERTO" para pagamentos realizados por PIX. Tambem nao traz a data do pagamento e nem o Valor.
if (ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca = 'POR ACERTO') then
begin
ARetornoWS.DadosRet.TituloRet.ValorPago := ARetornoWS.DadosRet.TituloRet.ValorDocumento;
ARetornoWS.DadosRet.TituloRet.DataBaixa := ARetornoWS.DadosRet.TituloRet.DataDocumento;
ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca := 'LIQUIDADO';
end;
Ja para pagamentos pelo codigo de barras, o banco retorna o codStatus "61-PAGO" e ai sim traz a data e o valor do pagamento.
if (ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca = 'PAGO') then
ARetornoWS.DadosRet.TituloRet.EstadoTituloCobranca := 'LIQUIDADO';
O valor pago nao vem inteiro
alterado de:
ARetornoWS.DadosRet.TituloRet.ValorPago := ValorInteiroParaDouble(LJsonObject.AsInteger['vlrPagto']);
para
ARetornoWS.DadosRet.TituloRet.ValorPago := LJsonObject.AsFloat['vlrPagto'];
ACBrBoletoW_Bradesco
Alterado de
AJsonObject.AddPair(LPercentualTitulo, ATitulo.ValorMoraJuros * 100);
para
AJsonObject.AddPair(LPercentualTitulo, ATitulo.ValorMoraJuros );
Na impressao tem que sair 10% de juros por mes por exemplo. entao ja tem que passar o valor de 10
ai como estava antes multiplicando gera erro 500.
ACBrBoletoRet_Bradesco.pas
ACBrBoletoRet_Bradesco.pas