车间化工原料消耗code.txt

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

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

*把dwdh中数据导入chejianfeiyong
if int(val(selemonth))>0 and int(val(selemonth))<13 



	chukuyear=year(chukuhz.出库日期)
	chukumonth=month(chukuhz.出库日期)

*计算氯碱车间原料消耗	
	*首先把符合条件huagongyuanliao中没有的物资名称输入进去
	select chukuhz
	go top
	flag=0
	do while !eof()		
		if int(val(seleyear))=chukuyear and int(val(selemonth))=chukumonth
			if chukuhz.领料单位="氯碱车间"
				if chukuhz.仓库="原料仓库"
					flag=0
					select huagongyuanliao
					go top
					do while !eof()
						if huagongyuanliao.氯碱车间=chukuhz.物资名称
							flag=1
							exit
						else
							skip
						endif
					enddo
					if flag=0
						select huagongyuanliao
						go top
						do while !eof()
							if  len(alltrim(huagongyuanliao.氯碱车间))=0
								replace huagongyuanliao.氯碱车间 with chukuhz.物资名称
								exit
							endif
							skip
						enddo
						if eof()
							append blank
							replace huagongyuanliao.氯碱车间 with chukuhz.物资名称
						endif
					endif
				endif
			endif
		endif
		select chukuhz
		skip
	enddo
	*输入数据
	select huagongyuanliao
	go top
	do while !eof()
		select chukuhz
		go top
		do while !eof()
			if int(val(seleyear))=chukuyear and int(val(selemonth))=chukumonth
				if chukuhz.领料单位="氯碱车间"
					if chukuhz.仓库="原料仓库"
						if chukuhz.物资名称=huagongyuanliao.氯碱车间
							select huagongyuanliao
							replace huagongyuanliao.氯碱车间 with chukuhz.物资名称,huagongyuanliao.计量单位 with chukuhz.计量单位,huagongyuanliao.价格 with chukuhz.价格,huagongyuanliao.数量 with huagongyuanliao.数量+chukuhz.出库数量,huagongyuanliao.金额 with huagongyuanliao.金额+chukuhz.出库金额
						endif
					endif
				endif
			endif
			select chukuhz
			skip
		enddo
		select huagongyuanliao
		skip
	enddo

*计算助剂车间原料消耗
	*最变态的任务造成了最变态的算法：：：：：把符合条件huagongyuanliao中没有的物资名称输入进去
	select chukuhz
	go top
	flag=0
	do while !eof()		
		if int(val(seleyear))=chukuyear and int(val(selemonth))=chukumonth
			if chukuhz.领料单位="助剂车间"
				if chukuhz.仓库="原料仓库"
					flag=0
					select huagongyuanliao
					go top
					do while !eof()
						if huagongyuanliao.助剂车间=chukuhz.物资名称
							flag=1
							exit
						else
							skip
						endif
					enddo
					if flag=0
						select huagongyuanliao
						go top
						do while !eof()
							if  len(alltrim(huagongyuanliao.助剂车间))=0
								replace huagongyuanliao.助剂车间 with chukuhz.物资名称
								exit
							endif
							skip
						enddo
						if eof()
							append blank
							replace huagongyuanliao.助剂车间 with chukuhz.物资名称
						endif
					endif
				endif
			endif
		endif
		select chukuhz
		skip
	enddo
	*输入数据
	select huagongyuanliao
	go top
	do while !eof()
		select chukuhz
		go top
		do while !eof()
			if int(val(seleyear))=chukuyear and int(val(selemonth))=chukumonth
				if chukuhz.领料单位="助剂车间"
					if chukuhz.仓库="原料仓库"
						if chukuhz.物资名称=huagongyuanliao.助剂车间
							replace huagongyuanliao.助剂车间 with chukuhz.物资名称,huagongyuanliao.计量单位0 with chukuhz.计量单位,huagongyuanliao.价格0 with chukuhz.价格, huagongyuanliao.数量0 with huagongyuanliao.数量0+chukuhz.出库数量,huagongyuanliao.金额0 with huagongyuanliao.金额0+chukuhz.出库金额
						endif
					endif
				endif
			endif
			select chukuhz
			skip
		enddo
		select huagongyuanliao
		skip
	enddo
	dd=messagebox("提示："-seleyear-"年"-selemonth-"月份的车间车间化工原料消耗处理完毕，请立即生成excel文件并打印！在此之前请不要再次点击 运算生成初始车间化工原料消耗表 按纽！",9,"提示")
	thisform.grid2.refresh()
else
	dd=messagebox("提示：请检查您输入的日期是否合理！",9,"提示")
endif