Properties SourceCde
txt 
1
*---------------------------------------------------------------------*
2
*       FORM EXCLUDE_CUA_FUNCTIONS                                    *
3
*---------------------------------------------------------------------*
4
* ggf. Funktionen ausschließen                                        *
5
*---------------------------------------------------------------------*
6
FORM exclude_cua_functions.
7
  MOVE 'SLCT' TO excl_cua_funct-function. COLLECT excl_cua_funct.
8
  IF x_header-delmdtflag EQ space.
9
    MOVE 'DELM' TO excl_cua_funct-function. COLLECT excl_cua_funct.
10
    MOVE 'EXPA' TO excl_cua_funct-function. COLLECT excl_cua_funct.
11
    TRANSLATE x_header-existency USING 'MU'.
12
    MODIFY x_header INDEX 1.
13
  ELSEIF vim_begdate_is_ro NE space.
14
    MOVE 'DELM' TO excl_cua_funct-function. COLLECT excl_cua_funct.
15
    MODIFY x_header INDEX 1.
16
  ENDIF.
17
  CASE x_header-existency.
18
    WHEN 'U'.                          "update only
19
      MOVE 'NEWL' TO excl_cua_funct-function. COLLECT excl_cua_funct.
20
      MOVE 'ALNW' TO excl_cua_funct-function. COLLECT excl_cua_funct.
21
      MOVE 'ALOE' TO excl_cua_funct-function. COLLECT excl_cua_funct.
22
      MOVE 'DELE' TO excl_cua_funct-function. COLLECT excl_cua_funct.
23
      MOVE 'KOPE' TO excl_cua_funct-function. COLLECT excl_cua_funct.
24
      MOVE 'DELM' TO excl_cua_funct-function. COLLECT excl_cua_funct.
25
    WHEN 'M'.                          "update only for main key
26
      MOVE 'NEWL' TO excl_cua_funct-function. COLLECT excl_cua_funct.
27
    WHEN 'R'.                          "read only
28
      MOVE 'AEND' TO excl_cua_funct-function. COLLECT excl_cua_funct.
29
  ENDCASE.
30
  IF x_header-clidep EQ space OR sy-mandt EQ '000'.
31
    MOVE 'COMP' TO excl_cua_funct-function. COLLECT excl_cua_funct.
32
    IF x_header-clidep EQ space.
33
      MOVE 'CMPO' TO excl_cua_funct-function. COLLECT excl_cua_funct.
34
    ENDIF.
35
  ENDIF.
36
  IF x_header-flag NE space AND x_header-cursetting EQ 'Y' AND
37
     NOT ( x_header-frm_e071 NE space OR x_header-frm_e071ks NE space OR
38
           x_header-frm_e071ka NE space ).
39
    MOVE 'TRSP' TO excl_cua_funct-function. COLLECT excl_cua_funct.
40
  ENDIF.
41
  IF x_header-adrnbrflag EQ space.
42
    MOVE 'ADDR' TO excl_cua_funct-function. COLLECT excl_cua_funct.
43
  ELSE.
44
    LOOP AT excl_cua_funct WHERE function EQ 'ADDR'.
45
      DELETE excl_cua_funct.
46
    ENDLOOP.
47
  ENDIF.
48
  IF x_header-scrfrmflag EQ space.
49
    MOVE 'SCRF' TO excl_cua_funct-function. COLLECT excl_cua_funct.
50
  ELSE.
51
    LOOP AT excl_cua_funct WHERE function EQ 'SCRF'.
52
      DELETE excl_cua_funct.
53
    ENDLOOP.
54
  ENDIF.
55
  IF x_header-texttbexst EQ space.     "SW Texttransl
56
    MOVE 'LANG' TO excl_cua_funct-function. COLLECT excl_cua_funct.
57
    MOVE 'TEXT' TO excl_cua_funct-function. COLLECT excl_cua_funct.
58
  ENDIF.
59
  IF vim_coming_from_img = 'N'.        "UF profiles
60
* profiles can't be activated
61
    MOVE 'GPRF' TO excl_cua_funct-function. COLLECT excl_cua_funct.
62
    MOVE 'UPRF' TO excl_cua_funct-function. COLLECT excl_cua_funct.
63
  ELSE.
64
    IF maint_mode = anzeigen.
65
* profile activating not allowed
66
      MOVE 'UPRF' TO excl_cua_funct-function. COLLECT excl_cua_funct.
67
    ELSE.
68
      DELETE excl_cua_funct WHERE function = 'UPRF'.
69
    ENDIF.
70
  ENDIF.
71
  IF <status>-bcfixnochg = space.
72
    MOVE 'BCCH' TO excl_cua_funct-function. COLLECT excl_cua_funct.
73
    MOVE 'BCSH' TO excl_cua_funct-function. COLLECT excl_cua_funct.
74
  ELSE.
75
    DELETE excl_cua_funct WHERE function = 'BCCH'.
76
    DELETE excl_cua_funct WHERE function = 'BCSH'.
77
  ENDIF.
78
ENDFORM.                    "EXCLUDE_CUA_FUNCTIONS