Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 11.03.2003 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
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