this.selectrow(0,false)
this.selectrow(r_row,true)
gf_dw_count(this,sle_count)//在sle_count.text中显示行数
end if
dw_km:
itemerror! return 1
cb_cx:
Clicked!
【扩展父脚本】 if dw_km.rowcount()=0 then
//如果没有数据,则不可用
cb_sc.enabled=false
cb_bc.enabled=false
else
//根据查询条件,控制删除与修改操作
if i_s_tjcx.sybj_code='Y' then //科目已经使用,不能在进行删除与修改
cb_sc.enabled=false
cb_bc.enabled=true
else
cb_sc.enabled=true
cb_bc.enabled=true
end if
end if
cb_bc:
Clicked! integer rtn,Net
dw_km.accepttext()
dw_km_free.accepttext()
if not (dw_km.modifiedcount()>0 or dw_km.deletedcount()>0 ) then return//判断数据窗口中的数据是否被更改或删除
Net=messagebox('提示','是否真的保存?',exclamation!,yesno!,2)
if Net=2 then return
rtn=dw_km.update()
if rtn=1 then
commit using sqlca;
gf_zz_kjkmbm(g_zth)// 当前账套使用的会计科目编码表ZZ_KJKMBMB与所有账套使用的会计科目编码ZZ_KJKMBM表数据同步处理
messagebox('提示','保存成功!')
wf_retrieve() //检索数据
if dw_km_free.visible=true then
dw_km.setrow(i_row)
dw_km_free.ScrollToRow ( i_row )
gf_dw_count(dw_km,sle_count)
end if
else
rollback using sqlca;
messagebox('提示','保存失败!')
end if
cb_sc:
Clicked! integer Net,r_row,r_len,r_count
string r_km_code,r_mjbj,r_sybj_code
//判断会计科目是否能删除
dw_km.accepttext()
dw_km.selectrow(0,false)
r_row=dw_km.getrow()
if r_row= 0 then return
dw_km.selectrow(r_row,true)
r_row=dw_km.getrow()
r_km_code=dw_km.getitemstring(r_row,'km_code')
select mjbj_code into :r_mjbj from zz_kjkmbmb where km_code=:r_km_code;
if r_mjbj='N' then
messagebox('提示','会计科目【'+r_km_code+'】为非末级科目,不能删除!')
return
end if
net=messagebox('提示','是否真要删除会计科目【 '+r_km_code+' 】并保存?',exclamation!,yesno!,2)
if net=2 then return
select sybj_code into :r_sybj_code from zz_kjkmbmb where zth=:g_zth and km_code=:r_km_code;
if r_sybj_code='Y' then
messagebox('提示','会计科目【 '+r_km_code+' 】已经使用,不能删除!') return
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
账务处理系统会计科目查询修改模块 第6页下载如图片无法显示或论文不完整,请联系qq752018766