Actualizar Stock

[[BlueSteel]]

Hola amigos, tengo un pequeño problema.(pa variar ) necesito actualizar el Stock de la tabla productos, pero nunca he realizado eso....

la siguiente sentencia me actualiza el stock, pero lo que realmente me hace es cambiar el contenido por el nuevo valor, y lo que necesito es que se lo sume o le reste dicho valor (dependiendo del caso)

Código Delphi [-]
For i:=0 to Items_Paso.RowCount-1 Do
Begin
     IBQ_Stock.SQL.Clear;
     IBQ_Stock.SQL.Add('Update "Producto" Set "Pro_Stock"=:Var1');
     IBQ_Stock.SQL.Add('Where "Pro_Codigo"=:Var2');
     IBQ_Stock.Params[0].AsInteger := StrToInt(Items_Paso.Cells[1,i]);
     IBQ_Stock.Params[1].AsString  := Items_Paso.Cells[0,i];
     IBQ_Stock.ExecSQL;
End;

encontre esta sentencia y me funciona bien pero en el Editor de SQL y no se como traspasarla al Delphi

Código Delphi [-]
Update "Producto" Set "Pro_Stock"="Pro_Stock"+25

la idea es que el 25 se reemplace por el contenido de StrToInt(Items_Paso.Cells[1,i]);

tambien probé esto, pero no me funcionó (cambiando la asignación del parametro)

Código Delphi [-]
IBQ_Stock.Params[0].AsInteger := IBQ_Stock['Pro_Stock']+StrToInt(Items_Paso.Cells[1,i]);

[[Caral]]

Hola
Supongo que asi:

Código Delphi [-]
IBQ_Stock.SQL.Add('Update "Producto" Set "Pro_Stock"'+25'');

Saludos

[[Caral]]

Hola
En Realidad no veo para que el uso de comillas dobles:

Código Delphi [-]
IBQ_Stock.SQL.Add('Update Producto Set Pro_Stock = Pro_Stock '+25'');

Saludos

[[BlueSteel]]

Hola Caral...

se que la sentencia que me das funciona bien en el Editor de SQL.. . pero si la ingresas a un IBQuery de esa forma no funciona

ademas, eso de 25 era un ejemplo... ya que debo reemplazarlo por StrToInt(Items_Paso.Cells[1,i])

esperando me haya explicado bien...

[[Caral]]

Hola BlueSteel
Te respondo para poner este en primer lugar de la fila y ver si alguien mas ayuda en esto, pero me quedo corto talvez se me ocurra algo.
estare pendiente de esto haber que pasa.
Saludos

[aledieb]

Proba con, no se si funcionará:

Código SQL [-]
Update Producto Set Pro_Stock=Pro_Stock+:valor

Código Delphi [-]
IBQ_Stock.Params[0].AsInteger:=StrToInt(Items_Paso.Cells[1,i]);

Otra opción seria utilizar una variable auxiliar asignarle el valor del campo y luego hacer el update:

Código SQL [-]
Update Producto Set Pro_Stock=:valor

Código Delphi [-]
variable_aux:=IBQ_Stock['Pro_Stock'];
IBQ_Stock.Params[0].AsInteger:=variable_aux+StrToInt(Items_Paso.Cells[1,i]);

[[BlueSteel]]

realice el siguiente codigo.. y funciona perfecto...tanto para sumar como para restar

Código Delphi [-]
For i:=0 to Items_Paso.RowCount-1 Do
Begin
     IBQ_Param.SQL.Clear;
     IBQ_Param.SQL.Add('Update "Producto" Set "Pro_Stock"="Pro_Stock"-'+Items_Paso.Cells[1,i]);
     IBQ_Param.SQL.Add('Where "Pro_Codigo"=:Var1');
     IBQ_Param.Params[0].AsString  := Items_Paso.Cells[0,i];
     IBQ_Param.ExecSQL;
End;

gracias a todos por su ayuda...