UserExit zu Transaktionen

Code: Alles auswählen.

MODSAP
MODSAPT
MODACT
MODATTR
MODTEXT
TADIR
(xxxx_SMOD)

Code: Alles auswählen.

MODSAP	NAME	=	MODSAPT	NAME
MODACT	MEMBER	=	MODSAP	NAME
MODACT	NAME	=	MODATTR	NAME
MODTEXT	NAME	=	MODACT	NAME
MODTEXT	SPRSL	=	MODSAPT	SPRSL
TADIR	OBJ_NAME	=	MODACT	NAME
(xxxx_SMOD	NAME	=	MODSAPT	NAME)

Code: Alles auswählen.

Feldname Tabelle Feld 
MEMNAME   MODSAP   NAME
MEMTYP    MODSAP   TYP
MEMBER    MODSAP   MEMBER
SPRSL     MODSAPT  SPRSL
PRJNAME   MODACT   NAME
PRJTYP    MODACT   TYP
PGMID     TADIR    PGMID
OBJECT    TADIR    OBJECT
OBJ_NAME  TADIR    OBJ_NAME
MEMTEXT   MODSAPT  MODTEXT
PRJSTATUS MODATTR  STATUS
PRJTEXT   MODTEXT  MODTEXT
DEVCLASS  TADIR    DEVCLASS
(INUSE    xxxx_SMOD INUSE)

Code: Alles auswählen.

MODSAP	TYP	EQ	' '	AND
TADIR	PGMID	EQ	'R3TR'	AND
TADIR	OBJECT	EQ	'CMOD'

Code: Alles auswählen.

REPORT  z_xxx_smod                                                  .

DATA:
i_xxxexits TYPE TABLE OF xxxx_v_dev_smod,
w_xxxexits LIKE LINE OF i_xxxexits.


SELECTION-SCREEN BEGIN OF BLOCK b001 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
PARAMETERS: inuse TYPE xxxx_inuse AS CHECKBOX DEFAULT 'X'.
PARAMETER:  activ TYPE modstat AS CHECKBOX DEFAULT ' '.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK b001.

TRANSLATE inuse USING 'XX %'.
TRANSLATE activ USING 'XA %'.


SELECT * FROM xxxx_v_dev_smod
         INTO TABLE i_xxxexits
         WHERE sprsl = sy-langu
         AND   inuse LIKE inuse
         AND   prjstatus LIKE activ
         ORDER BY memname ASCENDING.



LOOP AT i_xxxexits INTO w_xxxexits.

  NEW-LINE.
  WRITE: w_xxxexits-memname(8) INTENSIFIED ON COLOR 2,
         w_xxxexits-memtext(60) INTENSIFIED ON COLOR 2.
  HIDE:  w_xxxexits-prjname.
*  NEW-LINE.
  WRITE: w_xxxexits-prjname(8) INTENSIFIED OFF COLOR 1,
*         w_xxxexits-prjtext(60) INTENSIFIED OFF COLOR 1,
         w_xxxexits-prjstatus INTENSIFIED OFF COLOR 6,
         w_xxxexits-devclass(30) INTENSIFIED OFF COLOR 5,
         w_xxxexits-inuse AS CHECKBOX INPUT OFF.
  HIDE:  w_xxxexits-prjname.

*  SKIP.


ENDLOOP.

AT LINE-SELECTION.

  READ LINE sy-lilli.

  IF NOT w_xxxexits-prjname IS INITIAL.

    SET PARAMETER ID 'MON_KUN' FIELD w_xxxexits-prjname.

    CALL TRANSACTION 'CMOD' AND SKIP FIRST SCREEN.

  ENDIF.