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