return 1
end if
this.setitem(r_found,'mjbj_code','N')
end if
select count(*) into :r_count from zz_kjkmbmb where zth=:g_zth and km_code=substring(:r_km_code,1,3);
if not r_count > 0 then
//判断当前的数据窗口中是否存在上级科目
r_found = this.Find("km_code = '" +mid(r_km_code,1,3)+"'", 1, this.RowCount())
if not r_found>0 then
messagebox('提示',"无一级科目"+left(r_km_code,3))
this.setitem(r_row,'km_code','')
return 1
end if
this.setitem(r_found,'mjbj_code','N')
end if
this.setitem(r_row,'mjbj_code','Y')
CASE ELSE
END CHOOSE
//6 科目类别与性质必须与科目编码相匹配
// 插入科目类别
r_bit= left (r_km_code,1)
CHOOSE CASE r_bit
CASE '1'
this.setitem(r_row,'kmlb_code','1')
this.setitem(r_row,'yefx_code','借')
CASE '2'
this.setitem(r_row,'kmlb_code','2')
this.setitem(r_row,'yefx_code','贷')
CASE '3'
this.setitem(r_row,'kmlb_code','3')
this.setitem(r_row,'yefx_code','贷')
CASE '4'
this.setitem(r_row,'kmlb_code','4')
this.setitem(r_row,'yefx_code','借')
CASE '5'
this.setitem(r_row,'kmlb_code','5')
this.setitem(r_row,'yefx_code','') //不确定
CASE ELSE
messagebox('提示','科目编码的第一位必须为1至5的数字!')
this.setitem(r_row,'km_code','')
return 1
END CHOOSE
//科目性质
r_bit= left (r_km_code,3)
CHOOSE CASE r_bit
CASE '101'
this.setitem(r_row,'kmxz_code','01')
CASE '102'
this.setitem(r_row,'kmxz_code','02')
CASE '123','137'
this.setitem(r_row,'kmxz_code','05')
CASE ELSE
this.setitem(r_row,'kmxz_code','06')
END CHOOSE
CASE ELSE
return
END CHOOSE
dw_km_free:
itemerror! return 1
dw_km_table:
clicked! //点击选中的行高
论文范文http://www.chuibin.com/ 亮度显示
if row>0 then
this.setrow(row)
this.selectrow(0,false)
this.selectrow(row,true)
dw_km_free.ScrollToRow(row)
gf_dw_count(this,sle_count) //在sle_count.text中显示行数
end if
dw_km_table:
itemchanged! string r_colname,r_km_code,r_km_code1,r_bm1,r_bm2,r_bm3, r_bit,r_sjkm
integer r_row,r_cd,r_count,i,r_found
string r_sl_fzhs,r_bz_fzhs,r_dw_fzhs,r_bm_fzhs,r_zy_fzhs,r_sybj,r_tybj
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页
账务处理系统会计科目输入模块 第7页下载如图片无法显示或论文不完整,请联系qq752018766