点击上方 蓝字 关注我们
Change before you have to.
在被迫改变之前自己先改变
功能说明
上篇: [ ABAP SALV-基本显示、外观设置、列设置
](http://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247493394&idx=1&sn=59eb6a2448a28c6c9d0e6d57b9f1e16a&chksm=cf0a33fcf87dbaea56fc1e465ec11caa4dc078e8fb6c0404634c2cac4393aa1dfd94fd371ea9&scene=21#wechat_redirect)
本系列将通过模拟用户与开发者之间的对话场景,
来逐步演示SALV的使用。在本篇中,我们将继续上一篇内容,以解决用户提出的另外两个需求。让我们来看看是如何实现的吧。
赶 快动手试一试 ,掌握它的用法。
功能效果
第 4 天 用户说
怎么没有应用工具栏按钮,能加上吗?
IF p_day04 EQ 'X' .DATA lo_functions TYPE REF TO cl_salv_functions .
lo_functions = go_salv -> get_functions ( ) .lo_functions -> set_all ( 'X' ) .
. . .
ENDIF .第 5 天 用户说
工具栏按钮怎么没有保存布局选项?
IF p_day05 EQ 'X' .DATA lo_layout TYPE REF TO cl_salv_layout .
DATA ls_layout_key TYPE salv_s_layout_key .
lo_layout = go_salv -> get_layout ( ) .
ls_layout_key \- report = sy \- repid .lo_layout -> set_key ( ls_layout_key ) .
lo_layout -> set_save_restriction ( if_salv_c_layout => restrict_none ).
. . .
ENDIF .源码分享
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1 .
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1 ( 79 ) day01 .
SELECTION-SCREEN END OF LINE ....
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1 ( 79 ) day04 .
SELECTION-SCREEN END OF LINE .
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN COMMENT 1 ( 79 ) day05 .
SELECTION-SCREEN END OF LINE .
SELECTION-SCREEN END OF BLOCK b1 .SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t2 .PARAMETERS p_day01 AS CHECKBOX DEFAULT 'X' . "01、基本展示
...
PARAMETERS p_day04 AS CHECKBOX DEFAULT 'X' . "04、按钮设置
PARAMETERS p_day05 AS CHECKBOX DEFAULT 'X' . "05、布局设置
SELECTION-SCREEN END OF BLOCK b2 .INITIALIZATION .
sy \- title = 'ABAP SALV演示程序-公众号(ABAP猿)' .
t1 = '用户说' .
t2 = '你来做' .
day01 = '01、从表SPFLI获取数据,并进行基本展示。' .
...
day04 = '04、怎么没有应用工具栏按钮,能加上吗?' .
day05 = '05、工具栏按钮怎么没有保存布局选项?' .
%_p_day01_%_app_% \- text = '01、基本展示' .
...
%_p_day05_%_app_% \- text = '05、布局设置' .
START-OF-SELECTION .
*------------------------------------*
CHECK p_day01 EQ 'X' .
DATA gt_spfli TYPE TABLE OF spfli .
SELECT * FROM spfli INTO TABLE gt_spfli UP TO 30 ROWS .DATA go_salv TYPE REF TO cl_salv_table .
cl_salv_table => factory (IMPORTING
r_salv_table = go_salvCHANGING
t_table = gt_spfli ).
*------------------------------------*
...
*------------------------------------*
IF p_day04 EQ 'X' .DATA lo_functions TYPE REF TO cl_salv_functions .
lo_functions = go_salv -> get_functions ( ).lo_functions -> set_all ( 'X' ).
...
ENDIF .*------------------------------------*
IF p_day05 EQ 'X' .DATA lo_layout TYPE REF TO cl_salv_layout .
DATA ls_layout_key TYPE salv_s_layout_key .
lo_layout = go_salv -> get_layout ( ).
ls_layout_key \- report = sy \- repid .lo_layout -> set_key ( ls_layout_key ).
lo_layout -> set_save_restriction ( if_salv_c_layout => restrict_none )....
ENDIF .*------------------------------------*
go_salv -> display ( ).
**小贴士:**
• **** 可使用BC_DATA_GEN生成数据,以便查看演示效果;
• 以上纯属个人总结,如有纰漏请联系我;
以上是今日分享,希望对你有所帮助~~~
欢迎点赞、留言、分享
往期推荐
[ ABAP SALV系列文章
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247492672&idx=1&sn=a10709828c6f167ecb91bdd11b43a226&chksm=cf0a30aef87db9b8555e554e4cc15d215c5f6aeae59ac9041b99ffb3124b212e25f57c130e27&scene=21#wechat_redirect)
[ ABAP SALV-基本显示、外观设置、列设置
](https://mp.weixin.qq.com/s?__biz=Mzg3OTE2Njg0OQ==&mid=2247493394&idx=1&sn=59eb6a2448a28c6c9d0e6d57b9f1e16a&chksm=cf0a33fcf87dbaea56fc1e465ec11caa4dc078e8fb6c0404634c2cac4393aa1dfd94fd371ea9&scene=21#wechat_redirect)
点个 在看 你最好看