pb:自动生成编号

编写如下函数： /*-------------------------------------------------------------------------- * 函数名称：String gf_getbh(string as_bh) * 函数作用：生成一个编号。 * 返 回 值：string类型的，编号。 * 调用举例：ls_new = gf_getbh(ls_old) *其中，ls_old为数据窗口中已经存在的当天的最大编号。 * 编写日期： * 编 写 人： *-------------------------------------------------------------------------*/ String ls_Part1//用来保存编码的前6位 String ls_Part2//用来保存编码的后4位 String ls_DbSn//数据库中的当天最大流水号 string ls_AgrSn//参数中的流水号 String ls_sn//新生成的编号 ls_part1 = Right(String(today(),'yyyymmdd'),6) ls_AgrSn = Right(as_bh,4) //该SQL语句需要根据实际情况做调整 select max(bh) into :ls_Dbsn from mpgl where substring(bh,1,6) = :ls_part1; if sqlca.sqlcode = 0 then if IsNull(ls_Dbsn) or ls_Dbsn