Eigenschaften | Quelltext
Titel | LISTE_ABBRECHEN |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
txt
    1
    *---------------------------------------------------------------------*
    2
    *       FORM LISTE_ABBRECHEN                                          *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM LISTE_ABBRECHEN.
    7
    * CHECK REPLACE_MODE EQ SPACE.
    8
    *(DEL)  IF STATUS-ACTION EQ ANZEIGEN.
    9
    *(DEL)    MESSAGE I001(SV).
    10
    *(DEL)    EXIT.
    11
    *(DEL)  ENDIF.
    12
      IF SY-DATAR NE SPACE.
    13
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
    14
             EXPORTING
    15
                  TITEL          = SVIM_TEXT_005
    16
                  TEXTLINE1      = SVIM_TEXT_009
    17
                  TEXTLINE2      = SVIM_TEXT_006
    18
                  DEFAULTOPTION  = 'N'
    19
                  CANCEL_DISPLAY = ' '
    20
             IMPORTING
    21
                  ANSWER         = ANSWER.
    22
        IF ANSWER EQ 'J'.
    23
          NEUER = 'N'.
    24
          IF STATUS-ACTION EQ KOPIEREN.
    25
            SET SCREEN 0.
    26
          ELSE.
    27
            SET SCREEN LISTE.
    28
            NEXTLINE = FIRSTLINE.
    29
          ENDIF.
    30
          CLEAR <STATUS>-UPD_FLAG.
    31
          LEAVE SCREEN.
    32
        ELSE.
    33
          CLEAR FUNCTION.
    34
        ENDIF.
    35
      ELSE.
    36
        IF VIM_SINGLE_ENTRY_FUNCTION NE SPACE.
    37
          TRANSLATE STATUS-ACTION USING 'AU'. STATUS-MODE = GESAMTDATEN.
    38
        ENDIF.
    39
        CASE STATUS-ACTION.
    40
          WHEN HINZUFUEGEN. PERFORM LISTE_BACK.
    41
          WHEN KOPIEREN.    SET SCREEN 0.
    42
          WHEN OTHERS.
    43
            FUNCTION = 'BACK'. SET SCREEN 0. CLEAR VIM_ACT_DYNP_VIEW.
    44
            PERFORM UPDATE_STATUS.
    45
        ENDCASE.
    46
        LEAVE SCREEN.
    47
      ENDIF.
    48
    ENDFORM.