procedures y triggers (josi)

[[Caral]]

Hola
Veamos a ver si aporto algo, recordad que no se procedures ni tiggers.

Tienes estos campos:
marca, modelo, cantidad, existencia

Quieres actualizar un campo determinado aumentandole a la existencia la cantidad deseada.
Supongamos que tenemos en el campo marca (jeep) y lo colocamos en un Edit para identificar que es el que queremos actualizar.
Para eso hay que usar un tigger (Como yo no se, lo haria asi):

Código Delphi [-]
QTemp.SQL.Text := 'Update inventario Set existencia = existencia + cantidad where marca = :Marc';
QTemp.Parameters[0].Value:= Edit1.Text;
QTemp.ExecSQL;

Como ves el edit contendria la palabra Jeep y la sentencia reconoceria que si el campo marca contiene la palabra Jeep actualizara la existencia sumandole la cantidad, solo de ese campo (Jeep).
Si hay otros que contengan la palabra Jeep tambien seran actualizados, por eso si se desea actualizar un campo determinado este tiene que poseer caracteristicas unicas, normalmente numericas (es lo usual).

Espero que aclare un poco mas, esperemos a algun Maestro, ya te ayudaran, no todos los dias vienen hay que tener paciencia.

Saludos

[[Delphius]]

Veamos... hay algo que todavía no entiendo...
¿Estamos hablando de una actualización masiva?¿O por el contrario, de un único registro?

No estoy muy puesto en SQL Server, ya le he perdido un poco la mano... (como no lo tengo instalado en mi equipo). NO estoy totalmente seguro, pero creo que la mano viene por aquí:

Código SQL [-]
create trigger ActualizarInventario on Inventario 
for after update
as
  /* he asumido que la marca es el id */
  update Inventario
  set existencia = old.existencia + new.cantidad
  where marca = old.marca
end

Supuestamente se está actualizando aquel registro (old.marca) en donde se ha detectado el nuevo valor de cantidad. (new.cantidad).

Si alguien lo prueba podria decir si lo que escribí funciona o no.

Saludos,

[josi]

cuando verifico la sintaxis dice que la columna no admite el prefijo new y old

[[Delphius]]

Me temía que no corriera
¡Pero que bestia! Debes anteponer los dos puntos a las variables!
Es decir: :New, y :Old.

Saludos,

[josi]

cuando verifico la sintaxis dice que la columna no admite el prefijo :new y ld

[[Caral]]

Hola
A ver:
Los campos Marca y Cantidad tienen que ser facilitados, supongamos que en dos edit.

Código Delphi [-]
QTemp.SQL.Text := 'Update inventario Set existencia = existencia + cantidad = :Cant where marca = :Marc';
QTemp.Parameters[0].Value:= Edit1.Text; // cantidad
QTemp.Parameters[0].Value:= Edit2.Text; // Marca
QTemp.ExecSQL;

Traducido a Gatitos (a mi manera):

Código Delphi [-]
create trigger ActualizarInventario on Inventario 
for after update
as
  update Inventario
  set existencia = existencia + cantidad = :cant
  where marca = :marca
end

Saludos

[josi]

me funciona con el que planteo jcarteagaf
CREATE TRIGGER [TRIGGER inv] ON [dbo].[EQUIPOS] after update AS UPDATE X SET X.EXISTENCIA = X.EXISTENCIA + I.CANTIDAD FROM INVENTARIO X JOIN INSERTED I ON X.MODELO = I.MODELO
gracias a Caral,Delphius,carteagaf por preocuparse por el problema que plantie,


''los que aman a Dios todas las cosas les ayudan a bien''