Olegster

process_step3 pre_exit

Oct 30th, 2019
998
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

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×