ad_tree_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER AD_Tree_Trg
AFTER INSERT 
	ON AD_Tree
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
 ******************************************************************************
 *	Insert AD_Tree Trigger 
 *		add Parent TreeNode
 */
	NextNo		NUMBER;
	Tree_ID		NUMBER;
BEGIN
	--  Insert into TreeNode
    INSERT INTO AD_TreeNode
        (AD_Client_ID, AD_Org_ID,
        IsActive, Created, CreatedBy, Updated, UpdatedBy,
        AD_Tree_ID, Node_ID, 
        Parent_ID, SeqNo)
    VALUES
        (:new.AD_Client_ID, :new.AD_Org_ID,
        :new.IsActive, :new.Created, :new.CreatedBy, :new.Updated, :new.UpdatedBy,
        :new.AD_Tree_ID, 0, 
        NULL, 0);

	--  Insert into TreeNodeMM
    INSERT INTO AD_TreeNodeMM
        (AD_Client_ID, AD_Org_ID,
        IsActive, Created, CreatedBy, Updated, UpdatedBy,
        AD_Tree_ID, Node_ID, 
        Parent_ID, SeqNo)
    VALUES
        (:new.AD_Client_ID, :new.AD_Org_ID,
        :new.IsActive, :new.Created, :new.CreatedBy, :new.Updated, :new.UpdatedBy,
        :new.AD_Tree_ID, 0, 
        NULL, 0);

	--  Insert into TreeNodeBP
    INSERT INTO AD_TreeNodeBP
        (AD_Client_ID, AD_Org_ID,
        IsActive, Created, CreatedBy, Updated, UpdatedBy,
        AD_Tree_ID, Node_ID, 
        Parent_ID, SeqNo)
    VALUES
        (:new.AD_Client_ID, :new.AD_Org_ID,
        :new.IsActive, :new.Created, :new.CreatedBy, :new.Updated, :new.UpdatedBy,
        :new.AD_Tree_ID, 0, 
        NULL, 0);

	--  Insert into TreeNodePR
    INSERT INTO AD_TreeNodePR
        (AD_Client_ID, AD_Org_ID,
        IsActive, Created, CreatedBy, Updated, UpdatedBy,
        AD_Tree_ID, Node_ID, 
        Parent_ID, SeqNo)
    VALUES
        (:new.AD_Client_ID, :new.AD_Org_ID,
        :new.IsActive, :new.Created, :new.CreatedBy, :new.Updated, :new.UpdatedBy,
        :new.AD_Tree_ID, 0, 
        NULL, 0);

END AD_Tree_Trg;
/