SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Maintain Workflow Substitutes centrally



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> SAP Business Workflow
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1636

PostPosted: Thu Feb 19, 2009 3:53 pm    Post subject: Maintain Workflow Substitutes centrally Reply with quote

Code:
*& *----------------------------------------------------------------------*
*    Report : Z_MAINTAIN_SUBSTITUTE
*    Author : Morten Hjorth Nielsen
*    Webpage: http://www.mortenhjorthnielsen.com
*
*    Purpose: Maintain Workflow Substitutes centrally
*
*    This report is meant for inspiration, before you use it in a productive
*    environment please Test and Adjust thoroughly
*   ----------------------------------------------------------------------*
REPORT  z_maintain_substitute.

TABLES: usr02.

DATA:
      lv_user TYPE swragent,
      lv_subst TYPE swragent,
      lt_subst TYPE TABLE OF swr_substitute WITH HEADER LINE,
      lt_subst2 TYPE TABLE OF swragent,
      lv_return LIKE sy-subrc,
      lt_message_lines TYPE TABLE OF swr_messag,
      wa_message_lines TYPE swr_messag,
      lt_message_struct TYPE TABLE OF swr_mstruc,

      BEGIN OF lt_usr OCCURS 0,
         user TYPE swragent,
      END OF lt_usr.

************************************************************************
* Definition of selection Screen                                       *
************************************************************************

SELECTION-SCREEN: BEGIN OF SCREEN 100.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-010.
SELECT-OPTIONS: user FOR usr02-bname.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-020.

PARAMETER: p_disp RADIOBUTTON GROUP type DEFAULT 'X',
           p_add  RADIOBUTTON GROUP type,
           p_del  RADIOBUTTON GROUP type,
           p_act  RADIOBUTTON GROUP type.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-030.
PARAMETER:
           p_subst LIKE  usr02-bname  MODIF ID dis,
           p_from  TYPE  swr_substbegin DEFAULT sy-datum OBLIGATORY  MODIF ID dis,
           p_to    TYPE  swr_substend DEFAULT '99991231' OBLIGATORY  MODIF ID dis,
           p_activ TYPE  swr_substactive DEFAULT ' '  MODIF ID dis.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN END OF SCREEN 100.
************************************************************************
* Screen Logic                                                         *
************************************************************************

CALL SELECTION-SCREEN 100.

************************************************************************
* Do not display substitute subscreen if Display is Selected           *
* Notice !!  Press enter key in order to sispaly subscreen             *
************************************************************************

AT SELECTION-SCREEN OUTPUT.
  IF p_disp EQ 'X'.
    LOOP AT SCREEN.
      CHECK screen-group1 = 'DIS'.
      screen-active = '0'.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

AT SELECTION-SCREEN ON EXIT-COMMAND.
  LEAVE.

START-OF-SELECTION.
************************************************************************
* MAIN CODE LOGIC                                                      *
************************************************************************
  PERFORM select.

  IF p_disp = 'X'.
    PERFORM display.
  ENDIF.

  IF p_add = 'X'.
************************************************************************
* Check if the user has authorization to maintain substitute centrally *
* No standard autthorization object exist for this so S_WF_CUST with   *
* Value '*' is used here, but perhaps it would be a better idea to     *
* create a specific authorization object for this purpose              *
*----------------------------------------------------------------------*
* Recommendation !!!                                                   *
*   Based on your own security strategy you should create/find the     *
*   correct autho4rization object in order to control access to the    *
*   functionality provided in this report                              *
************************************************************************
    AUTHORITY-CHECK OBJECT 'S_WF_SUBST'
           ID 'ACTVT' FIELD '*'.
    IF sy-subrc = 0.
      PERFORM add.
    ELSE.
      MESSAGE e002(z_message).
*   Your not authorized to maintain substitutes for other users
    ENDIF.
  ENDIF.

  IF p_del = 'X'.
    PERFORM delete.
  ENDIF.

  IF p_act = 'X'.
    PERFORM activate.
  ENDIF.

  COMMIT WORK AND WAIT.

**********************************************************************
* FORM    :  select
* Purpose :  select Substituta data into lt_usr
* Created :  11.12.2006 13:14:05
**********************************************************************
FORM select.
  SELECT * FROM usr02
           WHERE bname IN user.

    lv_user-otype = 'US'.
    lv_user-objid = usr02-bname.
    APPEND lv_user TO lt_usr.

  ENDSELECT.
ENDFORM. "select

**********************************************************************
* FORM    :  displey
* Purpose :  List substitute in range
* Created :  11.12.2006 13:12:55
**********************************************************************

FORM display.
  LOOP AT lt_usr.
    CALL FUNCTION 'SAP_WAPI_SUBSTITUTES_GET'
      EXPORTING
        substituted_object = lt_usr-user
      TABLES
        substitutes        = lt_subst.

*   APPEND lt_subst.

    LOOP AT lt_subst .
      WRITE: /  lt_usr-user-objid,
*                lt_subst-otype,
                lt_subst-objid,
                lt_subst-date_begin,
                lt_subst-date_end,
                lt_subst-profile,
                lt_subst-active.

    ENDLOOP.
  ENDLOOP.
ENDFORM. "display
**********************************************************************
* FORM    :  add
* Purpose :  Add a new substistute to the range of users
* Created :  11.12.2006 14:02:17
**********************************************************************
FORM add .
  PERFORM check_user USING p_subst.
  LOOP AT lt_usr.
    CONCATENATE 'US' p_subst INTO lv_subst.

    CALL FUNCTION 'SAP_WAPI_SUBSTITUTE_MAINTAIN'
      EXPORTING
        substituted_object       = lt_usr-user
        substitute               = lv_subst
        subst_begin              = p_from
        subst_end                = p_to
*       SUBST_PROFILE            =
        subst_active             = p_activ
*       LANGUAGE                 = SY-LANGU
     IMPORTING
       return_code              = lv_return
     TABLES
       message_lines            = lt_message_lines
       message_struct           = lt_message_struct
              .
*    LOOP AT lt_message_lines INTO wa_message_lines.
*      WRITE:/ wa_message_lines-msg_type,
*              wa_message_lines-line.
*    ENDLOOP.
  ENDLOOP.
  PERFORM display.
ENDFORM.                    " add
***********************************************************************
* FORM    :  check_user
* Purpose :  Check if user is a valid SAP User
* Created :  11.12.2006 13:54:24
**********************************************************************
FORM check_user USING bname LIKE usr02-bname.
  CALL FUNCTION 'SUSR_USER_CHECK_EXISTENCE'
    EXPORTING
      user_name            = bname
    EXCEPTIONS
      user_name_not_exists = 1
      OTHERS               = 2.
  IF sy-subrc <> 0.
    MESSAGE e003(z_message) WITH bname.
*   User & is not created as a SAP USER
  ENDIF.

ENDFORM.                    " check_user
***********************************************************************
* FORM    :  delete
* Purpose :  Delete a substitute from a list of users
* Created :  11.12.2006 13:12:55
**********************************************************************
FORM delete .
  LOOP AT lt_usr.
    CONCATENATE 'US' p_subst INTO lv_subst.
    APPEND lv_subst TO lt_subst2.
    CALL FUNCTION 'SAP_WAPI_SUBSTITUTE_DELETE'
      EXPORTING
        substituted_object  = lt_usr-user
        delete_without_date = 'X'
      IMPORTING
        return_code         = lv_return
      TABLES
        substitutes         = lt_subst2
        message_lines       = lt_message_lines
        message_struct      = lt_message_struct.
  ENDLOOP.

*  LOOP AT lt_message_lines INTO wa_message_lines .
*    WRITE:/ wa_message_lines-msg_type,
*            wa_message_lines-line.
*  ENDLOOP.
  PERFORM display.
ENDFORM.                    " delete
***********************************************************************
* FORM    :  Activate substitution
* Purpose :  (de)activate substitution
* Created :  11.12.2006 13:21:54
**********************************************************************
FORM activate .
  LOOP AT lt_usr.
    CONCATENATE 'US' p_subst INTO lv_subst.
    APPEND lv_subst TO lt_subst2.
    IF p_activ = 'X'.
      CALL FUNCTION 'SAP_WAPI_SUBSTITUTE_ACTIVATE'
        EXPORTING
          substituted_object = lt_usr-user
        IMPORTING
          return_code        = lv_return
        TABLES
          substitutes        = lt_subst2
          message_lines      = lt_message_lines
          message_struct     = lt_message_struct.
    ELSE.
      CALL FUNCTION 'SAP_WAPI_SUBSTITUTE_DEACTIVATE'
        EXPORTING
          substituted_object       = lt_usr-user
*         LANGUAGE                 = SY-LANGU
       IMPORTING
         return_code              = lv_return
        TABLES
          substitutes              = lt_subst2
         message_lines            = lt_message_lines
         message_struct           = lt_message_struct
                .

    ENDIF.

  ENDLOOP.

*  LOOP AT lt_message_lines INTO wa_message_lines .
*    WRITE:/ wa_message_lines-msg_type,
*            wa_message_lines-line.
*  ENDLOOP.
  PERFORM display.
ENDFORM.                    " activate
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> SAP Business Workflow All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.