1
*---------------------------------------------------------------------*
2
* FORM CHECK_UPD *
3
4
* ........ *
5
6
FORM CHECK_UPD.
7
data: leave.
8
CHECK STATUS-ACTION NE ANZEIGEN.
9
IF <STATUS>-UPD_FLAG EQ SPACE.
10
IF STATUS-ACTION EQ TRANSPORTIEREN.
11
MOVE <STATUS>-KEYTBMODFD TO <STATUS>-UPD_FLAG.
12
ELSE.
13
LOOP AT TOTAL.
14
* CHECK <ACTION> NE NEUER_GELOESCHT AND <ACTION> NE ORIGINAL.
15
CHECK <ACTION> NE ORIGINAL.
16
MOVE 'X' TO <STATUS>-UPD_FLAG.
17
EXIT.
18
ENDLOOP.
19
IF <STATUS>-UPD_FLAG EQ SPACE AND X_HEADER-BASTAB NE SPACE AND
20
X_HEADER-TEXTTBEXST NE SPACE.
21
22
* CHECK <ACTION_TEXT> NE NEUER_GELOESCHT AND
23
CHECK <ACTION_TEXT> NE ORIGINAL.
24
25
26
27
ENDIF.
28
IF <STATUS>-UPD_FLAG EQ SPACE AND X_HEADER-TEXTTBEXST <> SPACE.
29
PERFORM VIM_CHECK_UPD_TEXTTAB. "SW Texttransl
30
31
IF <STATUS>-UPD_FLAG EQ SPACE AND X_HEADER-ADRNBRFLAG EQ 'N'.
32
DESCRIBE TABLE VIM_ADDRESSES_TO_SAVE.
33
IF SY-TFILL GT 0.
34
35
36
37
38
39
IF X_HEADER-FRM_AF_CHK NE SPACE AND STATUS-ACTION NE TRANSPORTIEREN.
40
PERFORM (X_HEADER-FRM_AF_CHK) IN PROGRAM (SY-REPID).
41
42
if <status>-upd_flag = space and vim_called_by_cluster = space and
43
( function = back OR function = end ).
44
perform vim_add_img_notices_pai using 'E'
45
changing leave.
46
if leave = space.
47
clear function.
48
endif.
49
50
MOVE 'X' TO <STATUS>-UPD_CHECKD.
51
ENDFORM.