Eigenschaften | Quelltext
Titel | CHECK_DELIM_NEW_ENTRY |
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  CHECK_DELIM_NEW_ENTRY                                   *
    3
    *&--------------------------------------------------------------------*
    4
    * check new entry for delimitation (called from validity period sbscr)*
    5
    *---------------------------------------------------------------------*
    6
    * BEGDATE ---> E: new begin date /B: new end date                     *
    7
    * ENDDATE ---> E: end date /B: begin date                             *
    8
    *&--------------------------------------------------------------------*
    9
    FORM check_delim_new_entry USING value(begdate) value(enddate).
    10
      LOOP AT total.
    11
        CHECK <vim_tot_mkey_beforex> EQ <vim_f1_beforex> AND
    12
              ( vim_mkey_after_exists EQ space OR
    13
                <vim_tot_mkey_afterx> EQ <vim_f1_afterx> ).
    14
        CHECK <vim_enddate> NE enddate.
    15
        CHECK <action> NE geloescht AND
    16
              <action> NE neuer_geloescht AND
    17
              <action> NE update_geloescht.
    18
        IF x_header-delmdtflag EQ 'E'.     "end date is key field
    19
          CHECK <vim_enddate> GE begdate AND <vim_begdate> LE enddate.
    20
        ELSE.                              "begin date is key field
    21
          CHECK <vim_enddate> LE begdate AND <vim_begdate> GE enddate. "entr
    22
        ENDIF.                             "x_header-delmdtflag eq 'E'
    23
        IF vim_special_mode NE vim_reset.
    24
          MESSAGE w047(sv). "Überlagerte Sätze werden gelöscht
    25
        ELSE.
    26
          MESSAGE i047(sv). "Überlagerte Sätze werden gelöscht
    27
        ENDIF.
    28
        EXIT.
    29
      ENDLOOP.
    30
    ENDFORM.                               "check_delim_new_entry