PARAMETER: p_name TYPE trdir-name. START-OF-SELECTION. DATA: lv_trdir TYPE trdir. SELECT SINGLE * FROM trdir INTO @lv_trdir WHERE name = @p_name. IF sy-subrc = 0. IF lv_trdir-edtx = 'X'. lv_trdir-edtx = space. CALL FUNCTION 'RS_TRDIR_UPDATE' EXPORTING trdir_row = lv_trdir EXCEPTIONS internal_error = 1 parameter_error = 2 not_found = 3 OTHERS = 4. IF sy-subrc EQ 0. WRITE:/ 'Editor entsperrt.'. ENDIF. ELSE. WRITE:/ 'Editor ist schon entsperrt.'. ENDIF. ENDIF.
Kategorien
-
Neueste Beiträge
- [RAP] ODATA V4 Service und Fiori Elements App implementieren
- [ABAP] Übernahme von Dokumenteninfosätzen beim Anlegen von Einkaufsbelegen unterdrücken
- [ABAP] OpenSQL: Stringfunktionen
- [ABAP] OpenSQL: NULL-Indicator zum Anzeigen von leeren Rückgabemengen
- [ABAP] OpenSQL: Set-Indicator für das Aktualisieren von Spalten
- [ABAP] Repository-Infosystem: Views zu Objekten
- [ABAP] SALV-Table – Gruppen für Spaltenvorrat im SALV-Layout
- [ABAP] Retourenumlagerungsbestellungen lesen
- [SAP] Fabrikkalender / Feiertagskalender einrichten
- [ABAP] ABAP2XLSX: CSV-Datei schreiben