midsuit
/
core-jgi
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FR [2783860] - DBA_Cleanup should clean all temporary tables 

* Audit tables better configured used housekeeping (it allows previous backup) - AD_PInstance AD_ChangeLog AD_Session AD_Note
* AD_Find AD_Error not used in adempiere
https://sourceforge.net/tracker/?func=detail&atid=879335&aid=2783860&group_id=176962
This commit is contained in:
Carlos Ruiz 2009-05-02 14:10:55 +00:00
parent bbbe569b61
commit 7bff24602a
2 changed files with 92 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
db/ddlutils/oracle/procedures/DBA_Cleanup.sql
View File

@ -8,79 +8,82 @@ CREATE OR REPLACE PROCEDURE DBA_Cleanup
************************************************************************* *************************************************************************
* $Id: DBA_Cleanup.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $ * $Id: DBA_Cleanup.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
*** ***
* Title: Cleanup old temporary data * Title: Cleanup old temporary data
* Description: * Description:
* *
* Author: Teo Sarca, www.arhipac.ro * Author: Teo Sarca, www.arhipac.ro
* * Autodetect temporary tables and delete rows that are older then 7 days * * Autodetect temporary tables and delete rows that are older then 7 days
************************************************************************/ ************************************************************************/
AS AS
BEGIN BEGIN
DBMS_OUTPUT.PUT_LINE('DBA_Cleanup'); DBMS_OUTPUT.PUT_LINE('DBA_Cleanup');
-- Clean up data -- Clean up data
/** /**
-- C_Invoice_CheckPaid(); -- C_Invoice_CheckPaid();
UPDATE C_Payment_v UPDATE C_Payment_v
SET IsAllocated=CASE WHEN paymentAllocated(C_Payment_ID, C_Currency_ID)=PayAmt THEN 'Y' ELSE 'N' END SET IsAllocated=CASE WHEN paymentAllocated(C_Payment_ID, C_Currency_ID)=PayAmt THEN 'Y' ELSE 'N' END
WHERE IsAllocated='N'; WHERE IsAllocated='N';
UPDATE C_Invoice_v1 UPDATE C_Invoice_v1
SET IsPaid = CASE WHEN invoicePaid(C_Invoice_ID,C_Currency_ID,MultiplierAP)=GrandTotal THEN 'Y' ELSE 'N' END SET IsPaid = CASE WHEN invoicePaid(C_Invoice_ID,C_Currency_ID,MultiplierAP)=GrandTotal THEN 'Y' ELSE 'N' END
WHERE IsPaid='N'; WHERE IsPaid='N';
**/ **/
-- Temporary Tables
FOR t IN (SELECT t.TableName FROM AD_Table t
WHERE t.TableName like 'T!_%' ESCAPE '!'
AND t.IsView='N'
AND EXISTS (SELECT 1 FROM user_tables ut WHERE UPPER(ut.table_name)=UPPER(t.TableName))
AND EXISTS (SELECT 1 FROM user_tab_cols uc WHERE UPPER(uc.table_name)=UPPER(t.TableName) AND uc.column_name='AD_PINSTANCE_ID')
ORDER BY t.TableName)
LOOP
EXECUTE IMMEDIATE
'DELETE FROM '||t.TableName||' t'
||' WHERE EXISTS (SELECT 1 FROM AD_PInstance pi WHERE pi.AD_PInstance_ID=t.AD_PInstance_ID AND Created < SysDate-7)'
;
IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' '||t.TableName||'=' || SQL%ROWCOUNT);
END IF;
END LOOP;
-- Search Info -- Temporary Tables
DELETE FROM AD_Find WHERE Created < SysDate-7; FOR t IN (SELECT t.TableName FROM AD_Table t
WHERE t.TableName like 'T!_%' ESCAPE '!'
AND t.IsView='N'
AND EXISTS (SELECT 1 FROM user_tables ut WHERE UPPER(ut.table_name)=UPPER(t.TableName))
AND EXISTS (SELECT 1 FROM user_tab_cols uc WHERE UPPER(uc.table_name)=UPPER(t.TableName) AND uc.column_name='AD_PINSTANCE_ID')
ORDER BY t.TableName)
LOOP
EXECUTE IMMEDIATE
'DELETE FROM '||t.TableName||' t'
||' WHERE EXISTS (SELECT 1 FROM AD_PInstance pi WHERE pi.AD_PInstance_ID=t.AD_PInstance_ID AND Created < SysDate-7)'
;
IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' '||t.TableName||'=' || SQL%ROWCOUNT);
END IF;
END LOOP;
/** Search Info -- AD_Find not used in adempiere
DELETE FROM AD_Find WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' AD_Find=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' AD_Find=' || SQL%ROWCOUNT);
END IF; END IF;
*/
-- Processes older than a week /** Processes older than a week -- audit data better configured using HouseKeeping
DELETE FROM AD_PInstance WHERE Created < SysDate-7; DELETE FROM AD_PInstance WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Old AD_PInstance=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Old AD_PInstance=' || SQL%ROWCOUNT);
END IF; END IF;
-- Change Log -- audit data better configured using HouseKeeping
/** Old Session (1 Week)
DELETE FROM AD_ChangeLog WHERE Created < SysDate-7; DELETE FROM AD_ChangeLog WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Old AD_ChangeLock=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Old AD_ChangeLock=' || SQL%ROWCOUNT);
END IF; END IF;
-- Old Session (1 Week) -- audit data better configured using HouseKeeping
DELETE FROM AD_Session WHERE Created < SysDate-7; DELETE FROM AD_Session WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Old AD_Session=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Old AD_Session=' || SQL%ROWCOUNT);
END IF; END IF;
/** */ */
-- Errors older than 1 week /** Errors older than 1 week -- AD_Error not used in Adempiere
DELETE FROM AD_Error WHERE Created < SysDate-7; DELETE FROM AD_Error WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Old AD_Error=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Old AD_Error=' || SQL%ROWCOUNT);
END IF; END IF;
*/
-- Acknowledged Notes older than one week /** Acknowledged Notes older than one week -- audit data better configured using HouseKeeping
DELETE FROM AD_Note WHERE Processed='Y' AND Updated < SysDate-7; DELETE FROM AD_Note WHERE Processed='Y' AND Updated < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Processed AD_Note=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Processed AD_Note=' || SQL%ROWCOUNT);
END IF; END IF;
*/
-- --
COMMIT; COMMIT;
END DBA_Cleanup; END DBA_Cleanup;
/ /

89
migration/353a-trunk/oracle/457_FR2783860.sql
View File

@ -8,79 +8,82 @@ CREATE OR REPLACE PROCEDURE DBA_Cleanup
************************************************************************* *************************************************************************
* $Id: DBA_Cleanup.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $ * $Id: DBA_Cleanup.sql,v 1.1 2006/04/21 17:51:58 jjanke Exp $
*** ***
* Title: Cleanup old temporary data * Title: Cleanup old temporary data
* Description: * Description:
* *
* Author: Teo Sarca, www.arhipac.ro * Author: Teo Sarca, www.arhipac.ro
* * Autodetect temporary tables and delete rows that are older then 7 days * * Autodetect temporary tables and delete rows that are older then 7 days
************************************************************************/ ************************************************************************/
AS AS
BEGIN BEGIN
DBMS_OUTPUT.PUT_LINE('DBA_Cleanup'); DBMS_OUTPUT.PUT_LINE('DBA_Cleanup');
-- Clean up data -- Clean up data
/** /**
-- C_Invoice_CheckPaid(); -- C_Invoice_CheckPaid();
UPDATE C_Payment_v UPDATE C_Payment_v
SET IsAllocated=CASE WHEN paymentAllocated(C_Payment_ID, C_Currency_ID)=PayAmt THEN 'Y' ELSE 'N' END SET IsAllocated=CASE WHEN paymentAllocated(C_Payment_ID, C_Currency_ID)=PayAmt THEN 'Y' ELSE 'N' END
WHERE IsAllocated='N'; WHERE IsAllocated='N';
UPDATE C_Invoice_v1 UPDATE C_Invoice_v1
SET IsPaid = CASE WHEN invoicePaid(C_Invoice_ID,C_Currency_ID,MultiplierAP)=GrandTotal THEN 'Y' ELSE 'N' END SET IsPaid = CASE WHEN invoicePaid(C_Invoice_ID,C_Currency_ID,MultiplierAP)=GrandTotal THEN 'Y' ELSE 'N' END
WHERE IsPaid='N'; WHERE IsPaid='N';
**/ **/
-- Temporary Tables
FOR t IN (SELECT t.TableName FROM AD_Table t
WHERE t.TableName like 'T!_%' ESCAPE '!'
AND t.IsView='N'
AND EXISTS (SELECT 1 FROM user_tables ut WHERE UPPER(ut.table_name)=UPPER(t.TableName))
AND EXISTS (SELECT 1 FROM user_tab_cols uc WHERE UPPER(uc.table_name)=UPPER(t.TableName) AND uc.column_name='AD_PINSTANCE_ID')
ORDER BY t.TableName)
LOOP
EXECUTE IMMEDIATE
'DELETE FROM '||t.TableName||' t'
||' WHERE EXISTS (SELECT 1 FROM AD_PInstance pi WHERE pi.AD_PInstance_ID=t.AD_PInstance_ID AND Created < SysDate-7)'
;
IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' '||t.TableName||'=' || SQL%ROWCOUNT);
END IF;
END LOOP;
-- Search Info -- Temporary Tables
DELETE FROM AD_Find WHERE Created < SysDate-7; FOR t IN (SELECT t.TableName FROM AD_Table t
WHERE t.TableName like 'T!_%' ESCAPE '!'
AND t.IsView='N'
AND EXISTS (SELECT 1 FROM user_tables ut WHERE UPPER(ut.table_name)=UPPER(t.TableName))
AND EXISTS (SELECT 1 FROM user_tab_cols uc WHERE UPPER(uc.table_name)=UPPER(t.TableName) AND uc.column_name='AD_PINSTANCE_ID')
ORDER BY t.TableName)
LOOP
EXECUTE IMMEDIATE
'DELETE FROM '||t.TableName||' t'
||' WHERE EXISTS (SELECT 1 FROM AD_PInstance pi WHERE pi.AD_PInstance_ID=t.AD_PInstance_ID AND Created < SysDate-7)'
;
IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' '||t.TableName||'=' || SQL%ROWCOUNT);
END IF;
END LOOP;
/** Search Info -- AD_Find not used in adempiere
DELETE FROM AD_Find WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' AD_Find=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' AD_Find=' || SQL%ROWCOUNT);
END IF; END IF;
*/
-- Processes older than a week /** Processes older than a week -- audit data better configured using HouseKeeping
DELETE FROM AD_PInstance WHERE Created < SysDate-7; DELETE FROM AD_PInstance WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Old AD_PInstance=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Old AD_PInstance=' || SQL%ROWCOUNT);
END IF; END IF;
-- Change Log -- audit data better configured using HouseKeeping
/** Old Session (1 Week)
DELETE FROM AD_ChangeLog WHERE Created < SysDate-7; DELETE FROM AD_ChangeLog WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Old AD_ChangeLock=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Old AD_ChangeLock=' || SQL%ROWCOUNT);
END IF; END IF;
-- Old Session (1 Week) -- audit data better configured using HouseKeeping
DELETE FROM AD_Session WHERE Created < SysDate-7; DELETE FROM AD_Session WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Old AD_Session=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Old AD_Session=' || SQL%ROWCOUNT);
END IF; END IF;
/** */ */
-- Errors older than 1 week /** Errors older than 1 week -- AD_Error not used in Adempiere
DELETE FROM AD_Error WHERE Created < SysDate-7; DELETE FROM AD_Error WHERE Created < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Old AD_Error=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Old AD_Error=' || SQL%ROWCOUNT);
END IF; END IF;
*/
-- Acknowledged Notes older than one week /** Acknowledged Notes older than one week -- audit data better configured using HouseKeeping
DELETE FROM AD_Note WHERE Processed='Y' AND Updated < SysDate-7; DELETE FROM AD_Note WHERE Processed='Y' AND Updated < SysDate-7;
IF (SQL%ROWCOUNT <> 0) THEN IF (SQL%ROWCOUNT <> 0) THEN
DBMS_OUTPUT.PUT_LINE(' Processed AD_Note=' || SQL%ROWCOUNT); DBMS_OUTPUT.PUT_LINE(' Processed AD_Note=' || SQL%ROWCOUNT);
END IF; END IF;
*/
-- --
COMMIT; COMMIT;
END DBA_Cleanup; END DBA_Cleanup;
/ /