ad_language_create.sql

Java写的ERP系统

CREATE OR REPLACE PROCEDURE AD_Language_Create
(
	p_PInstance_ID			IN NUMBER
)
/*************************************************************************
 * 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+CPM
 * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
 *************************************************************************
 * $Id: AD_Language_Create.sql,v 1.8 2003/02/18 03:33:22 jjanke Exp $
 ***
 * Title:	Create missing Language Records
 * Description:
 *		SELECT TableName FROM AD_Table WHERE TableName LIKE '%Trl' ORDER BY 1
 *
 *		See also copy_translation
 ************************************************************************/
AS
	--	Logistice
	v_ResultStr					VARCHAR2(2000);
	v_Message						VARCHAR2(2000);
	v_Result						NUMBER := 1;	-- 0=failure
	v_Record_ID					NUMBER;
	v_AD_User_ID					NUMBER;
	--	Parameter
	CURSOR Cur_Parameter (pp_PInstance NUMBER) IS
		SELECT i.Record_ID, i.AD_User_ID,
			p.ParameterName, p.P_String, p.P_Number, p.P_Date
		FROM AD_PInstance i, AD_PInstance_Para p
		WHERE i.AD_PInstance_ID=pp_PInstance
		AND i.AD_PInstance_ID=p.AD_PInstance_ID(+)
		ORDER BY p.SeqNo;
	--	Parameter Variables
	--
	v_Languages					NUMBER := 0;
	v_Created						NUMBER := 0;

BEGIN
	--  Update AD_PInstance
	DBMS_OUTPUT.PUT_LINE('Updating PInstance - Processing ' || p_PInstance_ID);
	v_ResultStr := 'PInstanceNotFound';
	UPDATE AD_PInstance
	SET Created = SysDate,
		IsProcessing = 'Y'
	WHERE AD_PInstance_ID=p_PInstance_ID;
	COMMIT;

	--	Get Parameters
	v_ResultStr := 'ReadingParameters';
	FOR p IN Cur_Parameter (p_PInstance_ID) LOOP
		v_Record_ID := p.Record_ID;
		v_AD_User_ID := p.AD_User_ID;
	END LOOP;	--	Get Parameter
	DBMS_OUTPUT.PUT_LINE('  Record_ID=' || v_Record_ID);

	----------------------------------------------------------------------

	UPDATE	AD_Language
	  SET	IsSystemLanguage = 'N'
	WHERE	IsBaseLanguage = 'Y';
	DBMS_OUTPUT.PUT_LINE('Base Language = ' ||	SQL%ROWCOUNT);

	SELECT	COUNT(*)
	  INTO	v_Languages
	FROM	AD_Language
	WHERE	(IsActive = 'N' OR IsSystemLanguage = 'N')
	  AND	IsBaseLanguage='N';
	DBMS_OUTPUT.PUT_LINE('Number of inactive Languages=' || v_Languages);
		
	SELECT	COUNT(*)
	  INTO	v_Languages
	FROM	AD_Language
	WHERE	IsActive = 'Y' 
	  AND	IsSystemLanguage = 'Y';
	DBMS_OUTPUT.PUT_LINE('Number of active Languages=' || v_Languages);


	--	Desktop
	INSERT INTO AD_Desktop_Trl
		(AD_Desktop_ID, AD_Language, Name, Description, Help, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Desktop_ID, AD_Language, AD_Desktop.Name, AD_Desktop.Description, AD_Desktop.Help, 'N',0,0,0,0
	FROM	AD_Desktop, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Desktop_ID, AD_Language) NOT IN 
		(SELECT AD_Desktop_ID, AD_Language FROM AD_Desktop_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Desktop ' || SQL%ROWCOUNT);

	--	Element
	INSERT INTO AD_Element_Trl
		(AD_Element_ID, AD_Language, 
		Name, PrintName, Description, Help, 
		PO_Name, PO_PrintName, PO_Description, PO_Help, 
		IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Element_ID, AD_Language, 
		AD_Element.Name, AD_Element.PrintName, AD_Element.Description, AD_Element.Help, 
		AD_Element.PO_Name, AD_Element.PO_PrintName, AD_Element.PO_Description, AD_Element.PO_Help, 
		'N',0,0,0,0
	FROM	AD_Element, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Element_ID, AD_Language) NOT IN 
		(SELECT AD_Element_ID, AD_Language FROM AD_Element_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Element ' || SQL%ROWCOUNT);

	--	FieldGroup
	INSERT INTO AD_FieldGroup_Trl
		(AD_FieldGroup_ID, AD_Language, Name, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_FieldGroup_ID, AD_Language, AD_FieldGroup.Name, 'N',0,0,0,0
	FROM	AD_FieldGroup, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_FieldGroup_ID, AD_Language) NOT IN 
		(SELECT AD_FieldGroup_ID, AD_Language FROM AD_FieldGroup_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_FieldGroup ' || SQL%ROWCOUNT);

	--	Field
	INSERT INTO AD_Field_Trl
		(AD_Field_ID, AD_Language, Name, Description, Help, 
		IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Field_ID, AD_Language, AD_Field.Name, AD_Field.Description, AD_Field.Help, 
		'N',0,0,0,0
	FROM	AD_Field, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Field_ID, AD_Language) NOT IN 
		(SELECT AD_Field_ID, AD_Language FROM AD_Field_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Field ' || SQL%ROWCOUNT);

	--	Form
	INSERT INTO AD_Form_Trl
		(AD_Form_ID, AD_Language, Name, Description, Help, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Form_ID, AD_Language, AD_Form.Name, AD_Form.Description, AD_Form.Help, 'N',0,0,0,0
	FROM	AD_Form, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Form_ID, AD_Language) NOT IN 
		(SELECT AD_Form_ID, AD_Language FROM AD_Form_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Form ' || SQL%ROWCOUNT);

	--	Menu
	INSERT INTO AD_Menu_Trl
		(AD_Menu_ID, AD_Language, Name, Description, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Menu_ID, AD_Language, AD_Menu.Name, AD_Menu.Description, 'N',0,0,0,0
	FROM	AD_Menu, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Menu_ID, AD_Language) NOT IN 
		(SELECT AD_Menu_ID, AD_Language FROM AD_Menu_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Menu ' || SQL%ROWCOUNT);

	--	Message
	INSERT INTO AD_Message_Trl
		(AD_Message_ID, AD_Language, MsgText, MsgTip, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Message_ID, AD_Language, MsgText, MsgTip, 'N',0,0,0,0
	FROM	AD_Message, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Message_ID, AD_Language) NOT IN 
		(SELECT AD_Message_ID, AD_Language FROM AD_Message_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Message ' || SQL%ROWCOUNT);

	--	PrintFormatItem
	INSERT INTO AD_PrintFormatItem_Trl
		(AD_PrintFormatItem_ID, AD_Language, PrintName, PrintNameSuffix, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_PrintFormatItem_ID, AD_Language, PrintName, PrintNameSuffix, 'N',0,0,0,0
	FROM	AD_PrintFormatItem, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_PrintFormatItem_ID, AD_Language) NOT IN 
		(SELECT AD_PrintFormatItem_ID, AD_Language FROM AD_PrintFormatItem_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_PrintFormatItem ' || SQL%ROWCOUNT);
	
	--	Process
	INSERT INTO AD_Process_Trl
		(AD_Process_ID, AD_Language, Name, Description, Help, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Process_ID, AD_Language, AD_Process.Name, AD_Process.Description, AD_Process.Help, 'N',0,0,0,0
	FROM	AD_Process, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Process_ID, AD_Language) NOT IN 
		(SELECT AD_Process_ID, AD_Language FROM AD_Process_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Process ' || SQL%ROWCOUNT);

	--	Process_Para
	INSERT INTO AD_Process_Para_Trl
		(AD_Process_Para_ID, AD_Language, Name, Description, Help, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Process_Para_ID, AD_Language, AD_Process_Para.Name, AD_Process_Para.Description, AD_Process_Para.Help, 'N',0,0,0,0
	FROM	AD_Process_Para, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Process_Para_ID, AD_Language) NOT IN 
		(SELECT AD_Process_Para_ID, AD_Language FROM AD_Process_Para_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Process_Para ' || SQL%ROWCOUNT);

	--	Reference
	INSERT INTO AD_Reference_Trl
		(AD_Reference_ID, AD_Language, Name, Description, Help, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Reference_ID, AD_Language, AD_Reference.Name, AD_Reference.Description, AD_Reference.Help, 'N',0,0,0,0
	FROM	AD_Reference, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(AD_Reference_ID, AD_Language) NOT IN 
		(SELECT AD_Reference_ID, AD_Language FROM AD_Reference_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Reference ' || SQL%ROWCOUNT);

	--	Ref_List
	INSERT INTO AD_Ref_List_Trl
		(AD_Ref_List_ID, AD_Language, Name, Description, IsTranslated, Createdby,UpdatedBy,AD_Client_ID,AD_Org_ID)
	SELECT	AD_Ref_List_ID, AD_Language, AD_Ref_List.Name, AD_Ref_List.Description, 'N',0,0,0,0
	FROM	AD_Ref_List, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'