ad_printformatitem_trg.sql

Java写的ERP系统

CREATE OR REPLACE TRIGGER AD_PrintFormatItem_Trg
AFTER INSERT OR UPDATE
	ON AD_PrintFormatItem
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_PrintFormatItem_Trg.sql,v 1.3 2003/02/18 03:33:22 jjanke Exp $
 ***
 * Title:	AD_PrintFormatItem
 * Description:
 *			- Insert Translation
 ************************************************************************/

	IF (INSERTING) THEN
		--	Copy
		INSERT INTO AD_PrintFormatItem_Trl
			(AD_PrintFormatItem_ID, AD_Language, AD_Client_ID, AD_Org_ID,
			IsActive, Created, CreatedBy, Updated, UpdatedBy,
			PrintName, PrintNameSuffix, IsTranslated)
		SELECT :new.AD_PrintFormatItem_ID, AD_Language, :new.AD_Client_ID, :new.AD_Org_ID,
			:new.IsActive, :new.Created, :new.CreatedBy, :new.Updated, :new.UpdatedBy,
			:new.PrintName, :new.PrintNameSuffix, 'N'
		FROM	AD_Language
		WHERE	IsActive = 'Y' AND IsSystemLanguage = 'Y';
		--  Translate if Multi-Lingual
		UPDATE AD_PrintFormatItem_Trl trl
		  SET PrintName = (SELECT e.PrintName 
			FROM AD_Element_Trl e, AD_Column c
			WHERE e.AD_Language=trl.AD_Language
			  AND e.AD_Element_ID=c.AD_Element_ID
			  AND c.AD_Column_ID=:new.AD_Column_ID
			  AND trl.AD_PrintFormatItem_ID=:new.AD_PrintFormatItem_ID)
		WHERE AD_PrintFormatItem_ID = :new.AD_PrintFormatItem_ID
		  AND EXISTS (SELECT * 
			FROM AD_Element_Trl e, AD_Column c
			WHERE e.AD_Language=trl.AD_Language
			  AND e.AD_Element_ID=c.AD_Element_ID
			  AND c.AD_Column_ID=:new.AD_Column_ID
			  AND trl.AD_PrintFormatItem_ID = :new.AD_PrintFormatItem_ID
			  AND LENGTH(:new.PrintName) > 0)
		  AND EXISTS (SELECT * FROM AD_Client 
			WHERE AD_Client_ID=trl.AD_Client_ID AND IsMultiLingualDocument='Y');
	END IF;

	--	Optionally Copy Info and Mark for Translation
	IF (UPDATING) THEN
		IF (:old.PrintName <> :new.PrintName OR :old.PrintNameSuffix <> :new.PrintNameSuffix) THEN
			UPDATE	AD_PrintFormatItem_Trl
			  SET	IsTranslated='N'
			WHERE	AD_PrintFormatItem_ID = :new.AD_PrintFormatItem_ID;
			-- Copy if not Multi-Lingual
			UPDATE	AD_PrintFormatItem_Trl
			  SET	PrintName=:new.PrintName
			WHERE	AD_PrintFormatItem_ID = :new.AD_PrintFormatItem_ID
			  AND EXISTS (SELECT * FROM AD_Client 
				WHERE AD_Client_ID=:new.AD_Client_ID AND IsMultiLingualDocument='N');
		END IF;
	END IF;

END AD_PrintFormatItem_Trg;
/