DataWindowChild dwc
integer rtncode
//具有DropDownDW编辑风格、值需动态改变的字段的名称
rtncode = dw_item.GetChild("km_code", dwc)
IF rtncode = -1 THEN MessageBox( "提示", "Not a DataWindowChild")
CONNECT USING SQLCA;
// 设置子数据窗口的事物对象
dwc.SetTransObject(SQLCA)
//子数据窗口的检索值
dwc.Retrieve(g_zth)
cb_zjpz.triggerevent(clicked!)
dw_main:
itemchanged! string r_colname,r_pzlx,r_pzh
dw_main.accepttext()
r_colname=this.getcolumnname()
CHOOSE CASE r_colname
CASE 'pzlx_code'
r_pzlx=dw_main.getitemstring(1,'pzlx_code')
r_pzh=gf_pzh(g_zth,g_nkjqj,g_ykjqj,r_pzlx) //根据凭证类型自动产生凭证号
dw_main.setitem(1,'pzh',r_pzh)
CASE ELSE
return
END CHOOSE
dw_main
itemerror! return 1
dw_item:
itemchanged! string r_km_code,r_mjbj,r_colname,r_km_code_r
long r_row,r_count,i
dec r_jfje,r_dfje
string r_zy
r_row=dw_item.getrow()
if not r_row>0 then return
r_colname=dw_item.getcolumnname()
dw_item.accepttext()
CHOOSE CASE r_colname
CASE 'km_code'
r_km_code=dw_item.getitemstring(r_row,'km_code')
//判断输入的科目编码是否在该账套中存在
select count(*) into :r_count from zz_kjkmbmb where zth=:g_zth and km_code=:r_km_code;
if r_count =0 then
messagebox('提示','输入的科目编码不存在!')
dw_item.setitem(r_row,'km_code','') return 1
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
账务处理系统凭证录入模块 第4页下载如图片无法显示或论文不完整，请联系qq752018766
