可以实现以年累加编号而非日吗？【自动编号-按年-月-日格式】

Q：我的合同编号的命名规则是：部门首字母缩写+年+月+日+流水号
比如4月7日有一个合同编号为：WL201204070001
当日期为4月9日时，我再新建一条合同编号就变成了：WL201204090001
后4位的流水号是按日进行重新排序的，我怎么能按年进行排序，也就是在4月9日新建的编号希望是这样式：WL201204090002

A：可以在控件的值脚本里写如下脚本：
var i=0;                                             //记录表单记录个数
var value="";
var rtn="WL";                                       //编号前缀
var sql="select * from tlk_ee";
var datas=queryBySQL(sql);
var  date=getCurDate("yyyyMMdd");  //当天的日期
if(datas!=null && datas.size()>0){
   for(var iter = datas.iterator();iter.hasNext();){
        var doc = iter.next();
                i+=1;
   }
}
rtn+=date;
if(i<10)                                           //控制后四位数显示的格式
    value="000";
    else if(10<=i<100)
        value="00";
        else
           value="0";
rtn+=value;
rtn+=i;
rtn;