1
*&--------------------------------------------------------------------*
2
*& Form AFTER_SAVING *
3
4
* process after-treatment of saving *
5
6
FORM after_saving.
7
DATA: dummy.
8
DATA e071_loctab TYPE vim_ko200_tab_type.
9
10
IF x_header-texttbexst <> space AND "SW Texttransl ..
11
vim_abort_saving EQ space.
12
IF x_header-frm_tl_upd NE space.
13
PERFORM (x_header-frm_tl_upd) IN PROGRAM.
14
ELSE.
15
PERFORM vim_texttab_db_update.
16
ENDIF.
17
ENDIF. ".. TEXTTRANSL
18
IF vim_abort_saving = space AND vim_called_by_cluster = space.
19
PERFORM vim_add_img_notices_pai USING 'S'
20
CHANGING dummy.
21
22
IF x_header-frm_af_sav NE space.
23
PERFORM (x_header-frm_af_sav) IN PROGRAM.
24
25
* Call synchronizer
26
IF vim_abort_saving EQ space.
27
REFRESH e071_loctab.
28
APPEND e071 TO e071_loctab.
29
PERFORM vim_synchronizer_call
30
USING e071_loctab[]
31
corr_keytab[]
32
'X'.
33
34
IF <status>-selected CO 'NUD'.
35
CLEAR <status>-selected.
36
37
IF vim_abort_saving = space.
38
* build up BC-Set import log
39
PERFORM vim_bc_logs_put CHANGING vim_bc_entry_list.
40
41
CLEAR vim_abort_saving.
42
* log end of database changes
43
CALL FUNCTION 'VIEW_WRITE_CHANGELOG_HEADER'
44
EXPORTING
45
viewname = x_header-viewname
46
bastab = x_header-bastab
47
begin = space
48
clidep = x_header-clidep.
49
TRANSLATE vim_adjust_middle_level_mode USING 'XLSL'.
50
ENDFORM. "after_saving