end if
//判断输入
论文范文http://www.chuibin.com/ 的科目是否为末级科目
select mjbj_code into :r_mjbj from zz_kjkmbmb where zth=:g_zth and km_code=:r_km_code;
if r_mjbj='N' then
messagebox('提示','科目编码为非末级，请输入末级科目编码!')
dw_item.setitem(r_row,'km_code','')
return 1
end if
//科目不能重复输入
i = 1
r_count= dw_item.rowcount()
do while i <= r_count
if not i = r_row then
r_km_code_r = this.getitemstring(i,"km_code")
if r_km_code = r_km_code_r then
messagebox("提示",r_km_code_r+"科目在此凭证中已经使用，不能重复输入")
this.setitem(r_row,"km_code"," ")
return 1
end if
end if
i = i + 1
loop
//复制上一行的摘要
if r_row>1 then
r_zy=this.getitemstring(r_row - 1,'zy')
this.setitem(r_row,'zy',r_zy)
end if
CASE 'jfje'
this.setitem(r_row,"dfje",0)//同一行只能输入借方或贷方金额，不能同时输入
CASE 'dfje'
this.setitem(r_row,"jfje",0)
END CHOOSE
dw_item
itemerror! return 1
dw_item:
Clicked! if row>0 then
this.selectrow(0,false)
this.selectrow(row,true)
end if
cb_zjpz:
Clicked! integer r_row
string r_pzh
dw_main.reset()
dw_item.reset()
r_row=dw_main.insertrow(0)
//初始默认值
dw_main.setitem(r_row,'rq',g_rq) //日期
dw_main.setitem(r_row,'zdr',g_id) //制单人
dw_main.setitem(r_row,'zdrq',g_rq) //制单日期
dw_main.setitem(r_row,'shbj','N') //审核标记
dw_main.setitem(r_row,'jzbj','N') //记账标记
dw_main.setitem(r_row,'pzlx_code','转')//凭证类型
r_pzh=gf_pzh(g_zth,g_nkjqj,g_ykjqj,'转') //根据凭证类型自动产生凭证号
dw_main.setitem(r_row,'pzh',r_pzh)
wf_fill_row() //让行数填满数据窗口cb_zjh :
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
账务处理系统凭证录入模块 第5页下载如图片无法显示或论文不完整，请联系qq752018766
