Create a substitute

[Stephens, Monique S L]

At ASUG, one of the presentations suggested going into PO13 and setting up
the substitutions that way (A 210).  However, do you set that up for the
person who is going to be the substitute or the person who is setting up the
substitute.  For example, employee A (Position #1) is going on vacation and
forgets to set up a substitute.  Employee B (Position #2) would like to be
the substitute.  How would I go about doing this?  Would the change be
immediate or will it take effect the next day?
 
Monique Stephens
 
 -----Original Message-----
From:   Susan R. Keohan [mailto:skeohan at MIT.EDU]
Sent:   Thursday, June 21, 2001 9:18 AM
To:     SAP-WUG at MITVMA.MIT.EDU
Subject:        Fwd: RE: Create a substitute
 
Forwarded on behalf of MKlemba at ERA.PL ...
>It is not possible to maintain substitution of other users. At least not in
>the standard functionality.
>I have written a report to provide this functionality (v.4.5B).
>
>Basically what you have to do is to use appropriate functions. You may have
>to change plan variant in following code:
>
>
>REPORT ZWFSSUBST.
>
>INCLUDE <ICON>.
>
>TABLES SSCRFIELDS.
>
>CONSTANTS:
>  US_TYPE   LIKE SWHACTOR-OTYPE VALUE 'US',
>  ACT_PLVAR LIKE OBJEC-PLVAR    VALUE '02'.
>
>PARAMETERS:
>  US_ID LIKE USR02-BNAME
>  MATCHCODE OBJECT USER_ADDR
>  OBLIGATORY.
>
>SELECTION-SCREEN SKIP 2.
>SELECTION-SCREEN PUSHBUTTON /16(4) VIEW USER-COMMAND VIEW.
>SELECTION-SCREEN PUSHBUTTON  20(4) EDIT USER-COMMAND EDIT.
>SELECTION-SCREEN PUSHBUTTON  24(4) ACTI USER-COMMAND ACTI.
>
>INITIALIZATION.
>  MOVE ICON_DISPLAY TO  VIEW.
>  MOVE ICON_CHANGE  TO  EDIT.
>  MOVE ICON_ACTIVATE TO ACTI.
>
>AT SELECTION-SCREEN.
>  CASE SSCRFIELDS-UCOMM.
>    WHEN 'VIEW'.
>      CALL FUNCTION 'RH_SUBSTITUTES_LIST'
>           EXPORTING
>                US_TYPE            = US_TYPE
>                US_ID              = US_ID
>                ACT_PLVAR          = ACT_PLVAR
>                ACT_BEGDA          = SY-DATUM
>                ACT_ENDDA          = '99991231'
>                MAINTAINANCE_FLAG  = ' '
>                ACT_MODE           = ' '
>           EXCEPTIONS
>                NO_ACTIVE_WF_PLVAR = 1
>                OTYPE_NOT_VALID    = 2
>                OBJECT_NOT_VALID   = 3
>                OTHERS             = 4.
>      IF SY-SUBRC <> 0.
>        MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
>                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
>      ENDIF.
>
>    WHEN 'EDIT'.
>      CALL FUNCTION 'RH_SUBSTITUTES_LIST'
>           EXPORTING
>                US_TYPE            = US_TYPE
>                US_ID              = US_ID
>                ACT_PLVAR          = ACT_PLVAR
>                ACT_BEGDA          = SY-DATUM
>                ACT_ENDDA          = '99991231'
>                MAINTAINANCE_FLAG  = 'X'
>                ACT_MODE           = ' '
>           EXCEPTIONS
>                NO_ACTIVE_WF_PLVAR = 1
>                OTYPE_NOT_VALID    = 2
>                OBJECT_NOT_VALID   = 3
>                OTHERS             = 4.
>      IF SY-SUBRC <> 0.
>        MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
>                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
>      ENDIF.
>
>    WHEN 'ACTI'.
>      CALL FUNCTION 'RH_SUBSTITUTES_ACTIVATE'
>           EXPORTING
>                US_TYPE            = US_TYPE
>                US_ID              = US_ID
>                ACT_PLVAR          = ACT_PLVAR
>                ACT_BEGDA          = SY-DATUM
>                ACT_ENDDA          = '99991231'
>           EXCEPTIONS
>                NO_ACTIVE_WF_PLVAR = 1
>                OTYPE_NOT_VALID    = 2
>                OBJECT_NOT_VALID   = 3
>                OTHERS             = 4.
>      IF SY-SUBRC <> 0.
>        MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
>                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
>      ENDIF.
>
>  ENDCASE.
>
>
>START-OF-SELECTION.
>  CALL FUNCTION 'RH_SUBSTITUTES_LIST'
>       EXPORTING
>            US_TYPE            = US_TYPE
>            US_ID              = US_ID
>            ACT_PLVAR          = ACT_PLVAR
>            ACT_BEGDA          = SY-DATUM
>            ACT_ENDDA          = '99991231'
>            MAINTAINANCE_FLAG  = ' '
>            ACT_MODE           = ' '
>       EXCEPTIONS
>            NO_ACTIVE_WF_PLVAR = 1
>            OTYPE_NOT_VALID    = 2
>            OBJECT_NOT_VALID   = 3
>            OTHERS             = 4.
>  IF SY-SUBRC <> 0.
>    MESSAGE ID SY-MSGID TYPE 'S' NUMBER SY-MSGNO
>            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
>  ENDIF.
>
>
>
>
>-----Original Message-----
>From: Pedro Bezerra [mailto:pedrobezerra at yahoo.com]
>Sent: 05 czerwca 2001 23:20
>To: SAP-WUG at MITVMA.MIT.EDU
>Subject: Create a substitute
>
>
>Hi Gurus,
>
>In workflow the user can crated a substitute. But the administrator can
>created a substitute for users ? if yes, how can do this ? Imagine the
>situation that the administration don't have a user password.
>
>Thanks in advance.
>
>Pedro Bezerra
>
>
>_________________________________________________________
>Do You Yahoo!?
>Get your free @yahoo.com address at http://mail.yahoo.com
>