Ver Mensaje Individual
  #1  
Antiguo 14-03-2016
Avatar de Edwardfeliz
Edwardfeliz Edwardfeliz is offline
Miembro
 
Registrado: abr 2014
Posts: 102
Reputación: 11
Edwardfeliz Va por buen camino
Lightbulb Hacer un UPDATE deacuerdo a los campos de otra tabla

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
Responder Con Cita