//删除后，更新相关的上级科目标记
r_len=len(r_km_code)
CHOOSE CASE r_len
CASE 6
select count(*) into :r_count from zz_kjkmbmb where sjkm = (substring(:r_km_code,1,3));
if r_count=0 then
update zz_kjkmbmb set mjbj_code='Y',sjkm='' where km_code=left(:r_km_code,3);
end if
CASE 9
select count(*) into :r_count from zz_kjkmbmb where sjkm=substring(:r_km_code,1,6);
if r_count=0 then
update zz_kjkmbmb set mjbj_code='Y',sjkm='' where km_code=left(:r_km_code,6);
end if
END CHOOSE
gf_zz_kjkmbm(g_zth)// 当前账套使用的会计科目编码表ZZ_KJKMBMB与所有账套使用的会计科目编码ZZ_KJKMBM表数据同步处理
3. 条件查询窗口w_tjcx，如下表2-7-8所示。
表2-7-8 窗口w_tjcx的设计说明
项 目 说 明
窗口名 w_tjcx
所在的PBL库 账务处理系统.pbl
功能 设置会计科目、科目期初余额、科目余额等的查询条件。该窗口类型为响应窗口。
父窗口 window
界面设计
窗口控件说明
控件类型 控件名 控件名称 说明
命令按钮 cb_fw &S试算 保存对数据窗口的修改
命令按钮 cb_hf &H恢复 恢复以前的设置
命令按钮 cb_qd &T退出 退出关闭窗口
数据窗口 dw_kmlb_code 科目类别
数据窗口 dw_kmxz 科目性质
下拉列表框 ddlb_mjbj 末级标记
下拉列表框 ddlb_yefx 余额方向
下拉列表框 ddlb_kmjb 科目级别
格式论文范文http://www.chuibin.com/ 编辑框 em_jefw_min 余额范围最小值
格式编辑框 em_jefw_max 余额范围最大值
单行编辑框 sle_kmbm 科目编码
单行编辑框 sle_kmmc 科目名称
选择框 cbx_sl 数量
选择框 cbx_bz 币种
选择框 cbx_dw 单位
选择框 cbx_bm 部门
选择框 cbx_zy 职员
选择框 cbx_sy 使用科目
选择框 cbx_ty 停用科目
分组框 gb_cx 条件查询分组
实例变量定义 序号 变量名 类型 说明
1 i_type String 用于保存窗口的传递参数
2 i_title String 窗口的标题
共享变量定义 序号 变量名 类型 说明
1 s_s_tjcx s_tjcx 用于传递条件查询窗口中的数据
2 s_flag boolean 记录是否是第一次进入该窗口
初始值：s_flag=true
事件 脚本
W_tjcx:
Open! i_type=message.stringparm
CHOOSE CASE i_type
CASE "zz_kjkmbmb"
i_title='会计科目'
st_je.visible=false
st_je1.visible=false
em_jefw_min.visible=false
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页