CREATE OR REPLACE TRIGGER REDCAT_DEV.TRG_UPDATE_SUPPLIER_MASTER_HDR AFTER
UPDATE ON T_VENDOR_HDR
REFERENCING OLD AS OLDROW NEW AS NEWROW
FOR EACH ROW
DECLARE
V_LINE_NO NUMBER(10);
V_REVISION_NO NUMBER(10);
V_USER VARCHAR2(35);
BEGIN
IF((:OLDROW.UPDATE_USER IS NULL) OR (:OLDROW.UPDATE_USER ='')) THEN
V_USER := :NEWROW.UPDATE_USER;
ELSE
V_USER := :NEWROW.UPDATE_USER;
END IF;
IF (:OLDROW.SUN_ACCOUNTING_CODE <> :NEWROW.SUN_ACCOUNTING_CODE) THEN SELECT NVL(MAX(LINE_NO)+1,1) INTO V_LINE_NO
FROM T_VENDOR_HIST
WHERE COMPANY_CODE=:OLDROW.COMPANY_CODE; SELECT COUNT(*)+1 INTO V_REVISION_NO
FROM T_VENDOR_HIST
WHERE COMPANY_CODE=:OLDROW.COMPANY_CODE
AND CHANGES='Sun Accounting Code'
AND VENDOR_CODE = :NEWROW.VENDOR_CODE; INSERT INTO T_VENDOR_HIST
(COMPANY_CODE, VENDOR_CODE, LINE_NO, SYSTEM, CHANGES, CHANGE_FROM, CHANGE_TO,
REVISION_NO, DC_IND, DC_DATE, CREATE_USER, CREATE_DATE, UPDATE_USER, UPDATE_DATE
)
VALUES
(
:NEWROW.COMPANY_CODE,:NEWROW.VENDOR_CODE,V_LINE_NO, 'MAIN_CHANGED', 'Sun Accounting Code',:OLDROW.SUN_ACCOUNTING_CODE,
:NEWROW.SUN_ACCOUNTING_CODE,V_REVISION_NO, 'NO', NULL, :NEWROW.UPDATE_USER, SYSDATE,V_USER,NULL
);
END IF;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20001, 'Exception in TRG_UPDATE_SUPPLIER_MASTER_HDR');
END;这是我的触发器代码,为什么第一次修改时可以,第二次修改记录时报"Unknown property '' 错误.那位大虾帮忙看一下.在线等待.
UPDATE ON T_VENDOR_HDR
REFERENCING OLD AS OLDROW NEW AS NEWROW
FOR EACH ROW
DECLARE
V_LINE_NO NUMBER(10);
V_REVISION_NO NUMBER(10);
V_USER VARCHAR2(35);
BEGIN
IF((:OLDROW.UPDATE_USER IS NULL) OR (:OLDROW.UPDATE_USER ='')) THEN
V_USER := :NEWROW.UPDATE_USER;
ELSE
V_USER := :NEWROW.UPDATE_USER;
END IF;
IF (:OLDROW.SUN_ACCOUNTING_CODE <> :NEWROW.SUN_ACCOUNTING_CODE) THEN SELECT NVL(MAX(LINE_NO)+1,1) INTO V_LINE_NO
FROM T_VENDOR_HIST
WHERE COMPANY_CODE=:OLDROW.COMPANY_CODE; SELECT COUNT(*)+1 INTO V_REVISION_NO
FROM T_VENDOR_HIST
WHERE COMPANY_CODE=:OLDROW.COMPANY_CODE
AND CHANGES='Sun Accounting Code'
AND VENDOR_CODE = :NEWROW.VENDOR_CODE; INSERT INTO T_VENDOR_HIST
(COMPANY_CODE, VENDOR_CODE, LINE_NO, SYSTEM, CHANGES, CHANGE_FROM, CHANGE_TO,
REVISION_NO, DC_IND, DC_DATE, CREATE_USER, CREATE_DATE, UPDATE_USER, UPDATE_DATE
)
VALUES
(
:NEWROW.COMPANY_CODE,:NEWROW.VENDOR_CODE,V_LINE_NO, 'MAIN_CHANGED', 'Sun Accounting Code',:OLDROW.SUN_ACCOUNTING_CODE,
:NEWROW.SUN_ACCOUNTING_CODE,V_REVISION_NO, 'NO', NULL, :NEWROW.UPDATE_USER, SYSDATE,V_USER,NULL
);
END IF;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20001, 'Exception in TRG_UPDATE_SUPPLIER_MASTER_HDR');
END;这是我的触发器代码,为什么第一次修改时可以,第二次修改记录时报"Unknown property '' 错误.那位大虾帮忙看一下.在线等待.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货