Code: Alles auswählen.
selection-screen pushbutton (50) BUTTON1 user-command BUT1 visible length 26.
Code: Alles auswählen.
if SSCRFIELDS-UCOMM eq 'BUT2'.
* authority-check object 'P_TCODE'
* id 'TCD' field GC_TCODE.
* if SY-SUBRC is not initial.
* message I889(CO) with 'Keine Berechtigung zum Löschen'.
* exit.
* endif.
submit Z_PROGRAMM2 via selection-screen
and return.
endif.
Danke!