sequences.sql

Java写的ERP系统

/*************************************************************************
 * 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: Sequences.sql,v 1.7 2003/04/15 05:09:25 jjanke Exp $
 ***
 * Title:	Sequences
 * Description:	
 *			(Re)Create  Sequences
 ************************************************************************/



/**
 *	Error Messages (deleteable) Primary Key
 */
TRUNCATE TABLE AD_Error
/
DROP SEQUENCE AD_Error_Seq
/
CREATE SEQUENCE AD_Error_Seq 
	START WITH 1
	INCREMENT BY 1
/
--	DBA Error
TRUNCATE TABLE DBA_ErrorLog
/
DROP SEQUENCE DBA_ErrorLog_Seq
/
CREATE SEQUENCE DBA_ErrorLog_Seq 
	START WITH 1
	INCREMENT BY 1
/


/**
 * Process Log
 */
DELETE FROM T_Report
/
DELETE FROM AD_PInstance
/
DROP SEQUENCE AD_PInstance_Seq
/
CREATE SEQUENCE AD_PInstance_Seq 
	START WITH 1
	INCREMENT BY 1
/

/**
 *	T_Spool (Global Temporary Table) Primary Key
 */
DROP SEQUENCE T_Spool_Seq
/
CREATE SEQUENCE T_Spool_Seq 
	START WITH 1
	INCREMENT BY 1
/


/**
 *	Allocation No
 */
DROP SEQUENCE C_Allocation_Seq
/
/*ORACLE>*/
DECLARE
	No			NUMBER(10) := 1;
	Cmd			VARCHAR2(255);
BEGIN
	--	Get Start No
	SELECT	NVL(MAX(AllocationNo),0) + 1
	  INTO	No
	FROM	C_Allocation;
	--
	Cmd := 'CREATE SEQUENCE C_Allocation_Seq START WITH ' 
		|| No
		|| ' INCREMENT BY 1';
	DBMS_OUTPUT.PUT_LINE(Cmd);
	EXECUTE IMMEDIATE Cmd;
END;
/*<ORACLE*/
/*POSTGRESQL>
CREATE SEQUENCE C_Allocation_Seq START 100 INCREMENT 1
<POSTGRESQL*/
/



/**
 *	Web Basket Primary Key
 */
DROP SEQUENCE W_Basket_Seq
/
/*ORACLE>*/
DECLARE
	No			NUMBER := 1;
	Cmd			VARCHAR2(255);
BEGIN
	--	Get Start No
	SELECT	NVL(MAX(W_Basket_ID),0) + 1
	  INTO	No
	FROM	W_Basket;
	--
	Cmd := 'CREATE SEQUENCE W_Basket_Seq START WITH ' 
		|| No
		|| ' INCREMENT BY 1';
	DBMS_OUTPUT.PUT_LINE(Cmd);
	EXECUTE IMMEDIATE Cmd;
END;
/*<ORACLE*/
/*POSTGRESQL>
CREATE SEQUENCE W_Basket_Seq START 100 INCREMENT 1
<POSTGRESQL*/
/