库存台帐建议采购code.txt

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

eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open("D:\befar\excel\建议采购物资单.xls")
eole.cells(2,3).value=dtoc(date())

*计算建议采购物资并向建议采购单中写入数据
select kucun
go top
lie=4
do while !eof()
	if (kucun.库存量-kucun.储备数量)<=0
		eole.cells(lie,1).value=kucun.储备数量-kucun.储备数量
		eole.cells(lie,2).value=kucun.物资编号
		eole.cells(lie,3).value=kucun.物资名称
		eole.cells(lie,4).value=kucun.规格型号
		eole.cells(lie,5).value=kucun.类别
		eole.cells(lie,6).value=kucun.计量单位
		eole.cells(lie,7).value=kucun.价格
		eole.cells(lie,8).value=kucun.库存量
		eole.cells(lie,9).value=kucun.金额
		eole.cells(lie,10).value=kucun.储备金额
		eole.cells(lie,11).value=kucun.储备数量
		eole.cells(lie,12).value=kucun.仓库
		eole.cells(lie,13).value=kucun.备注
		skip
		lie=lie+1
	else
		skip
	endif
enddo		



*修改并保存
eole.ActiveWorkbook.SaveAs("d:\befar\建议采购物资单\"+alltrim(str(year(date())))+"年"+alltrim(str(month(date())))+"月仓库资金占用台帐.xls")
eole.Workbooks.close
eole.quit 

*打开并修改
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open("d:\befar\建议采购物资单\"+alltrim(str(year(date())))+"年"+alltrim(str(month(date())))+"月仓库资金占用台帐.xls")