Hacer un UPDATE deacuerdo a los campos de otra tabla

[Edwardfeliz]

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

[ecfisa]

Hola.

Si interpreté bién tu consulta, intenta algo similar a esto:

Código Delphi [-]
begin
  // FACTURAITEM
  qyFactura.Close;
  qyFactura.SQL.Text := 'SELECT CODPARTE, CANTIDAD FROM FACTURAITEM';
  qyFactura.Open;

  // PRODUCTOS
  qyProducto.Close;
  qyProducto.SQL.Clear;
  qyProducto.SQL.Add('UPDATE PRODUCTOS');
  qyProducto.SQL.Add('SET EXISTENCIA = EXISTENCIA - :VALOR');
  qyProducto.SQL.Add('WHERE COD = :CODIGO');

  qyProducto.Prepared := True;
  try
    while not qyFactura.Eof do
    begin
      qyProducto.Parameters.ParamByName('VALOR').Value :=
        qyFactura.FieldByName('CANTIDAD').Value;
      qyProducto.Parameters.ParamByName('CODIGO').Value :=
        qyFactura.FieldByName('CODPARTE').Value;
      qyProducto.ExecSQL;
      qyFactura.Next;
    end;
  finally
    qyProducto.Prepared := False;
  end;
  ...

( Revisa que los nombres de tablas y campos sean los correctos )

Saludos

[mamcx]

Que motor sql usas?

[Edwardfeliz]

Empezado por ecfisa

Hola.

Si interpreté bién tu consulta, intenta algo similar a esto:

Código Delphi [-]
begin
  // FACTURAITEM
  qyFactura.Close;
  qyFactura.SQL.Text := 'SELECT CODPARTE, CANTIDAD FROM FACTURAITEM';
  qyFactura.Open;

  // PRODUCTOS
  qyProducto.Close;
  qyProducto.SQL.Clear;
  qyProducto.SQL.Add('UPDATE PRODUCTOS');
  qyProducto.SQL.Add('SET EXISTENCIA = EXISTENCIA - :VALOR');
  qyProducto.SQL.Add('WHERE COD = :CODIGO');

  qyProducto.Prepared := True;
  try
    while not qyFactura.Eof do
    begin
      qyProducto.Parameters.ParamByName('VALOR').Value :=
        qyFactura.FieldByName('CANTIDAD').Value;
      qyProducto.Parameters.ParamByName('CODIGO').Value :=
        qyFactura.FieldByName('CODPARTE').Value;
      qyProducto.ExecSQL;
      qyFactura.Next;
    end;
  finally
    qyProducto.Prepared := False;
  end;
  ...

( Revisa que los nombres de tablas y campos sean los correctos )

Saludos

Gracias por la respuesta pero en facturaItem, falta espesificar el codigo de la factura en especifico de cada producto.
es decir, en el Select de la facturaItem, va a seleccionar todos los articulos de la tabla, hay que espesificar que solo va a seleccionar los de una factura en específico, se puede utilizar la variable "CodFactura" donde va a estar ahi el codigo de la factura.

[Edwardfeliz]

Empezado por mamcx

Que motor sql usas?

no se si responde a tu pregunta pero Uso los componentes ADO.

[Edwardfeliz]

Código SQL [-]
 // FACTURAITEM
  qyFactura.Close;
  qyFactura.SQL.Text := 'SELECT CODFACTURA, CODPARTE, CANTIDAD FROM FACTURAITEM';
  qyFactura.SQL.Add('WHERE CODFACTURA = :CODIGO');
   qyFactura.Parameters.ParamByName('CODIGO').Value := Ecod.Text;
  qyFactura.Open;

Y EN ESTA PARTE TENIA QUE SUMAR EN VEZ DE RESTAR XD PERO YA LO ARREGLE, GRACIAS POR EL CÓDIGO EFICSA.

Código SQL [-]
  QyProducto.Close;
  QyProducto.SQL.Clear;
  QyProducto.SQL.Add('UPDATE PRODUCTOS');
  QyProducto.SQL.Add('SET EXISTENCIA = EXISTENCIA + :VALOR');
  QyProducto.SQL.Add('WHERE COD = :CODIGO');

[mamcx]

Empezado por Edwardfeliz

no se si responde a tu pregunta pero Uso los componentes ADO.

No, me refiero a si usas firebird, Sql Server, etc (y que version)

[Edwardfeliz]

Empezado por mamcx

No, me refiero a si usas firebird, Sql Server, etc (y que version)

Access 2013 "nada Complejo"