![]() | Products |
| Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.03 » View Incident Report |
| 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, April 8, 2026 at 04:38 AM | Privacy Policy © 2026 Elevate Software, Inc. All Rights Reserved Questions or comments ? |

