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_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