ad_sequencenextno.sql

Java写的ERP系统

CREATE OR REPLACE FUNCTION AD_Sequence_NextNo 
(
	TableName IN VARCHAR2
)
RETURN NUMBER
AS
/*************************************************************************
 * 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+CRM
 * Copyright (C) 1999-2001 Jorg Janke, ComPiere, Inc. All Rights Reserved.
 *************************************************************************
 * $Id: AD_SequenceNextNo.sql,v 1.2 2001/12/29 04:10:59 jjanke Exp $
 ***
 * Title:		Get Next Number of Sequence
 * Description:
 ************************************************************************/
	NextNo						  NUMBER;
BEGIN
	
	SELECT CurrentNext
	  INTO NextNo
	  FROM AD_Sequence
	 WHERE Name = TableName
	   AND IsActive = 'Y'
	   AND IsTableID = 'Y'
	   AND IsAutoSequence = 'Y'
	   FOR UPDATE OF CurrentNext;
	
	UPDATE AD_Sequence
	   SET CurrentNext = CurrentNext + IncrementNo
	 WHERE Name = TableName;
	
	RETURN NextNo;

EXCEPTION
	WHEN NO_DATA_FOUND THEN
		RAISE_APPLICATION_ERROR (-20100, 'Table Sequence not found');

END AD_Sequence_NextNo;
/