RES: RE: Create a substitute

[Pedro Bezerra]

Hi Susan....I will try implement this program in 40b....if i developed new
functions i forwarded for you.....
 
Thanks a lot
 
Pedro Bezerra
 
 
 
 
> -----Mensagem original-----
> De: SAP Workflow [mailto:Owner-SAP-WUG at MITVMA.MIT.EDU]Em nome de Susan
> R. Keohan
> Enviada em: Quinta-feira, 21 de Junho de 2001 11:18
> Para: SAP-WUG at MITVMA.MIT.EDU
> Assunto: 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
> >
 
 
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com