{"id":548,"date":"2013-04-28T15:39:21","date_gmt":"2013-04-28T14:39:21","guid":{"rendered":"http:\/\/oprsteny.cz\/?p=548"},"modified":"2013-04-30T10:48:59","modified_gmt":"2013-04-30T09:48:59","slug":"alv-tutorial-09-dropdown-lists","status":"publish","type":"post","link":"https:\/\/oprsteny.cz\/?p=548","title":{"rendered":"ALV tutorial 09 – Dropdown lists"},"content":{"rendered":"

\"SAP\"Example of setting an ALV column as dropdown listbox.<\/p>\n

REPORT  z_alv_demo_09.\r\n\r\nTYPES: BEGIN OF ty_data.\r\n        INCLUDE STRUCTURE sflight.\r\nTYPES:  flight_status(2) TYPE c,\r\n       END OF ty_data.\r\n\r\nDATA: gt_data TYPE TABLE OF ty_data,\r\n      g_grid TYPE REF TO cl_gui_alv_grid,\r\n      gs_layout TYPE lvc_s_layo,\r\n      gt_fieldcat TYPE lvc_t_fcat,\r\n      gt_dropdown1 TYPE lvc_t_drop,                 \" table with dropdown items for solution 1\r\n      gt_dropdown2 type lvc_t_dral.                 \" table with dropdown items for solution 2\r\n\r\nCONSTANTS:\r\n  c_max_rows TYPE i VALUE 100,\r\n  c_solution type i value 1.                        \" Comment\/uncomment to test solution 1 or 2\r\n* c_solution type i value 2.                        \" Comment\/uncomment to test solution 1 or 2\r\n\r\nCALL SCREEN 100.\r\n\r\n*&---------------------------------------------------------------------*\r\n*&      Form  read_data\r\n*&---------------------------------------------------------------------*\r\n*       text\r\n*----------------------------------------------------------------------*\r\nFORM read_data.\r\n  FIELD-SYMBOLS:\r\n    <fs_data> TYPE ty_data.\r\n\r\n  SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data\r\n    FROM sflight\r\n    UP TO c_max_rows ROWS.\r\n\r\n  LOOP AT gt_data ASSIGNING <fs_data>.\r\n    IF <fs_data>-fldate > sy-datum.\r\n      <fs_data>-flight_status = '01'.\r\n    ELSE.\r\n      <fs_data>-flight_status = '02'.\r\n    ENDIF.\r\n  ENDLOOP.\r\nENDFORM.                    \"read_data\r\n\r\n*&---------------------------------------------------------------------*\r\n*&      Form  display_grid\r\n*&---------------------------------------------------------------------*\r\n*       text\r\n*----------------------------------------------------------------------*\r\nFORM display_grid.\r\n\r\n  CREATE OBJECT g_grid\r\n    EXPORTING\r\n      i_parent = cl_gui_container=>default_screen.\r\n\r\n  PERFORM get_layout.\r\n  PERFORM get_fieldcat.\r\n  PERFORM get_dropdowns.\r\n\r\n  IF c_solution = 1.\r\n    CALL METHOD g_grid->set_drop_down_table\r\n      EXPORTING\r\n        it_drop_down = gt_dropdown1.\r\n  ELSEIF c_solution = 2.\r\n    CALL METHOD g_grid->set_drop_down_table\r\n      EXPORTING\r\n        it_drop_down_alias = gt_dropdown2.\r\n  ENDIF.\r\n\r\n*method to display the dropdown in ALV\r\n  CALL METHOD g_grid->set_table_for_first_display\r\n    EXPORTING\r\n      i_structure_name              = 'SFLIGHT'\r\n      is_layout                     = gs_layout\r\n    CHANGING\r\n      it_outtab                     = gt_data\r\n      it_fieldcatalog               = gt_fieldcat\r\n    EXCEPTIONS\r\n      invalid_parameter_combination = 1\r\n      program_error                 = 2\r\n      too_many_lines                = 3\r\n      OTHERS                        = 4.\r\n  IF sy-subrc <> 0.\r\n    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno\r\n               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.\r\n  ENDIF.\r\nENDFORM.                    \"display_grid\r\n*&---------------------------------------------------------------------*\r\n*&      Module  STATUS_0100  OUTPUT\r\n*&---------------------------------------------------------------------*\r\n*       text\r\n*----------------------------------------------------------------------*\r\nMODULE status_0100 OUTPUT.\r\n  SET PF-STATUS 'MAIN'.\r\n  SET TITLEBAR 'ALV_EXAMPLES'.\r\nENDMODULE.                 \" STATUS_0100  OUTPUT\r\n*&---------------------------------------------------------------------*\r\n*&      Module  DISPLAY_GRID  OUTPUT\r\n*&---------------------------------------------------------------------*\r\n*       text\r\n*----------------------------------------------------------------------*\r\nMODULE display_grid OUTPUT.\r\n  PERFORM read_data.\r\n  PERFORM display_grid.\r\nENDMODULE.                 \" DISPLAY_GRID  OUTPUT\r\n*&---------------------------------------------------------------------*\r\n*&      Module  USER_COMMAND_0100  INPUT\r\n*&---------------------------------------------------------------------*\r\n*       text\r\n*----------------------------------------------------------------------*\r\nMODULE user_command_0100 INPUT.\r\n*   to react on oi_custom_events:\r\n  CALL METHOD cl_gui_cfw=>dispatch.\r\n  CASE sy-ucomm.\r\n    WHEN 'BACK' OR\r\n         'EXIT' OR\r\n         'CANCEL'.\r\n      LEAVE PROGRAM.\r\n    WHEN OTHERS.\r\n*     do nothing\r\n  ENDCASE.\r\nENDMODULE.                 \" USER_COMMAND_0100  INPUT\r\n*&---------------------------------------------------------------------*\r\n*&      Form  GET_LAYOUT\r\n*&---------------------------------------------------------------------*\r\n*       text\r\n*----------------------------------------------------------------------*\r\n*  -->  p1        text\r\n*    p1        text\r\n*   TYPE lvc_s_fcat.\r\n\r\n  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'\r\n    EXPORTING\r\n      i_structure_name       = 'SFLIGHT'\r\n    CHANGING\r\n      ct_fieldcat            = gt_fieldcat\r\n    EXCEPTIONS\r\n      inconsistent_interface = 1\r\n      program_error          = 2\r\n      OTHERS                 = 3.\r\n  CHECK sy-subrc = 0.\r\n\r\n  APPEND INITIAL LINE TO gt_fieldcat ASSIGNING <fs_fcat>.\r\n  <fs_fcat>-fieldname = 'FLIGHT_STATUS'.\r\n  <fs_fcat>-drdn_hndl = '1'.\r\n  IF c_solution = 2.\r\n    <fs_fcat>-drdn_alias = 'X'.\r\n  ENDIF.\r\n  <fs_fcat>-outputlen = 15.\r\nENDFORM.                    \" GET_FIELDCAT\r\n*&---------------------------------------------------------------------*\r\n*&      Form  GET_DROPDOWNS\r\n*&---------------------------------------------------------------------*\r\n*       text\r\n*----------------------------------------------------------------------*\r\n*  -->  p1        text\r\n*   TYPE lvc_s_drop,\r\n    <fs_drop2> TYPE lvc_s_dral.\r\n\r\n* Listbox with flight statuses (handle '1').\r\n  IF c_solution = 1.\r\n    APPEND INITIAL LINE TO gt_dropdown1 ASSIGNING <fs_drop1>.\r\n    <fs_drop1>-handle = '1'.\r\n    <fs_drop1>-value = '01 Scheduled'.\r\n\r\n    APPEND INITIAL LINE TO gt_dropdown1 ASSIGNING <fs_drop1>.\r\n    <fs_drop1>-handle = '1'.\r\n    <fs_drop1>-value = '02 On-Time'.\r\n\r\n    APPEND INITIAL LINE TO gt_dropdown1 ASSIGNING <fs_drop1>.\r\n    <fs_drop1>-handle = '1'.\r\n    <fs_drop1>-value = '03 Delayed'.\r\n  ELSEIF c_solution = 2.\r\n    APPEND INITIAL LINE TO gt_dropdown2 ASSIGNING <fs_drop2>.\r\n    <fs_drop2>-handle = '1'.\r\n    <fs_drop2>-int_value = '01'.\r\n    <fs_drop2>-value = 'Scheduled'.\r\n\r\n    APPEND INITIAL LINE TO gt_dropdown2 ASSIGNING <fs_drop2>.\r\n    <fs_drop2>-handle = '1'.\r\n    <fs_drop2>-int_value = '02'.\r\n    <fs_drop2>-value = 'On-Time'.\r\n\r\n    APPEND INITIAL LINE TO gt_dropdown2 ASSIGNING <fs_drop2>.\r\n    <fs_drop2>-handle = '1'.\r\n    <fs_drop2>-int_value = '03'.\r\n    <fs_drop2>-value = 'Delayed'.\r\n  ENDIF.\r\n\r\nENDFORM.                    \" GET_DROPDOWNS<\/pre>\n","protected":false},"excerpt":{"rendered":"
Example of setting an ALV column as dropdown listbox.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"ALV tutorial 09 - Dropdown lists","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[16,136,9],"tags":[133,134,135,17],"class_list":["post-548","post","type-post","status-publish","format-standard","hentry","category-abap","category-alv-tutorial","category-development","tag-abap-alv","tag-dropdown","tag-listbox","tag-sap"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3nYbe-8Q","jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/548","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=548"}],"version-history":[{"count":3,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/548\/revisions"}],"predecessor-version":[{"id":551,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/548\/revisions\/551"}],"wp:attachment":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=548"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=548"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=548"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}