ABAP Dropdown List
2011年05月14日
http://hi.baidu.com/jiaoying7c/blog/item/e274f9c2c 2e989190ff477be.html http://wfly2004.blog.163.com/blog/static/117642720 0988114845276/ REPORT : Dropdown List 1. 在选择屏幕上添加下拉列表控件, 代码如下:
PARAMETERS: auart LIKE vapma-auart AS LISTBOX VISIBLE LENGTH 6
DEFAULT 'ZESC' OBLIGATORY.
2. 手工添加下拉列表数据, 代码如下:
*&------------------------------------------------ ---------------------*
*& Form fill_data_to_auart
*&------------------------------------------------ ---------------------*
* to fill data for combo auart.
*------------------------------------------------- ---------------------*
FORM fill_data_to_auart .
TYPE-POOLS: vrm . "存放combobox内容的type pool
DATA: name TYPE vrm_id, " list box的名称
list TYPE vrm_values, " list box的值
value LIKE LINE OF list . " list box的结构
REFRESH list .
DEFINE fill_list.
value-key = &1. "个就是变量P_LIST的值
value-text = &2. "这个是text
append value to list.
END-OF-DEFINITION.
fill_list 'ZESC' 'ZESC'.
fill_list 'ZESE' 'ZESE'.
fill_list 'ZEDN' 'ZEDN'.
fill_list 'ZEEN' 'ZEEN'.
fill_list 'ZPBB' 'ZPBB'.
fill_list 'ZPBE' 'ZPBE'.
fill_list 'ZPDN' 'ZPDN'.
fill_list 'ZPEN' 'ZPEN'.
fill_list 'ZOCS' 'ZOCS'.
fill_list 'ZASC' 'ZASC'.
fill_list 'ZASE' 'ZASE'.
fill_list 'ZADN' 'ZADN'.
fill_list 'ZAEN' 'ZAEN'.
"---〉调用函数显示listbox里面的值
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'AUART' " PARAMETERS's Name
values = list.
ENDFORM. " fill_data_to_auart
3. 在 AT SELECTION-SCREEN OUTPUT. 事件中填充数据,代码如下:
PERFORM fill_data_to_auart.
以上代码,ECC6环境下通过。
ALV 字段下拉列表
http://www.abaptech.com/2010/08/alv%e4%b8%89%e4%b8 %aa%e4%b8%8b%e6%8b%89%e5%88%97%e8%a1%a8%e5%88%97%e8 %81%94%e5%8a%a8/
http://blogold.chinaunix.net/u2/68743/showart_6892 92.html 代码如下:
REPORT.
************************************************** **********************
* DATEN DEFINITION *
************************************************** **********************
TYPE-POOLS: slis.
TYPES:
BEGIN OF t_data,
matnr TYPE makt-matnr,
maktx TYPE makt-maktx,
spras TYPE makt-spras,
END OF t_data,
BEGIN OF t_alv,
matnr TYPE makt-matnr,
maktx TYPE makt-maktx,
spras TYPE makt-spras,
dd_handle TYPE int4,
END OF t_alv.
DATA:
gt_fieldcatalog TYPE lvc_t_fcat,
gw_fieldcatalog TYPE lvc_s_fcat,
*定义存储下拉列表的数据
gt_ddval TYPE lvc_t_drop,
gw_ddval TYPE lvc_s_drop,
gt_events TYPE slis_t_event,
gw_events TYPE slis_alv_event,
gt_data TYPE TABLE OF t_data,
gw_data TYPE t_data,
gt_alv TYPE TABLE OF t_alv,
gw_alv TYPE t_alv,
g_repid TYPE sy-repid VALUE sy-repid.
************************************************** **********************
* SELECTION SCREEN *
************************************************** **********************
SELECT-OPTIONS: s_matnr FOR gw_data-matnr .
************************************************** **********************
* START-OF-SELECTION *
************************************************** **********************
START-OF-SELECTION.
SELECT matnr maktx spras
INTO TABLE gt_data up to 50 rows
FROM makt
WHERE matnr IN s_matnr
and SPRAS = 'EN'.
LOOP AT gt_data INTO gw_data.
MOVE-CORRESPONDING gw_data TO gw_alv.
APPEND gw_alv TO gt_alv.
ENDLOOP.
PERFORM creat_fieldcat.
PERFORM creat_dropdown_values.
PERFORM creat_event_exits.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = g_repid
it_fieldcat_lvc = gt_fieldcatalog
it_events = gt_events
TABLES
t_outtab = gt_alv.
*------------------------------------------------- --------------------*
* 设置输出字段的格式
*------------------------------------------------- --------------------*
FORM creat_fieldcat.
CLEAR gw_fieldcatalog.
gw_fieldcatalog-fieldname = 'MATNR'.
gw_fieldcatalog-ref_field = 'MATNR'.
gw_fieldcatalog-ref_table = 'MAKT'.
APPEND gw_fieldcatalog TO gt_fieldcatalog.
CLEAR gw_fieldcatalog.
gw_fieldcatalog-fieldname = 'MAKTX'.
gw_fieldcatalog-ref_field = 'MAKTX'.
gw_fieldcatalog-ref_table = 'MAKT'.
APPEND gw_fieldcatalog TO gt_fieldcatalog.
CLEAR gw_fieldcatalog.
gw_fieldcatalog-fieldname = 'SPRAS'.
gw_fieldcatalog-OUTPUTLEN = '7'.
gw_fieldcatalog-dd_outlen = '7'.
gw_fieldcatalog-intlen = '2'.
gw_fieldcatalog-inttype = 'C'.
gw_fieldcatalog-coltext = 'Language'.
gw_fieldcatalog-tooltip = 'Language'.
gw_fieldcatalog-seltext = 'Language'.
gw_fieldcatalog-drdn_field = 'DD_HANDLE'.
gw_fieldcatalog-EDIT = 'X'.
APPEND gw_fieldcatalog TO gt_fieldcatalog.
ENDFORM. " creat_fieldcat
*------------------------------------------------- --------------------*
*根据物料的所有的语言生成不同的生成下拉列表
*------------------------------------------------- --------------------*
FORM creat_dropdown_values.
DATA: l_spras TYPE makt-spras,
l_count TYPE i.
LOOP AT gt_alv INTO gw_alv.
ADD 1 TO l_count.
SELECT spras
INTO l_spras
FROM makt
WHERE matnr = gw_alv-matnr.
CLEAR gw_ddval.
gw_ddval-handle = l_count.
gw_ddval-value = l_spras.
APPEND gw_ddval TO gt_ddval.
ENDSELECT.
CLEAR gw_ddval.
gw_ddval-handle = l_count.
gw_ddval-value = ' '.
APPEND gw_ddval TO gt_ddval.
*设置对应
gw_alv-dd_handle = l_count.
MODIFY gt_alv FROM gw_alv.
ENDLOOP.
ENDFORM. " creat_dropdown_values
*------------------------------------------------- --------------------*
* Form creat_event_exits
*------------------------------------------------- --------------------*
FORM creat_event_exits .
gw_events-name = 'CALLER_EXIT'.
gw_events-form = 'CALLER_EXIT'.
APPEND gw_events TO gt_events.
ENDFORM. " creat_event_exits
*------------------------------------------------- --------------------*
*设置下拉列表,使Grid和内表能链接上
*------------------------------------------------- --------------------*
FORM caller_exit USING ls_data TYPE slis_data_caller_exit.
DATA: l_ref_alv TYPE REF TO cl_gui_alv_grid.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
e_grid = l_ref_alv.
CALL METHOD l_ref_alv->set_drop_down_table
EXPORTING
it_drop_down = gt_ddval.
ENDFORM. "CALLER_EXIT 原文地址 http://blog.csdn.net/CompassButton/archive/2008/04 /26/2330532.aspx
发表评论
-
C#核心基础知识归纳
2012-01-20 01:01 1222C#核心基础知识归纳 201 ... -
ExtJS 4 beta 2发布了
2012-01-20 01:01 1092ExtJS 4 beta 2发布了 2011年04月07日 ... -
240多个jQuery插件
2012-01-20 01:01 1052240多个jQuery插件 2011年05月11日 有志 ... -
Flash builder 4.5支持Android平台之初体验
2012-01-20 01:01 588Flash builder 4.5支持Android平台之初体 ... -
2011年度工作总结
2012-01-19 08:50 6612011年度工作总结 2011年12月23日 ... -
浅谈园长的领导策略
2012-01-19 08:50 688浅谈园长的领导策略 20 ... -
ziliao
2012-01-19 08:50 656ziliao 2011年09月23日 雅安市民办 ... -
毛坦厂艺术幼儿园办学章程
2012-01-19 08:49 914毛坦厂艺术幼儿园办学 ... -
6.18-3
2012-01-19 08:49 5696.18-3 2011年06月18日 新闻 网页 贴吧 ... -
Win7系统服务优化攻略
2012-01-17 01:17 1280Win7系统服务优化攻略 2011年01月29日 Win ... -
Win7特别功能:优化篇
2012-01-17 01:17 848Win7特别功能:优化篇 201 ... -
DLL劫持原理------转载自百度
2012-01-17 01:17 1031DLL劫持原理------转载自百度 2011年07月29日 ... -
2011-4-22
2012-01-17 01:17 7082011-4-22 2011年04月22日 Window ... -
system32文件夹里的文件详解
2012-01-17 01:17 766system32文件夹里的文件详解 2011年05月23日 ... -
2012-1-12
2012-01-15 19:59 5292012-1-12 2012年01月12日 瀹剁┓浜轰 -
看得懂的帮忙翻译下。
2012-01-15 19:59 599看得懂的帮忙翻译下。 2010年03月21日 锘NXTV ... -
66666666666666666666666666666
2012-01-15 19:59 63466666666666666666666666666666 ... -
其实这些我一直不敢看
2012-01-15 19:59 526其实这些我一直不敢看 2009年10月10日 绔?浼ょ -
java5注释
2012-01-11 12:11 593java5注释 2011年06月01日 先写一个注释 ... -
Java5新特性
2012-01-11 12:10 546Java5新特性 2011年06月01 ...
相关推荐
ABAP-SAP的几种(代)出口类型 Web_dynpro-关于WEBDYNPRO的编程开发(一) ABAP-FOR ALL ENTRIES IN 注意点 ABAP-根据T-CODE找BADI ABAP-根据T-CODE找BAPI ABAP-UPLOAD文件时常用的数据转换 关于using和changing ...
List of all changes and enhancements made to ABAP since Release 3.0 ABAP - Programming Guidelines Rules and hints on using ABAP. ABAP - Security Notes Overview of all potential security risks...
ABAP资料ABAP资料ABAP资料ABAP资料ABAP资料
ABAP 调用ABAP PROXY
abap tips abap tips abap tips abap tips abap tips
abap逻辑数据库ABAP数据库操作,abap过程中的小积累。用处多多哦
SAP ABAP LIST 报表格式设置
abap 函数大全 abap function abap function
SAP ABAP 开发手册,对SAP上ABAP开发有很大的帮助,希望对在SAP上开发者能够提供帮助
内含ABAP入门资源(11天学会ABAP)以级中级ABAP篇,高级ABAP资料
ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。...
6.类似Java,ABAP开发的程序能运行于任何操作系统(Java有Java虚拟机,ABAP也有ABAP processor),多种数据库(比如在ABAP字典中实现了透明表对各种底层数据库表的映射,这样在ABAP层看到的透明表就和具体数据库无关),各种...
ABAP
abap学习资料 3月通学习资料abap学习资料 3月通学习资料
ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档
ABAP培训资料ABAP培训资料ABAP培训资料ABAP培训资料ABAP培训资料
ABAP url下载文件
ABAP4简介ABAP4简介ABAP4简介ABAP4简介ABAP4简介ABAP4简介ABAP4简介ABAP4简介ABAP4简介ABAP4简介
abap代码规范,高效abap、modern abap
SAP ABAP 数据库操作,快速学会ABAP!