crm|显示SAP CRM Product hierarchy的一个小工具 sass|erp|abap|saprfc

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:

文章图片

So I wrote a simple report to retrieve hierarchy data from table T179 and display the data in a tree as below:

文章图片

The source code of report is listed below:

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() INDEX 1. -seltext = -reptext = -scrtext_m = -scrtext_s = -scrtext_l = 'Hierarchy ID'. -outputlen = 20. READ TABLE lt_fieldcat ASSIGNING FIELD-SYMBOL() INDEX 2. -seltext = -reptext = -scrtext_m = -scrtext_l = 'Description'. -scrtext_s = '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_program

In order to use the report, all you need is to just create a new screen :