*$***********************************************************
*$ Program name: ZLISTBOX *
*$ Author: James Zeng (zengjw_2004@hotmail.com) *
*$ Date: Dec-24-2009 *
*$ Program Description: Demonstrates how to display values *
*$ as an SAP dropdown listbox *
*$***********************************************************
REPORT ZLISTBOX.
tables: SSCRFIELDS.
types: begin of t_ekko,
ebeln type ekko-ebeln,
end of t_ekko.
data: it_ekko TYPE STANDARD TABLE OF t_ekko,
wa_ekko like line of it_ekko,
w_char10 type c LENGTH 10.
TYPE-POOLS: VRM.
DATA: NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.
PARAMETERS: P_PARM LIKE W_CHAR10 AS LISTBOX VISIBLE LENGTH 11 USER-COMMAND fcode.
" The additons 'USER-COMMAND' AND 'LENGTH' CANNOT BE USED TOGETHER.
AT SELECTION-SCREEN.
case SSCRFIELDS-ucomm.
WHEN 'FCODE'.
MESSAGE i888(sabapdocu) with 'The selected Value is: ' p_parm.
endcase.
*********************************************************
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.
SELECT ebeln
up to 10 rows
from ekko
into table it_ekko.
loop at it_ekko into wa_ekko.
VALUE-KEY = wa_ekko-ebeln.
VALUE-TEXT = wa_ekko-ebeln.
APPEND VALUE TO LIST.
endloop.
NAME = 'P_PARM'.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST.
********************************************************
*START-OF-SELECTION.
START-OF-SELECTION.
WRITE: / 'SELECTED VALUE KEY:', P_PARM.
Demonstrates how to display values as an SAP dropdown listbox.
最新推荐文章于 2011-01-12 07:08:00 发布