Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- *
- * DATA lo_nd_role_att_selected TYPE REF TO if_wd_context_node.
- * DATA lo_el_role_att_selected TYPE REF TO if_wd_context_element.
- * DATA ls_role_att_selected TYPE wd_this->Element_role_att_selected.
- * DATA lv_company TYPE wd_this->Element_role_att_selected-company.
- * DATA lo_nd_comp_roles TYPE REF TO if_wd_context_node.
- * DATA lt_comp_roles TYPE wd_this->Elements_comp_roles.
- ***********************************************************************
- ** navigate from <CONTEXT> to <ROLE_ATT_SELECTED> via lead selection
- * lo_nd_role_att_selected = wd_context->get_child_node( name = wd_this->wdctx_role_att_selected ).
- ** get element via lead selection
- * lo_el_role_att_selected = lo_nd_role_att_selected->get_element( ).
- ** get single attribute
- * lo_el_role_att_selected->get_attribute(
- * EXPORTING
- * name = `COMPANY`
- * IMPORTING
- * value = lv_company ).
- ***********************************************************************
- ** navigate from <CONTEXT> to <COMP_ROLES> via lead selection
- * lo_nd_comp_roles = wd_context->get_child_node( name = wd_this->wdctx_comp_roles ).
- * lo_nd_comp_roles->get_static_attributes_table( importing table = lt_comp_roles ).
- * data flag type i VALUE 0.
- * loop at lt_comp_roles INTO data(ls_comp_roles).
- * if ls_comp_roles-role_type eq 'COM'.
- * flag = 1.
- * EXIT.
- * ENDIF.
- * ENDLOOP.
- **********************************************************************
- " Было закоментировано (ниже)
- **********************************************************************
- * if lv_company eq 'X' and flag eq 1.
- ** wd_this->zblockvisibility( ).
- ** get message manager
- * data lo_api_controller type ref to if_wd_controller.
- * data lo_message_manager type ref to if_wd_message_manager.
- * lo_api_controller ?= wd_This->Wd_Get_Api( ).
- * CALL METHOD lo_api_controller->GET_MESSAGE_MANAGER
- * RECEIVING
- * MESSAGE_MANAGER = lo_message_manager.
- *
- ** report message
- * lo_message_manager->REPORT_WARNING( EXPORTING MESSAGE_TEXT =
- * ' I cannot update COM roles. Please, delete COM roles from list of roles!!! '
- * ).
- * ELSE.
- * DATA:
- * lo_node TYPE REF TO if_wd_context_node,
- * lo_element TYPE REF TO if_wd_context_element,
- * lv_scope TYPE grac_attr_scope,
- * lv_attribute TYPE string.
- *
- * lo_node = wd_context->get_child_node( name = wd_this->wdctx_mode ).
- * lo_element = lo_node->get_element( ).
- * lo_element->get_attribute( EXPORTING name = `SCOPE` IMPORTING value = lv_scope ).
- *
- * lo_node = wd_context->get_child_node( name = wd_this->wdctx_role_properties ).
- * lo_element = lo_node->get_element( ).
- * lo_element->get_attribute( EXPORTING name = `ATTRIBUTE` IMPORTING value = lv_attribute ).
- *
- * wd_this->zmsgformasrole( ).
- *
- * CASE lv_scope.
- ** WHEN gracr_c_att_scope-create.
- ** wd_this->check_add_del_attr( EXPORTING iv_scope = lv_scope ).
- ** WHEN gracr_c_att_scope-change.
- ** wd_this->check_single_attr( EXPORTING iv_scope = lv_scope ).
- ** WHEN gracr_c_att_scope-delete.
- ** wd_this->check_add_del_attr( EXPORTING iv_scope = lv_scope ).
- * WHEN gracr_c_att_scope-update.
- * IF lv_attribute <> gracr_c_role_update_att-auth_data.
- * wd_this->check_all_attr( ).
- * ENDIF.
- * ENDCASE.
- *
- ** " TBD - Default processing to foreground for now
- * lo_node = wd_context->get_child_node( name = wd_this->wdctx_schedule ).
- * lo_element = lo_node->get_element( ).
- * lo_element->set_attribute( EXPORTING name = 'JOB_TYPE' value = 'F' ).
- * endif.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement