ABAP 明细alv跳转到汇总alv一般模板

于 2023-12-14 13:48:58 发布
阅读量757 收藏 13
点赞数 17
分类专栏： ABAP 文章标签： SAP abap
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lmf496891416/article/details/134993275
版权

需求描述：做开发的同时，经常会有遇到，根据明细表进行逻辑汇总，在两个屏幕进行跳转，然后按钮还要做功能的情况，我这边记录一下最简单点模板，给新手可以直接复制使用的。
请添加图片描述
一、源代码

TYPE-POOLS: slis.
TYPE-POOLS: kcde.

TABLES:ekko,ekpo,lfa1."

TYPES : BEGIN OF typ_alv ,
          ebeln TYPE ekko-ebeln,  "订单编号
          ebelp TYPE ekpo-ebelp,  "行项目
          lifnr TYPE ekko-lifnr, "供应商编号
          name1 TYPE name1_gp, "供应商名称
          bsart TYPE esart,    "采购订单类型
          bukrs TYPE  ekko-bukrs,
          menge TYPE ekpo-menge, "数量

          sel   TYPE      c, "选择

        END OF typ_alv .
DATA : gs_alv TYPE typ_alv,
       gt_alv TYPE TABLE OF typ_alv.

TYPES : BEGIN OF typ_HZ ,

          lifnr TYPE ekko-lifnr, "供应商编号
          name1 TYPE name1_gp, "供应商名称
          bsart TYPE esart,    "采购订单类型
          bukrs TYPE  ekko-bukrs,
          menge TYPE ekpo-menge, "数量

          sel   TYPE      c, "选择

        END OF typ_HZ .
DATA : gs_HZ TYPE typ_HZ,
       gt_HZ TYPE TABLE OF typ_HZ.

* ALV 用
DATA:
  gs_layout   TYPE lvc_s_layo,
  gv_repid    TYPE repid,
  gt_fieldcat TYPE lvc_t_fcat,
  gt_fieldcat_HZ TYPE lvc_t_fcat,
  ls_fieldcat TYPE lvc_S_fcat.
DATA: g_grid TYPE REF TO cl_gui_alv_grid.
DATA: g_grid_hz TYPE REF TO cl_gui_alv_grid.
*创建字段宏定义
DEFINE add_field.
  ls_fieldcat-fieldname = '&1' .  "字段名称
  ls_fieldcat-ref_table = &2. "关联表格
  ls_fieldcat-ref_field = &3."参考字段
  ls_fieldcat-coltext = &4. "描述文本
  APPEND ls_fieldcat TO gt_fieldcat.
  CLEAR ls_fieldcat.
END-OF-DEFINITION.


*创建字段宏定义
DEFINE add_field_HZ.
  ls_fieldcat-fieldname = '&1' .  "字段名称
  ls_fieldcat-ref_table = &2. "关联表格
  ls_fieldcat-ref_field = &3."参考字段
  ls_fieldcat-coltext = &4. "描述文本
  ls_fieldcat-EDIT    = &5.
  APPEND ls_fieldcat TO gt_fieldcat_HZ.
  CLEAR ls_fieldcat.
END-OF-DEFINITION.


*--------选择条件
*选择屏幕。
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.

  SELECT-OPTIONS: s_bukrs FOR ekko-bukrs ,
                  s_ebeln FOR ekko-ebeln,
                  s_lifnr FOR ekko-lifnr.
SELECTION-SCREEN END OF BLOCK b1.


INITIALIZATION .

AT SELECTION-SCREEN OUTPUT .

*----------------------------------------------------------------------*
* EVENT OCCURS AFTER THE SELECTION SCREEN HAS BEEN PROCESSED
*----------------------------------------------------------------------*
START-OF-SELECTION.

  PERFORM frm_auth_check.  "权限检查
  PERFORM frm_getdata .    "获取数据  --GETTING DATA
  PERFORM frm_display_data.  "展示ALV

END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form frm_auth_check
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_auth_check .

ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_getdata
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_getdata .
  SELECT
         ekko~ebeln ,
         ekpo~ebelp ,
         ekko~lifnr ,
         lfa1~name1 ,"供应商名称
         ekko~bsart ,"采购订单类型
         ekko~bukrs,
         ekpo~menge
         INTO CORRESPONDING FIELDS OF TABLE @gt_alv
         FROM ekko
         LEFT JOIN ekpo ON ekko~ebeln EQ ekpo~ebeln
         LEFT JOIN lfa1 ON ekko~lifnr EQ lfa1~lifnr
     WHERE   ekko~bukrs IN @s_bukrs
       AND   ekko~ebeln IN @s_ebeln
       AND   ekko~lifnr IN @s_lifnr
         .
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_display_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_display_data .
*定义输出模式
  CLEAR:gs_layout,gt_fieldcat.
  gs_layout-cwidth_opt         = 'X'.
  gs_layout-zebra              = 'X'.
  gs_layout-box_fname              = 'SEL'.
  gv_repid = sy-repid.
  PERFORM frm_set_fieldcat.
  .
*  TRY .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = gv_repid
      i_callback_user_command  = 'FRM_USER_COMMAND'
      i_callback_pf_status_set = 'FRM_PF_STATUS'
      is_layout_lvc            = gs_layout
      it_fieldcat_lvc          = gt_fieldcat
      i_save                   = 'A'
    TABLES
      t_outtab                 = gt_alv
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.

  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_set_fieldcat
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_set_fieldcat .
  add_field:
          ebeln 'EKKO' 'EBELN'  '订单编号',
          ebelp 'EKPO' 'EBELP'  '行项目',
          lifnr 'EKKO' 'LIFNR' '供应商编号',
          name1  ''     ''    '供应商名称',
          bsart ''   ''    '采购订单类型',
          bukrs 'EKKO'  'BUKRS'  '公司',
          menge 'EKPO' 'MENGE' '数量'.

ENDFORM.

FORM frm_pf_status USING extab TYPE slis_t_extab.
  DATA: fcode TYPE TABLE OF sy-ucomm.
  CLEAR:fcode[].

  SET PF-STATUS 'STANDARD' EXCLUDING fcode[] .
ENDFORM.
*&---------------------------------------------------------------------*
*&      FORM  FRM_USER_COMMAND
*&---------------------------------------------------------------------*
*       自定义用户动作
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*

*自定义用户动作
FORM frm_user_command USING p_ucomm TYPE sy-ucomm rs_selfield TYPE slis_selfield.

   IF  cl_gui_alv_grid=>offline( )  IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = g_grid.
  ENDIF.
  "失去焦点触发更新内表
  CALL METHOD g_grid->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_modified.

  CALL METHOD g_grid->check_changed_data.

  rs_selfield-refresh     = 'X'.
  rs_selfield-col_stable  = 'X'.
  rs_selfield-row_stable  = 'X'.


  DATA : l_ucomm TYPE sy-ucomm  .
  l_ucomm = p_ucomm .
  CLEAR p_ucomm .
  CASE l_ucomm.
    WHEN 'HZ'."选择汇总
      PERFORM handle_SELECT_DATA."处理选中的数据
      PERFORM display_hz."显示汇总数据

    WHEN '&IC1'. "单击复选框 勾选（取消）后同一预留号都自动勾选（取消）
    WHEN OTHERS.
  ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form handle_SELECT_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM handle_SELECT_DATA .
  SELECT  l~lifnr ,
          l~name1 ,"供应商名称
          l~bsart ,"采购订单类型
          l~bukrs,
       SUM(  L~menge ) AS menge
    FROM @gt_alv AS l
   WHERE sel = 'X'
   GROUP BY  l~lifnr, l~name1,l~bsart ,  l~bukrs
   INTO CORRESPONDING FIELDS OF TABLE @gt_HZ.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form DISPLAY_HZ
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM display_hz .
*定义输出模式
  CLEAR:gs_layout,gt_fieldcat.
  gs_layout-cwidth_opt         = 'X'.
  gs_layout-zebra              = 'X'.
  gs_layout-box_fname              = 'SEL'.
  gv_repid = sy-repid.
  PERFORM frm_set_fieldcat_HZ.
  .
*  TRY .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = gv_repid
      i_callback_user_command  = 'FRM_USER_COMMAND_HZ'
      i_callback_pf_status_set = 'FRM_PF_STATUS_HZ'
      is_layout_lvc            = gs_layout
      it_fieldcat_lvc          = gt_fieldcat_HZ
      i_save                   = 'A'
    TABLES
      t_outtab                 = gt_HZ
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.

  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.

FORM frm_set_fieldcat_HZ .
  CLEAR:gt_fieldcat_HZ.
  add_field_HZ:

          lifnr 'EKKO' 'LIFNR' '供应商编号' '',
          name1  ''     ''    '供应商名称' '',
          bsart ''   ''    '采购订单类型' '',
          bukrs 'EKKO'  'BUKRS'  '公司' '',
          menge 'EKPO' 'MENGE' '汇总数量' 'X'.

ENDFORM.

FORM frm_pf_status_HZ USING extab TYPE slis_t_extab.
  DATA: fcode TYPE TABLE OF sy-ucomm.
  CLEAR:fcode[].

  SET PF-STATUS 'STANDARD_HZ' EXCLUDING fcode[] .
ENDFORM.
*&---------------------------------------------------------------------*
*&      FORM  FRM_USER_COMMAND
*&---------------------------------------------------------------------*
*       自定义用户动作
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*

*自定义用户动作
FORM frm_user_command_hz USING p_ucomm TYPE sy-ucomm rs_selfield TYPE slis_selfield.
  DATA : l_ucomm TYPE sy-ucomm  .

  IF  cl_gui_alv_grid=>offline( )  IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = g_grid_hz.
  ENDIF.
  "失去焦点触发更新内表
  CALL METHOD g_grid_hz->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_modified.

  CALL METHOD g_grid_hz->check_changed_data.

  rs_selfield-refresh     = 'X'.
  rs_selfield-col_stable  = 'X'.
  rs_selfield-row_stable  = 'X'.

  l_ucomm = p_ucomm .
  CLEAR p_ucomm .
  DATA : l_uname TYPE sy-uname,
         l_datum TYPE sy-datum,
         l_uzeit TYPE sy-uzeit.

  CASE l_ucomm.
    WHEN 'CREATE'."创建单据
      PERFORM create_rsnum.
    WHEN '&IC1'. "单击复
    WHEN OTHERS.
  ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form CREATE_RSNUM
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM create_rsnum .
 MESSAGE '创建成功' TYPE 'I' .
ENDFORM.

二、其中的状态和按钮设置截图
1.创建状态的时候，标准按钮如何点出来的？按我截图走
在这里插入图片描述
在这里插入图片描述

2.明细表的状态设置和按钮设置，添加了个HZ的按钮
在这里插入图片描述
3.汇总表状态和按钮设置，添加了创建单据的按钮
在这里插入图片描述
激活就可以改造为你自己的程序了。

分享使我快乐，我是寒武青锋~！如果觉得还挺不错的话，记得点个赞吧。请添加图片描述

寒武青锋
关注
  • 17
    点赞
  • 踩
  • 13
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
ABAP ALV 报表基础模板(两种)
03-01
ABAP ALV 报表基础模板(两种)
ABAP OOALV学习文档
02-27
ABAP OOALV报表开发，定义变量，选择屏幕定义，创建类，调用函数,是学习OOALV很不错的学习资料
SAP ABAP 双击ALV界面字段跳转到对应的地方
weixin_52073858的博客
05-30 1102
DATA ******** CLASS alv_event_receiver DEFINITION DEFERRED. "声明类对象 第一步 CLASS alv_event_receiver DEFINITION. "声明类成员可见性 第二步 PUBLIC SECTION. CLASS-METHODS: handle_double_click FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e.........
SAP ABAP S4设置ALV热点跳转BP界面
SAP ABAP开发技能记录分享
12-13 596
ABAP S4设置ALV热点跳转BP界面，以实例为准代码如下：
SAP ABAP ALV实现跳转代码实例
nopicture的博客
06-08 577
最近比较空，参考做了一个abap ALV实现跳转，详细记录一下。2023-6-8 苏州。
ABAP-ALV学习（三）增加热键并跳转界面
惰小懒的博客
12-10 2006
学习目标： ALV增加热键，跳转到对应单据 学习内容： 1.接着上一篇，在采购订单编号字段上增加热键 2.点击热键进行跳转ME23N。 示例代码： FORM frm_fill_fieldcat . "新增 IF gs_fieldcat-fieldname = 'EBELN'. gs_fieldcat-hotspot = 'X'. "热点事件 ENDIF. ENDFORM. FORM user_command USING u_ucomm LIKE sy-ucomm
OOALV 不同ALV调用相同屏幕
BinGeneral的博客
09-27 303
常规方法，即跳转到多少个ALV，就创建多少个SCREEN。而屏幕对应的输入输出流，事件，fieldcat，ALV等等出现大量相似代码。那么是否可以创建一个SCREEN，多次调用，修改调用时的fieldcat和展示ALV的GT_ALV内表。当使用OOALV开发平台，存在点击不同位置，跳转到一个ALV，除ALV内容不一致以外，其他都一样。调用9001SCREEN时，重新调用方法，再清理并实例化这两个对象。每次离开上一个ALV时，调用析构函数，清理两个对象。
abap-ALV.rar_ABAP系统ALV_abap_abap开发alv
09-21
ABAP ALV总结,ALV格式，REUSE_ALV_GRID_DISPLAY_LVC函数使用
ABAP-ALV行颜色展示
04-07
用户想实现对质检及时率做个展示 为了更好的给用户更直观的展示，对超期数据标红展示了，未超期数据蓝色展示。
ABAP_ALV_知识整理.pdf
09-24
ABAP_ALV_知识整理
ABAP报表的屏幕事件
10-06 1532
1. INITIALIZATION （1）.只能用于报表程序 （2）.在选择屏幕出现之前执行，如果用逻辑数据库的话，这个是唯一能够修改选择屏幕初始值的地方。 （3）.通常的用法是在这里给选择屏幕中的字段赋值。 2.  START-OF-SELECTION 报表程序必须执行的事件，在进入第二屏幕之前触发。 3.AT SELECTION-SCREEN （1）.其实就像一个FORM
ABAP ALV实现双击跳转事件
qq_42080586的博客
03-28 4462
第一步：调用ALV函数的时候，在I_CALLBACK_USER_COMMAND中确定好点击事件的FORM名，比如这里的USER_COMMAND CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING I_GRID_TITLE = '订单和物料信息' I_CALLBACK_PROGRAM = SY-REPID I_CALLBACK_PF_STATUS_SET = 'FRM_
ALV双击单元格，进入另一个ALV界面
少年休闲海
08-24 5345
REPORT ztest_alv_two . TYPE-POOLS : slis. DATA: BEGIN OF gt_mara OCCURS 0,       matnr LIKE mara-matnr,       mtart LIKE mara-mtart,
ABAP-ALV报表中双击某个单号跳转到对应界面
dlgy_1102的博客
05-25 5104
例如：我的ALV报表中有SO&STO单号，怎么实现双击跳转至VA03&ME23N界面 一、我的DISPLAY用的是FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC’，如下：我的USER_COMMAND事件在这个函数对应的是 I_CALLBACK_USER_COMMAND FORM DISPLAY . PERFORM FCAT_BUILDER. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING
SAP ALV界面跳转问题
qq_31985487的博客
11-27 1024
ALV返回选择界面 LEAVE LIST-PROCESSING. OOALV返回上一个界面 SET SCREEN 0. LEVEAL SCREEN.
ABAP ALV点击一个字段跳转到另一个事务代码并填充内容
weixin_42559610的博客
09-06 2495
FORM frm_user_command USING i_ucomm TYPE sy-ucomm i_wa_selfield TYPE slis_selfield. CASE i_ucomm. WHEN '&IC1'. "Double click * if click on PO field, jump to me23n IF i_wa_selfield-fieldname = 'EBELN'.
ALV 双击跳转
playboyluck的专栏
09-30 1127
在ALV显示的时候双击跳转 首先是在ALV中设置i_CALLBACK_USER_COMMAND call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'  " alv display     exporting      i_bypassing_buffer       = 'X'      i_buffer_active          = ''    ...
ABAP SQL 拼字段（concat），截取字段的用法（substring）新增自定义字段（ CAST）添加前导零（LPAD）
热门推荐
寒武青锋的博客
06-19 1万+
在SQL语句中，有时候会有需要拼接字段或者是截取字段，那我们如何实现呢。 一、干货 1.拼接字段 第一种： concat( A , 字段 ) AS 别名 — A 可以为自定义字段 第二种： ( C && B ) AS 别名 ---- 注意，B与C都是需要为char 类型才能使用这个 2.截取字段 substring( fldate,1,4 ) AS fldate, 二、简单实例 SELECT carrid, "航线 connid,
abap开发学习视频
最新发布
01-25
ABAP开发学习视频是针对初学者和有一定经验的开发人员的教育资源。视频内容涵盖了ABAP编程语言的基础知识和高级技巧，包括ABAP对象、数据字典、函数模块、ABAP工具和ABAP调试等方面的内容。 通过ABAP开发学习视频，学习者可以系统地掌握ABAP语言的语法和特性，了解ABAP开发的最佳实践和技巧。视频中还包括了大量的实例演示和编程挑战，可以帮助学习者加深理解和应用所学知识。 另外，ABAP开发学习视频还会介绍与SAP系统集成相关的开发技术，包括SAP GUI、SAP NetWeaver等内容，帮助学习者理解ABAP在实际的SAP项目中的应用和开发流程。 学习ABAP开发视频的好处是可以在自己的节奏和时间下进行学习，无需受限于课堂时间和地点。学习者可以反复观看视频，整理笔记，加深理解和应用所学内容。另外，视频中通常会包括练习题和项目实战，让学习者在实践中提高技能，更好地掌握ABAP开发的知识和技能。 总之，ABAP开发学习视频是一种方便高效的学习方式，可以帮助开发人员系统地学习和应用ABAP开发语言，提高其在SAP项目中的开发能力和竞争力。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值