Liste de sélection propre au client (exemple) 

Vous souhaitez ajouter une ligne pour les éléments d'OTP à la liste de sélection actuelle, SAP_PICKLIST. Vous souhaitez ensuite transformer la liste de sélection modifiée en une liste de sélection propre au client, et ajouter une colonne à celle-ci.

Dans le texte source, le terme « liste de sélection » est utilisé pour « aide à la saisie ». Les deux termes ont la même signification.

Code source ABAP

*-----------------------------------------------------------------*
*   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.
*-----------------------------------------------------------------*

La demande de confirmation préliminaire, IF sap_fieldname = “RPROJ”, est utilisée pour définir la zone dont vous souhaitez modifier la liste de sélection. C'est la seule façon de vous assurer que vous pouvez corriger séparément des listes de sélection pour différentes zones.

Les lignes suivantes sont utilisées pour créer la référence à votre liste de sélection propre au client.

·        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>.

·        <my_picklist> = my_wbs_picklist

L'utilisation du symbole de zone <my_picklist> indiqué ici (vous pouvez également utiliser un autre nom de votre choix) n'est pas limitée à la modification de la liste de sélection pour la zone RPROJ. Vous pouvez également le reprendre tel quel pour modifier les listes de sélection d'autres zones.