query+report达到user的需求

tony

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

tsinvan

query+report达到user的需求,全是钱

jeffersyuan

怎么全是Money

aprilstar

掉到钱眼里，呵呵

jenny

哈哈, LN 的 FIELDS 名与 IV的基本不同啦

tony

就是钱！！！

university

very good
tks for sharing

Toby

tks for sharing