生成月仓库资金占用算法.txt

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

*先到cangku中找资金定额，再到ruku根据日期计算入库，同样根据日期到出库中找厂内出库和外销，
*计算当月结存(当月结存=(上月结存+本月入库)-(厂内出库-外销))。计算超+低-(资金定额-当月结存)。完

*更新资金定额
select zijinzhanyong
如果zijinzhanyong没到底
	select cangku
	go top
	如果cangku没有到底
		判断zijinzhanyong.库名是否等于cangku.库名，如果等于
			令zijinzhanyong.资金定额=cangku.资金定额，
			cangku游标置顶
			exit
		否则
			cangku游标指向下一个
		结束判断
	结束循环
	select zijinzhanyong
	zijinzhanyong游标指向下一个
结束循环

*更新上月结存
select zijinzhanyong
go top
如果zijinzhanyong没有到底
	zijinzhanyong.上月结存=zijinzhanyong.当月结存
结束循环


*更新本月入库
select zijinzhanyong
go top
如果zijinzhanyong没有到底
	select rukuhz
	go top
	如果rukuhz没有到底
		判断zijinzhanyong的年份是否等于rukuhz的年份或者等于rukuhz年份-1,如果是
			判断zijinzhanyong的月份加1与12取模后是否等于rukuhz的月份，如果是
				判断rukuhz.仓库是否等于zijinzhanyong.库名，如果是
					zijinzhanyong.本月入库+=rukuhz.入库金额
				结束判断
			结束判断
		结束判断
		rukuhz游标指向下一个
	结束循环
	select zijinzhanyong
	zijinzhanyong游标指向下一个
结束循环



*更新本月厂内出库和外销
select zijinzhanyong
go top
如果zijinzhanyong没有到底
	select chukuhz
	go top
	如果chukuhz没有到底
		判断zijinzhanyong的年份是否等于chukuhz的年份或者等于chukuhz年份-1,如果是
			判断zijinzhanyong的月份加1与12取模后是等于chukuhz的月份，如果是
				判断chukuhz.仓库是否等于zijinzhanyong.库名，如果是
					判断chukuhz.出库类别是否等于厂内出库，如果是
						zijinzhanyong.厂内出库+=chukuhz.出库金额
					否则
						判断chukuhz.出库类别是否等于外销,如果是
							zijinzhanyong.外销+=chukuhz.出库金额
						结束判断
					结束判断
				结束判断
			结束判断
		结束判断
		chukuhz游标指向下一个
	结束循环
	select zijinzhanyong
	zijinzhanyong游标指向下一个
结束循环
	



*更新当月结存和超+低-和日期
select zijinzhanyong
go top
如果zijinzhanyong没有到底
	zijinzhanyong.当月结存=((zijinzhanyng.上月结存+zijinzhanyong.本月入库)-(zijinzhanyong.厂内出库-zijinzhanyong.外销))
	zijinzhanyong.超+低-=(zijinzhanyong.资金定额-zijinzhanyong.当月结存)
	判断zijinzhanyong.日期的月加一是否=13，如果是
		zijinzhanyong.日期的年+1，zijinzhanyong.日期的月=1
	否则
		zijinzhanyong.日期的月+1
	结束判断
	zijinzhanyong的游标指向下一个
结束循环
dd=messagebox("提示："+zijinzhanyong.年+"年"+zijinzhanyong.月+"月份的仓库资金占用台帐处理完毕，请立即生成excel文件并打印！",9,"提示")