一个关于DATEBASETRIGGER的问题解析

王朝other·作者佚名  2008-05-19
窄屏简体版  字體: |||超大  

这是我整理最近的测试和笔记后,所记录的一种小写DB TRIGGER的方法,只供岑考。

要求:一异动表中插入入库记录时,将数量加到其库存表中的入库总数中;当异动表中插入出库记录时,将数量加到其库存表中的出库总数中;入库和出库都需要计算库存表中的库存数。

CREATE OR REPLACE TRIGGER "TRG_CHGE" BEFORE INSERT OR DELETE OR UPDATE ON LY.FY_CHGE REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW

DECLARE

V_PROD_NO FY_PROD.PROD_NO%TYPE;

T_IMARK

NUMBER(1);--入库加减码

T_OMARK

NUMBER(1);

T_SMARK

NUMBER(1);

BEGIN

--如不考虑产品编码及异动类别会改变的情况

--不考虑库存出现负数的情况

--二者均在form中控制

IF NVL(:NEW.CHGE_TYPE,:OLD.CHGE_TYPE) = 'I' THEN

T_IMARK := 1;

T_OMARK := 0;

T_SMARK := 1;

ELSE

T_IMARK:=0;

T_OMARK:=1;

T_SMARK:=-1;

END IF;

SELECT PROD_NO INTO V_PROD_NO

FROM FY_STOC

WHERE PROD_NO=NVL(:NEW.PROD_NO,:OLD.PROD_NO);

IF SQL%NOTFOUND THEN

INSERT INTO FY_STOC (PROD_NO,IN_QTY,OUT_QTY,STOC_QTY)

VALUES(NVL(:NEW.PROD_NO,:OLD.PROD_NO),NVL(:NEW.QTY,:OLD.QTY)*T_IMARK,NVL(:NEW.QTY,:OLD.QTY)*T_OMARK,NVL(:NEW.QTY,:OLD.QTY)*T_SMARK);

END IF;

IF SQL%FOUND THEN

UPDATE FY_STOC SET

IN_QTY=NVL(IN_QTY,0)+(NVL(:NEW.QTY,0)-NVL(:OLD.QTY,0))*T_IMARK,

OUT_QTY=NVL(OUT_QTY,0)+(NVL(:NEW.QTY,0)-NVL(:OLD.QTY,0))*T_OMARK,

STOC_QTY=NVL(STOC_QTY,0)+(NVL(:NEW.QTY,0)-NVL(:OLD.QTY,0))*T_SMARK

WHERE PROD_NO=NVL(:NEW.PROD_NO,:OLD.PROD_NO);

END IF;

END;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航