Advertisement
Guest User

Untitled

a guest
Oct 31st, 2017
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.85 KB | None | 0 0
  1. method MAPSET_GET_ENTITYSET.
  2.  
  3.     DATA: lt_ZHY_MAP_BS_BCD TYPE TABLE OF ZHY_MAP_BS_BCD,
  4.           ls_ZHY_MAP_BS_BCD LIKE LINE OF lt_ZHY_MAP_BS_BCD,
  5.           ls_entity       LIKE LINE OF et_entityset.
  6.  
  7.  
  8.  
  9.  
  10. LOOP AT it_filter_select_options ASSIGNING FIELD-SYMBOL(<ls_filter>).
  11.       CASE <ls_filter>-property.
  12.         WHEN 'ApplicationsId'.
  13.           lv_app_id = <ls_filter>-select_options[ 1 ]-low.
  14.         WHEN OTHERS.
  15.       ENDCASE.
  16.     ENDLOOP.
  17.  
  18.  
  19.     SELECT * FROM ZHY_MAP_BS_BCD INTO TABLE lt_ZHY_MAP_BS_BCD where APPLICATIONS_ID = lv_app_id.
  20.  
  21. *Fill ET_ENTITYSET
  22.     LOOP AT lt_ZHY_MAP_BS_BCD INTO  ls_ZHY_MAP_BS_BCD .
  23.  
  24.       move-corresponding ls_ZHY_MAP_BS_BCD to ls_entity.
  25.  
  26.       APPEND ls_entity TO et_entityset.
  27.  
  28.     ENDLOOP.
  29.  
  30.   endmethod.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement