SHARE
TWEET

check_all_atr

Olegster Oct 29th, 2019 130 in 61 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. IF ls_role_att_selected-company EQ 'X'.
  2.  
  3.     lo_nd_role_company = wd_context->get_child_node( name = wd_this->wdctx_role_company ).
  4.  
  5.     CALL METHOD lo_nd_role_company->get_static_attributes_table
  6.       IMPORTING
  7.         table = lt_role_company.
  8.  
  9.     lt_all_company = cl_grac_erm_config=>get_all_company( ).
  10.     SORT lt_role_company BY company.
  11.     DELETE lt_role_company WHERE company IS INITIAL.
  12.  
  13.     LOOP AT lt_role_company INTO ls_role_company.
  14.       IF ls_role_company IS NOT INITIAL.
  15.         READ TABLE lt_all_company WITH KEY company = ls_role_company-company INTO ls_role_company1.
  16.         IF sy-subrc NE 0.
  17.           IF lv_company_names IS INITIAL.
  18.             MOVE ls_role_company-company TO lv_company_names.
  19.           ELSE.
  20.             CONCATENATE lv_company_names ',' ls_role_company-company INTO lv_company_names.
  21.           ENDIF.
  22.         ELSE.
  23.           ls_new_company-company = ls_role_company1-company.
  24.           ls_new_company-descn = ls_role_company1-descn.
  25.         ENDIF.
  26.         APPEND ls_new_company TO wd_assist->mt_new_company.
  27.         CLEAR ls_new_company.
  28.       ENDIF.
  29.     ENDLOOP.
  30.  
  31.     IF lv_company_names IS NOT INITIAL.
  32.       CLEAR lv_parameter.
  33.       MOVE lv_company_names TO lv_parameter.
  34.       CALL METHOD wd_this->mo_message_manager->report_t100_message
  35.         EXPORTING
  36.           msgty = 'E'
  37.           msgid = 'GRAC_ROLE_MESSAGES'
  38.           msgno = '074'
  39.           p1    = lv_parameter.
  40.  
  41.     ENDIF.
  42.     IF wd_assist->mt_new_company IS INITIAL.
  43.       lv_no_data = abap_true.
  44.     ENDIF.
  45.   ENDIF.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top