m_product_category_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER M_Product_Category_Trg
AFTER INSERT 
	ON M_Product_Category
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_Product_Category_Acct
			(M_Product_Category_ID, C_AcctSchema_ID,
			AD_Client_ID, AD_Org_ID, IsActive, Created, CreatedBy, Updated, UpdatedBy,
			P_Revenue_Acct, P_Expense_Acct, P_Asset_Acct, P_COGS_Acct, 
			P_PurchasePriceVariance_Acct, P_InvoicePriceVariance_Acct,
			P_TradeDiscountRec_Acct, P_TradeDiscountGrant_Acct)
		VALUES
			(:new.M_Product_Category_ID, cd.C_AcctSchema_ID,
			:new.AD_Client_ID, :new.AD_ORG_ID, 'Y', SysDate, :new.CreatedBy, SysDate, :new.UpdatedBy,
			cd.P_Revenue_Acct, cd.P_Expense_Acct, cd.P_Asset_Acct, cd.P_COGS_Acct, 
			cd.P_PurchasePriceVariance_Acct, cd.P_InvoicePriceVariance_Acct,
			cd.P_TradeDiscountRec_Acct, cd.P_TradeDiscountGrant_Acct);	
	END LOOP;

END M_Product_Category_Trg;
/