ad_workbench_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER AD_Workbench_Trg
AFTER INSERT OR UPDATE
	ON AD_Workbench
FOR EACH ROW
BEGIN
/*************************************************************************
 * 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-2002 Jorg Janke, ComPiere, Inc. All Rights Reserved.
 *************************************************************************
 * $Id: AD_Workbench_Trg.sql,v 1.3 2002/10/23 03:16:57 jjanke Exp $
 ***
 * Title:	Workbench Changes
 * Description:
 *			- Translation
 *			- Sync Name + Status (Menu)
 ************************************************************************/

	--	Insert Trigger 
	IF INSERTING THEN
    	INSERT INTO AD_Workbench_Trl
        	(AD_Workbench_ID, AD_Language, AD_Client_ID, AD_Org_ID,
	        IsActive, Created, CreatedBy, Updated, UpdatedBy,
    	    Name, Description, Help, IsTranslated)
	    SELECT :new.AD_Workbench_ID, AD_Language, :new.AD_Client_ID, :new.AD_Org_ID,
    	    :new.IsActive, :new.Created, :new.CreatedBy, :new.Updated, :new.UpdatedBy,
        	:new.Name, :new.Description, :new.Help, 'N'
	    FROM    AD_Language
   		WHERE	IsActive = 'Y' AND IsSystemLanguage = 'Y';
	END IF;	-- INSERTING

	--	Update Trigger
	IF UPDATING THEN
		UPDATE	AD_Menu
		  SET	IsActive = :new.IsActive,
		  		Name = :new.Name,
				Description = :new.Description
	   	WHERE	AD_Workbench_ID = :new.AD_Workbench_ID;
	--	reset Translation flag
		IF (:old.Name <> :new.Name 
				OR :old.Description <> :new.Description 
				OR :old.Help <> :new.Help) THEN
			UPDATE	AD_Workbench_Trl
			SET		IsTranslated='N'
			WHERE	AD_Workbench_ID = :new.AD_Workbench_ID;
		END IF;

	END IF;	-- UPDATING

END AD_Workbench_Trg;
/