Code: Alles auswählen.
* markierte Zeilen löschen
loop at LT_ROWS into LS_ROWS.
read table GT_ALV_OUT index LS_ROWS-INDEX into LS_ALV_OUT.
* Lösche den betreffenden Datensatz aus der Datenbanktabelle
select single * from PA2002 into LS_PA2002
where PERNR = LS_ALV_OUT-PERNR
and UNAME = LS_ALV_OUT-UNAME
and BEGDA = LS_ALV_OUT-BEGDA
and ENDDA = LS_ALV_OUT-ENDDA
and BEGUZ = LS_ALV_OUT-BEGUZ
and ENDUZ = LS_ALV_OUT-ENDUZ
and SEQNR = LS_ALV_OUT-SEQNR.
check SY-SUBRC is initial.
LS_HRTIMESKEY-LOGICALSYSTEM = LS_PA2002-DOCSY.
LS_HRTIMESKEY-DOCUMENTNUMBER = LS_PA2002-DOCNR.
clear LT_RETURN[].
call function 'BAPI_PTMGRATTABS_MNGDELETE'
exporting
HRTIMESKEY = LS_HRTIMESKEY
* SIMULATE = ' '
* HRABSATT_IN =
tables
RETURN = LT_RETURN. .
endloop.
Folgende Benutzer bedankten sich beim Autor Ratazong für den Beitrag:
Nadine_2706
Folgende Benutzer bedankten sich beim Autor ChrisB für den Beitrag:
Nadine_2706
Code: Alles auswählen.
call function 'BAPI_EMPLOYEE_ENQUEUE'
exporting
NUMBER = LS_ALV_OUT-PERNR
* IMPORTING
* RETURN =
.
call function 'BAPI_PTMGRATTABS_MNGDELETE'
exporting
HRTIMESKEY = LS_HRTIMESKEY
* SIMULATE = ' '
* HRABSATT_IN =
tables
RETURN = LT_RETURN.
call function 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT =
* IMPORTING
* RETURN =
.
call function 'BAPI_EMPLOYEE_DEQUEUE'
exporting
NUMBER = LS_ALV_OUT-PERNR
* IMPORTING
* RETURN =
.