1. 程式人生 > >選擇螢幕F4使用小節

選擇螢幕F4使用小節

*定義 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.