ls_code = "R"+ls_code
//從數據庫中取出最大值
SELECT Max(Code) Into :ls_maxcode From T_TGL_IN Where Code Like :ls_code+"%";//左相似法則選取今天的最大值。
IF IsNull(ls_maxcode) = True Or ls_maxcode = "" THEN//沒有就用下面的。
ls_code = ls_code+"00000"//數值,
dw_3.Object.Code[ll_l] = ls_code
ELSE
ls_number = Mid (ls_maxcode, Len(ls_code)+1 ,Len(ls_maxcode) )//有則取最後面的00000位,加1
li_maxnumber = Long(ls_number)
li_maxnumber = li_maxnumber+1
ls_number = String(li_maxnumber,"00000")
ls_code = ls_code+ls_number
dw_3.Object.Code[ll_l] = ls_code
END IF
//給初始值