ИТ 2001, фунукциональный характер 06 (создание и изменение):
опер. текст
P T001P-MOLGA = 'KZ'
F CHECK_ABC(ZDYNMER)
P RP50D-FLAG1='P'
I MOD,0617,,,(P2001-BEGDA),(P2001-ENDDA)
P RP50D-FLAG1='C'
I INS,0617,,,(P2001-BEGDA),(P2001-ENDDA)
Code:
REPORT ZDYNMER.
TABLES: rp50d, t554s, p2001, pa0617.
"DATA: it617 TYPE p0617 OCCURS 0 WITH HEADER LINE.
FORM CHECK_ABC.
BREAK cbs_01.
CHECK p2001-subty IS NOT INITIAL.
SELECT SINGLE * FROM t554s WHERE moabw = '35' AND subty = p2001-subty AND begda <= p2001-begda AND endda >= p2001-begda.
CHECK t554s-abstp = 'Б'.
SELECT SINGLE * FROM pa0617 WHERE pernr = p2001-pernr AND begda = p2001-begda AND endda = p2001-endda.
IF SY-SUBRC = 0.
rp50d-DATE1 = pa0617-begda.
rp50d-DATE2 = pa0617-endda.
rp50d-flag1 = 'P'.
ELSE.
rp50d-DATE1 = p2001-begda.
rp50d-DATE2 = p2001-endda.
rp50d-flag1 = 'C'.
ENDIF.
ENDFORM.