Nova sugestão boleto hibrido Sicoob

carlitomorais · 4 Maio, 2023

Quanto ao Envio para Registro está funcionando e o pix esta retornando legal.... so tem um problema....quando nao informa o valor ou percentual de juros....tipo juros zero..... ele retorna (Json) que o tipo de juros e obrigado..estao e preciso mudar pra poder quandor for juros zero informar tipo de juros zero.

if (aTitulo.ValorMoraJuros > 0) then
begin

if ATitulo.CodigoMora = '' then
begin
case aTitulo.CodigoMoraJuros of
cjValorDia : aTitulo.CodigoMora := '1';
cjTaxaMensal : aTitulo.CodigoMora := '2';
cjIsento : aTitulo.CodigoMora := '0';
end;
end;

case (StrToIntDef(aTitulo.CodigoMora, 0)) of
0: // Isento
begin
AJson.Add('tipoJurosMora').Value.AsInteger := 0;
AJson.Add('valorJurosMora').Value.asNumber := 0;
AJson.Add('valorJurosMora').Value.asNumber := 0;
end;
1: // Dia
begin
// AJson.Add('taxa').Value.asNumber := aTitulo.ValorMoraJuros;
AJson.Add('tipoJurosMora').Value.AsInteger := Integer(aTitulo.CodigoMoraJuros);
AJson.Add('dataJurosMora').Value.asString := DateTimeToDateBancoob(aTitulo.DataMulta);
AJson.Add('valorJurosMora').Value.asNumber := aTitulo.ValorMoraJuros;
end;
2: // Mês
begin
AJson.Add('tipoJurosMora').Value.AsInteger := Integer(aTitulo.CodigoMoraJuros);
AJson.Add('dataJurosMora').Value.asString := DateTimeToDateBancoob(aTitulo.DataMulta);
AJson.Add('valorJurosMora').Value.asNumber := aTitulo.ValorMoraJuros;
end;
end;
end
else
begin
AJson.Add('tipoJurosMora').Value.AsInteger := 0;
AJson.Add('valorJurosMora').Value.asNumber := 0;
AJson.Add('valorJurosMora').Value.asNumber := 0;
end;