账务处理系统凭证录入模块 第6页

Clicked! integer r_row
string r_pzh
dw_item.insertrow(0)
r_row = dw_item.getrow()
r_pzh = dw_main.getitemstring(1,"pzh")
dw_item.setitem(r_row,"zth",g_zth)
dw_item.setitem(r_row,"nkjqj",g_nkjqj)
dw_item.setitem(r_row,"ykjqj",g_ykjqj)
dw_item.setitem(r_row,"pzh",r_pzh)
cb_fw:
Clicked! dw_item.reset()
wf_fill_row() //让行数填满数据窗口
cb_sc:
Clicked! //删除当前行
integer Net,r_row,r_rowcount
r_row=dw_item.getrow()//选择当前行
Net=messagebox('提示','是否真要删除第【'+string(r_row)+'】行？',exclamation!,yesno!,2)
if Net=2 then return
dw_item.deleterow(r_row)
wf_fill_row() //让行数填满数据窗口
cb_bc:
Clicked! integer  i,r_rowcount,r,net,net1,net2
integer r_found=1,r_row
string r_zdr,r_rq,r_pzlx,r_lxbm,r_djzs,s,r_pzh,r_kmbm,r_fzhs,r_pzlx_code
decimal r_jfje,r_dfje,r_jfhj,r_dfhj

dw_main.accepttext()
dw_item.accepttext()
if  not(dw_main.modifiedcount()>0 or dw_main.deletedcount()>0 &
  or dw_item.modifiedcount()>0 or dw_item.deletedcount()>0) then return//判断数据窗口中的数据是否被更改或删除
Net = MessageBox("提示", "是否真的保存？", Exclamation!, YESNO!, 2)
IF Net = 2 THEN return

r_rowcount=dw_item.rowcount()
//判断借贷金额是否相等
if dw_item.getitemdecimal(1,'jfhj') <> dw_item.getitemdecimal(1,'dfhj') then
 messagebox('提示','借贷方金额不等，不能保存！')
 return
end if
//删除科目论文范文http://www.chuibin.com/  编码为空的所有行
for r_row=1 to r_rowcount
  r_found = dw_item.Find("isnull(km_code)", r_found, r_rowcount)
  if r_found>0 then
   dw_item.deleterow(r_found)
  end if
next
for r_row=1 to r_rowcount
  r_found = dw_item.Find("km_code=''", r_found, r_rowcount)
  if r_found>0 then
   dw_item.deleterow(r_found)

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

账务处理系统凭证录入模块 第6页下载如图片无法显示或论文不完整，请联系qq752018766