ad_table_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER AD_Table_Trg
AFTER INSERT OR UPDATE OF TableName 
	ON AD_Table
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
 ******************************************************************************
 *	Synchronize with AD_Sequence
 */
    NextNo  NUMBER;
BEGIN
	--	Insert new Key Sequence
	IF INSERTING THEN
		--	Make sure that we can insert
		DELETE 	AD_Sequence
		WHERE 	Name = :new.TableName;
    	--  Get next number
	    AD_Sequence_Next('AD_Sequence', :new.AD_Table_ID, NextNo);
    	--  Insert 
	    INSERT INTO AD_Sequence
    	    (AD_Sequence_ID, AD_Client_ID, AD_Org_ID,
        	IsActive, Created, CreatedBy, Updated, UpdatedBy,
	        Name, Description,
    	    IsAutoSequence, StartNo, IncrementNo, CurrentNextSys, CurrentNext,
        	IsAudited, IsTableID, StartNewYear)
	    VALUES
    	    (NextNo, 0, 0,
        	'Y', SysDate, 0, SysDate, 0,
	        :new.TableName, :new.TableName, 
    	    'Y', 1000000, 1, 100, 1000000,
        	'N', 'Y', 'N');
	END IF;	--	Inserting

	--	Update TableName
	--		Sync TableName
	IF UPDATING THEN
    	UPDATE  AD_Sequence
	    SET     Name = :new.TableName,
				Updated=SysDate
	    WHERE   Name = :old.TableName 
    	  AND   IsTableID='Y';
	END IF;	--	Updating

END AD_Table_Trg;
/