Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    1
    *&--------------------------------------------------------------------*
    2
    *&      Form  CHECK_MODIFY_MERGED_ENTRIES                             *
    3
    *&--------------------------------------------------------------------*
    4
    * check if changed entry is to be merged and if so do it
    5
    * merging functionality has never been finished                       *
    6
    *&--------------------------------------------------------------------*
    7
    * <-- SY-SUBRC: 0 - ok, merge, others: don't merge                    *
    8
    *&--------------------------------------------------------------------*
    9
    *FORM CHECK_MODIFY_MERGED_ENTRIES USING VALUE(ENTRY_IN).
    10
    *  LOCAL: TOTAL, <TABLE1>.
    11
    *  DATA: REC TYPE I VALUE 8.
    12
    *  <F1> = ENTRY_IN. <VIM_ENDDATE_MASK> = VIM_DATE_MASK.
    13
    *  LOOP AT VIM_MERGED_ENTRIES WHERE NEW_KEY CP <F1>. "Achtung !!!!!!
    14
    *    READ TABLE TOTAL WITH KEY VIM_MERGED_ENTRIES-MERGED_KEY
    15
    *                     BINARY SEARCH.
    16
    *    IF SY-SUBRC EQ 0.
    17
    *      <TABLE1> = TOTAL.
    18
    *      <VIM_BEGDATE_MASK> = VIM_DATE_MASK.
    19
    *      <VIM_ENDDATE_MASK> = VIM_DATE_MASK.
    20
    *      IF ENTRY_IN CP <TABLE1>. "entry can be merged. "ACHTUNG!!
    21
    *        CLEAR REC.
    22
    *        TOTAL = ENTRY_IN.
    23
    *        VIM_MERGED_ENTRIES-MERGED_KEY = <VIM_TOTAL_KEY>.
    24
    *
    25
    *
    26
    *
    27
    *
    28
    *      ENDIF.
    29
    *    ENDIF.
    30
    *  ENDLOOP.
    31
    *ENDFORM.                               "check_modify_merged_entries