m_warehouse_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER M_Warehouse_Trg
AFTER INSERT 
	ON M_Warehouse
FOR EACH ROW
/******************************************************************************
 * ** Compiere Product **             Copyright (c) 1999-2001 Accorto, Inc. USA
 * Open  Source  Software        Provided "AS IS" without warranty or liability
 * When you use any parts (changed or unchanged), add  "Powered by Compiere" to
 * your product name;  See license details http://www.compiere.org/license.html
 ******************************************************************************
 *	New Accounting Defaults
 */
DECLARE
    CURSOR Cur_Defaults IS
        SELECT * FROM C_AcctSchema_Default d
        WHERE EXISTS (SELECT * FROM AD_ClientInfo c
                        WHERE d.C_AcctSchema_ID IN (c.C_AcctSchema1_ID, c.C_AcctSchema2_ID, c.C_AcctSchema3_ID)
                        AND AD_Client_ID=:new.AD_Client_ID);
BEGIN
	FOR cd IN Cur_Defaults LOOP
        INSERT INTO M_Warehouse_Acct
            (M_Warehouse_ID, C_AcctSchema_ID,
            AD_Client_ID, AD_Org_ID, IsActive, Created, CreatedBy, Updated, UpdatedBy,
			W_Inventory_Acct, W_Differences_Acct, 
			W_Revaluation_Acct, W_InvActualAdjust_Acct)
        VALUES
            (:new.M_Warehouse_ID, cd.C_AcctSchema_ID,
            :new.AD_Client_ID, :new.AD_ORG_ID, 'Y', SysDate, :new.CreatedBy, SysDate, :new.UpdatedBy,
			cd.W_Inventory_Acct, cd.W_Differences_Acct, 
			cd.W_Revaluation_Acct, cd.W_InvActualAdjust_Acct);	
	END LOOP;

END M_Warehouse_Trg;
/