ad_message_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER AD_Message_Trg
AFTER INSERT OR UPDATE OF MsgText, MsgTip
	ON AD_Message
FOR EACH ROW
/*************************************************************************
 * 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: AD_Message_Trg.sql,v 1.2 2002/05/11 04:32:33 jjanke Exp $
 ***
 * Title:	Message Translation
 * Description:
 ************************************************************************/
BEGIN

	--	Insert AD_Ref_List Trigger 
	--		for Translation 
	IF INSERTING THEN
		INSERT INTO AD_Message_Trl
			(AD_Message_ID, AD_Language, AD_Client_ID, AD_Org_ID, 
			IsActive, Created, CreatedBy, Updated, UpdatedBy,
			MsgText, MsgTip, IsTranslated)
    	SELECT :new.AD_Message_ID, AD_Language, :new.AD_Client_ID, :new.AD_Org_ID,
        	:new.IsActive, :new.Created, :new.CreatedBy, :new.Updated, :new.UpdatedBy,
	        :new.MsgText, :new.MsgTip, 'N'
    	FROM    AD_Language
	   	WHERE	IsActive = 'Y' AND IsSystemLanguage = 'Y';
	END IF;

	--	AD_Message update trigger
	--		synchronize name,... 
	IF UPDATING THEN
		UPDATE	AD_Message_Trl
		SET		IsTranslated = 'N',
				Updated=SysDate
		WHERE	AD_Message_ID = :new.AD_Message_ID;
	END IF;	--	Updating

END AD_Message_Trg;
/