UPDATE Syntax Error

[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

[[Caral]]

Hola
Lo se amigo, pero me gusta ver trabajar a mi amigo ecfisa
Saludos

[ecfisa]

Empezado por Caral

Hola
Lo se amigo, pero me gusta ver trabajar a mi amigo ecfisa
Saludos

Y a mi, verte nuevamente por aquí

Saludos.

[ecfisa]

Hola martini002.

La sentencia funciona perfectamente en Firebird y por lo tanto con pocas o ninguna modificacion, tendría que hacerlo en cualquier DBMS que fuera compatible con el estandar SQL.

Lamentablemente no tengo ni el más remoto contacto con SQLite , pero revisa si estos enlaces te ayudan:

• SQL As Understood By SQLite
• Command Line Shell For SQLite
• SQLite tutorial
• SQLite tutorial (select)

Saludos.

[martini002]

Bueno ya lo logre arreglar,
Antes buscabamos y comparabamos el nombre del articulo,
pero por alguna razon, no reconocia el nombre, lo confundia con una columna
entonces lo cambie por el codigo, tomas el codigo y lo comparas,
y si es el mismo entonces resta, funciona muy bien,
Agradezco como siempre a ustedes que son los mejores
profesores que uno puede tener a distancia

al final quedo asi:

Código Delphi [-]
procedure TForm1.BDespacharClick(Sender: TObject);
Var
  CodigoFactura, CodigoArticulo, Cantidad :Integer;
  Total  :String;
begin
  //Restar cantidad en el stock
  DataSourceBD.Enabled:= False;
  ZQueryBD.Sql.Clear;
  ZQueryBD.Close;
  ZQueryBD.SQL.Add('Select Codigo, 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
      CodigoArticulo:= ZQueryBD.Fields[0].AsInteger;
      Cantidad:= ZQueryBD.Fields[1].AsInteger;
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'Update Inventario Set Stock = Stock-'+IntToStr(Cantidad)+' Where Codigo = '+IntToStr(CodigoArticulo);
      ZQuery1.ExecSQL;
      ZQueryBD.Next;//Pasas al siguiente registro
    end;

Continua...

[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 :/