query 工单上加版本信息

tony

query:

select
       tisfc001.pdno,         | Production Order
       tisfc001.mitm,         | Item
       tcibd001.citg,         | Item Group
       tisfc001.osta,         | Order Status
       tisfc001.qrdr,         | Quantity Ordered
       tisfc001.qtdl,         | Quantity to Deliver
       tisfc001.qdlv,         | Quantity Delivered
       tisfc001.qrjc,         | Quantity Rejected
       tisfc001.efdt,      |referce date
       tisfc001.prdt,         | Production Start Date and Ti
       tisfc001.dldt          | (Re) Planned Delivery Date
from
       tcibd001,              | General Item Data
       tisfc001               | Production Orders
|tiedm100
where
       tisfc001.mitm >= tisfc001.mitm.f and
       tisfc001.mitm <= tisfc001.mitm.t and
       tcibd001.citg >= tcibd001.citg.f and
       tcibd001.citg <= tcibd001.citg.t and
       tisfc001.efdt >= tisfc001.efdt.f and
       tisfc001.efdt <= tisfc001.efdt.t and

       tisfc001.mitm = tcibd001.item and
       tisfc001.osta <> tcosta.closed and
       tisfc001.osta <> tcosta.completed
order by
       tisfc001.mitm

report script:

declaration:
table ttiedm100 |engineering item revisions
table ttisfc001 |production orders
extern domain tiedm.revi order.revi

Detail.1:
before.layout:
order.revi = ""

select tisfc001.efdt
from tisfc001
where tisfc001.pdno = :tisfc001.pdno
selectdo
endselect
select tiedm100.revi
from tiedm100
where tiedm100.eitm = :tisfc001.mitm and
  tiedm100.indt <= :tisfc001.efdt and
  (tiedm100.exdt >= :tisfc001.efdt or tiedm100.exdt = 0)
selectdo
  order.revi = tiedm100.revi
selectempty
endselect