select min(nkjqj) into :r_nkjqj from zz_kmyeb where zth=:g_zth;
if isnull(r_nkjqj) then
messagebox('提示',' 【 '+g_zth+' 】账套号目前无期初余额！请先进行科目余额初始！')
close(this)
return
end if
select min(ykjqj) into :r_ykjqj_min from zz_kmyeb where zth=:g_zth and nkjqj=:r_nkjqj;
em_nkjqj.text=r_nkjqj
em_ykjqj_min.text=r_ykjqj_min
em_ykjqj_max.text=r_ykjqj_min
em_nkjqj.enabled=false
em_ykjqj_min.enabled=false
em_ykjqj_max.enabled=false
CASE "zz_kmyeb"
dw_km.dataobject="dw_zz_kjkmbmb_kmyeb_grid_r"
dw_km_free.dataobject="dw_zz_kjkmbmb_kmyeb_free"
em_nkjqj.text=g_nkjqj
em_ykjqj_min.text=g_ykjqj
em_ykjqj_max.text=g_ykjqj
i_title='会计科目余额表'
CASE ELSE
return
END CHOOSE
this.title=i_title + '查询'
dw_km.settransobject(sqlca)
dw_km_free.settransobject(sqlca)
dw_km.Object.DataWindow.ReadOnly="Yes"
dw_km_free.Object.DataWindow.ReadOnly="Yes"
dw_km_free.visible=false
dw_km.sharedata(dw_km_free)
//数据窗口大小相同
dw_km_free.x=dw_km.x
dw_km_free.y=dw_km.y
dw_km_free.width=dw_km.width
dw_km_free.height=dw_km.height
dw_km:
Clicked! i_row=row
if not i_row>0 t
论文范文http://www.chuibin.com/ hen return
this.setrow(i_row)
IF row>0 THEN
this.selectrow(0,FALSE)
this.selectrow(i_row,TRUE)
END IF
gf_dw_count(this,sle_count)
dw_km:
Doubleclicked! i_row=row
if not i_row>0 then return
this.setrow(i_row)
dw_km_free.ScrollToRow ( i_row )
dw_km_free.visible=true
gf_dw_count(this,sle_count)
dw_km_free:
Doubleclicked! this.visible=false
em_nkjqj:
modified! cb_fw.TriggerEvent(Clicked!)
em_ykjqj_min:
modified! cb_fw.TriggerEvent(Clicked!)
em_ykjqj_max:
modified! cb_fw.TriggerEvent(Clicked!)
cb_cx:
Clicked! string r_nkjqj,r_ykjqj_min,r_ykjqj_max
r_nkjqj= em_nkjqj.text+'%'
r_ykjqj_min= em_ykjqj_min.text
r_ykjqj_max= em_ykjqj_max.text
OpenWithParm(w_tjcx , i_type)
i_s_tjcx=message.PowerObjectParm
wf_retrieve(r_nkjqj,r_ykjqj_min,r_ykjqj_max) //检索数据
cb_fw:
Clicked! dw_km.reset()
sle_count.text=''
st_tip.text=''
cb_tc:
Clicked! close(parent)
2. 会计科目余额修改窗口w_kmyeb_cx_xg，如下表2-8-5所示。
表2-8-5 窗口w_kmyeb_cx_xg的设计说明
项 目 说 明
窗口名 w_kmyeb_cx _xg
所在的PBL库 账务处理系统.pbl
功能 会计科目删除与修改
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
账务处理系统会计科目初始余额管理模块 第6页下载如图片无法显示或论文不完整，请联系qq752018766
