สร้าง List Boxes on Selection Screens ใน ABAP Report
วิธีการสร้าง List Boxes on Selection Screens ใน ABAP Report ไอ้เจ้า List Boxes มันก็คือช่อง Input ข้อมูล อีกประเภทหนึ่ง โดยตัวมันมีความน่าสนใจไม่น้อย ซึ่งเราสามารถนำไปประยุกต์ได้หลายแบบ บน Selection Screens
สร้าง List Boxes on Selection Screens ใน ABAP Report
* Program : ZLISTBOXES.
* Title : List Boxes on Selection Screens
* Author : Todsapon Kumnuan (todsapon.com)
* R/3 Release : ECC5
REPORT zlistboxes.
TYPE-POOLS: vrm.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
DATA: a TYPE i.
PARAMETERS: ps_com(10) AS LISTBOX VISIBLE LENGTH 10.
AT SELECTION-SCREEN OUTPUT.
name = 'PS_COM'.
value-key = 1. value-text = ': Display'.
APPEND value TO list.
value-key = 2. value-text = ': Change'.
APPEND value TO list.
value-key = 3. value-text = ': Create'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = name values = list.
START-OF-SELECTION.
CASE ps_com.
WHEN '1'.
WRITE: / 'Command: Display'.
WHEN '2'.
WRITE: / 'Command: Change'.
WHEN OTHERS.
WRITE: / 'Command: Create'.
ENDCASE.
