Saludos,
Me explico, tengo dos tablas, "Productos" y "FacturaItem" simplemente quiero hacer una UPDATE sobre la tabla productos dependiendo de los registros de la tabla FacturaItem, la idea es "regresarlos al inventario".
Para retirarlos uso el siguiente codigo:
Código SQL
[-]
Begin // Descontar los Articulos segun los items de la factura
Qtemp.SQL.Clear;
Qtemp.SQL.Add('UPDATE PRODUCTOS'); // Acción
Qtemp.SQL.Add('SET Existencia = Existencia - :VALOR'); // Descrementar
Qtemp.SQL.Add('WHERE Cod =:Codigo'); // Condición (sobre que registro)
for i := 1 to Sg.RowCount-1 do
begin
Qtemp.Parameters.ParamByName('VALOR').Value := SG.Cells[1, i]; // Valor a descrementar
Qtemp.Parameters.ParamByName('Codigo').Value:= SG.Cells[0, i]; // Registro
Qtemp.ExecSQL;
end;
end;
Pero esto lo hago tomando como punto de referencia un String Grid, pero ahora quiero hacerlo directamente de una tabla a Otra, tomando los criterios de la tabla de Facturaitem "para que producto" y "que cantidad".
-----------------------------------------------------------------
En la Tabla FacturaItem, los campos pertinentes son:
CodParte
Cantidad
------------------------------------------------------------------
En la tabla Productos, los campos pertinentes son:
Cod
Existencia
Componentes ADO.
Delphi 7