home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 58 / supercd58.iso / Toma nota / Control-Ges / SQL / 7.x / asenga.sql < prev    next >
Encoding:
Text File  |  2001-06-19  |  1021 b   |  45 lines
  1. SET QUOTED_IDENTIFIER OFF 
  2. GO
  3. SET ANSI_NULLS ON 
  4. GO
  5.  
  6.  
  7.  
  8.  
  9. drop trigger lineacom_asenga
  10. go
  11.  
  12. CREATE TRIGGER lineacom_ASENGA ON dbo.LINEACOM
  13. FOR INSERT,UPDATE
  14. AS
  15. DECLARE @empresa     CHAR(4)
  16. DECLARE @serie         CHAR(2)
  17. DECLARE @numero     FLOAT
  18. DECLARE @raiz         CHAR(16)
  19. DECLARE @talla         CHAR(2)
  20. DECLARE @color         CHAR(2)
  21. DECLARE @linea INT
  22. DECLARE @cantidad FLOAT
  23. DECLARE @RETURNMESSAGE CHAR(200)
  24. DECLARE @contador FLOAT
  25. DECLARE @contador_articulo FLOAT
  26.  
  27.  
  28. /***************************************
  29. *** IMPUTAR LO NUEVO *******************
  30. ***************************************/
  31. SELECT @empresa = empresa, @serie = serie, @numero = numero, 
  32.         @raiz = raiz, @talla = talla, @color = color, 
  33.         @cantidad=cantidad,@contador=w0cped
  34.     FROM INSERTED
  35. IF @contador<>0 AND @cantidad>0
  36.     BEGIN
  37.     SELECT @contador_articulo=@contador+@cantidad
  38.     UPDATE articulo SET w0cped=@contador_articulo 
  39.         WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
  40.             AND w0cped<@contador_articulo
  41.     END
  42.  
  43.  
  44.  
  45.