ALVtree 显示BOM结构-LMLPHP

 
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
05-08 08:11