生成材料消耗excel算法.txt

为某集团公司物资管理系统,包括进出库,库存管理,功能齐全,使用

nian=alltrim(seleyear)-"年"
yue=alltrim(selemonth)-"月"
dd=messagebox("提示：您要生成"+alltrim(seleyear)+"年"+alltrim(selemonth)+"月份的材料消耗汇么，如果不是请在左方输入正确的月份！",4,"提示")
if dd=6
	eole=CREATEOBJECT('Excel.application')
	eole.Workbooks.Open("D:\befar\excel\材料消耗汇总表.xls")

	*向月材料消耗汇总表\材料消耗汇总表.xls中写入数据
	*eole.cells(AA,9).value=zijinzhanyong.备注

	eole.cells(2,7).value=nian
	eole.cells(2,8).value=yue
	row=4
	select cailiaoxiaohao
	go top
	do while !eof()
		eole.cells(row,1).value=cailiaoxiaohao.领料帐号
		eole.cells(row,2).value=cailiaoxiaohao.领料单位
		eole.cells(row,3).value=cailiaoxiaohao.五金仓库
		eole.cells(row,4).value=cailiaoxiaohao.阀门仓库
		eole.cells(row,5).value=cailiaoxiaohao.电器仓库
		eole.cells(row,6).value=cailiaoxiaohao.仪表仓库
		eole.cells(row,7).value=cailiaoxiaohao.仪器仓库
		eole.cells(row,8).value=cailiaoxiaohao.建材仓库
		eole.cells(row,9).value=cailiaoxiaohao.劳保仓库
		eole.cells(row,10).value=cailiaoxiaohao.原料仓库
		eole.cells(row,11).value=cailiaoxiaohao.钢材仓库
		eole.cells(row,12).value=cailiaoxiaohao.油品仓库
		eole.cells(row,13).value=cailiaoxiaohao.气体仓库
		eole.cells(row,14).value=cailiaoxiaohao.设备仓库
		eole.cells(row,15).value=cailiaoxiaohao.汽配仓库
		skip
	enddo
	eole.cells(2,14).value=dtoc(date())

	*修改并保存
	eole.ActiveWorkbook.SaveAs("d:\befar\月材料消耗汇总表\"-seleyear-"年"-selemonth-"月材料消耗汇总表.xls")
	eole.Workbooks.close
	eole.quit


	*保存cailiaoxiaohao数据到cailiaoxiaohaohz
	select cailiaoxiaohao
	go top
	do while !eof()
		select cailiaoxiaohaohz
		append blank
		replace cailiaoxiaohaohz.领料帐号 with cailiaoxiaohao.领料帐号,cailiaoxiaohaohz.领料单位 with cailiaoxiaohao.领料单位,cailiaoxiaohaohz.五金仓库 with cailiaoxiaohao.五金仓库,cailiaoxiaohaohz.阀门仓库 with cailiaoxiaohao.阀门仓库,cailiaoxiaohaohz.电器仓库 with cailiaoxiaohao.电器仓库,cailiaoxiaohaohz.仪表仓库 with cailiaoxiaohao.仪表仓库,cailiaoxiaohaohz.仪器仓库 with cailiaoxiaohao.仪器仓库,cailiaoxiaohaohz.建材仓库 with cailiaoxiaohao.建材仓库,cailiaoxiaohaohz.劳保仓库 with cailiaoxiaohao.劳保仓库,cailiaoxiaohaohz.原料仓库 with cailiaoxiaohao.原料仓库,cailiaoxiaohaohz.钢材仓库 with cailiaoxiaohao.钢材仓库,cailiaoxiaohaohz.油品仓库 with cailiaoxiaohao.油品仓库,cailiaoxiaohaohz.气体仓库 with cailiaoxiaohao.气体仓库,cailiaoxiaohaohz.设备仓库 with cailiaoxiaohao.设备仓库,cailiaoxiaohaohz.汽配仓库 with cailiaoxiaohao.汽配仓库
		select cailiaoxiaohao
		skip 
	enddo
	
	*删除cailiaoxiaohao
	select cailiaoxiaohao
	zap

	thisform.command2.visible=.t.


	*打开并修改
	eole=CREATEOBJECT('Excel.application')
	eole.Workbooks.Open("d:\befar\月材料消耗汇总表\"-seleyear-"年"-selemonth-"月材料消耗汇总表.xls")
	eole.visible=.t.
	
endif