Ver Mensaje Individual
  #6  
Antiguo 25-08-2012
Avatar de martini002
martini002 martini002 is offline
Miembro
 
Registrado: may 2012
Ubicación: Puerto Ordaz - Venezuela
Posts: 175
Reputación: 12
martini002 Va por buen camino
Asi lo pense usando dos Query's,
la cuestion es que necesito posicionarme en una fila
usando el nombre del articulo, entonces restare al stock
la cantidad que sea requerida.

por supuesto, no Funciona como cosa extraña,
Casimiro, ya comenzare a revisar la seccion SQL de tu libro
a ver con que me encuentro alli, pues estoy usando solo el manual de SQL

Código Delphi [-]
procedure TForm1.BDespacharClick(Sender: TObject);
Var
  Codigo :Integer;
  Total, Cantidad, Articulo  :String;
begin
  //Restar cantidad en el stock
  DataSourceBD.Enabled:= False;
  ZQueryBD.Sql.Clear;
  ZQueryBD.Close;
  ZQueryBD.SQL.Add('SELECT Articulo, Cantidad From FacturaTemp ');
  ZQueryBD.Open;
  ZQueryBD.First;//Te posicionas en el primer registro
  While Not(ZQueryBD.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
    begin
      Articulo:= ZQueryBD.Fields[0].AsString;
      Cantidad:= ZQueryBD.Fields[1].AsString;
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+Cantidad+' Where Articulo = '+Articulo;
      ZQuery1.ExecSQL;
      ZQueryBD.Next;//Pasas al siguiente registro
    end;
...Continua
__________________
El Conocimiento se puede compartir, pero la Experiencia es totalmente Intransferible.
Responder Con Cita