FPM八：FPM TREE

摘要：

首先，渲染：1。新建类：ZCL_FPM_ TREE，并添加接口：IF_ FPM_ GUIBB，IF_ FPM_ GUIBB_ TREE。=cl_abap_tabledescr=˃按数据描述。“treels_field-name='PARENT_KEY'。ls_field_column_type=if_fpm_guibb_constants=˃gc_guibb_tree_columns PARENT_KEY.APPENDls_fieldTOet_field_description。ls_field name='ROW_KEY'。ls_field-column_type=if_fpm_guibb_contants=˃gc_guibb_tree_columns-grow_KEY.APPEND ls_fieldTree_column_description='EXPANDED'。ls-field-column-type=if-fpm_guibbs_constants=˃gc_guidbb_tree-columns _columns扩展.APPENDls_fieldTOet_ field_ description.ls _ field name='IS_ LEAF'。ls_ field-column _ type=if _ fpm_ guidb _ constants=˃gc_ guidb _ tree_ columns-IS_ LEAF。APPENDls _ fieldTOet_ field_description.ls=field name='EXT'。ls_field-column_ type=if=fpm_ Guidb _ constant=˃gc_guidb _ ree_ columns _ TEXT.APPENDls _ field TOet_ field _ description.ls_ field name=“HILDREND_ LOADED”。ls_ field-column=if _ fm_ guidb常量=˃gc_ guibb_ tree_ columns-child_load.APPENDls _ fieldTOet_ field_ description.ls_ field name='IMAGE_SRC'.ls_ field-column_type=if_ fpm_ guibb_常量=˃gc_guibb_tree_ columns-img_ SRC.APPENDls _ field TOet_ field _ description。ENDMETHOD。4.在GET_中，添加内部表代码以初始化DATA中的树结构：METHODIF_ fpm_ guibb_tree~GET_DATA。DATA：gt_ t005tTYPETABLEOFt005t，gw_ t005tIKELINEOFgt_ t00t，gt_ t005 uTYPETABLEOFT005u，gw_ t005uLIKELINEOFT_ t005u.IFio _ event-˃mv_ event_ id='FPM_ START'。SELECT*INTOTABLEgt_ t005tROM005tWHERESpras='E'。SELECT*INTOTABLEgt_ t005u FROMt005uWHEREspras='E'。LOOPATgt_ t005 tINTOgw _ t005t.MOVE-CORRESONDINGgw_ t005 t Ogw_ tree.gw _ tree-row_ key=gw_ t005-t-land1.gw_ tree-is_leaf=abap_ false.gw _树扩展=abap_ false.gw _树文本=gw_ t005t-landx.APPENDgw_树TOgt_tree.ENDLOOP.LOOPATgt _ t005uINTOgw_ t005u。清除：gw_ tree.MOVE-CORESPONDINGgw _ t005u-TOgw_ tree.gw _ tree-row_ key=gw_ t005 u-bland.gw _树-is_ leaf=abap_true.gw_ tree-parent_key=gw _ t005u-land1.gw_ tree text=gw_ t005u-bezei.APPENDgw _ treeTOgt_ tree.ENDLOOP.ct _ data=gt_ tree.ev _ data_ Changed='X'。结束符。ENDMETHOD。5.打开FPM工作台，单击以创建新的空FPM程序：6。输入程序名称，选择VOP类型，选择本地包，然后保存。保存并测试。

先上效果图：

FPM八：FPM TREE第1张

1，新建类：ZCL_FPM_TREE,并添加接口：IF_FPM_GUIBB，IF_FPM_GUIBB_TREE。激活所有方法

2.定义tree结构，在class的public section里添加：

  types:
    "add by ly 20190919 for data structure
    BEGIN OF ty_tree.
            INCLUDE TYPE fpmgb_s_tree_master_column.
    TYPES:
      land1 TYPE land1,
      landx TYPE landx,
      bland TYPE regio,
      bezei TYPE bezei,
      END OF ty_tree .

  data GT_TREE type TABLE OF TY_TREE .
  data GW_TREE TYPE TY_TREE .

3.定义TREE字段目录：在方法GET_DEFINITION中：

  METHOD if_fpm_guibb_tree~get_definition.
    DATA:ls_field TYPE fpmgb_s_treefield_descr.
    eo_field_catalog ?= cl_abap_tabledescr=>describe_by_data( gt_tree ).

    "tree
    ls_field-name = 'PARENT_KEY'.
    ls_field-column_type = if_fpm_guibb_constants=>gc_guibb_tree_columns-parent_key.
    APPEND ls_field TO et_field_description.

    ls_field-name = 'ROW_KEY'.
    ls_field-column_type = if_fpm_guibb_constants=>gc_guibb_tree_columns-row_key.
    APPEND ls_field TO et_field_description.

    ls_field-name = 'EXPANDED'.
    ls_field-column_type = if_fpm_guibb_constants=>gc_guibb_tree_columns-expanded.
    APPEND ls_field TO et_field_description.

    ls_field-name = 'IS_LEAF'.
    ls_field-column_type = if_fpm_guibb_constants=>gc_guibb_tree_columns-is_leaf.
    APPEND ls_field TO et_field_description.

    ls_field-name = 'TEXT'.
    ls_field-column_type = if_fpm_guibb_constants=>gc_guibb_tree_columns-text.
    APPEND ls_field TO et_field_description.

    ls_field-name = 'CHILDREN_LOADED'.
    ls_field-column_type = if_fpm_guibb_constants=>gc_guibb_tree_columns-child_load.
    APPEND ls_field TO et_field_description.

    ls_field-name = 'IMAGE_SRC'.
    ls_field-column_type = if_fpm_guibb_constants=>gc_guibb_tree_columns-img_src.
    APPEND ls_field TO et_field_description.

  ENDMETHOD.

4.在GET_DATA中添加初始化tree结构的内表代码：

  METHOD if_fpm_guibb_tree~get_data.
    DATA:gt_t005t TYPE TABLE OF t005t,
         gw_t005t LIKE LINE OF gt_t005t,
         gt_t005u TYPE TABLE OF t005u,
         gw_t005u LIKE LINE OF gt_t005u.
    IF io_event->mv_event_id = 'FPM_START'.
      SELECT * INTO TABLE gt_t005t FROM t005t WHERE spras = 'E'.
      SELECT * INTO TABLE gt_t005u FROM t005u WHERE spras = 'E'.

      LOOP AT gt_t005t INTO gw_t005t.
        MOVE-CORRESPONDING gw_t005t TO gw_tree.
        gw_tree-row_key = gw_t005t-land1.
        gw_tree-is_leaf = abap_false.
        gw_tree-expanded = abap_false.
        gw_tree-text = gw_t005t-landx.
        APPEND gw_tree TO gt_tree.

      ENDLOOP.

      LOOP AT gt_t005u INTO gw_t005u.
          CLEAR:gw_tree.
          MOVE-CORRESPONDING gw_t005u TO gw_tree.
          gw_tree-row_key = gw_t005u-bland.
          gw_tree-is_leaf = abap_true.
          gw_tree-parent_key = gw_t005u-land1.
          gw_tree-text = gw_t005u-bezei.
          APPEND gw_tree TO gt_tree.
        ENDLOOP.

      ct_data = gt_tree.
      ev_data_changed = 'X'.
    ENDIF.
  ENDMETHOD.