[转帖]自动生成票据编号（单用户）

ehxz

免费乐捐，感谢支持

原著：郭宝利

　　编写如下函数：
　　/*--------------------------------------------------------------------------
　　* 函数名称：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 = '' then
　　　　ls_Dbsn = '0000'
　　　else
　　　　ls_DbSn = Right(ls_DbSn,4)
　　　end if
　　　if IsNull(ls_Agrsn) or ls_Agrsn = '' then ls_Agrsn = '0000'
　　　　if integer(ls_Dbsn) < integer(ls_AgrSn) then
　　　　　ls_Part2 = String(integer(ls_AgrSn) + 1)
　　　　else
　　　　　ls_Part2 = String(integer(ls_DbSn) + 1)
　　　　end if
　　　　ls_sn = ls_part1 + Right('0000' + ls_Part2,4)
　　　else
　　　ls_sn = ''
　　end if
　　return ls_sn

　　在数据窗口中增加新记录时调用该函数。比如我们在命令按钮‘增加’的Clicked事件上编写程序，调用语句如下：
　　Long ll_CurRow
　　string ls_bh
　　ll_CurRow = dw_1.InsertRow(1)
　　dw_1.ScrollToRow(ll_CurRow)
　　if dw_1.RowCount() > 1 then
　　　ls_bh = dw_1.GetItemString(2,'bh')
　　else
　　　ls_bh = ''
　　end if
　　ls_bh = gf_getbh(ls_bh)
　　dw_1.SetItem(ll_CurRow,'bh',ls_bh)