ABAP--ALV_BLOCK_LIAST的函数使用样例

最新推荐文章于 2022-06-21 09:54:27 发布
原创 最新推荐文章于 2022-06-21 09:54:27 发布 · 5.1k 阅读 · 2 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#events #layout #function #list #callback #table

本文介绍了一种使用 ABAP 编程语言实现的 ALV 报表多块显示的方法。通过定义数据结构、获取字段目录、选择数据及调用 ALV 控制块初始化等步骤，实现了两组不同数据的并列展示。适用于 SAP 开发人员学习和参考。 
REPORT z_alv_block_list.
* Type-pools
TYPE-POOLS: slis.
* Data declarations.
DATA: BEGIN OF t_vbak OCCURS 0,
        vbeln TYPE vbeln,
        bstnk TYPE vbak-bstnk,
        erdat TYPE vbak-erdat,
        kunnr TYPE vbak-kunnr,
      END OF t_vbak.
DATA: BEGIN OF t_vbap OCCURS 0,
        vbeln  TYPE vbeln,
        matnr  TYPE vbap-matnr,
        netpr  TYPE vbap-netpr,
        waerk  TYPE vbap-waerk,
        kwmeng TYPE vbap-kwmeng,
        meins  TYPE vbap-meins,
      END OF t_vbap.
DATA: t_fieldcatalog1 TYPE slis_t_fieldcat_alv.
DATA: t_fieldcatalog2 TYPE slis_t_fieldcat_alv.
DATA: v_repid         TYPE syrepid.
DATA: s_layout        TYPE slis_layout_alv.
DATA: v_tabname       TYPE slis_tabname.
DATA: t_events        TYPE slis_t_event.

* start-of-selection event.
START-OF-SELECTION.
  v_repid = sy-repid.
* Get the fieldcatalog for the first block
  PERFORM get_fieldcat1 CHANGING t_fieldcatalog1.
* Get the fieldcatalog for the second block
  PERFORM get_fieldcat2 CHANGING t_fieldcatalog2.
* Get the data for the first block
  SELECT vbeln bstnk erdat kunnr UP TO 10 ROWS
         INTO TABLE t_vbak
         FROM vbak WHERE vbeln > '0060000100'.
* Get the data for the second block
  SELECT vbeln matnr netpr waerk kwmeng meins UP TO 10 ROWS
         INTO TABLE t_vbap
         FROM vbap WHERE vbeln > '0060000100'.
* init
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
       EXPORTING
            i_callback_program = v_repid.

* First block
  v_tabname = 'ITAB1'.
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
       EXPORTING
            is_layout   = s_layout
            it_fieldcat = t_fieldcatalog1
            i_tabname   = v_tabname
            it_events   = t_events
       TABLES
            t_outtab    = t_vbak.
* Second block
  v_tabname = 'ITAB2'.
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
       EXPORTING
            is_layout   = s_layout
            it_fieldcat = t_fieldcatalog2
            i_tabname   = v_tabname
            it_events   = t_events
       TABLES
            t_outtab    = t_vbap.
*Display
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
            .
*---------------------------------------------------------------------*
*       FORM GET_FIELDCAT1                                            *
*---------------------------------------------------------------------*
*       Get the field catalog for the first block                     *
*---------------------------------------------------------------------*
FORM get_fieldcat1 CHANGING lt_fieldcatalog TYPE slis_t_fieldcat_alv.
  DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
* Order number
  s_fieldcatalog-col_pos       = '1'.
  s_fieldcatalog-fieldname     = 'VBELN'.
  s_fieldcatalog-tabname       = 'T_VBAK'.
  s_fieldcatalog-ref_tabname   = 'VBAK'.
  s_fieldcatalog-ref_fieldname = 'VBELN'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
* Customer purchase order.
  s_fieldcatalog-col_pos       = '2'.
  s_fieldcatalog-fieldname     = 'BSTNK'.
  s_fieldcatalog-tabname       = 'T_VBAK'.
  s_fieldcatalog-ref_tabname   = 'VBAK'.
  s_fieldcatalog-ref_fieldname = 'BSTNK'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
* Creation date.
  s_fieldcatalog-col_pos       = '3'.
  s_fieldcatalog-fieldname     = 'ERDAT'.
  s_fieldcatalog-tabname       = 'T_VBAK'.
  s_fieldcatalog-ref_tabname   = 'VBAK'.
  s_fieldcatalog-ref_fieldname = 'ERDAT'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
* Customer
  s_fieldcatalog-col_pos       = '4'.
  s_fieldcatalog-fieldname     = 'KUNNR'.
  s_fieldcatalog-tabname       = 'T_VBAK'.
  s_fieldcatalog-ref_tabname   = 'VBAK'.
  s_fieldcatalog-ref_fieldname = 'KUNNR'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
ENDFORM.
*---------------------------------------------------------------------*
*       FORM GET_FIELDCAT2                                            *
*---------------------------------------------------------------------*
*       Get the field catalog for the second block                    *
*---------------------------------------------------------------------*
FORM get_fieldcat2 CHANGING lt_fieldcatalog TYPE slis_t_fieldcat_alv.
  DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
* Order number
  s_fieldcatalog-col_pos       = '1'.
  s_fieldcatalog-fieldname     = 'VBELN'.
  s_fieldcatalog-tabname       = 'T_VBAP'.
  s_fieldcatalog-ref_tabname   = 'VBAP'.
  s_fieldcatalog-ref_fieldname = 'VBELN'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
* Material number
  s_fieldcatalog-col_pos       = '2'.
  s_fieldcatalog-fieldname     = 'MATNR'.
  s_fieldcatalog-tabname       = 'T_VBAP'.
  s_fieldcatalog-ref_tabname   = 'VBAP'.
  s_fieldcatalog-ref_fieldname = 'MATNR'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
* Net price
  s_fieldcatalog-col_pos       = '3'.
  s_fieldcatalog-fieldname     = 'NETPR'.
  s_fieldcatalog-tabname       = 'T_VBAP'.
  s_fieldcatalog-ref_tabname   = 'VBAP'.
  s_fieldcatalog-ref_fieldname = 'NETPR'.
  s_fieldcatalog-cfieldname    = 'WAERK'.
  s_fieldcatalog-ctabname      = 'T_VBAP'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
* Currency.
  s_fieldcatalog-col_pos       = '4'.
  s_fieldcatalog-fieldname     = 'WAERK'.
  s_fieldcatalog-tabname       = 'T_VBAP'.
  s_fieldcatalog-ref_tabname   = 'VBAP'.
  s_fieldcatalog-ref_fieldname = 'WAERK'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
* Quantity
  s_fieldcatalog-col_pos       = '5'.
  s_fieldcatalog-fieldname     = 'KWMENG'.
  s_fieldcatalog-tabname       = 'T_VBAP'.
  s_fieldcatalog-ref_tabname   = 'VBAP'.
  s_fieldcatalog-ref_fieldname = 'KWMENG'.
  s_fieldcatalog-qfieldname    = 'MEINS'.
  s_fieldcatalog-qtabname      = 'T_VBAP'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
* UOM
  s_fieldcatalog-col_pos       = '6'.
  s_fieldcatalog-fieldname     = 'MEINS'.
  s_fieldcatalog-tabname       = 'T_VBAP'.
  s_fieldcatalog-ref_tabname   = 'VBAP'.
  s_fieldcatalog-ref_fieldname = 'MEINS'.
  APPEND s_fieldcatalog TO lt_fieldcatalog.
  CLEAR s_fieldcatalog.
ENDFORM. 
运行结果：
 
SAP_ABAP模块-利用 BAPI_PO_CREATE1/CHANGE 实现采购订单批导 —— 更新 EAN11 及非标准字段的解决方案
风沙的博客
06-16 383
本文记录了SAP系统中采购订单批导程序完整代码，重点解决EAN/UPC字段无法直接赋值的问题。通过BADI增强和扩展结构等技术手段，在BAPI_PO_CREATE1调用时成功实现了该字段的批量导入。
SAP_ABAP_OO_ALV案例
热门推荐
java_zhong1990的专栏
08-29 1万+
SAP ABAP OO ALV开发实战指南 本文详细介绍了SAP ABAP OO ALV（面向对象ALV）开发的核心概念和实践方法，旨在帮助1-3年经验的ABAP开发人员快速提升技能。 核心内容要点 能力模型：涵盖ALV/REPORT、SMARTFORM、BAPI/BDC、IDOC/RFC等关键开发技术 实战案例：通过收款清账平台开发案例演示OO ALV开发流程，包含完整的程序结构和代码模板 技术要点： OO ALV与传统ALV的对比 ALV Grid Control的使用方法 面向对象的事件处理机制 数据
（转）ABAP--ALV_BLOCK_LIAST的函数使用
cudaidie2044的博客
08-10 181
在一个输出画面中显示两个ALV List。[@more@]REPORT Z_ALV_BLOCK_LIST.* Type-poolsTYPE-POOLS: SLIS.* Data declarations.DATA: BEGIN ...
【ABAP系列】SAP ABAP同时显示多个ALV的方法
ARICK2014的博客
07-12 1766
公众号：SAP Technical 本文作者：matinal 原文出处：http://www.cnblogs.com/SAPmatinal/ 原文链接：【ABAP系列】SAP ABAP同时显示多个ALV的方法 前言部分 大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。 正文部分 按照下面的做法可以同时展示多个ALV： 1：创建FIELDCAT：R...
ABAP实例之ALV
少年休闲海
08-30 2750
*&———————————————————————* *& Report  ZLG_ALV                                                     * *&
利用REUSE_ALV_HIERSEQ_LIST_DISPLAY进行多层输出（输出表结构的又一例）
jackxiong
12-18 545
1、在程序里包含SLIStype-pools: slis. 2、声明主表和明细表 * Global structure of listtypes: begin of t_table, tabname like dd03l-tabname, ddtext like dd02t-ddtext, as4user like dd02l-as4user, end of t_table. types: ...
alv布局 sap_[代码]REUSE_ALV_GRID_DISPLAY_LVC-选择画面中添加ALV布局控制字段
weixin_39757040的博客
12-21 888
在ALV报表的选择画面中加一个parameter输入一个布局名称，这样程序运行之前用户可以先选择自己布局。ALV布局(Layout)的F4函数是REUSE_ALV_VARIANT_F4。详细代码如下：数据定义：ABAPDATA: git_fieldcat TYPE lvc_t_fcat,gwa_fieldcat LIKE LINE OF git_fieldcat,git_sort TYP...
ABAP ALV分类以及对应的函数，类小结
banin4739的博客
08-30 852
1, List ALV 通过调用函数REUSE_ALV_LIST_DISPLAY实现。List AlV显示如下： <img class="alignnone size-full wp-image-4710" src="http://www.baidusap.com/wp-content/uploads/alv_list.png" alt="" width=...
**&---------------------------------------------------------------------* **& Report ZTEXT03 **&---------------------------------------------------------------------* **& **&---------------------------------------------------------------------* REPORT ztext03. TABLES :ZTSD040 , ZTSD032,MARC. SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. SELECT-OPTIONS : S_ZCHTZD FOR ZTSD040-ZCHTZD, S_ZXSZZ FOR ZTSD040-ZXSZZ, S_ZFXQD FOR ZTSD040-ZFXQD, S_ZSDF1 FOR ZTSD040-ZSDF1, S_ZSDF2 FOR ZTSD040-ZSDF2, S_ZCHRQ FOR ZTSD040-ZCHRQ, S_ZCJRQ FOR ZTSD040-ZCJRQ, S_ZGZZT FOR ZTSD040-ZGZZT, S_BUDAT FOR ZTSD040-ZCHRQ. PARAMETERS :P_1 AS CHECKBOX. SELECT-OPTIONS : S_WERKD FOR MARC-WERKS. PARAMETERS :P_2 AS CHECKBOX. SELECTION-SCREEN END OF BLOCK B1. * 全局变量定义 DATA: gr_top_alv TYPE REF TO cl_gui_alv_grid. "屏幕alv对象 DATA: gr_bottom_alv TYPE REF TO cl_gui_alv_grid. "屏幕alv对象 DATA: gr_dock TYPE REF TO cl_gui_docking_container, "屏幕容器对象"选择屏幕 gr_splitter TYPE REF TO cl_gui_splitter_container, gr_top_con TYPE REF TO cl_gui_container, " 最上面的容器 gr_bottom_con TYPE REF TO cl_gui_container. " 最下面的容器 DATA: gt_spfli TYPE TABLE OF spfli, gt_sbook TYPE TABLE OF sbook. START-OF-SELECTION. CALL SCREEN 9000. **&---------------------------------------------------------------------* *& Module z OUTPUT *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* MODULE pbo_0100 OUTPUT. PERFORM frm_status_0100. ENDMODULE. *&---------------------------------------------------------------------* *& Module PAI_0100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE pai_0100 INPUT. PERFORM frm_pai_0100 USING sy-ucomm. ENDMODULE. *&---------------------------------------------------------------------* *& Form frm_status_0100 *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_status_0100 . IF gr_dock IS INITIAL. * 创建ALV PERFORM frm_init_alv_grids. ELSE. * 刷新ALV对象 PERFORM frm_refresh_alv USING gr_top_alv. PERFORM frm_refresh_alv USING gr_bottom_alv. ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form frm_init_alv_grids *&---------------------------------------------------------------------* *& 使用Dock将屏幕分割为上下两部分； *& 建立上下两个ALV对象 *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_init_alv_grids. DATA: ls_layout TYPE lvc_s_layo. *& 设置屏幕的标题状态 SET PF-STATUS 'STATUS_0100'. SET TITLEBAR 'TITLE_0100'. *& 0. 创建docking CREATE OBJECT gr_dock EXPORTING repid = sy-repid dynnr = sy-dynnr extension = '1500' "屏幕大小 side = cl_gui_docking_container=>dock_at_top. * 将屏幕拆分成上下两个屏幕：两行一列 CREATE OBJECT gr_splitter EXPORTING parent = gr_dock rows = 2 columns = 1. *& 1. 第一个屏幕容器放在第一行第一列 CALL METHOD gr_splitter->get_container EXPORTING row = 1 column = 1 RECEIVING container = gr_top_con. * 第一个屏幕高度 CALL METHOD gr_splitter->set_row_height EXPORTING id = 1 height = 50. * 第一个ALV CREATE OBJECT gr_top_alv EXPORTING i_parent = gr_top_con. ls_layout-sel_mode = 'D'. ls_layout-zebra = 'X'. ls_layout-cwidth_opt = 'X'. CALL METHOD gr_top_alv->set_table_for_first_display EXPORTING i_structure_name = 'SPFLI' is_layout = ls_layout CHANGING it_outtab = gt_spfli. *& 2. 第二个屏幕容器放在第二行第一列 CALL METHOD gr_splitter->get_container EXPORTING row = 2 column = 1 RECEIVING container = gr_bottom_con. * 第二个ALV CREATE OBJECT gr_bottom_alv EXPORTING i_parent = gr_bottom_con. ls_layout-sel_mode = 'D'. ls_layout-zebra = 'X'. ls_layout-cwidth_opt = 'X'. CALL METHOD gr_bottom_alv->set_table_for_first_display EXPORTING i_structure_name = 'SBOOK' is_layout = ls_layout CHANGING it_outtab = gt_sbook. ENDFORM. *&---------------------------------------------------------------------* *& Form frm_refresh_alv *&---------------------------------------------------------------------* *& ALV 刷新 *&---------------------------------------------------------------------* *& --> GR_TOP_ALV *&---------------------------------------------------------------------* FORM frm_refresh_alv USING ir_alv_grid TYPE REF TO cl_gui_alv_grid. DATA: ls_stable TYPE lvc_s_stbl. CLEAR: ls_stable. ls_stable-row = 'X'. ls_stable-col = 'X'. CALL METHOD ir_alv_grid->refresh_table_display EXPORTING is_stable = ls_stable. ENDFORM. *&---------------------------------------------------------------------* *& Form frm_pai_0100 *&---------------------------------------------------------------------* *& 100屏幕 互动处理 *&---------------------------------------------------------------------* *& --> SY_UCOMM *&---------------------------------------------------------------------* FORM frm_pai_0100 USING iv_ucomm TYPE sy-ucomm. CASE iv_ucomm. WHEN 'BACK' OR 'EXIT' OR 'CANCEL'. LEAVE TO SCREEN 0. "返回上一级 WHEN OTHERS. ENDCASE. ENDFORM. 给gt_sbook创建按钮
最新发布
09-18
### 使用`REUSE_ALV_GRID_DISPLAY`函数模块 ```abap REPORT z_alv_button_example. TABLES: sbook. DATA: gt_sbook TYPE TABLE OF sbook, gs_layout TYPE lvc_s_layo, gt_buttons TYPE slis_t_funct, gs_button...
SAP ABAP ALV分页显示
12-22
这个代码是利用了内表数据转到另一个内表的技术.达到最后的分页效果
如何在一个屏幕上输出两个ALV LIST
lyb_yt的专栏
04-08 1549
wa_layout-colwidth_optimize = 'X'. * init   CLEAR gv_repid.   gv_repid = sy-repid.   CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'     EXPORTING       i_callback_program       = gv_repid       i_ca
SAP教程中的ALV报告 - ABAP列表查看器-012
Sunflower
06-21 969
任何报告的常见所需功能是“列对齐”，排序，过滤，小计，总计等。要从头开始实现这些，需要投入大量的编码工作。为了避免这种情况，我们可以使用一个名为ABAP列表查看器（ALV）的概念。这些报告中的每一个都提供了功能模块，这些模块有助于轻松生成所需的输出。让我们详细看看它们 -这些报告中的重要功能模块是 –REUSE_ALV_FIELDCATALOG_MERGE 此功能模块用于填充字段目录，这对于在ALV中显示数据至关重要。 如果输出数据来自单个字典表，并且选择了所有列，则我们不需要以独占方式创建字段目录。在中将
SAP ABAP同时显示多个ALV的方法
matinal 當冬夜漸暖 。公众号：matinal
01-07 4344
SAP ABAP同时显示多个ALV的方法
同一屏幕上两个ALV
wendykui的博客
02-17 2071
REPORT ztest_y001. * Type-pools TYPE-POOLS: slis. TABLES: mseg, ekbe, ekko, t024, lfa1,makt. DATA: t_fieldcatalog1 TYPE slis_t_fieldcat_alv. DATA: t_fieldcatalog2 TYPE slis_t_fieldcat
lisp取消选集选中状态_lisp把选集转成表_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：把text转为属性图块 - Powered by Discuz!......
weixin_39717692的博客
02-01 431
;;把text转为属性图块;;By LUCAS(defun C:C_DEF (/ HOLDECHO HOLDBLIP HOLDREQ SS SSS N A AA A1 A73 HHLST_210 LST_10)(defun DXF (A1 A2 /)(setq ENT (cdr (assoc A1 A2))))(defun GETATT (E ATTNAME / N A...
ALV类型简介
抗体的博客
03-09 1304
•ALV是SAP List Viewer的简写，是SAP中常用的经典报表输出格式。 •常用的ALV种类有以下6个： – ALV Grid – ALV simple List – 多表格的ALV List – 层级显示的ALV List – ALV Tree – ALV OO 下面的内容将根据不同的ALV类型分开作简绍。 一、
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值