出库close代码（检验是否有错，并更新库存）.txt

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

pack
flag=0
select chuku
go top
do while !eof()
	select kucun
	go top
	do while !eof()
		if chuku.物资编号=kucun.物资编号
			go top
			exit
		else
			skip
			if eof()
				flag=1
				select chuku
				go bottom
				dd=messagebox("入库单里含有数据库中还没有的物资，编号为"+chuku.物资编号+"物资名为"+chuku.物资名称+"，请先添加！",9,"提示")
				exit
			endif
		endif
	enddo
	select chuku
	skip
enddo



if flag=0
	select kucun
	go top
	select chuku
	go top
	do while !eof()
		select kucun
		go top
		do while !eof()
			if chuku.物资编号=kucun.物资编号
					replace kucun.库存量 with kucun.库存量-chuku.出库数量, kucun.金额 with kucun.金额-chuku.出库金额
					select chukuhz
					append blank
					replace chukuhz.出库日期 with chuku.出库日期, chukuhz.物资编号 with chuku.物资编号, chukuhz.物资名称 with chuku.物资名称, chukuhz.规格型号 with chuku.规格型号, chukuhz.类别 with chuku.类别, chukuhz.计量单位 with chuku.计量单位, chukuhz.出库数量 with chuku.出库数量, chukuhz.价格 with chuku.价格, chukuhz.出库金额 with chuku.出库金额, chukuhz.仓库 with chuku.仓库, chukuhz.保管员 with chuku.保管员, chukuhz.发料人 with chuku.发料人, chukuhz.领料单位 with chuku.领料单位, chukuhz.单位负责人 with chuku.单位负责人, chukuhz.领料帐号 with chuku.领料帐号, chukuhz.领料人 with chuku.领料人, chukuhz.供货单位 with chuku.供货单位, chukuhz.产地 with chuku.产地, chukuhz.出库类别 with chuku.出库类别
					select kucun
					go top
					exit
			else
				skip
			endif
		enddo
		select chuku
		skip
	enddo
	select chuku
	zap
	pack
endif
thisform.release