Properties SourceCde
txt
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
        LOOP AT TOTAL.
22
*         CHECK <ACTION_TEXT> NE NEUER_GELOESCHT AND
23
          CHECK <ACTION_TEXT> NE ORIGINAL.
24
          MOVE 'X' TO <STATUS>-UPD_FLAG.
25
          EXIT.
26
        ENDLOOP.
27
      ENDIF.
28
      IF <STATUS>-UPD_FLAG EQ SPACE AND X_HEADER-TEXTTBEXST <> SPACE.
29
        PERFORM VIM_CHECK_UPD_TEXTTAB. "SW Texttransl
30
      ENDIF.
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
          MOVE 'X' TO <STATUS>-UPD_FLAG.
35
        ENDIF.
36
      ENDIF.
37
    ENDIF.
38
  ENDIF.
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
  ENDIF.
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
  endif.
50
  MOVE 'X' TO <STATUS>-UPD_CHECKD.
51
ENDFORM.