if sqlca.sqlcode=0 then
sle_bwbbh.text=r_bwbbh
else
sle_bwbbh.text='01'
end if
tab_xjzt.tabpage_jzbwb. sle_bwbbh:
Modified! string r_bwbmc,r_bwbbh
r_bwbbh=sle_bwbbh.text
select distinct bb_name into :r_bwbmc from c_zz_bb where bb_code=:r_bwbbh;
if sqlca.sqlcode=0 then
ddplb_bwbmc.text=r_bwbmc
else
ddplb_bwbmc.text='人民币'
sle_bwbbh.text='01'
end if
tab_xjzt.tabpage_kjqj.cb_kyqjjs:
Clicked! integer r_qjs,i,r,r_ts,r_pjts
string r_qsrq,r_jsrq,r_qsrq1,r_jsrq1,r_year
g_zth=tab_xjzt.tabpage_ztmc.sle_zth.text
r_qjs=integer(ddlb_qjs.text) //期间数
r_qsrq=em_qsrq.text //开始日期
r_jsrq=em_jsrq.text //结束日期
r_ts=DaysAfter ( date(r_qsrq), date(r_jsrq)) + 1
if r_qjs>r_ts then
messagebox('提示','期间数大于间隔天数！请重新设定！')
return
end if
if r_qjs=12 and mid(r_qsrq,6,5)='01-01' and mid(r_jsrq,6,5)='12-31' then
r_year=mid(r_qsrq,1,5)
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)) //月会计期间
r_qsrq1=r_year+string(i)+'-01'
CHOOSE CASE i
CASE 1,3,5,7,8,10,12
r_jsrq1=r_year+string(i)+'-31'
CASE 4,6,9,11
r_jsrq1=r_year+string(i)+'-30'
CASE ELSE
if mod(year(date(r_qsrq)),4)=0 then
r_jsrq1=r_year+string(i)+'-29'
else
r_jsrq1=r_year+string(i)+'-28'
end if
END CHOOSE
dw_kjqj.setitem(i,'qsrq',string(date(r_qsrq1),'yyyy-mm-dd'))
dw_kjqj.setitem(i,'jsrq',string(date(r_jsrq1),'yyyy-mm-dd'))
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
账务处理系统账套设置与管理模块设计 第10页下载如图片无法显示或论文不完整，请联系qq752018766
