c_bp_group_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER C_BP_Group_Trg
AFTER INSERT 
	ON C_BP_Group
FOR EACH ROW
DECLARE
/*************************************************************************
 * The contents of this file are subject to the Compiere License.  You may
 * obtain a copy of the License at    http://www.compiere.org/license.html
 * Software is on an  "AS IS" basis,  WITHOUT WARRANTY OF ANY KIND, either
 * express or implied. See the License for details. Code: Compiere ERP+CRM
 * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
 *************************************************************************
 * $Id: C_BP_Group_Trg.sql,v 1.2 2001/11/26 05:25:19 jjanke Exp $
 ***
 * Title:		New Accounting Defaults
 * Description:
 ************************************************************************/

	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 C_BP_Group_Acct
			(C_BP_Group_ID, C_AcctSchema_ID,
			AD_Client_ID, AD_Org_ID, IsActive, Created, CreatedBy, Updated, UpdatedBy,
			C_Receivable_Acct, C_PrePayment_Acct, 
			V_Liability_Acct, V_Liability_Services_Acct, V_PrePayment_Acct, 
			PayDiscount_Exp_Acct, PayDiscount_Rev_Acct, WriteOff_Acct,
			UnRealizedGain_Acct, UnRealizedLoss_Acct, RealizedGain_Acct, RealizedLoss_Acct,
			NotInvoicedReceipts_Acct, UnEarnedRevenue_Acct, 
			NotInvoicedRevenue_Acct, NotInvoicedReceivables_Acct)
		VALUES
			(:new.C_BP_Group_ID, cd.C_AcctSchema_ID,
			:new.AD_Client_ID, :new.AD_ORG_ID, 'Y', SysDate, :new.CreatedBy, SysDate, :new.UpdatedBy,
			cd.C_Receivable_Acct, cd.C_PrePayment_Acct,  
			cd.V_Liability_Acct, cd.V_Liability_Services_Acct, cd.V_PrePayment_Acct,
			cd.PayDiscount_Exp_Acct, cd.PayDiscount_Rev_Acct, cd.WriteOff_Acct,
			cd.UnRealizedGain_Acct, cd.UnRealizedLoss_Acct, cd.RealizedGain_Acct, cd.RealizedLoss_Acct,
			cd.NotInvoicedReceipts_Acct, cd.UnEarnedRevenue_Acct, 
			cd.NotInvoicedRevenue_Acct, cd.NotInvoicedReceivables_Acct);
	END LOOP;

END C_BP_Group_Trg;
/