inconveniente al momento de multiplicar registros

[dmagui]

Hola chicos:

estoy intentando hacer una multiplicacion bastante facil, pero el problema es que no me la esta guardando en el abase de datos

es facil tengo los siguientes campos:

costo_total, cant_comp, costo_unt, factor_desc

y pues uso el siguiente codigo..

Código Delphi [-]
 
procedure TForm3.Button1Click(Sender: TObject);
begin
with IBdataset1 do begin
 open;
  while not EOF do
  begin
     edit;
    if ibdataset1.FieldByName('SUBTOTAL').AsInteger = 1 then
     begin
          FieldByName('SUBTOTAL').AsFloat:=FieldByName('CANT_COMP').AsFloat*FieldByName('COSTO_UNT').AsFloat*(  FieldByName('FACTOR_DESC').AsFloat/100);
          next;
     end
    else begin
        FieldByName('SUBTOTAL').AsFloat:=FieldByName('CANT_COMP').AsFloat*FieldByName('COSTO_UNT').AsFloat;
        next;
     end;
  end;
 end;
ibdataset1.ApplyUpdates;
ibtransaction1.Commit;
ibdataset1.Active:=True;
end;

el problema es que no me guarda el resultado en la base de datos. Muchachos les agradezco si me pueden ayudar, estoy barada por algo tan sencillo como esto y no se por que???

Besos chupos y muchos abrazos

[jmariano]

¿Te muestra algún mensaje de error o simplemente no te almacena nada? porque lo único que se me ocurre decirte, ya que estás usando TIBDataSet, es que compruebes que tengas bien las sentencias SQL para la modificación, inserción, etc. (supongo que estarás usando el componente TIBUpdateSQL, ¿verdad?).

Otra cosa, veo que invocas el método "ApplyUpdates", así que has de tener la propiedad "CachedUpdates" a "True", ¿Has probado, sólo por curiosidad, a poner a "False" dicha propiedad a ver si te almacena el resultado? (es decir, desactivar las actualizaciones en cache).

En fin, siento no poder ayudarte más!, pero hice una prueba similar a lo que quieres hacer y no tuve ningún problema.

Saludos!

[dmagui]

LISTOOO, el problema era por que antes de entrar al while no estaba almacenando bien el valor del flag, pero ya lo corregi y ya me mustra el valor adecuadamenteeeee.

te puedo hacer una preguntita??, pues hay va...
hay alguna manera para que en tiempo de ejecucion pueda ingresar una formula???

por ejemplo = 2*2/factor_desc

[jmariano]

Para hacer lo que pides te sugiero visitar los siguientes hilos donde se comenta muy bien lo que necesitarías:

http://www.clubdelphi.com/foros/show...parser+funcion
http://www.clubdelphi.com/foros/show...light=formulas

Saludos!

[roman]

Una observación/pregunta.

Cuando haces una actualización como la que describes, en el fondo estás generando una consulta SQL por cada registro que recorres en el ciclo. ¿No te sería más eficiente hacerlo de un sólo golpe con un par de consultas:

Código SQL [-]
update tabla
set subtotal = cant_comp*cost_unt*factor_desc/100
where subtotal = 1

Código SQL [-]
update tabla
set subtotal = cant_comp*cost_unt*factor_desc/100
where subtotal <> 1

Claro que está el detalle aquí de que la condición incluye el campo que se actualiza pero esto lo podrías solventar añadiendo un campo bandera o reduciendo a una sóla consulta usando un condicional (no sé como sea el condicional en IB).

Además, dado que para la consulta SQL sólo necesitas un texto, puedes agregar la fórmula que desees en ejecución.

// Saludos

[dmagui]

Hola, que pena molestar tanto pero me acabo dar cuenta de un problema y es que no me esta multiplicando este ultimo pedazo:

*(FieldByName('FACTOR_DESC').AsFloat/100);

es decir me hace solo las dos primeras operaciones, y la escrita anteriormente no me la tiene en cuenta,

¿Como podría hacer que me tome todos los valores que necesito?