Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
STDIN
Code: Alles auswählen.
IF lv_bt_error EQ space AND lv_et_error EQ space AND
lv_bt_min_error EQ space AND lv_et_min_error EQ space.
CALL METHOD get_presence
EXPORTING
pv_bt = lv_btime
pv_et = lv_etime
IMPORTING
ev_presence = lv_pre
ev_presence_error = lv_presence_error.
IF lv_presence_error EQ space.
gs_out-anwesend = lv_pre.
CALL METHOD check_pause
EXPORTING
pv_pause = gs_out-pause
pv_presence = lv_pre
IMPORTING
ev_pause_error = lv_pause_error.
IF lv_pause_error EQ space.
gs_out-a_time = gs_out-anwesend -
gs_out-pause.
ELSE.
CLEAR gs_out-pause.
exit.
ENDIF.
Code: Alles auswählen.
IF pv_presence LT pv_pause.
* MESSAGE e023(zactvt).
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = 'Error'
txt1 = 'anwesend kleiner als pause'
txt2 = ' '.
ev_pause_error = 'X'.
ENDIF.
* EXIT.
* ELSE.
IF pv_pause > 0.
lv_pause = ( pv_pause * 100 ) MOD 25.
IF lv_pause NE 0.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = 'Error'
txt1 = 'kein viertelstundentakt'
txt2 = ' '.
ev_pause_error = 'X'.
* EXIT.
* MESSAGE e024(zactvt).
ELSE.
lv_pause = pv_pause.
ENDIF.
ELSE.
lv_pause = pv_pause.
ENDIF.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
STDIN
a-dead-trousers hat geschrieben: ↑29.05.2020 22:09Weil im CHANGED_DATA_PROTOCOLL logischerweise nur die "geänderten" Zeilen vorkommen. ;)