ABAP+维护视图增加下拉框

效果图：

相关配置截图：

代码：

MODULE ZFIT2008_LIST OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
  TYPE-POOLS : VRM.
  DATA: LD_FIELD    TYPE VRM_ID,
        LIT_LISTBOX TYPE VRM_VALUES,
        LWA_LISTBOX LIKE LINE OF LIT_LISTBOX.

CLEAR:LIT_LISTBOX.
  LWA_LISTBOX-KEY = '原材料'.
  LWA_LISTBOX-TEXT = '原材料'.
  APPEND LWA_LISTBOX TO LIT_LISTBOX.
  LWA_LISTBOX-KEY = '库存商品(本地库)'.
  LWA_LISTBOX-TEXT = '库存商品(本地库)'.
  APPEND LWA_LISTBOX TO LIT_LISTBOX.
  LWA_LISTBOX-KEY = '发出商品(客户库)'.
  LWA_LISTBOX-TEXT = '发出商品(客户库)'.
  APPEND LWA_LISTBOX TO LIT_LISTBOX.
  LWA_LISTBOX-KEY = '在制品(生产成本)'.
  LWA_LISTBOX-TEXT = '在制品(生产成本)'.
  APPEND LWA_LISTBOX TO LIT_LISTBOX.
  LWA_LISTBOX-KEY = '低值易耗品(模具等)'.
  LWA_LISTBOX-TEXT = '低值易耗品(模具等)'.
  APPEND LWA_LISTBOX TO LIT_LISTBOX.
  LWA_LISTBOX-KEY = '存货跌价准备'.
  LWA_LISTBOX-TEXT = '存货跌价准备'.
  APPEND LWA_LISTBOX TO LIT_LISTBOX.

CASE VIM_VIEW_NAME.
  WHEN 'ZFIT2008'.
  LD_FIELD = 'ZFIT2008-ZTEXT'.
    WHEN 'ZFIT2009'.
  LD_FIELD = 'ZFIT2009-ZTEXT'.
  ENDCASE.
* 下拉列表赋值
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = LD_FIELD
      VALUES = LIT_LISTBOX.

ENDMODULE.