入库close代码（检验并更新库存表片段）.txt

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

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

if flag=0
	select kucun
	go top
	select ruku
	go top
	do while !eof()
		select kucun
		go top
		do while !eof()
			if ruku.物资编号=kucun.物资编号
				replace kucun.价格 with (kucun.金额+ruku.入库金额)/(kucun.库存量+ruku.入库数量), kucun.库存量 with kucun.库存量+ruku.入库数量, kucun.金额 with ruku.入库金额+kucun.金额
				select rukuhz
				append blank
				replace rukuhz.入库日期 with ruku.入库日期, rukuhz.物资编号 with ruku.物资编号, rukuhz.物资名称 with ruku.物资名称, rukuhz.规格型号 with ruku.规格型号, rukuhz.类别 with ruku.类别, rukuhz.计量单位 with ruku.计量单位, rukuhz.入库数量 with ruku.入库数量, rukuhz.价格 with ruku.价格, rukuhz.入库金额 with ruku.入库金额, rukuhz.采购人 with ruku.采购人, rukuhz.验收人 with ruku.验收人, rukuhz.供货单位 with ruku.供货单位, rukuhz.产地 with ruku.产地, rukuhz.仓库 with ruku.仓库, rukuhz.仓库编号 with ruku.仓库编号, rukuhz.运杂费 with ruku.运杂费, rukuhz.存放地点 with ruku.存放地点, rukuhz.备注 with ruku.备注, rukuhz.入库类别 with ruku.入库类别
				*insert into rukuhz (入库日期,物资编号,物资名称,规格型号,类别,计量单位,入库数量,价格,入库金额,采购人,验收人,供货单位,产地,仓库,仓库编号,运杂费,存放地点,备注,入库类别); values (ruku.入库日期,ruku.物资编号,ruku.物资名称,ruku.规格型号,ruku.类别,ruku.计量单位,ruku.入库数量,ruku.价格,ruku.入库金额,ruku.采购人,ruku.验收人,ruku.供货单位,ruku.产地,ruku.仓库,ruku.仓库编号,ruku.运杂费,ruku.存放地点,ruku.备注,ruku.入库类别)
				select kucun
				go top
				exit
			else
				skip
			endif
		enddo
		select ruku
		skip
	enddo
	select ruku
	zap
	pack
endif
thisform.release