06、基于ALV报表开发双击弹出窗口、对话框添加数据等功能

Luis丶

于 2024-06-14 11:14:41 发布

阅读量956

点赞数 26

分类专栏： 02、ABAP 文章标签：经验分享

本文链接：https://blog.youkuaiyun.com/wo520yl1314/article/details/139674068

版权

基于ALV报表开发双击弹出窗口、对话框添加数据等功能

01、弹出窗口显示
02、对话框添加数据
03、完整代码及功能展示
- （1）完整代码
- （2）功能展示

01、弹出窗口显示

（1）弹出窗口的概念

弹出窗口，即弹窗，我们日常的生活中使用网页、App时经常会弹出各种窗口，后面介绍的对话框也是弹窗的一种。弹窗主要是提醒用户一些关键性的操作，如弹出重要信息、隐私授权、是否付款、是否签收等关键操作，虽然功能并不复杂但在互联网时代却是不可或缺的存在。

（2）弹出窗口预期实现效果

点击ALV报表中的某一行数据，弹出用户所需要的具体信息，便于用户进行查看。

（3）弹出窗口代码的实现

FORM displat_item  USING p_matnr.
  DATA: go_alv    TYPE REF TO cl_salv_table,
        go_funlst TYPE REF TO cl_salv_functions_list.
  DATA: cxroot TYPE REF TO cx_root,
        excmsg TYPE c.
  CLEAR:go_alv,go_funlst.

  SELECT *
    FROM mara
   WHERE matnr = @p_matnr
    INTO TABLE @DATA(lt_item).

  IF sy-subrc = 0.
    TRY.
        cl_salv_table=>factory(
        IMPORTING
        r_salv_table = go_alv   "导出ALV的容器对象
        CHANGING
        t_table = lt_item[] ).  "内容表
      CATCH cx_root INTO cxroot.
        excmsg = cxroot->get_text( ). "异常处理，显示异常信息
        MESSAGE e000(oo) WITH excmsg.
    ENDTRY.

    go_funlst = go_alv->get_functions( ).
    go_funlst->set_all( 'X' ).

    "重新设置列名称
    go_alv->get_columns( )->get_column( 'MATNR' )->set_long_text( '我身上有条龙' ).

    IF go_alv IS BOUND."设置窗口大小与位置-
      go_alv->set_screen_popup(
      start_column = 30
      end_column = 160
      start_line = 5
      end_line = 20 ).
      go_alv->display( ).
    ENDIF.
  ENDIF.
ENDFORM.

02、对话框添加数据

（1）对话框的概念

对话框是弹窗的一种，主要用户与计算机之间的交互，需要用户进行明确的操作，即是否确定、是否取消。除了对话框以外，还有其他类型的弹窗，通常用于通知、提醒等操作。

（2）对话框实现预期效果

笔者主要是通过点击插入按钮，弹出对话框，添加数据，实现动态添加数据的功能，但需要自己创建一个张表，不能在标准表上进行操作，这样很危险！，笔者前面的博客都是基于标准表进行查询的，抱歉！
具体按钮配置流程，参考这个博主：https://blog.youkuaiyun.com/xuehen86/article/details/105992525/

具体创建表流程，可参考这个博主：https://blog.youkuaiyun.com/weixin_45387285/article/details/128233642

（3）对话框添加数据代码实现

WHEN '&ADD'.
	DATA:lv_yn TYPE STRING.
	   " 添加数据弹窗
	   CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
	    EXPORTING
	      titel          = '重要提示'
	      textline1      = '是否添加数据？'
	      cancel_display = ''  " 'X'是显示Cancel按钮，这里是不显示Cancel按钮
	    IMPORTING
	      answer         = lv_yn.  "确定= J  否=N
	    IF lv_yn = 'J'.
	      " 填写弹窗 物料编码、物料类型、物料组
	      DATA : lt_sval TYPE  TABLE  OF  sval,
	             lt_zsd LIKE TABLE OF ZSD001 WITH HEADER LINE,
	             ls_sval LIKE  LINE  OF  lt_sval.
	      DATA:l_returncode TYPE string .
	
	      "物料编号
	      CLEAR ls_sval .
	      ls_sval-tabname = 'ZSD001' .  "表名
	      ls_sval-fieldname = 'ZSD_MATNR' . "物料编号
	      ls_sval-fieldtext