前几天应USER需求，要查看某一物料当前库存多少，库存在哪个仓库，两周之内对此物料的需求是多少。
写了一query，然后在报表中加如下列内容，达到要求。
select whwmd215.item | Item from whwmd215 | Item Inventory by Warehouse where whwmd215.item >= whwmd215.item.f and whwmd215.item <= whwmd215.item.t group by whwmd215.item order by whwmd215.item
报表中的descript:
declaration:
table twhwmd215 table tgdrmp001 table ttcibd001
extern domain tcqiv1 wip_162030 extern domain tcqiv1 wip_162035
extern domain tcqiv1 nor_162012 extern domain tcqiv1 nor_162013 extern domain tcqiv1 nor_162020 extern domain tcqiv1 nor_162025 extern domain cpcom.quan pdemg_1 extern domain cpcom.quan pdemg_2
domain cpcom.dydt pdate.g domain tcmcs.long count
before.program: pdate.g = date.num()
detail.1: before.layout:
| message (Str$(pdate.g))
select whwmd215.stoc, whwmd215.cwar, whwmd215.item from whwmd215 where whwmd215._index2 = {:whwmd215.item} order by whwmd215._index2 selectdo
if strip$(whwmd215.cwar) = "162030" then wip_162030 = 0 wip_162030 = whwmd215.stoc endif
if strip$(whwmd215.cwar) = "162035" then wip_162035 = 0 wip_162035 = whwmd215.stoc endif
if strip$(whwmd215.cwar) = "162012" then nor_162012 = 0 nor_162012 = whwmd215.stoc endif
if strip$(whwmd215.cwar) = "162013" then nor_162013 = 0 nor_162013 = whwmd215.stoc endif
if strip$(whwmd215.cwar) = "162020" then nor_162020 = 0 nor_162020 = whwmd215.stoc endif
if strip$(whwmd215.cwar) = "162025" then nor_162025 = 0 nor_162025 = whwmd215.stoc endif endselect
count =0 select gdrmp001.pdem.g, gdrmp001._index1 from gdrmp001 where gdrmp001._index3 = {"162", 1} and (gdrmp001.plni.g = :whwmd215.item or gdrmp001.sitm.g = :whwmd215.item ) and (gdrmp001.pdat.g >= :pdate.g or gdrmp001.pdat.g <= :pdate.g) order by gdrmp001._index1 as set with 2 rows selectdo count = count 1 if count = 1 then pdemg_1 = 0 pdemg_1 = gdrmp001.pdem.g endif if count = 2 then pdemg_2 = 0 pdemg_2 = gdrmp001.pdem.g endif endselect
select tcibd001.dsca from tcibd001 where tcibd001._index1 = {:whwmd215.item} selectdo selectempty tcibd001.dsca = "" endselect
