powerbulider編號生成（本公司的）

ls_code = String(Today(),"YYYYMMDD")//將日期轉換成20070405這種類型。
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
//給初始值