UPDATE Syntax Error

[[Caral]]

Hola
Me parece que cantidad en la tabla es de tipo double.

Código Delphi [-]
procedure TForm1.BDespacharClick(Sender: TObject);
Var
  Codigo :Integer;
  Total, Articulo  :String;
  Cantidad: Real;
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].AsFloat;
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock - '+FloatToStr(Cantidad)+' Where Articulo = '+Articulo;
      ZQuery1.ExecSQL;
      ZQueryBD.Next;//Pasas al siguiente registro
    end;
...Continua

Saludos

[martini002]

Stock en Inventario es de tipo Integer

CREATE TABLE [Inventario] (
  [Codigo] INTEGER, 
  [Articulo] CHAR(48), 
  [Precio] DECIMAL, 
  [Stock] INTEGER);

CREATE UNIQUE INDEX [CodigoUnique] ON [Inventario] ([Codigo]);

Y Cantidad viene de FacturaTemp y es Integer tambien

CREATE TABLE [FacturaTemp] (
  [Articulo] CHAR(48), 
  [Cantidad] INTEGER, 
  [Precio] DECIMAL);

[ecfisa]

Hola martini002.

Por lo que entiendo queres descontar el campo CANTIDAD de la tabla FACTURATMP al campo STOCK de la tabla INVENTARIO para cada artículo que se haya facturado. Si es así, agrega otro query (ZQuery2) y probá de este modo:

Código Delphi [-]
procedure TForm1.btnActualizaStockClick(Sender: TObject);
begin
  with ZQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE INVENTARIO T1 SET T1.STOCK = T1.STOCK - ');
    SQL.Add('COALESCE((SELECT CANTIDAD FROM FACTURATEMP T2 ');
    SQL.Add('WHERE T1.ARTICULO = T2.ARTICULO),0)');
    ExecSQL;
  end;
  with ZQuery1 do
  begin
    Close;
    Open;
  end;
end;

Saludos.

[martini002]

Hola Ecfisa,
Tengo que hacer algun cambio a los T1, T2?
no entiendo muy bien ese codigo,
mas sin embargo ya lo agregue pero me da un error de sintaxis
el siguiente:

'SQL Error: near "T1": syntax error'.

Gracias

[ecfisa]

Hola martini002.

No se con que RDBMS estas trabajando por lo que la sintáxis puede variar, probá con:

Código SQL [-]
UPDATE INVENTARIO SET STOCK = STOCK -
COALESCE((SELECT CANTIDAD FROM FACTURATEMP WHERE INVENTARIO.ARTICULO = FACTURATEMP.ARTICULO),0);

O también con:

Código SQL [-]
UPDATE INVENTARIO SET INVENTARIO.STOCK = INVENTARIO.STOCK - 
COALESCE((SELECT CANTIDAD FROM FACTURATEMP WHERE INVENTARIO.ARTICULO = FACTURATEMP.ARTICULO),0);

La sentencia SQL hace exáctamente lo que entendí que deseabas hacer. El uso de COALESCE se hace necesario para evitar que el campo STOCK pudiera ponerse a NULL, ya que, lo que sea - NULL = NULL.

Saludos.

Edito: Sería bueno que nos pusieras con que RDBMS estas trabajando.

[[Caral]]

Hola
Y que es un RDBMS amigo.
Saludos

[martini002]

Empezado por Caral

Hola
Y que es un RDBMS amigo.
Saludos

Amigo mio, creo que deberia abrir un nuevo Hilo para esta pregunta.

Haha mentira, aqui esta, lo mismo me pregunte

http://es.wikipedia.org/wiki/Sistema...s_relacionales

Gracias

[martini002]

Hola Ecfisa,7
Estoy usando como gestor la libreria de ZEOS 7 y como BD a SQLite.
voy a probar este codigo directamente con un administrador de bases de datos
SQLite Expert Personal a ver que tal funciona.

para el primer codigo me muestra este error

Código Delphi [-]
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('UPDATE INVENTARIO SET STOCK = STOCK - ');
      SQL.Add('COALESCE(SELECT CANTIDAD FROM FACTURATEMP WHERE INVENTARIO.ARTICULO = FACTURATEMP.ARTICULO),0');
      ExecSQL;
    end;
  with ZQueryBD do
    begin
      Close;
      Open;
    end;

'SQL Error: near "SELECT": syntax error'

Y para el segundo lo siguiente:

Código Delphi [-]
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('UPDATE INVENTARIO SET INVENTARIO.STOCK = INVENTARIO.STOCK - ');
      SQL.Add('COALESCE((SELECT CANTIDAD FROM FACTURATEMP WHERE INVENTARIO.ARTICULO = FACTURATEMP.ARTICULO),0');
      ExecSQL;
    end;
  with ZQueryBD do
    begin
      Close;
      Open;
    end;

'SQL Error: near ".": syntax error'

Edito:
Ecfisa acabo de probar el codigo en el administrador de BD
y me da exactamente los mismos dos errores que me da con Delphi :/