Que tal Amigos, necesito de vuestra ayuda para el siguiente caso:
* Base de Datos: "Firebird" * Componente de Conexion: IBDAC * Componente SQL: TIBCQuery
Tabla: COBERTURAS
cod_seccion cod_riesgo monto (money)
Tabla: TASA_REFERENCIA
cod_seccion cod_riesgo tasa (float)
El usuario ingresa los montos por coberturas y luego en memoria se calcula el costo: (monto * tasa) de cada cobertura, se va acumulando y luego lo vuelco en un edit.
Ejemplo en un dbgrid:
cod_seccion cod_riesgo monto tasa
75 1 1000000 1.5
25 3 500000 2
36 2 0 4.5
Cabe resaltar que los montos nunca se guardan en la base de datos ya que se ingresa y se calcula el costo en memoria, es ese el objetivo. Las tasas ya estan predeterminadas por seccion y riesgo en la BD.
He corroborado mi sentencia SQL y me trae los datos.
El código que tengo me compila, pero no me calcula nada, es el siguiente:
Código Delphi
[-]
var
v_costo : float;
begin
v_costo := 0;
while qryCoberturas.Eof do
begin
v_costo := v_costo + (qryCoberturasMONTO.AsFloat * qryCoberturasTASA.Value);
end;
txtCosto.Text := FloatToStr(v_costo);
end;
Cualquier aporte es de ayuda.
Gracias de antemano.
alebritez...