58 lines
1.9 KiB
MySQL
58 lines
1.9 KiB
MySQL
|
/*************************************************************************
|
||
|
|
* The contents of this file are subject to the Adempiere License. You may
|
||
|
|
* obtain a copy of the License at http://www.adempiere.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: Adempiere ERP+CRM
|
||
|
|
* Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
|
||
|
|
*************************************************************************
|
||
|
|
* $Id: 0_TempTable_Create.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
|
||
|
|
***
|
||
|
|
* Title: Create Temp Tables
|
||
|
|
* Description:
|
||
|
|
* Create (Temporary) Tables for reporting views
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
DECLARE
|
||
|
|
CURSOR CUR_Views IS
|
||
|
|
SELECT View_Name
|
||
|
|
FROM USER_Views
|
||
|
|
WHERE NOT
|
||
|
|
(
|
||
|
|
View_Name LIKE '%_VT' -- Translation Views
|
||
|
|
OR View_Name LIKE '%_V1' -- Special Views
|
||
|
|
OR View_Name LIKE 'AD_%' -- Dictionary Views
|
||
|
|
OR View_Name LIKE 'O_%' -- Export Views
|
||
|
|
OR View_Name LIKE 'GL_%' -- GL Views
|
||
|
|
OR View_Name LIKE 'R_%_V' -- Request Views
|
||
|
|
OR View_Name IN ('C_INVOICE_V','C_INVOICELINE_V', 'C_PAYMENT_V',
|
||
|
|
'C_INVOICE_CANDIDATE_V', 'M_INOUT_CANDIDATE_V')
|
||
|
|
)
|
||
|
|
ORDER BY 1;
|
||
|
|
v_Cmd VARCHAR2(2000);
|
||
|
|
BEGIN
|
||
|
|
FOR v IN CUR_Views LOOP
|
||
|
|
DBMS_OUTPUT.PUT('View ' || v.View_Name || ' - ');
|
||
|
|
v_Cmd := 'CREATE TABLE '
|
||
|
|
|| v.View_Name || '__ AS SELECT * FROM '
|
||
|
|
|| v.View_Name || ' WHERE AD_Client_ID=-1';
|
||
|
|
BEGIN
|
||
|
|
EXECUTE IMMEDIATE v_Cmd;
|
||
|
|
EXCEPTION WHEN OTHERS THEN
|
||
|
|
DBMS_OUTPUT.PUT(' CREATE ERROR: ' || v_Cmd || ' ');
|
||
|
|
END;
|
||
|
|
--
|
||
|
|
v_Cmd := 'UPDATE AD_Table SET TableName=TableName || ''__''
|
||
|
|
WHERE UPPER(TableName)=''' || v.View_Name || '''';
|
||
|
|
BEGIN
|
||
|
|
EXECUTE IMMEDIATE v_Cmd;
|
||
|
|
EXCEPTION WHEN OTHERS THEN
|
||
|
|
DBMS_OUTPUT.PUT(' UPDATE ERROR ');
|
||
|
|
END;
|
||
|
|
DBMS_OUTPUT.PUT_LINE (SQL%ROWCOUNT);
|
||
|
|
END LOOP;
|
||
|
|
END;
|
||
|
|
/
|
||
|
|
COMMIT
|
||
|
|
/
|
||
|
|
|