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
33
CLEAR FUNCTION.
34
35
36
IF VIM_SINGLE_ENTRY_FUNCTION NE SPACE.
37
TRANSLATE STATUS-ACTION USING 'AU'. STATUS-MODE = GESAMTDATEN.
38
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
47
48
ENDFORM.