1
*---------------------------------------------------------------------*
2
* FORM TRANSPORTIEREN *
3
4
* send popup to confirm: saving etc. *
5
6
FORM TRANSPORTIEREN.
7
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
8
EXPORTING
9
TITEL = SVIM_TEXT_020 "Einträge transportieren
10
DIAGNOSETEXT1 = SVIM_TEXT_018 "Daten wurden verändert.
11
DIAGNOSETEXT2 =
12
SVIM_TEXT_021 "Wenn die Änderungen transport
13
DIAGNOSETEXT3 =
14
SVIM_TEXT_022 "werden sollen, müssen sie ers
15
TEXTLINE1 = SVIM_TEXT_023 "gesichert werden.
16
TEXTLINE2 = SVIM_TEXT_019 "Änderungen vorher sichern ?
17
IMPORTING
18
ANSWER = ANSWER.
19
CASE ANSWER.
20
WHEN 'J'.
21
SY-SUBRC = 0.
22
WHEN 'N'.
23
CLEAR <STATUS>-UPD_FLAG.
24
SY-SUBRC = 8.
25
WHEN 'A'.
26
SY-SUBRC = 12.
27
ENDCASE.
28
ENDFORM.