選擇螢幕F4使用小節
阿新 • • 發佈:2019-02-05
*定義 VKORG 為只讀欄位
LOOP AT wa_shlp-interface INTO wa_interface WHERE shlpfield = 'VKORG'.
wa_interface-value = '3020'.
wa_interface-dispfield = 'X'.
MODIFY wa_shlp-interface FROM wa_interface INDEX syst-tabix.
ENDLOOP.
LOOP AT wa_shlp-fieldprop INTO wa_fieldprop WHERE fieldname = 'VKORG'.
wa_fieldprop-shlpinput = 'X'.
wa_fieldprop-shlpseldis = 'X'.
MODIFY wa_shlp-fieldprop FROM wa_fieldprop INDEX syst-tabix.
ENDLOOP.
*定義輸出欄位
READ TABLE wa_shlp-interface INTO wa_interface WITH KEY shlpfield = 'VBELN'.
IF sy-subrc = 0.
wa_interface-valfield = 'X'.
* l_shlp_interface-value = tree_id.
MODIFY wa_shlp-interface FROM wa_interface INDEX sy-tabix.
ELSE.
MESSAGE e017(bmen) RAISING internal_error.
ENDIF.
* 選擇介面初始值
wa_selopt-shlpname = wa_shlp-shlpname.
wa_selopt-shlpfield = 'KUNNR'.
wa_selopt-sign = 'I'.
wa_selopt-option = 'EQ'.
wa_selopt-low = '4000'.
APPEND wa_selopt TO wa_shlp-selopt.
LOOP AT wa_shlp-interface INTO wa_interface WHERE shlpfield = 'VKORG'.
wa_interface-value = '3020'.
wa_interface-dispfield = 'X'.
MODIFY wa_shlp-interface FROM wa_interface INDEX syst-tabix.
ENDLOOP.
LOOP AT wa_shlp-fieldprop INTO wa_fieldprop WHERE fieldname = 'VKORG'.
wa_fieldprop-shlpinput = 'X'.
wa_fieldprop-shlpseldis = 'X'.
MODIFY wa_shlp-fieldprop FROM wa_fieldprop INDEX syst-tabix.
ENDLOOP.
*定義輸出欄位
READ TABLE wa_shlp-interface INTO wa_interface WITH KEY shlpfield = 'VBELN'.
IF sy-subrc = 0.
wa_interface-valfield = 'X'.
* l_shlp_interface-value = tree_id.
MODIFY wa_shlp-interface FROM wa_interface INDEX sy-tabix.
ELSE.
MESSAGE e017(bmen) RAISING internal_error.
ENDIF.
* 選擇介面初始值
wa_selopt-shlpname = wa_shlp-shlpname.
wa_selopt-shlpfield = 'KUNNR'.
wa_selopt-sign = 'I'.
wa_selopt-option = 'EQ'.
wa_selopt-low = '4000'.
APPEND wa_selopt TO wa_shlp-selopt.