ABAP--ALV_BLOCK_LIAST的函数使用样例

最新推荐文章于 2025-12-06 10:29:43 发布
原创 最新推荐文章于 2025-12-06 10:29:43 发布 · 431 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

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

本文介绍了一个使用 SAP ALV (Application List Viewer) 在一个报表中展示多个数据块的方法。示例代码展示了如何定义数据结构、获取字段目录、选择数据，并通过两次调用 `REUSE_ALV_BLOCK_LIST_APPEND` 函数将两个不同的数据集整合到同一报表的不同区块中。 
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. 
运行结果：
 


Trackback: http://tb.blog.youkuaiyun.com/TrackBack.aspx?PostId=1733103


techweb
关注
SAP_ABAP模块-利用 BAPI_PO_CREATE1/CHANGE 实现采购订单批导 —— 更新 EAN11 及非标准字段的解决方案
风沙的博客
06-16 455
本文记录了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 一个隐藏 selection-screen block的实例
weixin_34310369的博客
04-30 633
以下是一个演示如何通过 selection-screen 中的pushbutton来动态改变屏幕上的字段的显示状态的（即显示或者隐藏）。 注意：显示通过本示例可知selection-screen 中的 field 的显示状态都是的，在程序中修改其属性 active 的值为 '0' 时，该field就回隐藏起来。 但是在下一次屏幕显示前，其默认值又归为显示了。这时候可以在 ...
SAP ABAP 一个隐藏 selection-screen block的实例
matinal 當冬夜漸暖 。公众号：matinal
04-22 1277
另外，注意使用 modif id *** 来将selection screen 中的 field 指派到 screen-group1 中。但是在下一次屏幕显示前，其默认值又归为显示了。以下是一个演示如何通过 selection-screen 中的pushbutton来动态改变屏幕上的字段的显示状态的（即显示或者隐藏）。注意：显示 通过本示例可知selection-screen 中的 field 的显示状态都是 的，在程序中修改其属性。'关闭' '' INTO pbc2.'打开' '' INTO pbo2.
关于ABAP选择屏幕部分，定义框架与不定义框架两种写法
月阴荒的博客
09-06 1861
1111
使用REUSE_ALV_BLOCK_LIST_APPEND函数进行多ALV展现
m0_53515083的博客
04-12 465
效果如图： 用此方法进行展示的ALV只能是这种形式，不能改变展法效果。实战项目上应用不多，只是技术展示和学习用。 示例代码我是找了别人写的一段程序，代码相对简单，如有侵权请联系我删除。 完整示例： TYPE-POOLS: slis. * Data declarations. DATA: BEGIN OF t_vbak OCCURS 0, vbeln TYPE vbeln, bstnk TYPE vbak-bstnk, erdat TYPE vbak-
alv布局 sap_[代码]REUSE_ALV_GRID_DISPLAY_LVC-选择画面中添加ALV布局控制字段
weixin_39757040的博客
12-21 904
在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 853
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 zppr105. TABLES:afpo,aufk,afko,ztwm008,zppt085,makt,zppt086,tj02t. *定义全局变量 TYPE-POOLS: slis. DATA:gt_fcat TYPE lvc_t_fcat. DATA:gs_lout TYPE lvc_s_layo. DATA:t_status TYPE TABLE OF jstat WITH HEADER LINE. TYPES:BEGIN OF ty_alv, matnr TYPE afpo-matnr, "物料编码 objnr TYPE aufk-objnr, "对象号 zdjcs TYPE zppt085-zdjcs, "登记次数 plnbez TYPE afko-plnbez, "订单物料编码 plnbez1 TYPE afko-plnbez, "订单物料编码 maktx TYPE makt-maktx, "订单物料描述 werks TYPE aufk-werks, "工厂 auart TYPE aufk-auart, "生产订单类型 aufnr TYPE aufk-aufnr, "生产订单号 aufnr1 TYPE aufk-aufnr, "生产订单号 gamng TYPE afko-gamng, "订单数量 gstrp TYPE afko-gstrp, "开始日期 gltrp TYPE afko-gltrp, "结束日期 zmph TYPE ztwm008-zmph, "铭牌号 zcsry TYPE zppt085-zcsry, "测试人员 zryxm TYPE zppt086-zryxm, "人员姓名 zrybm TYPE zppt086-zrybm, "部门 zcsrq TYPE zppt085-zcsrq, "测试日期 zcsjg TYPE zppt085-zcsjg, "测试结果 zdjrq TYPE zppt085-zdjrq, "登记日期 date TYPE string, zbhgy TYPE zppt085-zbhgy, "不合格描述 txt30 TYPE tj02t-txt30, "生产订单状态 autyp TYPE aufk-autyp, "订单类别 loekz TYPE aufk-loekz, "删除标记 istat TYPE tj02t-istat, "系统状态 sel TYPE c, END OF ty_alv. DATA:gs_alv TYPE ty_alv, gt_alv TYPE TABLE OF ty_alv, go_grid TYPE REF TO cl_gui_alv_grid, gs_alv1 TYPE zppt085, gt_alv1 TYPE TABLE OF zppt085, gs_alv2 TYPE ty_alv. DATA: gt_fieldcat TYPE lvc_t_fcat, gs_layout TYPE lvc_s_layo, gs_grid_settings TYPE lvc_s_glay, gs_fieldcat TYPE lvc_s_fcat. DEFINE add_fieldcat. CLEAR:gs_fieldcat. gs_fieldcat-fieldname = &1. gs_fieldcat-scrtext_l = &2. gs_fieldcat-scrtext_m = &2. gs_fieldcat-scrtext_s = &2. gs_fieldcat-coltext = &2. gs_fieldcat-ref_table = &3. gs_fieldcat-ref_field = &4. gs_fieldcat-cfieldname = &5. gs_fieldcat-currency = &6. gs_fieldcat-quantity = &7. gs_fieldcat-qfieldname = &8. gs_fieldcat-decimals = &9. IF gs_fieldcat-fieldname = 'SEL'. gs_fieldcat-checkbox = 'X'. gs_fieldcat-edit = 'X'. ENDIF. IF gs_fieldcat-fieldname = 'ZCSRY' OR gs_fieldcat-fieldname = 'ZCSRQ' OR gs_fieldcat-fieldname = 'ZCSJG' OR gs_fieldcat-fieldname = 'ZBHGY'. gs_fieldcat-edit = 'X'. ENDIF. APPEND gs_fieldcat TO gt_fieldcat. END-OF-DEFINITION. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-000. SELECT-OPTIONS: p_matnr FOR afpo-matnr NO INTERVALS."订单物料编码 SELECT-OPTIONS: p_werks FOR aufk-werks NO INTERVALS OBLIGATORY."工厂 SELECT-OPTIONS: p_aufnr FOR aufk-aufnr NO INTERVALS."生产订单号 SELECT-OPTIONS: p_gstrp FOR afko-gstrp."开始日期 SELECT-OPTIONS: p_gltrp FOR afko-gltrp."结束日期 SELECT-OPTIONS: p_auart FOR aufk-auart NO INTERVALS."订单类型 SELECT-OPTIONS: p_zmph FOR ztwm008-zmph NO INTERVALS."铭牌号 SELECTION-SCREEN END OF BLOCK b1. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002. PARAMETERS: p_ch TYPE c AS CHECKBOX DEFAULT 'X'. SELECTION-SCREEN END OF BLOCK b2. AT SELECTION-SCREEN. * 检查权限(Check Author) * PERFORM frm_check_author. *&---------------------------------------------------------------------* *& START-OF-SELECTION *&---------------------------------------------------------------------* START-OF-SELECTION. * 赋值(get data) PERFORM frm_get_data. *&---------------------------------------------------------------------* *& END-OF-SELECTION *&---------------------------------------------------------------------* END-OF-SELECTION. *设置ALV输出格式(set layout) PERFORM frm_set_layout CHANGING gs_layout. * 设置ALV输出字段(set fieldacat) PERFORM frm_set_fieldcat. * ALV展示(display ALV) PERFORM frm_display_alv. FORM frm_get_data. DATA:number TYPE string. DATA:lv_where TYPE string. DATA: lv_year TYPE char4, "年份 lv_month TYPE char2, "月份 lv_day TYPE char2, "日期 lv_date TYPE char10. "格式化后的日期 "获取系统当前日期 DATA(lv_current_date) = sy-datum. "提取日期各部分 lv_year = lv_current_date(4). "取前4位作为年份 lv_month = lv_current_date+4(2). "从第5位开始取2位作为月份 lv_day = lv_current_date+6(2). "从第7位开始取2位作为日期 "使用CONCATENATE函数拼接 CONCATENATE lv_year '.' lv_month '.' lv_day INTO lv_date. SELECT b~matnr, a~werks, a~auart, a~aufnr, d~gamng, d~plnbez, c~maktx, e~zmph, a~objnr FROM aufk AS a INNER JOIN afko AS d ON d~aufnr = a~aufnr INNER JOIN afpo AS b ON b~matnr = d~plnbez AND b~aufnr = d~aufnr INNER JOIN makt AS c ON c~matnr = d~plnbez INNER JOIN ztwm008 AS e ON e~aufnr = a~aufnr WHERE a~autyp = 10 AND c~spras = 1 AND a~loekz <> 'X' AND b~matnr IN @p_matnr AND a~werks IN @p_werks AND a~aufnr IN @p_aufnr AND d~gstrp IN @p_gstrp AND d~gltrp IN @p_gltrp AND a~auart IN @p_auart AND e~zmph IN @p_zmph INTO TABLE @DATA(lt_form). LOOP AT lt_form INTO DATA(ls_form). MOVE-CORRESPONDING ls_form TO gs_alv. SELECT a~zdjcs,a~plnbez,a~maktx ,a~werks,a~auart,a~aufnr,a~gamng,c~zmph,a~zcsry,b~zryxm,b~zrybm,a~zcsrq,a~zcsjg,a~zdjrq,a~zbhgy FROM zppt085 AS a LEFT OUTER JOIN zppt086 AS b ON a~zcsry = b~zrygh LEFT OUTER JOIN ztwm008 AS c ON c~zmph = @gs_alv-zmph WHERE a~werks = @gs_alv-werks AND a~aufnr = @gs_alv-aufnr AND A~ZMPH = @GS_ALV-ZMPH INTO TABLE @DATA(lt_form2). "判断查询出的表是否为空，不为空，直接将数据插入alv内表中 IF lt_form2 IS NOT INITIAL. LOOP AT lt_form2 INTO DATA(ls_form2). MOVE-CORRESPONDING ls_form2 TO gs_alv2. gs_alv2-plnbez1 = gs_alv2-plnbez. gs_alv2-aufnr1 = gs_alv2-aufnr. SHIFT gs_alv2-plnbez1 LEFT DELETING LEADING '0'. SHIFT gs_alv2-aufnr1 LEFT DELETING LEADING '0'. "获取系统当前日期 CLEAR:lv_current_date,lv_year,lv_month,lv_day. lv_current_date = gs_alv2-zdjrq. "提取日期各部分 lv_year = lv_current_date(4). "取前4位作为年份 lv_month = lv_current_date+4(2). "从第5位开始取2位作为月份 lv_day = lv_current_date+6(2). "从第7位开始取2位作为日期 "使用CONCATENATE函数拼接 CONCATENATE lv_year '.' lv_month '.' lv_day INTO lv_date. gs_alv2-date = lv_date. APPEND gs_alv2 TO gt_alv. CLEAR gs_alv2. ENDLOOP. ELSE. IF gs_alv-zdjcs = 0. gs_alv-zdjcs = 1. ENDIF. "获取系统当前日期 CLEAR:lv_current_date,lv_year,lv_month,lv_day. lv_current_date = sy-datum. "提取日期各部分 lv_year = lv_current_date(4). "取前4位作为年份 lv_month = lv_current_date+4(2). "从第5位开始取2位作为月份 lv_day = lv_current_date+6(2). "从第7位开始取2位作为日期 "使用CONCATENATE函数拼接 CONCATENATE lv_year '.' lv_month '.' lv_day INTO lv_date. gs_alv-date = lv_date. gs_alv-zdjrq = lv_current_date. "结果存放在STATUS表中 CALL FUNCTION 'STATUS_READ' EXPORTING client = sy-mandt objnr = gs_alv-objnr TABLES status = t_status EXCEPTIONS object_not_found = 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. number = '0'. LOOP AT t_status. IF p_ch = 'X'. IF ( t_status-stat = 'I0001' AND t_status-inact IS INITIAL ) OR ( t_status-stat = 'I0045' AND t_status-inact IS INITIAL ). number = '1'. ENDIF. ELSEIF t_status-stat = 'I0001' AND t_status-inact IS INITIAL. number = '1'. ENDIF. ENDLOOP. gs_alv-plnbez1 = gs_alv-plnbez. gs_alv-aufnr1 = gs_alv-aufnr. SHIFT gs_alv-plnbez1 LEFT DELETING LEADING '0'. SHIFT gs_alv-aufnr1 LEFT DELETING LEADING '0'. IF number <> '1'. APPEND gs_alv TO gt_alv. ENDIF. CLEAR:gs_alv. ENDIF. ENDLOOP. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_SET_LAYOUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_set_layout CHANGING p_layout TYPE lvc_s_layo. p_layout-zebra = 'X'. p_layout-sel_mode = 'D'. p_layout-cwidth_opt = 'X'. "自适应宽度(Adaptive width) ENDFORM. "frm_set_layout FORM frm_set_fieldcat. REFRESH gt_fieldcat. add_fieldcat: 'SEL ' '选择 ' '' '' '' '' '' '' '' , ' ' '消息类型 ' '' '' '' '' '' '' '' , ' ' '消息文本 ' '' '' '' '' '' '' '' , 'ZDJCS ' '登记次数 ' '' '' '' '' '' '' '' , 'PLNBEZ1 ' '订单物料编码 ' '' '' '' '' '' '' '' , 'MAKTX ' '订单物料描述 ' '' '' '' '' '' '' '' , 'WERKS ' '工厂 ' '' '' '' '' '' '' '' , 'AUART ' '生产订单类型 ' '' '' '' '' '' '' '' , 'AUFNR1 ' '生产订单号 ' '' '' '' '' '' '' '' , 'GAMNG ' '订单数量 ' '' '' '' '' '' '' '' , 'ZMPH ' '铭牌号 ' '' '' '' '' '' '' '' , 'ZCSRY' '测试人员 ' 'ZPPT086' 'ZRYGH' '' '' '' '' '' , 'ZRYXM ' '人员姓名 ' '' '' '' '' '' '' '' , 'ZRYBM ' '部门 ' '' '' '' '' '' '' '' , 'ZCSJG ' '测试结果 ' '' '' '' '' '' '' '', 'DATE ' '登记日期 ' '' '' '' '' '' '' '' , 'ZBHGY ' '不合格描述 ' '' '' '' '' '' '' '' . * GS_LOUT-BOX_FNAME = 'SEL'. gs_lout-zebra = 'X'. gs_lout-cwidth_opt = 'X'. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_DISPLAY_ALV *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_display_alv. DATA:lt_events TYPE slis_t_event, ls_events TYPE slis_alv_event. gs_grid_settings-edt_cll_cb = 'X'. "回车后直接修改内表数据 ls_events-name = slis_ev_data_changed . ls_events-form = 'FRM_DATA_CHANGED'. APPEND ls_events TO lt_events. CLEAR:ls_events. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid i_callback_pf_status_set = 'FRM_SET_STATUS' "控制GUI i_callback_user_command = 'FRM_USER_COMMAND' "控制用户请求 i_grid_settings = gs_grid_settings " is_layout_lvc = gs_layout it_fieldcat_lvc = gt_fieldcat i_save = 'A' it_events = lt_events TABLES t_outtab = gt_alv EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. * MESSAGE s006(zfi_msg) DISPLAY LIKE 'E'. ENDIF. IF go_grid IS INITIAL. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = go_grid. ENDIF. ENDFORM. FORM frm_data_changed USING er_data_changed TYPE REF TO cl_alv_changed_data_protocol. DATA: ls_stable TYPE lvc_s_stbl. ls_stable-row = 'X'. ls_stable-col = 'X'. " 在事件处理中获取网格实例 IF go_grid IS NOT BOUND. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = go_grid. ENDIF. FIELD-SYMBOLS: <f_data>, <f_value> TYPE lvc_s_modi-value, <f_field> TYPE any. DATA: ls_modi TYPE lvc_s_modi, lv_matnr TYPE mara-matnr, lv_value TYPE lvc_s_modi-value. LOOP AT er_data_changed->mt_mod_cells INTO DATA(ls_mod). ENDLOOP. LOOP AT er_data_changed->mt_good_cells INTO ls_modi . lv_value = ls_modi-value. SHIFT lv_value LEFT DELETING LEADING space. "去掉空格 IF ls_modi-fieldname = 'ZCSRY'. READ TABLE gt_alv ASSIGNING FIELD-SYMBOL(<fs_alv>) INDEX ls_modi-row_id. IF sy-subrc = 0. ASSIGN COMPONENT ls_modi-fieldname OF STRUCTURE <fs_alv> TO <f_field>. IF sy-subrc = 0. <f_field> = lv_value. ENDIF. SELECT SINGLE zryxm zrybm INTO (<fs_alv>-zryxm,<fs_alv>-zrybm) FROM zppt086 WHERE zrygh = lv_value. IF sy-subrc <> 0. CLEAR:<fs_alv>-zryxm,<fs_alv>-zrybm. ENDIF. ENDIF. ENDIF. ENDLOOP. " 只有在网格实例有效时才刷新 IF go_grid IS BOUND. "确保布局设置中启用了自适应列宽 gs_layout-cwidth_opt = 'X'. " 刷新显示 CALL METHOD go_grid->refresh_table_display EXPORTING is_stable = ls_stable. ELSE. " 如果无法获取网格实例，使用其他方式刷新 MESSAGE '数据已更新，请手动刷新显示' TYPE 'S'. ENDIF. ENDFORM. FORM frm_set_status USING rt_extab TYPE slis_t_extab. SET PF-STATUS 'STANDARD'. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_USER_COMMAND *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_user_command USING r_ucomm LIKE sy-ucomm ##CALLED rs_selfield TYPE slis_selfield. DATA: e_lo_grid TYPE REF TO cl_gui_alv_grid. * 设置刷新模式，行列保持不变 rs_selfield-refresh = 'X'. rs_selfield-col_stable = 'X'. rs_selfield-row_stable = 'X'. IF go_grid IS INITIAL.. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = go_grid. ENDIF. CALL METHOD go_grid->check_changed_data. * CALL METHOD go_grid->get_filtered_entries * IMPORTING * et_filtered_entries = lt_filt. "筛选数据的定义 DATA: lo_grid TYPE REF TO cl_gui_alv_grid. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = lo_grid. CASE r_ucomm. WHEN '&SAVE'. " 打印 READ TABLE gt_alv INTO gs_alv WITH KEY sel = 'X'. IF sy-subrc <> 0. MESSAGE '请选择要保存的数据' TYPE 'E'. ENDIF. PERFORM frm_save_smartforms. WHEN '&COPY'. PERFORM copy_selected_rows. WHEN OTHERS. ENDCASE. CALL METHOD go_grid->refresh_table_display."刷新alv ENDFORM. FORM copy_selected_rows. DATA: lt_selected TYPE TABLE OF ty_alv, ls_selected TYPE ty_alv, lv_max_zdjcs TYPE zppt085-zdjcs, lt_group_data TYPE STANDARD TABLE OF ty_alv, lv_count TYPE i. "检查数据变更 CALL METHOD go_grid->check_changed_data. READ TABLE gt_alv INTO gs_alv WITH KEY sel = 'X'. IF sy-subrc <> 0. MESSAGE '请选择要复制的数据' TYPE 'E'. ENDIF. "遍历内表查找选中行 CLEAR gs_alv. CLEAR gs_alv2. "获取所有选中的行数据 LOOP AT gt_alv INTO gs_alv WHERE sel = 'X'. APPEND gs_alv TO lt_selected. ENDLOOP. LOOP AT lt_selected INTO ls_selected. CLEAR lt_group_data. LOOP AT gt_alv INTO DATA(ls_temp) WHERE werks = ls_selected-werks AND aufnr = ls_selected-aufnr AND zmph = ls_selected-zmph. " 替换为实际铭牌号字段 APPEND ls_temp TO lt_group_data. ENDLOOP. " 获取组内最大登记次数 lv_max_zdjcs = 1. LOOP AT lt_group_data INTO DATA(ls_group). IF ls_group-zdjcs > lv_max_zdjcs. lv_max_zdjcs = ls_group-zdjcs. ENDIF. ENDLOOP. ls_selected-zdjcs = lv_max_zdjcs + 1. ls_selected-zdjrq = sy-datum. ls_selected-sel = ''. APPEND ls_selected TO gt_alv. ENDLOOP. "刷新ALV显示 CALL METHOD go_grid->refresh_table_display. "显示成功消息 lv_count = lines( lt_selected ). MESSAGE |已成功复制 { lv_count } 行数据| TYPE 'S'. ENDFORM. FORM frm_save_smartforms. CLEAR gs_alv. CLEAR gs_alv1. LOOP AT gt_alv INTO gs_alv WHERE sel = 'X'. gs_alv1-zdjcs = gs_alv-zdjcs. gs_alv1-plnbez = gs_alv-plnbez. gs_alv1-maktx = gs_alv-maktx . gs_alv1-werks = gs_alv-werks. gs_alv1-auart = gs_alv-auart. gs_alv1-aufnr = gs_alv-aufnr. gs_alv1-gamng = gs_alv-gamng. gs_alv1-zmph = gs_alv-zmph. gs_alv1-zcsry = gs_alv-zcsry. gs_alv1-zryxm = gs_alv-zryxm. gs_alv1-zrybm = gs_alv-zrybm. gs_alv1-zcsrq = gs_alv-zcsrq. gs_alv1-zcsjg = gs_alv-zcsjg. gs_alv1-zdjrq = gs_alv-zdjrq. gs_alv1-zbhgy = gs_alv-zbhgy. APPEND gs_alv1 TO gt_alv1. CLEAR gs_alv. CLEAR gs_alv1. ENDLOOP. * MODIFY zppt085 FROM TABLE gt_alv1 . MODIFY zppt085 FROM TABLE gt_alv1. IF sy-subrc = 0. COMMIT WORK. MESSAGE '保存成功' TYPE 'I'. ELSE. ROLLBACK WORK. MESSAGE '保存失败' TYPE 'E'. ENDIF. ENDFORM. 根据上述完整代码添加功能：给测试结果字段添加下拉框：OK、NG
11-30
如果用户使用的是函数式ALV（REUSE_ALV_GRID_DISPLAY），则方法不同。但根据问题中提到的go_alv_grid，应该是面向对象的ALV（CL_GUI_ALV_GRID）。 因此，我们按照上述步骤修改。 如果用户提供的代码中没有字段...
ABAP中的事件详讲
06-17 204
ABAP中的事件详讲InitializationAt selection-screenAt selection-screen on (value request/ param/ option / block/ rad grp)t...
ABAP中SELECTION-SCREEN用法
热门推荐
王小磊
08-31 2万+
SAP-ABAP SELECT-SCREEN 的几个用法   实例1： SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN POSITION 1. PARAMETER P_FLEX RADIOBUTTON GROUP ways TYPE c. SELECTION-SCREEN COMMENT 3(20) text-s30 for field P_F...
sap新总账中 CodingBlock客户化自定义新字段方法
少年休闲海
02-08 1万+
CodingBlock客户化自定义新字段 1、Coding Block新字段财务会计（新）-财务会计基本设置（新）-分类帐-字段-客户字段-编辑编码块（OXK3）；添加字段如图； 该步骤比较耗时，完成后，可查看客户化字段已经创建； 2、安装新字段到新总账汇总表FAGLFLEXT中财务会计（新）-财务会计基本设置（新）-分类帐-字段-客户字段-包括总计表中的字段（FAGL_GINS）； 输入表FAG...
选择屏幕动态显示BLOCK title
森林木的博客
08-06 1946
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. PARAMETERS p_r  RADIOBUTTON GROUP g1 USER-COMMAND select DEFAULT 'X'. "日模式 PARAMETERS p_y  RADIOBUTTON GROUP g1  .                      
鸿蒙开发：案例集合List：模拟附近人列表插入
技术的力量，始于微小，成于坚持。希望我的感染力能像新冠传播这么强。
12-02 502
摘要 本文展示了一个HarmonyOS列表动画实现案例，模拟附近人列表插入效果。通过List组件结合显式动画和组件转场技术，实现了从列表顶部插入数据时的平滑过渡效果。关键实现包括：使用animateTo控制动画过程，设置cachedCount优化性能，利用translate和opacity组合转场效果，并通过onReachStart监听列表顶部位置触发数据更新。案例还包含了定时器管理、动画中断处理等实用技巧，适合需要实现动态列表加载的场景参考。
C++ -- STL【list的模拟实现】
2301_80059080的博客
12-03 743
本文详细介绍了C++中list容器的实现原理和核心功能。list基于双向循环链表实现，包含节点结构体_list_node和迭代器类_list_iterator。重点内容包括： 迭代器实现、构造与销毁、容量操作、访问操作、修改操作。文章还讨论了模板的按需实例化特性，并提供了完整的list实现源码。整个实现体现了list作为链表结构的特性，包括不连续存储、双向遍历等。
Java中数组、ArrayList和List的初始化与转换
最新发布
weixin_55932637的博客
12-06 195
摘要：Java中数组(int[])与集合(ArrayList/List)的主要区别在于数组固定大小且存储基本类型，集合动态扩容且存储对象。数组可通过new或字面量初始化，集合使用ArrayList或Arrays.asList创建。转换方法包括：List转数组使用stream().mapToInt()，数组转List需遍历添加元素，集合间转换通过构造方法实现。这些数据结构各具特点，适用于不同场景。
鸿蒙开发：案例集合List：多级列表（商品分类）
技术的力量，始于微小，成于坚持。希望我的感染力能像新冠传播这么强。
12-02 490
【代码】鸿蒙开发：案例集合List：多级列表（商品分类）
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值