分类： BaaN

前几天应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