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