20170225-ALV tree 显示

最新推荐文章于 2023-11-30 10:49:59 发布
最新推荐文章于 2023-11-30 10:49:59 发布
阅读量181 收藏
点赞数
原文链接：http://www.cnblogs.com/rainysblog/p/6441416.html
版权

1.写程序，
2.话屏幕9000，CALL SCREEN 9000.（双击屏幕进去画个容器就ok,+OK_CODE,+去掉注释）
3.处理好ALV 的PBO 初始化，处理用户事件PAO,user command ,定义的按钮都要有用途；

                
                
 
               
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
*&---------------------------------------------------------------------*
*& Report  YDEMO_005
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_BARRY_ALV_TREE1_BOM MESSAGE-ID OO.
TABLES: STPOX.
INCLUDE <ICON>.
CLASS: CL_GUI_COLUMN_TREE DEFINITION LOAD,
       CL_GUI_CFW DEFINITION LOAD .
DATA: TREE1  TYPE REF TO CL_GUI_ALV_TREE ,
      MR_TOOLBAR TYPE REF TO CL_GUI_TOOLBAR .
DATA: GS_STPOX       TYPE STPOX,
      GT_STPOX       TYPE STPOX OCCURS 0,
      GT_FIELDCATALOG  TYPE LVC_T_FCAT,
      GT_ITEM_LAYOUT   TYPE LVC_T_LACI,
      GS_ITEM_LAYOUT   TYPE LVC_S_LACI,
      OKCODE           LIKE SY-UCOMM .
TYPES: BEGIN OF GS_F.
        INCLUDE STRUCTURE STPOX.
TYPES: NODE_KEY      TYPE LVC_NKEY,
       END   OF GS_F.
DATA: GS_XSTPOX       TYPE GS_F ,
      GT_XSTPOX       TYPE GS_F OCCURS 0.

DATA: L_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA:  WA_TOPMAT TYPE CSTMAT,
       WA_DSTST TYPE CSDATA-XFELD.
DATA: IT_MATCAT TYPE STANDARD TABLE OF CSCMAT.



PARAMETERS:P_MATNR LIKE MAST-MATNR  OBLIGATORY,
           P_WERKS LIKE MAST-WERKS  OBLIGATORY,
           P_STLAL LIKE MAST-STLAL  OBLIGATORY DEFAULT '01',   "可选的 BOM
           P_CAPID LIKE RC29L-CAPID OBLIGATORY DEFAULT 'PP01'."BOM应用程序

*PARAMETERS: p_matnr LIKE mara-matnr, "DEFAULT 'YW25K',
*            p_werks LIKE ekpo-werks. "DEFAULT '1010' .

START-OF-SELECTION.
  PERFORM GETDATA.
  CALL SCREEN 9000.


*&---------------------------------------------------------------------*
*&      Form  getdata
*&---------------------------------------------------------------------*
FORM GETDATA.

*&bom explosion
*  CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
**   EXPORTING
**     FTREL                       = ' '
**     ALEKZ                       = ' '
**     ALTVO                       = ' '
**     AUFSW                       = ' '
**     AUMGB                       = ' '
**     AUMNG                       = 0
**     AUSKZ                       = ' '
**     AMIND                       = ' '
**     BAGRP                       = ' '
**     BEIKZ                       = ' '
**     BESSL                       = ' '
**     BGIXO                       = ' '
**     BREMS                       = ' '
**     CAPID                       = 'STD1'
**     CHLST                       = ' '
**     COSPR                       = ' '
**     CUOBJ                       = 000000000000000
**     CUOVS                       = 0
**     CUOLS                       = ' '
**     DATUV                       = 00000000
**     DELNL                       = ' '
**     DRLDT                       = ' '
**     EHNDL                       = ' '
**     EMENG                       = 0
**     ERSKZ                       = ' '
**     ERSSL                       = ' '
**     FBSTP                       = ' '
**     KNFBA                       = ' '
**     KSBVO                       = ' '
**     MBWLS                       = ' '
**     MKTLS                       = 'X'
**     MDMPS                       = ' '
**     MEHRS                       = ' '
**     MKMAT                       = ' '
**     MMAPS                       = ' '
**     SALWW                       = ' '
**     SPLWW                       = ' '
**     MMORY                       = ' '
**     MTNRV                       = ' '
**     NLINK                       = ' '
**     POSTP                       = ' '
**     RNDKZ                       = ' '
**     RVREL                       = ' '
**     SANFR                       = ' '
**     SANIN                       = ' '
**     SANKA                       = ' '
**     SANKO                       = ' '
**     SANVS                       = ' '
**     SCHGT                       = ' '
**     STKKZ                       = ' '
**     STLAL                       = ' '
**     STLAN                       = ' '
**     STPST                       = 0
**     SVWVO                       = 'X'
**     WERKS                       = ' '
**     NORVL                       = ' '
**     MDNOT                       = ' '
**     PANOT                       = ' '
**     QVERW                       = ' '
**     VERID                       = ' '
**     VRSVO                       = 'X'
**   IMPORTING
**     TOPMAT                      =
**     DSTST                       =
*    TABLES
*      STB                         =
**     MATCAT                      =
**   EXCEPTIONS
**     ALT_NOT_FOUND               = 1
**     CALL_INVALID                = 2
**     MATERIAL_NOT_FOUND          = 3
**     MISSING_AUTHORIZATION       = 4
**     NO_BOM_FOUND                = 5
**     NO_PLANT_DATA               = 6
**     NO_SUITABLE_BOM_FOUND       = 7
**     CONVERSION_ERROR            = 8
**     OTHERS                      = 9

  CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
    EXPORTING
      CAPID                 = P_CAPID  "'CAD1'
      DATUV                 = SY-DATUM
      EMENG                 = '1'      "基本用量
      MTNRV                 = P_MATNR
      WERKS                 = P_WERKS

      MKTLS                 = 'X' "p_key
      MEHRS                 = 'X'       "p_mehrs
      STLAL                 = P_STLAL     "可选BOM
      STLAN                 = '1'      "BOM 用途
*     emeng                 = 1
    IMPORTING
      TOPMAT                = WA_TOPMAT
      DSTST                 = WA_DSTST
    TABLES
      STB                   = GT_STPOX
      MATCAT                = IT_MATCAT
    EXCEPTIONS
      ALT_NOT_FOUND         = 1
      CALL_INVALID          = 2
      MATERIAL_NOT_FOUND    = 3
      MISSING_AUTHORIZATION = 4
      NO_BOM_FOUND          = 5
      NO_PLANT_DATA         = 6
      NO_SUITABLE_BOM_FOUND = 7
      CONVERSION_ERROR      = 8
      OTHERS                = 9.
*  CASE sy-subrc .
*    WHEN 1 .
*      MESSAGE e899(fi) WITH 'alt_not_found'.
*    WHEN 2 .
*      MESSAGE e899(fi) WITH 'call_invalid '.
*    WHEN 3 .
*      MESSAGE e899(fi) WITH 'material_not_found'.
*    WHEN 4 .
*      MESSAGE e899(fi) WITH 'missing_authorization'.
*    WHEN 5 .
*      MESSAGE e899(fi) WITH 'no_bom_found'.
*    WHEN 6 .
*      MESSAGE e899(fi) WITH 'no_plant_data'.
*    WHEN 7 .
*      MESSAGE e899(fi) WITH 'no_suitable_bom_found'.
*    WHEN 8 .
*      MESSAGE e899(fi) WITH 'conversion_error'.
*    WHEN 9 .
*      MESSAGE e899(fi) WITH 'OTHERS Error'.
*  ENDCASE.
  LOOP AT GT_STPOX INTO GS_STPOX.
    MOVE-CORRESPONDING GS_STPOX TO GS_XSTPOX .
    APPEND GS_XSTPOX TO GT_XSTPOX.
  ENDLOOP.
ENDFORM.                    "getdata
*----------------------------------------------------------------------*
*  MODULE status_9000 OUTPUT
*----------------------------------------------------------------------*
MODULE STATUS_9000 OUTPUT.
  SET PF-STATUS 'MAIN'.
  SET TITLEBAR 'TITLE'.
  IF TREE1 IS INITIAL.
    PERFORM INIT_TREE.
  ENDIF.
  CALL METHOD CL_GUI_CFW=>FLUSH.
ENDMODULE.                 " PBO_9000  OUTPUT
*----------------------------------------------------------------------*
*  MODULE user_command_9000 INPUT
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.
  CASE OKCODE.
    WHEN 'EXIT' OR 'BACK' OR 'CANC'.
      CALL METHOD TREE1->FREE.
      LEAVE PROGRAM .
    WHEN OTHERS.
      CALL METHOD CL_GUI_CFW=>DISPATCH.
  ENDCASE.
  CLEAR OKCODE.
  CALL METHOD CL_GUI_CFW=>FLUSH.
ENDMODULE.                 " okcode  INPUT
*&---------------------------------------------------------------------*
*&      Form  init_tree
*&---------------------------------------------------------------------*
FORM INIT_TREE .
  PERFORM BUILD_FIELDCATALOG.
*  IF sy-batch IS INITIAL.
*    CREATE OBJECT l_custom_container
*      EXPORTING
*        container_name              = 'TREE1'
*      EXCEPTIONS
*        cntl_error                  = 1
*        cntl_system_error           = 2
*        create_error                = 3
*        lifetime_error              = 4
*        lifetime_dynpro_dynpro_link = 5.
*    IF sy-subrc <> 0.
*      MESSAGE e000 WITH '创建容器:TREE1 错误'.
*    ENDIF.
*  ENDIF.
  CREATE OBJECT TREE1
    EXPORTING
*      parent                      = l_custom_container
      PARENT                      = CL_GUI_CONTAINER=>SCREEN0
      NODE_SELECTION_MODE         = CL_GUI_COLUMN_TREE=>NODE_SEL_MODE_SINGLE
      ITEM_SELECTION              = 'X'
      NO_HTML_HEADER              = 'X'
      NO_TOOLBAR                  = ' '
    EXCEPTIONS
      CNTL_ERROR                  = 1
      CNTL_SYSTEM_ERROR           = 2
      CREATE_ERROR                = 3
      LIFETIME_ERROR              = 4
      ILLEGAL_NODE_SELECTION_MODE = 5
      FAILED                      = 6
      ILLEGAL_COLUMN_NAME         = 7.
  IF SY-SUBRC <> 0.
    MESSAGE E000 WITH '创建TREE错误'.
  ENDIF.
  DATA L_HIERARCHY_HEADER TYPE TREEV_HHDR.
  PERFORM BUILD_HIERARCHY_HEADER CHANGING L_HIERARCHY_HEADER.
  DATA: LS_VARIANT TYPE DISVARIANT.
  LS_VARIANT-REPORT = SY-REPID.
  CALL METHOD TREE1->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IS_HIERARCHY_HEADER = L_HIERARCHY_HEADER
      I_BACKGROUND_ID     = 'ALV_BACKGROUND'
      I_SAVE              = 'A'
      IS_VARIANT          = LS_VARIANT
    CHANGING
      IT_OUTTAB           = GT_STPOX "table must be emty !!
      IT_FIELDCATALOG     = GT_FIELDCATALOG.
  DATA: L1 TYPE LVC_NKEY ,L2 TYPE LVC_NKEY ,L3 TYPE LVC_NKEY ,L4 TYPE LVC_NKEY ,
        L5 TYPE LVC_NKEY ,L6 TYPE LVC_NKEY ,L7 TYPE LVC_NKEY ,L8 TYPE LVC_NKEY ,
        L_KEY TYPE LVC_NKEY,
        L_LAST_KEY TYPE LVC_NKEY  ,
        ADDED .
  LOOP AT GT_XSTPOX INTO GS_XSTPOX .
    MOVE-CORRESPONDING GS_XSTPOX TO GS_STPOX.
    CASE GS_STPOX-STUFE .
      WHEN '1'.
        L_KEY = ''.
      WHEN '2'.
        L_KEY = L1.
      WHEN '3'.
        L_KEY = L2.
      WHEN '4'.
        L_KEY = L3.
      WHEN '5'.
        L_KEY = L4.
      WHEN '6'.
        L_KEY = L5.
    ENDCASE.
    PERFORM ADD_COMPLETE_LINE USING  GS_STPOX L_KEY
                            CHANGING L_LAST_KEY.
    GS_XSTPOX-NODE_KEY = L_LAST_KEY.
    CASE GS_STPOX-STUFE .
      WHEN '1'.
        L1 = L_LAST_KEY.
      WHEN '2'.
        L2 = L_LAST_KEY.
      WHEN '3'.
        L3 = L_LAST_KEY.
      WHEN '4'.
        L4 = L_LAST_KEY.
      WHEN '5'.
        L5 = L_LAST_KEY.
      WHEN '6'.
        L6 = L_LAST_KEY.
    ENDCASE.
    MODIFY GT_XSTPOX FROM GS_XSTPOX .
  ENDLOOP.
  CALL METHOD TREE1->UPDATE_CALCULATIONS.
  CALL METHOD TREE1->FRONTEND_UPDATE.
ENDFORM.                    " init_tree
*&---------------------------------------------------------------------*
*&      Form  build_fieldcatalog
*&---------------------------------------------------------------------*
FORM BUILD_FIELDCATALOG.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      I_STRUCTURE_NAME = 'STPOX'
    CHANGING
      CT_FIELDCAT      = GT_FIELDCATALOG.
  DATA: LS_FIELDCATALOG TYPE LVC_S_FCAT.
  LOOP AT GT_FIELDCATALOG INTO LS_FIELDCATALOG.
*    CASE ls_fieldcatalog-fieldname.
*      WHEN 'CARRID' OR 'CONNID' OR 'FLDATE'.
*        ls_fieldcatalog-no_out = 'X'.
*        ls_fieldcatalog-key    = ''.
*      WHEN 'PRICE' OR 'SEATSOCC' OR 'SEATSMAX' OR 'PAYMENTSUM'.
**        ls_fieldcatalog-do_sum = 'X'.
*      WHEN 'PLANETYPE'.
*        ls_fieldcatalog-edit = 'X'.
*        ls_fieldcatalog-style = cl_gui_alv_grid=>mc_style_enabled .
*    ENDCASE.
    MODIFY GT_FIELDCATALOG FROM LS_FIELDCATALOG.
  ENDLOOP.
ENDFORM.                               " build_fieldcatalog
*&---------------------------------------------------------------------*
*&      Form  build_hierarchy_header
*&---------------------------------------------------------------------*
FORM BUILD_HIERARCHY_HEADER CHANGING
                               P_HIERARCHY_HEADER TYPE TREEV_HHDR.
*
  P_HIERARCHY_HEADER-HEADING = 'BOM层次'.
  P_HIERARCHY_HEADER-TOOLTIP = 'ToolTip'.
  P_HIERARCHY_HEADER-WIDTH = 30.
  P_HIERARCHY_HEADER-WIDTH_PIX = ''.
*
ENDFORM.                               " build_hierarchy_header
*&---------------------------------------------------------------------*
*&      Form  add_complete_line
*&---------------------------------------------------------------------*
FORM ADD_COMPLETE_LINE USING  PS_STPOX TYPE STPOX
                               P_RELAT_KEY TYPE LVC_NKEY
                     CHANGING  P_NODE_KEY TYPE LVC_NKEY.
  DATA: L_NODE_TEXT TYPE LVC_VALUE.
* set item-layout
  DATA: LT_ITEM_LAYOUT TYPE LVC_T_LAYI,
        LS_ITEM_LAYOUT TYPE LVC_S_LAYI.
  DATA: STUFE_NUM(2) TYPE N.
  LS_ITEM_LAYOUT-FIELDNAME = TREE1->C_HIERARCHY_COLUMN_NAME.
  LS_ITEM_LAYOUT-CLASS     = CL_GUI_COLUMN_TREE=>ITEM_CLASS_TEXT.
*  ls_item_layout-editable  = 'X'.
*  ls_item_layout-chosen    = 'X'.  " 设置为选中状态
  APPEND LS_ITEM_LAYOUT TO LT_ITEM_LAYOUT.
*  l_node_text =  ps_stpox-ojtxp.
  STUFE_NUM = PS_STPOX-STUFE.
  CONCATENATE STUFE_NUM ',' PS_STPOX-OJTXP INTO L_NODE_TEXT.
  CALL METHOD TREE1->ADD_NODE
    EXPORTING
      I_RELAT_NODE_KEY = P_RELAT_KEY
      I_RELATIONSHIP   = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
      IS_OUTTAB_LINE   = PS_STPOX
      I_NODE_TEXT      = L_NODE_TEXT
      IT_ITEM_LAYOUT   = LT_ITEM_LAYOUT
    IMPORTING
      E_NEW_NODE_KEY   = P_NODE_KEY.
ENDFORM.                               " add_complete_line

 

转载于:https://www.cnblogs.com/rainysblog/p/6441416.html

anchangong3418
关注
alvtree完全展开合并讲解.docx
04-28
标准的ALVTREE下没有完全展开和完全合并数的标准功能按钮，需要自己添加自定义的完全展开和合并的功能。
matinal：SAP ABAP ALV TREE 如何刷新
matinal 當冬夜漸暖 。公众号：matinal
09-07 210
【代码】matinal：SAP ABAP ALV TREE 如何刷新。
SAP ABAP ALV Tree 的使用
最新发布
SAP ABAP开发技能记录分享
11-30 832
在 SAP 业务系统中，大量地使用到了ALV Tree 对象，该对象在表格基础上对同类数据。（3）在右屏输出起飞国家、起飞城市、目的国家、目的城市、距离字段，并控制其输出长。（3）在PAI 中定义建立定制控制对象，并建立AVL Tree 对象；（1）建立程序和屏幕，在屏幕上建立定制控制对象，定义好工作流；（5）建立右屏输出字段清单、字段长度、汇总字段等内容；（6）建立Tree 分类字段清单及输出先后顺序；（4）建立ALV Tree 对象的标题；（1）按国家、航线、航班分类；
alv_tree 刷新 refresh功能_SAP刘梦_新浪博客
森林木的博客
05-02 401
cl_gui_alv_tree_simple 我没找到 刷新 refresh功能 最后没辙，只有按以下方法实现了，谁有好的办法请留言 我是在输入条件后，点查询，以树状展现 FORMsub_creat_tree. "每次执行查询后，先清空，然后再去重新创建对象 IFwa_custom_container_treeISNOTINITIAL. CALLM...
alv_tree 刷新 refresh功能
weixin_30301449的博客
01-22 326
cl_gui_alv_tree_simple 我没找到 刷新 refresh功能 最后没辙，只有按以下方法实现了，谁有好的办法请留言 我是在输入条件后，点查询，以树状展现 FORMsub_creat_tree. "每次执行查询后，先清空，然后再去重新创建对象 IFwa_custom_container_treeISNOTINITIAL. CALL...
ALV TERR程序
08-15
在ALV TREE中，字段目录（Field Catalog）是非常重要的组成部分之一，它决定了数据表中各个字段的显示方式。通过定义字段目录，可以指定字段名称、文本、宽度等属性。在给定的代码片段中，可以看到定义了一个宏`m_...
sample_tree alv
12-16
根据提供的文件信息，本文将详细解释ALV（Application List Viewer）中的一个简单示例——`SIMPLE_TREE`，以及如何在ABAP环境中实现一个基本的树形结构展示。 ### ALV简介 ALV（Application List Viewer）是SAP...
[ABAP]Function实现ALV Table 二：ALV的弹出窗口形式
03-01
在ABAP（Advanced Business Application Programming）中，ALV（ABAP List Viewer）是SAP提供的一种用于显示数据表的标准化接口。本篇我们将深入探讨如何使用Function来实现ALV Table的弹出窗口形式，这对于创建用户...
ABAP OO去掉ALV中的标准工具栏
06-29
在ABAP面向对象编程（ABAP OO）中，经常需要对ALV（Application List Viewer）进行定制化的控制，包括移除或隐藏某些默认显示的工具栏功能。这通常是为了提供更简洁、更符合业务需求的用户界面。本文将详细介绍如何...
ALV控件的使用,非常好的资源
08-13
ALV 控件提供了一种标准的方式来显示和操作内表或者数据库中的数据，使得用户能够以表格形式查看和编辑信息。以下是对标题和描述中提及的知识点的详细解释： 1. **简单的 ALV 控件实例**： 这个例子展示了如何使用...
ALV_TREE（一：cl_gui_alv_tree_si…
weixin_30273931的博客
01-22 231
最近一直在做一个树形展示的东西。 开始的时候一直用cl_gui_alv_tree_simple 这个类 首先 建一个屏幕 9001 画一个容器，取名：TREE 定义数据： *功能码返回值 DATA:ok_codeTYPEsy-ucomm, save_okTYPEsy-ucomm. DATA: wa_container_tree...
Tree ALV的双击实现完整版
少年休闲海
08-07 1582
<!-- span {font-family:"Courier New"; font-size:10pt; color:#000000; background:#FFFFFF} .L1S31 {font-style:italic; color:#808080} .L1S32 {color:#3399FF} .L1S33 {color:#4DA619} .L
ALV Tree的使用方法
clklu7842的博客
04-24 574
[@more@]在这一篇中将学习一下ALV Tree的使用方法。通过名字可以看出，ALV TREE应该是将ALV与TREE这两者进行组合。 ALV Tree实现原理：创建一个 cl_gui_alv_tree对象，定义一...
ALV TREE 的设计与实现，实例
SAP自学之路
06-11 683
ALV TREE 用作导航栏的实例 相关类：CL_GUI_SIMPLE_TREE，CL_GUI_CUSTOM_CONTAINER 数据定义（TOP）： CLASS LCL_APPLICATION DEFINITION DEFERRED. DATA: G_APPLICATION TYPE REF TO LCL_APPLICATION. DATA: GT_NODE TYPE TABLE OF MTREESNODE. DATA: G_CONTAINER TYPE REF TO CL_GUI_CU..
cl_gui_alv_tree_simple响应双击&n…
weixin_30487701的博客
01-22 139
使用cl_gui_alv_tree_simple 实现双击后，发现只有双击前面的文本图标时才响应，点这行其他位置没效果 经朋友MACIO提示，已经解决 我修改了三个地方 一、lvc_s_fcat 结构中的热点（参数gb_fieldcat） CALLMETHODtree_grid->set_table_for_first_display EXPORTIN...
ALV Tree双击事件的讨论
cspr33008的博客
07-08 187
此object的双击事件中，使用set new ok code这个方法想重置code 进PAI的方法不可行，它跟单纯的oo alv不一样，注意. 而Drag drop事件...
ALV刷新显示
weixin_38238891的博客
05-12 1911
ALV有两种方式实现，一种方式是CALL FUNCTION: REUSE_ALV_GRID_DISPLAY, 标准按钮是包含刷新设置的，但是如果自定义功能，也就是需要设置USER_COMMAND CALL BACK程序的时候，需要对参数SELFIELD-REFRESH值设置为’X'，这样ALV的数据就会刷新显示。 第二种方式是Call Screen,防止一个custom container，
alv tree 添加新文件夹
SAPer
12-22 1086
添加收藏夹  CALL METHOD g_alv_tree->add_node      "添加收藏夹    EXPORTING      i_relat_node_key =       i_relationship   = cl_gui_column_tree=>relat_last_child      i_node_text      = 收藏夹      is_node_la
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值