ALVtree 显示BOM结构

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 mara-matnr DEFAULT 'YW25K',
p_werks
LIKE ekpo-werks DEFAULT '1010' .
START-OF-SELECTION.
PERFORM getdata.
CALL SCREEN 9000.
*&---------------------------------------------------------------------*
*&
Form
getdata
*&---------------------------------------------------------------------*
FORM
getdata.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING

capid = 'CAD1' " p_capid
datuv =
sy-datum
mehrs = 'X' "p_mehrs

stlal = '01' "可选BOM
stlan =
'2' "BOM 用途
mtnrv = P_MATNR

werks = P_WERKS
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