| 编写如下函数：
/*--------------------------------------------------------------------------
* 函数名称：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 |