Ver Mensaje Individual
  #5  
Antiguo 26-08-2012
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Nos das solo eses codigo, no sabemos que hay delante de el. especulando:
Código Delphi [-]
var articulo: String;
     cantidad: Real;
begin
  ZQuery1.slq.text:= 'Select * from TablaArticulos';
  ZQuery1.open;
  ZQuery1.First;//Te posicionas en el primer registro
  // datos en variables
  Articulo:=  ZQuery1.Fields[0].AsString;
  Cantidad:= ZQuery1.Fields[1].AsString;
  // cierro la tabla
  ZQuery1.Close;

  ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+Cantidad+' Where Articulo = '+Articulo;
  ZQuery1.ExecSQL;
  end;
Saludos
__________________
Siempre Novato
Responder Con Cita