Advertisement
ignatov

Untitled

Nov 1st, 2020
3,078
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.16 KB | None | 0 0
  1.   METHOD roleexist_get_entityset.
  2.  
  3.  
  4.     DATA: ls_entity_set LIKE LINE OF et_entityset.
  5.  
  6.  
  7.     LOOP AT it_filter_select_options ASSIGNING FIELD-SYMBOL(<fs_filt>).
  8.       CASE <fs_filt>-property.
  9.         WHEN 'roleName'.
  10.           DATA(lv_carrid) = <fs_filt>-select_options.
  11.           LOOP AT <fs_filt>-select_options ASSIGNING FIELD-SYMBOL(<fs_options>).
  12.             DATA(lv_role_from_front) = <fs_options>-low.
  13.           ENDLOOP.
  14.  
  15.       ENDCASE.
  16.     ENDLOOP.
  17.  
  18.     IF lv_role_from_front IS NOT INITIAL.
  19.  
  20.       SELECT SINGLE agr_name INTO @DATA(lv_agr_name) FROM agr_users WHERE uname = @sy-uname AND agr_name EQ @lv_role_from_front AND to_dat EQ '99991231'.
  21.       IF lv_agr_name IS NOT INITIAL.
  22.         APPEND VALUE #(
  23.         roleid = lv_role_from_front
  24.         isexists = abap_true
  25.         rolename = get_role_name( lv_agr_name )
  26.         ) TO et_entityset.
  27.       ELSE.
  28.         APPEND VALUE #(
  29.           roleid = '-'
  30.           isexists = '-'
  31.           rolename = '-'
  32.           ) TO et_entityset.
  33.       ENDIF.
  34.     ELSE.
  35.       APPEND VALUE #(
  36.      roleid = '-'
  37.      isexists = '-'
  38.      rolename = '-'
  39.      ) TO et_entityset.
  40.     ENDIF.
  41.  
  42.   ENDMETHOD.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement