1. 程式人生 > >【CRM】01- WEB UI 下拉列表

【CRM】01- WEB UI 下拉列表

應用場景:自定義WEB UI 程式下拉列表

 

首先F2找到頁面對應的“元件及檢視”.實現其對應檢視,上下文節點裡面的get v方法。

具體程式碼如下圖:

METHOD get_v_bu.
  DATA  l_i_ddlb     TYPE bsp_wd_dropdown_table.
  DATA  l_wa_ddlb    LIKE LINE OF l_i_ddlb.
  DATA  l_o_ddlb     TYPE REF TO cl_crm_uiu_ddlb.
  DATA: l_i_bu       TYPE STANDARD TABLE OF /sc1/t_bu,
        l_wa_bu      TYPE /sc1/t_bu.


*&---step 1、 建立檢視欄位屬性的下拉列表物件
  CREATE OBJECT l_o_ddlb
    EXPORTING
      iv_source_type = 'T'.


*&---step 2、從配置表取下拉列表取值
  SELECT * FROM /sc1/t_bu INTO TABLE l_i_bu.


  CLEAR: l_wa_ddlb.
  l_wa_ddlb-key   = ''.
  l_wa_ddlb-value = ''.
  APPEND l_wa_ddlb TO l_i_ddlb."空行可選

  LOOP AT l_i_bu INTO l_wa_bu.
    CLEAR: l_wa_ddlb.
    l_wa_ddlb-key   = l_wa_bu-bucode.
    l_wa_ddlb-value = l_wa_bu-butxt.
    APPEND l_wa_ddlb TO l_i_ddlb.
  ENDLOOP.


*&---step 4、設定下拉列表,並讓該方法返回
  l_o_ddlb->set_selection_table( it_selection_table = l_i_ddlb ).
  rv_valuehelp_descriptor = l_o_ddlb.

ENDMETHOD.