Kundeneigene Wertehilfe (Beispiel) 
Kundeneigene Wertehilfe (Beispiel)
Sie wollen die aktuelle Wertehilfe
SAP_PICKLIST um eine Zeile für PSP-Elemente erweitern. Anschließend wollen Sie die modifizierte Wertehilfe in eine kundeneigene Wertehilfe umwandeln, und diese um eine Spalte ergänzen.
Im Quelltext wird für die Wertehilfen der Begriff "Picklist" verwendet. Beide Begriffe haben dieselbe Bedeutung.
ABAP-Quelltext
*-----------------------------------------------------------------*
* INCLUDE ZXMYCU01 *
*-----------------------------------------------------------------*
IF sap_fieldname = 'RPROJ'.
DATA: my_wbs_picklist TYPE my_wbs_picklist,
wa_my_wbs_picklist LIKE LINE OF my_wbs_picklist,
sap_wbs_picklist TYPE TABLE OF cats_my_str_picklist_rproj,
wa_sap_wbs_picklist TYPE cats_my_str_picklist_rproj.
* append/modify entries to standard picklist
sap_wbs_picklist = sap_picklist.
wa_sap_wbs_picklist-rproj = '12345'.
wa_sap_wbs_picklist-rproj_txt = 'Stand. txt 12345'.
APPEND wa_sap_wbs_picklist TO sap_wbs_picklist.
sap_picklist = sap_wbs_picklist.
* add a row to the standard picklist
FIELD-SYMBOLS: <my_picklist> TYPE ANY TABLE.
CREATE DATA reference_to_new_picklist TYPE my_wbs_picklist.
ASSIGN reference_to_new_picklist->* TO <my_picklist>.
LOOP AT sap_picklist INTO wa_sap_wbs_picklist.
MOVE-CORRESPONDING wa_sap_wbs_picklist TO wa_my_wbs_picklist.
CONCATENATE 'myText is much longer for wbs-element '
wa_sap_wbs_picklist-rproj
INTO wa_my_wbs_picklist-customer_txt
SEPARATED BY space.
APPEND wa_my_wbs_picklist TO my_wbs_picklist.
ENDLOOP.
<my_picklist> = my_wbs_picklist.
ENDIF.
*-----------------------------------------------------------------*
Die einleitende Abfrage
IF sap_fieldname = 'RPROJ'. dient dazu, das Feld zu ermitteln, für das Sie die Wertehilfe anpassen wollen. Nur so können Sie die Anpassung der Wertehilfen für verschiedene Felder voneinander getrennt vornehmen.Die folgenden Zeilen dienen dazu, die Referenz auf Ihre kundeneigene Wertehilfe zu erzeugen:
Die hier gezeigte Verwendung des Feldsymbols
<my_picklist> (der Name ist wahlfrei) beschränkt sich nicht auf die Anpassung der Wertehilfe für das Feld RPROJ. Sie können sie auch für die Anpassung der Wertehilfen anderer Felder unverändert übernehmen.