SHARE
TWEET

process_step3 pre_exit

Olegster Oct 30th, 2019 158 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. *
  2. *  DATA lo_nd_role_att_selected TYPE REF TO if_wd_context_node.
  3. *  DATA lo_el_role_att_selected TYPE REF TO if_wd_context_element.
  4. *  DATA ls_role_att_selected TYPE wd_this->Element_role_att_selected.
  5. *  DATA lv_company TYPE wd_this->Element_role_att_selected-company.
  6. *  DATA lo_nd_comp_roles TYPE REF TO if_wd_context_node.
  7. *  DATA lt_comp_roles TYPE wd_this->Elements_comp_roles.
  8. ***********************************************************************
  9. ** navigate from <CONTEXT> to <ROLE_ATT_SELECTED> via lead selection
  10. *  lo_nd_role_att_selected = wd_context->get_child_node( name = wd_this->wdctx_role_att_selected ).
  11. ** get element via lead selection
  12. *  lo_el_role_att_selected = lo_nd_role_att_selected->get_element( ).
  13. ** get single attribute
  14. *  lo_el_role_att_selected->get_attribute(
  15. *    EXPORTING
  16. *      name =  `COMPANY`
  17. *    IMPORTING
  18. *      value = lv_company ).
  19. ***********************************************************************
  20. **   navigate from <CONTEXT> to <COMP_ROLES> via lead selection
  21. *    lo_nd_comp_roles = wd_context->get_child_node( name = wd_this->wdctx_comp_roles ).
  22. *    lo_nd_comp_roles->get_static_attributes_table( importing table = lt_comp_roles ).
  23. *    data flag type i VALUE 0.
  24. *    loop at lt_comp_roles INTO data(ls_comp_roles).
  25. *      if ls_comp_roles-role_type eq 'COM'.
  26. *        flag = 1.
  27. *        EXIT.
  28. *      ENDIF.
  29. *    ENDLOOP.
  30. **********************************************************************
  31.     " Было закоментировано (ниже)
  32. **********************************************************************
  33. *  if lv_company eq 'X' and flag eq 1.
  34. **      wd_this->zblockvisibility( ).
  35. **     get message manager
  36. *    data lo_api_controller     type ref to if_wd_controller.
  37. *    data lo_message_manager    type ref to if_wd_message_manager.
  38. *    lo_api_controller ?= wd_This->Wd_Get_Api( ).
  39. *    CALL METHOD lo_api_controller->GET_MESSAGE_MANAGER
  40. *      RECEIVING
  41. *        MESSAGE_MANAGER = lo_message_manager.
  42. *
  43. **     report message
  44. *    lo_message_manager->REPORT_WARNING( EXPORTING MESSAGE_TEXT =
  45. *       ' I cannot update COM roles. Please, delete COM roles from list of roles!!! '
  46. *       ).
  47. *  ELSE.
  48. *    DATA:
  49. *      lo_node TYPE REF TO if_wd_context_node,
  50. *      lo_element TYPE REF TO if_wd_context_element,
  51. *      lv_scope TYPE grac_attr_scope,
  52. *      lv_attribute TYPE string.
  53. *
  54. *    lo_node = wd_context->get_child_node( name = wd_this->wdctx_mode ).
  55. *    lo_element = lo_node->get_element( ).
  56. *    lo_element->get_attribute( EXPORTING name =  `SCOPE` IMPORTING value = lv_scope ).
  57. *
  58. *    lo_node = wd_context->get_child_node( name = wd_this->wdctx_role_properties ).
  59. *    lo_element = lo_node->get_element( ).
  60. *    lo_element->get_attribute( EXPORTING name =  `ATTRIBUTE` IMPORTING  value = lv_attribute ).
  61. *
  62. *      wd_this->zmsgformasrole( ).
  63. *
  64. *    CASE lv_scope.
  65. **      WHEN gracr_c_att_scope-create.
  66. **        wd_this->check_add_del_attr( EXPORTING iv_scope = lv_scope ).
  67. **      WHEN gracr_c_att_scope-change.
  68. **        wd_this->check_single_attr(  EXPORTING iv_scope = lv_scope  ).
  69. **      WHEN gracr_c_att_scope-delete.
  70. **        wd_this->check_add_del_attr( EXPORTING iv_scope = lv_scope ).
  71. *      WHEN gracr_c_att_scope-update.
  72. *        IF lv_attribute <> gracr_c_role_update_att-auth_data.
  73. *          wd_this->check_all_attr( ).
  74. *        ENDIF.
  75. *    ENDCASE.
  76. *
  77. **    " TBD - Default processing to foreground for now
  78. *    lo_node = wd_context->get_child_node( name = wd_this->wdctx_schedule ).
  79. *    lo_element = lo_node->get_element( ).
  80. *    lo_element->set_attribute( EXPORTING name =  'JOB_TYPE' value = 'F' ).
  81. *  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