Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- METHOD roleexist_get_entityset.
- DATA: ls_entity_set LIKE LINE OF et_entityset.
- LOOP AT it_filter_select_options ASSIGNING FIELD-SYMBOL(<fs_filt>).
- CASE <fs_filt>-property.
- WHEN 'roleName'.
- DATA(lv_carrid) = <fs_filt>-select_options.
- LOOP AT <fs_filt>-select_options ASSIGNING FIELD-SYMBOL(<fs_options>).
- DATA(lv_role_from_front) = <fs_options>-low.
- ENDLOOP.
- ENDCASE.
- ENDLOOP.
- IF lv_role_from_front IS NOT INITIAL.
- 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'.
- IF lv_agr_name IS NOT INITIAL.
- APPEND VALUE #(
- roleid = lv_role_from_front
- isexists = abap_true
- rolename = get_role_name( lv_agr_name )
- ) TO et_entityset.
- ELSE.
- APPEND VALUE #(
- roleid = '-'
- isexists = '-'
- rolename = '-'
- ) TO et_entityset.
- ENDIF.
- ELSE.
- APPEND VALUE #(
- roleid = '-'
- isexists = '-'
- rolename = '-'
- ) TO et_entityset.
- ENDIF.
- ENDMETHOD.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement