¿Posible Mejora?
Si entiendo bien, lo que hace es cambiar el valor de resultado y ponerlo en
otro parámetro formal de EjecutaSp..., entonces, no sería mejor identificar los
parámetros y cambiar solo el que se desea?, me explico mejor, Suponiendo
que los parámetros despues de Balance y antes de FechaUltimo pago son:
Código Delphi
[-]
...Balance, Res1, Res2, Res3, Res4, Res5, Res6, FechaUltimoPago)
Código Delphi
[-]
Res1:= 0.00;
Res2:= 0.00;
Res3:= 0.00;
Res4:= 0.00;
Res5:= 0.00;
Res6:= 0.00;
if (FechaResultado >= 30) and (FechaResultado<=7826) then
case FechaResultado of
30..90: Res1 := trunc(VCuota * FechaResultado);
91..180: Res2 := trunc(VCuota * FechaResultado);
end;
with adoQProyectoExportar do
EjecutaSPActualizaProyectos(
Parambyname('idcuenta').Value
Parambyname('NoContrato').value,
Manzana,Edificio,Apartamento,
VInmueble,VInicial,VCUota,VPagado,Balance,
Res1, Res2 , Res3, Res4, Res5, Res6,
FechaUltimoPago);
Queda un código más claro ¿no? ...o será cuestión de gustos
Un saludo