Code: Alles auswählen.
DELETE FROM TEVEN WHERE PERNR = P_PERNRS-PERNR. "QNOK025951
"XWSN0212720
ENDLOOP.
ENDFORM. "delete_teven
*---------------------------------------------------------------------*
* FORM DELETE_POSTINGS *
*---------------------------------------------------------------------*
* Tabellen fuer Buchungen (RPCIPO00) und
* Matchcode W (T52MCW) loeschen
*---------------------------------------------------------------------*
* --> P_PERNRS table of all pernrs to be deleted
*---------------------------------------------------------------------*
FORM DELETE_POSTINGS TABLES P_PERNRS STRUCTURE ALL_PERNRS.
CHECK TEST_MODE IS INITIAL. "don't delete in TEST-MODE
* LOOP AT ALL_PERNRS. "XWSN0212720
* DELETE FROM PCALAC WHERE PERNR = ALL_PERNRS-PERNR. "XWSN0212720
* DELETE FROM PPOIX WHERE PERNR = ALL_PERNRS-PERNR. "XWSN0212720
* DELETE FROM PPOPX WHERE PERNR = ALL_PERNRS-PERNR. "XWSN0212720
* DELETE FROM T52MCW WHERE PERNR = ALL_PERNRS-PERNR. "QNOK036732
"XWSN0212720
LOOP AT P_PERNRS. "XWSN0212720
DELETE FROM PCALAC WHERE PERNR = P_PERNRS-PERNR. "XWSN0212720
DELETE FROM PPOIX WHERE PERNR = P_PERNRS-PERNR. "XWSN0212720
DELETE FROM PPOPX WHERE PERNR = P_PERNRS-PERNR. "XWSN0212720
DELETE FROM T52MCW WHERE PERNR = P_PERNRS-PERNR. "QNOK036732
"XWSN0212720
ENDLOOP.
ENDFORM. "delete_teven