工單常用表的關系記錄

訂單表頭   AFKO
訂單項AFPO
訂單表頭AUFK
生?定單CAUFV
工藝路線AFFL
訂單工序AFVC
訂單BOM RESB

form get_data.

* 按照輸入的條件把符合選擇條件的關於訂單的資料放入內部表i_tab1，
* ?生表頭所需資料，連接兩個表：afko,afpo.
select afpo~dwerk afpo~matnr afpo~charg
afko~aufnr afko~dispo afko~ftrmi afko~gltri
afko~gamng afko~gmein afko~plnnr afko~plnal
afko~aufpl afko~plnbez afko~stlal afko~gltrp
into corresponding fields of table i_tab1
from afko inner join afpo on afko~aufnr = afpo~aufnr
where afpo~dwerk in s_1 "工廠
and afko~dispo in s_2 "mrp控制者
and afko~aufnr in s_3 "訂單號
and afpo~matnr in s_4 "?品代碼
and afko~ftrmi in s_5. "時間

* 判斷是否有符合條件的訂單，沒有記錄就出錯退出。
if sy-subrc <> 0.
message e001.
endif.

* 聯結兩個透明表：afvv,afvc；根據內部表1的工藝路線號
* 將符合條件的記錄放入內部表：i_tab2；主要是工序資料
*------------注APLFL才是真正的序號字段不是PLNFL----
*PLNFL  LIKE AFVC-PLNFL,
*--APLFL  LIKE AFVC-APLFL,    "直正的次序  VALUE EQUAL (PLNFL)

select afvv~aufpl afvv~aplzl afvv~mgvrg afvv~ssavd afvv~ssedd
afvc~arbid afvc~vornr
into corresponding fields of table i_tab2
from afvv inner join afvc
on afvv~aufpl = afvc~aufpl and afvv~aplzl = afvc~aplzl
for all entries in i_tab1
where afvv~aufpl = i_tab1-aufpl. "條件?以內部表1中的工藝

sort i_tab2 by aufpl aplzl. "將i_tab2排序

* 聯結兩個透明表：resb,makt；根據內部表2的工藝路線號和計數器
* 將符合條件的記錄放入內部表：i_tab3；主要是物料資料
select resb~aufnr resb~matnr resb~bdmng resb~meins
resb~aufpl resb~aplzl resb~stlal resb~vornr
makt~maktx
into corresponding fields of table i_tab3
from resb inner join makt
on resb~matnr = makt~matnr
for all entries in i_tab2
where resb~aufpl = i_tab2-aufpl
and resb~aplzl = i_tab2-aplzl.

* 聯結兩個透明表：crhd,crtx；根據內部表2的資源的物件ID
* 將符合條件的記錄放入內部表：i_tab4；主要是工作中心資料
select crhd~arbpl crhd~objid crtx~ktext
into corresponding fields of table i_tab4
from crhd inner join crtx
on crhd~objid = crtx~objid
for all entries in i_tab2
where crhd~objid = i_tab2-arbid.

endform. " 主程序