NEXT
else
r_pjts=r_ts / r_qjs - 1
dw_kjqj.reset()
FOR i=1 TO r_qjs//在dw_kjqj中插入r_qjs行
dw_kjqj.insertrow(0)
dw_kjqj.setitem(i,'zth',g_zth) //账套号
dw_kjqj.setitem(i,'ykjqj',string(i)) //月会计期间
if i=1 then
r_qsrq1= r_qsrq
else
r_qsrq1= string(RelativeDate(date(r_jsrq1),1),'yyyy-mm-dd')
end if
if i=r_qjs then
r_jsrq1= r_jsrq
else
r_jsrq1= string(RelativeDate(date(r_qsrq1),r_pjts),'yyyy-mm-dd')
end if
dw_kjqj.setitem(i,'qsrq',r_qsrq1)
dw_kjqj.setitem(i,'jsrq',r_jsrq1)
NEXT
end if
cb_syb:
Clicked! integer r_index
cb_syb.enabled = true
cb_xyb.enabled = true
//读取目前
论文范文 的页标签并减1
r_index=tab_xjzt.SelectedTab
tab_xjzt.SelectedTab= r_index - 1
//第一页时上一步按钮不可用
if r_index - 1 = 1 then
cb_syb.enabled = false
end if
cb_xyb:
Clicked! integer r_index
cb_syb.enabled = true
cb_xyb.enabled = true
//读取目前的页标签并加1
r_index=tab_xjzt.SelectedTab
tab_xjzt.SelectedTab= r_index + 1
//末页时下一步按钮不可用
if r_index + 1 = 5 then
cb_xyb.enabled = false
end if
cb_wc:
Clicked! string r_zth, r_ztmc,r_hyxz,r_bwbmc,r_bwbbm,r_qyrq,r_qsrq,r_kjqj
long r_count ,r_qjs
//判断账套是否已经存在
r_zth=tab_xjzt.tabpage_ztmc.sle_zth.text
select ztmc into :r_ztmc from zz_ztxxb where zth=:r_zth;
if sqlca.sqlcode=0 then
messagebox('提示',' 【 '+r_zth+' '+r_ztmc+' 】账套已经存在，需要删除后才能重新建立！')
return
end if
//读取所有定义的信息
g_zth=tab_xjzt.tabpage_ztmc.sle_zth.text
r_ztmc=tab_xjzt.tabpage_ztmc.sle_ztmc.text //账套名称
r_hyxz=tab_xjzt.tabpage_hyxz.plb_sshy.SelectedItem() //行业
r_bwbmc=tab_xjzt.tabpage_jzbwb.ddplb_bwbmc.text //本位币名称
r_bwbbm=tab_xjzt.tabpage_jzbwb.sle_bwbbh.text //本位币
r_qjs=long(tab_xjzt.tabpage_kjqj.ddlb_qjs.text ) //期间数
r_qsrq=string(tab_xjzt.tabpage_kjqj.em_qsrq.text) //起始日期
g_nkjqj =string(tab_xjzt.tabpage_kjqj.sle_kjnd.text) //会计年度
r_qyrq =string(tab_xjzt.tabpage_kjqj.em_qyrq.text) //启用日期
//账套数据合法性检查
//账套名称不能为空
if trim(r_ztmc)='' then
messagebox('提示','账套名称不能为空，请输入！')
tab_xjzt.SelectedTab= 1
<< 上一页 [11]
账务处理系统账套设置与管理模块设计 第11页下载如图片无法显示或论文不完整，请联系qq752018766
