显示SAP CRM Product hierarchy的一个小工具-阿里云开发者社区

开发者社区> 开发者小助手-bz4> 正文

显示SAP CRM Product hierarchy的一个小工具

简介: 显示SAP CRM Product hierarchy的一个小工具
+关注继续查看

Recently I start to study SD and I found the product hierarchy in transaction code V/76 could not be viewed in tree style and it is not so convenient to check:



image.pngSo I wrote a simple report to retrieve hierarchy data from table T179 and display the data in a tree as below:image.pngThe source code of report is listed below:REPORT zdisplay_hierarchy.

REPORT zdisplay_hierarchy.

DATA: g_alv_tree TYPE REF TO cl_gui_alv_tree,

 gt_data TYPE STANDARD TABLE OF zcl_alv_tool=>ty_displayed_node,

 ok_code LIKE sy-ucomm,

 save_ok LIKE sy-ucomm,

 ls_data LIKE LINE OF gt_data.

END-OF-SELECTION.

 DATA(lo_tool) = NEW zcl_alv_tool( ).

 DATA(lt_fieldcat) = lo_tool->get_fieldcat_by_data( ls_data ).

 PERFORM change_label.

 CALL SCREEN 100.

MODULE pbo OUTPUT.

 SET PF-STATUS 'MAIN100'.

 SET TITLEBAR 'MAINTITLE'.

 IF g_alv_tree IS INITIAL.

 PERFORM init_tree.

 CALL METHOD cl_gui_cfw=>flush

 EXCEPTIONS

 cntl_system_error = 1

 cntl_error = 2.

 ASSERT sy-subrc = 0.

 ENDIF.

ENDMODULE. " PBO OUTPUT

MODULE pai INPUT.

 save_ok = ok_code.

 CLEAR ok_code.

 CASE save_ok.

 WHEN 'EXIT' OR 'BACK' OR 'CANC'.

 PERFORM exit_program.

 WHEN OTHERS.

 CALL METHOD cl_gui_cfw=>dispatch.

 ENDCASE.

 CALL METHOD cl_gui_cfw=>flush.

ENDMODULE. " PAI INPUT

FORM change_label.

 READ TABLE lt_fieldcat ASSIGNING FIELD-SYMBOL(<id>) INDEX 1.

 <id>-seltext = <id>-reptext = <id>-scrtext_m = <id>-scrtext_s = <id>-scrtext_l = 'Hierarchy ID'.

 <id>-outputlen = 20.

 READ TABLE lt_fieldcat ASSIGNING FIELD-SYMBOL(<text>) INDEX 2.

 <text>-seltext = <text>-reptext = <text>-scrtext_m = <text>-scrtext_l = 'Description'.

 <text>-scrtext_s = 'Text'.

 <text>-outputlen = 40.

ENDFORM.

FORM init_tree.

 g_alv_tree = lo_tool->get_tree( ).

 DATA l_hierarchy_header TYPE treev_hhdr.

 PERFORM build_hierarchy_header CHANGING l_hierarchy_header.

 CALL METHOD g_alv_tree->set_table_for_first_display

 EXPORTING

 is_hierarchy_header = l_hierarchy_header

 CHANGING

 it_fieldcatalog = lt_fieldcat

 it_outtab = gt_data.

 PERFORM create_tree.

 g_alv_tree->frontend_update( ).

 lo_tool->expand( ).

ENDFORM.

FORM create_tree.

 DATA(lt_data) = lo_tool->get_hierarchy_data( ).

 lo_tool->draw_tree( lt_data ).

ENDFORM. " init_tree

FORM build_hierarchy_header CHANGING p_hierarchy_header TYPE treev_hhdr.

 p_hierarchy_header-heading = 'Material hierarchy'.

 p_hierarchy_header-width = 30.

 p_hierarchy_header-width_pix = ' '.

ENDFORM. " build_hierarchy_header

FORM exit_program.

 LEAVE PROGRAM.

ENDFORM. " exit_programIn order to use the report, all you need is to just create a new screen :

image.pngAnd drag a custom container to screen with name “CCONTAINER1”:image.png

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
阿里云服务器怎么设置密码?怎么停机?怎么重启服务器?
如果在创建实例时没有设置密码,或者密码丢失,您可以在控制台上重新设置实例的登录密码。本文仅描述如何在 ECS 管理控制台上修改实例登录密码。
10015 0
使用容器编排工具docker swarm安装clickhouse多机集群
1.首先需要安装docker最新版,docker 目前自带swarm容器编排工具 2.选中一台机器作为master,执行命令sudo docker  swarm init [options] 3,再需要加入集群的集群上执行此命令   4.
3203 0
阿里云服务器端口号设置
阿里云服务器初级使用者可能面临的问题之一. 使用tomcat或者其他服务器软件设置端口号后,比如 一些不是默认的, mysql的 3306, mssql的1433,有时候打不开网页, 原因是没有在ecs安全组去设置这个端口号. 解决: 点击ecs下网络和安全下的安全组 在弹出的安全组中,如果没有就新建安全组,然后点击配置规则 最后如上图点击添加...或快速创建.   have fun!  将编程看作是一门艺术,而不单单是个技术。
10880 0
常用的前端自动化测试工具介绍 —— Karma
常用的前端自动化测试工具介绍 —— Karma
16 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,阿里云优惠总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系.
13817 0
小程序用f2真机调试不显示图形报错Cannot read property ‘createView‘ of undefined
小程序用f2真机调试不显示图形报错Cannot read property ‘createView‘ of undefined
17 0
【视频特辑】全链路开放集成!Gartner魔力象限上榜的BI工具你也可以拥有
Quick BI作为唯一一个连续两年入选Gartner魔力象限的中国BI产品,具备强大的全链路开放集成能力,可以轻松的与企业原有系统匹配融合
12 0
Progress进度查看器是一个可以显示Linux命令的工具
Progress进度查看器是一个可以显示Linux命令的工具
386 0
Docker Swarm Mode网络诊断工具
Docker CE 从17.12版本开始加入网络调试的工具,使用这个工具可以帮助排查Linux上的docker overlay网络以及swarm service的问题
2826 0
2315
文章
0
问答
来源圈子
更多
+ 订阅
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载