ad_language_create.sql

Java写的ERP系统

	  AND	(AD_Ref_List_ID, AD_Language) NOT IN 
		(SELECT AD_Ref_List_ID, AD_Language FROM AD_Ref_List_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- AD_Ref_List ' || SQL%ROWCOUNT);

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

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

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

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

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

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


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

	INSERT INTO C_DunningLevel_Trl
		(C_DunningLevel_ID, AD_Language, PrintName, Note, IsTranslated, Createdby,UpdatedBy,
			AD_Client_ID,AD_Org_ID)
	SELECT	C_DunningLevel_ID, AD_Language, C_DunningLevel.PrintName, C_DunningLevel.Note, 'N',0,0,
		C_DunningLevel.AD_Client_ID,C_DunningLevel.AD_Org_ID
	FROM	C_DunningLevel, AD_Language
	WHERE	AD_Language.IsActive = 'Y' 
	  AND	AD_Language.IsSystemLanguage = 'Y'
	  AND	(C_DunningLevel_ID, AD_Language) NOT IN 
		(SELECT C_DunningLevel_ID, AD_Language FROM C_DunningLevel_Trl);
	v_Created := v_Created + SQL%ROWCOUNT;
	DBMS_OUTPUT.PUT_LINE('- C_DunningLevel ' || SQL%ROWCOUNT);

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

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

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

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

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


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


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

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

	--	Summary info
	v_Message := '@Created@ = ' || v_Created;
	COMMIT;

<<FINISH_PROCESS>>
	--  Update AD_PInstance
	DBMS_OUTPUT.PUT_LINE('Updating PInstance - Finished ' || v_Message);
	UPDATE	AD_PInstance
	SET Updated = SysDate,
		IsProcessing = 'N',
		Result = v_Result,			-- 1=success
		ErrorMsg = v_Message
	WHERE	AD_PInstance_ID=p_PInstance_ID;
	COMMIT;
	RETURN;

EXCEPTION
	WHEN  OTHERS THEN
		v_ResultStr := v_ResultStr || ': ' || SQLERRM || ' - ' || v_Message;
		DBMS_OUTPUT.PUT_LINE(v_ResultStr);
		ROLLBACK;
		UPDATE	AD_PInstance
		SET Updated = SysDate,
			IsProcessing = 'N',
			Result = 0,				-- failure
			ErrorMsg = v_ResultStr
		WHERE	AD_PInstance_ID=p_PInstance_ID;
		COMMIT;
		RETURN;

END AD_Language_Create;
/