1
*---------------------------------------------------------------------*
2
* FORM ORDER_ADMINISTRATION *
3
4
* get client state and transport objects *
5
6
FORM ORDER_ADMINISTRATION.
7
DATA: RC LIKE SY-SUBRC.
8
IF STATUS-ACTION EQ ANZEIGEN AND
9
VIM_CORR_OBJ_VIEWNAME NE X_HEADER-VIEWNAME.
10
CLEAR E071-TRKORR.
11
PERFORM GET_TRANSP_INFO.
12
VIM_CORR_OBJ_VIEWNAME = X_HEADER-VIEWNAME.
13
ENDIF.
14
IF X_HEADER-FLAG EQ VIM_TRANSPORT_DENIED.
15
MESSAGE S001(SV). EXIT.
16
17
DO.
18
CALL FUNCTION 'TR_TASK_OVERVIEW'
19
EXPORTING
20
IV_USERNAME = SY-UNAME
21
IV_CATEGORY = OBJH-OBJCATEG
22
IV_CLIENT = SY-MANDT
23
EXCEPTIONS
24
INVALID_CATEGORY = 01
25
OTHERS = 02.
26
RC = SY-SUBRC.
27
IF SY-SUBRC EQ 1 AND
28
OBJH-OBJCATEG EQ VIM_CUST_SYST OR OBJH-OBJCATEG EQ VIM_APPL.
29
OBJH-OBJCATEG = VIM_SYST.
30
CONTINUE.
31
32
EXIT.
33
ENDDO.
34
IF RC NE 0.
35
MESSAGE ID SY-MSGID
36
TYPE 'I'
37
NUMBER SY-MSGNO
38
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
39
40
CLEAR FUNCTION.
41
ENDFORM. "order_administration