Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 23.06.2003 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    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
      ENDIF.
    22
      IF x_header-frm_af_sav NE space.
    23
        PERFORM (x_header-frm_af_sav) IN PROGRAM.
    24
      ENDIF.
    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
      ENDIF.
    34
      IF <status>-selected CO 'NUD'.
    35
        CLEAR <status>-selected.
    36
      ENDIF.
    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
      ENDIF.
    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