生成材料消耗表算法.txt

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

*seleyear是用户输入的年
*selemonth是用户输入的月

*把dwdh中数据导入cailiaoxiaohao
select dwdh
go top
do while !eof()
	select cailiaoxiaohao
	append blank
	replace cailiaoxiaohao.领料帐号 with dwdh.领料帐号,cailiaoxiaohao.领料单位 with dwdh.领料单位
	select dwdh
	skip
enddo


*计算材料消耗
chukuyear=year(chukuhz.出库日期)
chukumonth=month(chukuhz.出库日期)
select cailiaoxiaohao
go top
do while !eof()
	select chukuhz
	go top
	do while !eof()
		if int(val(seleyear))=chukuyear and int(val(selemonth))=chukumonth
			if cailiaoxiaohao.领料帐号=chukuhz.领料帐号
				if chukuhz.仓库="五金仓库"
					replace cailiaoxiaohao.五金仓库 with (cailiaoxiaohao.五金仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="阀门仓库"
					replace cailiaoxiaohao.阀门仓库 with (cailiaoxiaohao.阀门仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="电器仓库"
					replace cailiaoxiaohao.电器仓库 with (cailiaoxiaohao.电器仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="仪表仓库"
					replace cailiaoxiaohao.仪表仓库 with (cailiaoxiaohao.仪表仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="仪器仓库"
					replace cailiaoxiaohao.仪器仓库 with (cailiaoxiaohao.仪器仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="建材仓库"
					replace cailiaoxiaohao.建材仓库 with (cailiaoxiaohao.建材仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="劳保仓库"
					replace cailiaoxiaohao.劳保仓库 with (cailiaoxiaohao.劳保仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="原料仓库"
					replace cailiaoxiaohao.原料仓库 with (cailiaoxiaohao.原料仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="钢材仓库"
					replace cailiaoxiaohao.钢材仓库 with (cailiaoxiaohao.钢材仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="油品仓库"
					replace cailiaoxiaohao.油品仓库 with (cailiaoxiaohao.油品仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="气体仓库"
					replace cailiaoxiaohao.气体仓库 with (cailiaoxiaohao.气体仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="设备仓库"
					replace cailiaoxiaohao.设备仓库 with (cailiaoxiaohao.设备仓库+chukuhz.出库金额)
				endif
				if chukuhz.仓库="汽配仓库"
					replace cailiaoxiaohao.汽配仓库 with (cailiaoxiaohao.汽配仓库+chukuhz.出库金额)
				endif
			endif
		endif
		select chukuhz
		skip
	enddo
	select cailiaoxiaohao
	skip
enddo


dd=messagebox("提示："+seleyear+"年"+selemonth+"月份的材料消耗汇总处理完毕，请立即生成excel文件并打印！",9,"提示")