Fwd: RE: Create a substitute

[Susan R. Keohan]

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
>