*——“AutoInc”函數
*     作用：使“000000XX”形式的編號自動加1
*     接收“0000XX”形式的字符串作為參數
*	  字符串長度限制為10
FUNCTION autoinc(nCode)
	*——獲取字符串長度
	nLen=Len(nCode)
	*——將字符型轉換為數值型，即獲取非0部分的數值
	nCode = VAL(nCode)
	*——非0部分數字加1
	nCode = nCode + 1
	*——轉換為字符型
	nCode = ALLTRIM(STR(nCode))
	*——獲取轉換后的字符串的長度
	nLength = LEN(nCode)
	*——在數字之前加上前置“0”
	nZero="000000000000"
	nCode = SUBSTR(nZero,1,nLen-nLength) + nCode
	*——返回結果
	RETURN nCode
ENDFUNC