Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.03 » View Incident Report |
Serious |
Reported By: Francisco Fernandez Reported On: 4/29/2010 For: Version 2.03 Build 12 |
TRIGGER "InsertaSalidasLineas" BEGIN DECLARE TempCursor CURSOR FOR stmt; DECLARE TempCantidad DECIMAL(16,4); DECLARE sAux VARCHAR; DECLARE Actualiza BOOLEAN; DECLARE dFecha DATE; DECLARE Descripcio VARCHAR; DECLARE ControlaU VARCHAR; DECLARE SALTE BOOLEAN DEFAULT FALSE; PREPARE stmt FROM 'SELECT * FROM DATOSEMPRESA'; OPEN TempCursor; FETCH FROM TempCursor (FECHAINI) INTO dFecha; If dFecha IS NULL OR dFecha<=NEWROW.FECHA THEN WHILE SALTE=FALSE DO START TRANSACTION ON TABLES Existencias; BEGIN PREPARE stmt FROM 'SELECT * FROM Existencias WHERE ARTICULO COLLATE ESP=? AND ALMACEN COLLATE ESP=?'; OPEN TempCursor USING NEWROW.ARTICULO,NEWROW.ALMACEN; SET ACTUALIZA=True; IF ROWCOUNT(TempCursor)=0 THEN INSERT INTO TempCursor (Articulo,Almacen,Existencia,Iniciales,ExistInv,InicialesU,ExistU) values (NEWROW.Articulo,NEWROW.Almacen,-NEWROW.Cantidad,0,0,0,-NEWROW.CAJAS); ELSE FETCH FROM TempCursor (FECHAINV) INTO dFecha; IF NEWROW.FECHA<dFecha THEN Set ACTUALIZA=False; ELSE FETCH FROM TempCursor (EXISTENCIA) INTO TempCantidad; UPDATE TempCursor SET EXISTENCIA=TempCantidad-NEWROW.CANTIDAD; FETCH FROM TempCursor (EXISTU) INTO TempCantidad; UPDATE TempCursor SET EXISTU=TempCantidad-NEWROW.CAJAS; -- ERROR HERE END IF; END IF; COMMIT; SET SALTE=TRUE; EXCEPTION ROLLBACK; IF ERRORCODE()<>1005 THEN RAISE; END IF; END; END WHILE;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |