ALVtree 显示BOM结构

Posted 2020-08-31 Rainystuday

 

 

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