0
点赞
收藏
分享

微信扫一扫

TREE三:RS_TREE_LIST_DISPLAY_SAP刘梦

​​




这种效果

主要参数:        wa_node - type         "类型         wa_node - tlevel       "层次         wa_node - name           wa_node - text  

REPORT  zlm_tree4 .


*Data declaration for additional node information

DATA  : t_node  TYPE snodetext .

*Internal table and wa decl for nodes

DATA  : it_node  LIKE  TABLE  OF t_node  INITIAL  SIZE  0 ,

       wa_node 

LIKE t_node .


CLEAR  : it_node[] , wa_node .

wa_node

- type  =  'T' .                    "第一个

wa_node

- id    =  'T1' .

wa_node

-name  =  '天朝' .

wa_node

-tlevel  =  1 .                    "层次一

wa_node

-nlength  =  '15' .

wa_node

- color  =  '4' .

wa_node

- text  =  '天朝' .

wa_node

-tlength  = '20' .

wa_node

-tcolor  =  3 .

APPEND wa_node  TO it_node .


CLEAR wa_node .

wa_node

- type  =  'P' .

wa_node

- id    =  'T2' .

wa_node

-name  =  '北京' .

wa_node

-tlevel  =  2 .                   "层次二

wa_node

-nlength  =  '8' .

wa_node

- color  =  '1' .

wa_node

- text  =  '北京' .

wa_node

-tlength  = '20' .

wa_node

-tcolor  =  4 .

APPEND wa_node  TO it_node .

CLEAR wa_node .


CLEAR wa_node .

wa_node

- type  =  'P' .

wa_node

- id    =  'T32' .

wa_node

-name  =  '京温' .

wa_node

-tlevel  =  3 .                   "层次三

wa_node

-nlength  =  '8' .

wa_node

- color  =  '1' .

wa_node

- text  =  ' 上坟烧报纸 --你糊弄鬼啊!  ' .

wa_node

-tlength  = '20' .

wa_node

-tcolor  =  4 .

APPEND wa_node  TO it_node .

CLEAR wa_node .



*Fm for constructing the tree

CALL  FUNCTION  'RS_TREE_CONSTRUCT'

  

TABLES

    nodetab 

= it_node .


*FM for displaying the tree

CALL  FUNCTION  'RS_TREE_LIST_DISPLAY'

  

EXPORTING

    callback_program     

= sy -repid

    check_duplicate_name 

=  '1'

    color_of_node        

=  '4'

    color_of_mark        

=  '3'

    color_of_link        

=  '1'

    color_of_match       

=  '5'

    node_length          

=  30

    text_length          

=  75

    use_control          

=  'L' .


欢迎关注订阅号:SAP学习记录 (SAPlearning )

PO <wbr><wbr><wbr>text <wbr><wbr><wbr>copy <wbr><wbr><wbr>rules <wbr><wbr><wbr>:copy <wbr><wbr><wbr>PR <wbr><wbr><wbr>item <wbr><wbr><wbr>text <wbr><wbr><wbr>to <wbr><wbr><wbr>PO



举报

相关推荐

0 条评论