入库close算法片段.txt

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

flag=0 
如果ruku没有到底就
    select kucun
    如果kucun没有到底就
        判断ruku.物资编号是否等于kucun.物资编号，如果是就       //有此物资
            go top						//kucun游标置顶，继续找ruku的下一条记录
            exit
        否则
            kucun游标指象下一个记录
	    判断kucun游标是否到底，如果是			//kucun里没这个物资
		 flag=1						//未知标志为真
		 select ruku
                 ruku游标置底					//不必继续找了				
                 提示有未知物资
		 exit
            结束判断
    结束循环
    select ruku
    ruku游标指向下一个记录
结束循环
当flag=0时就
	select ruku
	如果ruku没有到底
		select kucun
		如果kucun没有到底
			判断ruku.物资编号是否等于kucun.物资编号，如果是就
				replace kucun.价格 with (kucun.金额+ruku.金额)/(kucun.库存量+ruku.入库数量), kucun.库存量 with kucun.库存量+ruku.入库数量, kucun.金额 with ruku.金额+kuncun.金额
				go top
				exit
			否则
				kucun游标指向下一个记录
			结束判断
		结束循环
		select ruku
		ruku游标指向下一个记录
	结束循环
	select ruku
	清空ruku表
结束判断