c_period_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER C_Period_Trg
AFTER INSERT
	ON C_Period
FOR EACH ROW
DECLARE
/******************************************************************************
 * ** 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
 ******************************************************************************
 *	Fill Period Control
 */
 	v_NextNo				NUMBER;
 	CURSOR	CUR_DocType IS
		SELECT	Value
		FROM	AD_Ref_List
		WHERE 	AD_Reference_ID=183
		ORDER BY 1;
BEGIN
	FOR dt IN CUR_DocType LOOP
		AD_Sequence_Next('C_PeriodControl', :new.AD_Client_ID, v_NextNo);
		INSERT INTO C_PeriodControl
			(C_PeriodControl_ID,
			AD_Client_ID, AD_Org_ID, IsActive, Created, CreatedBy, Updated, UpdatedBy,
			C_Period_ID, DocBaseType,
			PeriodStatus, PeriodAction, Processing)
		VALUES
			(v_NextNo,
			:new.AD_Client_ID, :new.AD_Org_ID, 'Y', SysDate, 0, SysDate, 0,
			:new.C_Period_ID, dt.Value,
			'N', 'N', NULL);	--	NeverOpened, NoAction
	END LOOP;
END C_Period_Trg;
/