Eigenschaften | Quelltext
Titel | TIME_DEPENDENT_DISPLAY_MODIF |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
txt
    1
    *&--------------------------------------------------------------------*
    2
    *&      Form  TIME_DEPENDENT_DISPLAY_MODIF.                           *
    3
    *&--------------------------------------------------------------------*
    4
    * process display modification (collapse/expand)                      *
    5
    *&--------------------------------------------------------------------*
    6
    FORM time_dependent_display_modif.
    7
      DATA: ex_ix TYPE i, modif_mode(1) TYPE c, first(1) TYPE c,
    8
            ex_begin TYPE i, ex_end TYPE i, key_safe TYPE vrsdat1000,
    9
            to_ix TYPE i, rc like sy-subrc.
    10
      READ TABLE extract INDEX nextline.
    11
      key_safe = <vim_xextract_key>.
    12
      CLEAR vim_mainkey.
    13
      TRANSLATE vim_no_mainkey_exists USING vim_no_mkey_not_procsd_patt.
    14
      LOOP AT extract.
    15
        ex_ix = sy-tabix.
    16
        IF vim_no_mainkey_exists EQ vim_no_mkey_not_procsd OR
    17
           <vim_ext_mkey_beforex> NE <vim_mkey_beforex> OR
    18
           ( vim_mkey_after_exists NE space AND
    19
             <vim_ext_mkey_afterx> NE <vim_mkey_afterx> ).
    20
    *       <vim_ext_mkey_before> NE <vim_mkey_before> OR
    21
    *       ( vim_mkey_after_exists NE space AND
    22
    *         <vim_ext_mkey_after> NE <vim_mkey_after> ).
    23
          ex_end = sy-tabix - 1.
    24
          IF modif_mode EQ 'C'.
    25
            PERFORM collapse USING ex_begin ex_end.
    26
            modif_mode = 'X'.
    27
          ENDIF.                           "modif_mode eq collapse
    28
          ex_begin = ex_ix.
    29
          <vim_h_mkey> = <vim_xextract_key>.
    30
    *      vim_mainkey = <vim_extract_key>.
    31
          TRANSLATE vim_no_mainkey_exists USING vim_no_mkey_procsd_patt.
    32
        ENDIF.                             "new mainkey in extract.
    33
        CHECK <xmark> EQ markiert.
    34
        READ TABLE total WITH KEY <vim_xextract_key> BINARY SEARCH.
    35
        <mark> = nicht_markiert. SUBTRACT 1 FROM mark_total.
    36
        MODIFY total INDEX sy-tabix.
    37
        SUBTRACT 1 FROM mark_extract.
    38
        IF modif_mode CO ' X'.
    39
          rc = 4.
    40
          LOOP AT vim_collapsed_mainkeys.
    41
            check <vim_collapsed_mkey_bfx> = <vim_mkey_beforex>.
    42
    *      WHERE mkey_bf EQ <vim_mkey_before>.
    43
            IF vim_mkey_after_exists NE space.
    44
              CHECK <vim_collapsed_key_afx> EQ <vim_mkey_afterx>.
    45
            ENDIF.
    46
            DELETE vim_collapsed_mainkeys.
    47
            clear rc.
    48
            EXIT.
    49
          ENDLOOP.
    50
          IF rc EQ 0.
    51
    * entry in collapsed mode -> expand
    52
            modif_mode = 'E'.
    53
          ELSE.
    54
    * entry in expanded mode -> collapse
    55
            modif_mode = 'C'.
    56
          ENDIF.
    57
        ENDIF.
    58
        IF modif_mode = 'E'.
    59
          CLEAR vim_delim_entries.
    60
          vim_delim_entries-index3 = ex_ix.
    61
          APPEND vim_delim_entries.
    62
          CLEAR vim_delim_entries-index3.
    63
          vim_delim_entries-index_corr = 'X'.
    64
          LOOP AT total.
    65
            CHECK <vim_tot_mkey_beforex> EQ <vim_mkey_beforex> AND
    66
                  ( vim_mkey_after_exists EQ space OR
    67
                    <vim_tot_mkey_afterx> EQ <vim_mkey_afterx> ).
    68
    *        CHECK <vim_tot_mkey_before> EQ <vim_mkey_before> AND
    69
    *              ( vim_mkey_after_exists EQ space OR
    70
    *                <vim_tot_mkey_after> EQ <vim_mkey_after> ).
    71
            to_ix = sy-tabix.
    72
            PERFORM select USING <status>-selected.
    73
            CHECK sy-subrc EQ 0.
    74
            vim_delim_entries-index1 = to_ix.
    75
            vim_delim_entries-index2 = ex_ix.
    76
            APPEND vim_delim_entries.
    77
          ENDLOOP.
    78
          modif_mode = 'X'.
    79
        ENDIF.
    80
      ENDLOOP.
    81
      IF modif_mode EQ 'C'.
    82
        CLEAR vim_delim_entries.
    83
        PERFORM collapse USING ex_begin maxlines.
    84
      ENDIF.
    85
      PERFORM after_temporal_delimitation.
    86
      <vim_xextract_key> = key_safe.
    87
      READ TABLE extract WITH KEY <vim_ext_mkey_beforex>.
    88
    *  READ TABLE extract WITH KEY <vim_ext_mkey_before>.
    89
      IF sy-subrc EQ 0.
    90
        nextline = sy-tabix.
    91
      ELSE.
    92
        nextline = 1.
    93
      ENDIF.
    94
    * ENDIF.
    95
    ENDFORM.                               "time_dependent_display_modif