[课程]经费支出明细菜单

[课程]经费支出明细菜单[课程]经费支出明细菜单经费支出明细菜单 let &year=getint("请输入[ 年份 ]:") while &year2099 let &disp=str(&year) disp "[ 年 ] 错误",&disp let &year=getint("请输入[ 年份] :") end let &month=getint("请输入[ 月份 ]:") while &month12 let &disp=str(&month) disp "[ 月 ] 错误", &disp let &month=ge...

[课程]经费支出明细菜单经费支出明细菜单 let &year=getint("请输入[ 年份 ]:") while &year<1999 or &year>2099 let &disp=str(&year) disp "[ 年 ] 错误",&disp let &year=getint("请输入[ 年份] :") end let &month=getint("请输入[ 月份 ]:") while &month<1 or &month>12 let &disp=str(&month) disp "[ 月 ] 错误", &disp let &month=getint("请输入[ 月份 ]:") end let &day=getint("请输入[ 日期 ]:") while &day<25 or &day>31 let &disp=str(&date) disp "[ 日期 ] 错误", &disp let &day=getint("请输入[ 日期 ]:") end let &bmbh=getstr("请输入[ 帐套号 ]:") open repo "c:\财政报表\rep\单位目录.rep" let &line=1 let &bmbh1=a#&line while &bmbh1<>"999" if &bmbh1<>&bmbh let &line=&line+1 let &bmbh1=a#&line else break end end if &bmbh1="999" disp "找不到该帐套号" close else let &bmmc=b#&line let &bh=a#&line let &zt=&bh let &bmsx=c#&line let &rep= "c:\财政报表\rep\经费支出明细表一.rep" open repo &rep dele for 年=&year and 月=&month and 单位名称=&bmmc save append setpage 1000 let 年=&year let 月=&month let 日=&day let 单位编号=&bh let 单位名称=&bmmc //let aM3=str(&year)+"年"+str(&month)+"月" //let at69=str(&year)+"年"+str(&month)+"月"+str(&day)+"日" do "c:\财政报表\shl\经费支出.shl" save open repo &rep find for 年=&year and 月=&month and 单位名称=&bmmc let &rep= "c:\财政报表\rep\经费支出明细表二.rep" open repo &rep dele for 年=&year and 月=&month and 单位名称=&bmmc save append setpage 1000 let 年=&year let 月=&month let 日=&day let 单位编号=&bh let 单位名称=&bmmc //let aM3=str(&year)+"年"+str(&month)+"月" //let at69=str(&year)+"年"+str(&month)+"月"+str(&day)+"日" do "c:\财政报表\shl\经费支出.shl" save open repo &rep find for 年=&year and 月=&month and 单位名称=&bmmc let &rep= "c:\财政报表\rep\经费支出明细表三.rep" open repo &rep dele for 年=&year and 月=&month and 单位名称=&bmmc save append setpage 1000 let 年=&year let 月=&month let 日=&day let 单位编号=&bh let 单位名称=&bmmc //let aM3=str(&year)+"年"+str(&month)+"月" //let at69=str(&year)+"年"+str(&month)+"月"+str(&day)+"日" do "c:\财政报表\shl\经费支出.shl" save open repo &rep find for 年=&year and 月=&month and 单位名称=&bmmc let &rep= "c:\财政报表\rep\经费支出明细表四.rep" open repo &rep dele for 年=&year and 月=&month and 单位名称=&bmmc save append setpage 1000 let 年=&year let 月=&month let 日=&day let 单位编号=&bh let 单位名称=&bmmc //let aM3=str(&year)+"年"+str(&month)+"月" //let at69=str(&year)+"年"+str(&month)+"月"+str(&day)+"日" do "c:\财政报表\shl\经费支出.shl" save open repo &rep find for 年=&year and 月=&month and 单位名称=&bmmc let &rep= "c:\财政报表\rep\经费支出明细表五.rep" open repo &rep dele for 年=&year and 月=&month and 单位名称=&bmmc save append setpage 1000 let 年=&year let 月=&month let 日=&day let 单位编号=&bh let 单位名称=&bmmc //let aM3=str(&year)+"年"+str(&month)+"月" //let at69=str(&year)+"年"+str(&month)+"月"+str(&day)+"日" do "c:\财政报表\shl\经费支出.shl" save open repo &rep find for 年=&year and 月=&month and 单位名称=&bmmc end disp "计算完毕～" free all

                    本文档为【[课程]经费支出明细菜单】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

[课程]经费支出明细菜单

你可能还喜欢