Abap Forum on Gate²App

Skip to content

ALV Tree Icons in Spalten

Alles rund um die Sprache ABAP®: Funktionsbausteine, Listen, ALV
Post a reply

ALV Tree Icons in Spalten

Postby Joscha3759 » Fri Sep 26, 2014 12:47 pm

Hallo allerseits,
bin noch recht neu in SAP und ABAP und sitze gerade vor einem Problem, bei dem ich nicht weiter komme. Ich soll einen ALV Tree anzeigen, der 3 Hierarchie-Ebenen hat und bei dem jedes Blatt 2 Zahlen enthält. Diese 2 Zahlen sollen verglichen werden und in einer zusätzlichen Spalte soll per Ampel Icon angezeigt werden, ob sie übereinstimmen(grün für ja, rot für nein).

Habe mich dann mit dem Beispiel BCALV_TREE_SIMPLE_DEMO beschäftigt, dieses kopiert und meinen Anforderungen angepasst. Bin nun soweit, dass mir fast alles richtig angezeigt wird. Das einzige Problem ist, dass in den 2 oberen Hierarchie-Ebenen die Ampeln nicht angezeigt werden, an den Blättern aber schon. Es soll wie die Summen auf diesen Ebenen angezeigt werden, so dass eine rote Ampel da steht, wenn eine der Ampeln unter dem Knoten rot ist und eine grüne wenn alle Knoten darunter grün sind. Habe schon fast alle Felder vom Feldkatalog ausprobiert aber noch keinen Erfolg gehabt. Hat vielleicht jemand einen Tip was ich hier übersehe?

Ich hoffe ich habe es verständlich ausgedrückt.

Danke schonmal im Voraus.
Anbei noch meinen Code:
Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. *&---------------------------------------------------------------------*
  2. *& Report  BCALV_TREE_SIMPLE_DEMO                                      *
  3. *&                                                                     *
  4. *&---------------------------------------------------------------------*
  5. *&                                                                     *
  6. *&                                                                     *
  7. *&---------------------------------------------------------------------*
  8.  
  9. report  z_frontend.
  10.  
  11. class cl_gui_column_tree definition load.
  12. class cl_gui_cfw definition load.
  13.  
  14. data tree1  type ref to cl_gui_alv_tree_simple.
  15.  
  16.  
  17. INCLUDE Z_ICON.
  18. *include <icon>.
  19. INCLUDE Z_FRONTEND_EVENT_RECEIVER.
  20. *include bcalv_simple_event_receiver.
  21.  
  23.   BEGIN OF t_summen.
  24.     INCLUDE TYPE zta_vergleich AS summen.
  25.     TYPES: icon type ICON_D,
  26.   END OF t_summen.
  27.  
  28. data: gt_summendaten  type table of t_summen,      "Output-Table
  29.       gt_fieldcatalog type lvc_t_fcat, "Fieldcatalog
  30.       gt_sort         type lvc_t_sort, "Sortiertabelle
  31.       ok_code         like sy-ucomm.   "OK-Code
  32.  
  34.  
  36.  
  37.   call screen 100.
  38.  
  39. *&---------------------------------------------------------------------*
  40. *&      Form  BUILD_FIELDCATALOG
  41. *&---------------------------------------------------------------------*
  42. *       text
  43. *----------------------------------------------------------------------*
  44. form build_fieldcatalog.
  45. * get fieldcatalog
  46.   call function 'LVC_FIELDCATALOG_MERGE'
  47.        exporting
  48.             i_structure_name = 'ZTA_VERGLEICH'
  49.        changing
  50.             ct_fieldcat      = gt_fieldcatalog.
  51.  
  52. * change fieldcatalog
  53.   data: ls_fieldcatalog type lvc_s_fcat.
  54.   ls_fieldcatalog-fieldname = 'ICON'.
  55. *  ls_fieldcatalog-ref_table = 'ICON'.
  56. *  ls_fieldcatalog-ref_field = 'ICON_D'.
  57. *  ls_fieldcatalog-do_sum = 'X'.
  58.   ls_fieldcatalog-col_pos = 6.
  59.   ls_fieldcatalog-tabname = '1'.
  60.   ls_fieldcatalog-icon = 'X'.
  61.   ls_fieldcatalog-scrtext_l = 'gleich?'.
  62.   ls_fieldcatalog-scrtext_m = 'gleich?'.
  63.   ls_fieldcatalog-scrtext_s = 'gleich?'.
  64.   APPEND ls_fieldcatalog to gt_fieldcatalog.
  65.  
  66.   loop at gt_fieldcatalog into ls_fieldcatalog.
  67.     case ls_fieldcatalog-fieldname.
  68.       when 'DATUM' or 'FILIALE' or 'ZAHLUNGSART'.
  69.         ls_fieldcatalog-no_out = 'X'.
  70.         ls_fieldcatalog-key    = ''.
  71.       when 'SUMME_BONS' or 'SUMMENSATZ'.
  72.         ls_fieldcatalog-do_sum = 'X'.
  73.         IF ls_fieldcatalog-fieldname = 'SUMME_BONS'.
  74.           ls_fieldcatalog-scrtext_l = 'Bons'.
  75.           ls_fieldcatalog-scrtext_m = 'Bons'.
  76.           ls_fieldcatalog-scrtext_s = 'Bons'.
  77.         ELSE.
  78.           ls_fieldcatalog-scrtext_l = 'Summensatz'.
  79.           ls_fieldcatalog-scrtext_m = 'Summensatz'.
  80.           ls_fieldcatalog-scrtext_s = 'Summensatz'.
  81.         ENDIF.
  82.     endcase.
  83.     modify gt_fieldcatalog from ls_fieldcatalog.
  85.  
  86. endform.                               " BUILD_FIELDCATALOG
  87. *&---------------------------------------------------------------------*
  88. *&      Form  BUILD_OUTTAB
  89. *&---------------------------------------------------------------------*
  90. *       text
  91. *----------------------------------------------------------------------*
  92. *  -->  p1        text
  93. *  <--  p2        text
  94. *----------------------------------------------------------------------*
  95. form build_outtab.
  96.   data wa LIKE LINE OF gt_summendaten.
  97.   select * from zta_vergleich into CORRESPONDING FIELDS OF TABLE gt_summendaten.
  98.   LOOP AT gt_summendaten INTO wa.
  99.     IF wa-summen-summensatz NE wa-summen-summe_bons.
  100.       wa-icon = icon_red_light.
  101.     ELSE.
  102.       wa-icon = icon_green_light.
  103.     ENDIF.
  104.     MODIFY gt_summendaten FROM wa.
  106. endform.                               " BUILD_OUTTAB
  107.  
  108. *&---------------------------------------------------------------------*
  109. *&      Form  BUILD_SORT_TABLE
  110. *&---------------------------------------------------------------------*
  111. *       text
  112. *----------------------------------------------------------------------*
  113. *  -->  p1        text
  114. *  <--  p2        text
  115. *----------------------------------------------------------------------*
  116. form build_sort_table.
  117.  
  118.   data ls_sort_wa type lvc_s_sort.
  119.  
  120. * create sort-table
  121.   ls_sort_wa-spos = 1.
  122.   ls_sort_wa-fieldname = 'DATUM'.
  123.   ls_sort_wa-up = 'X'.
  124.   ls_sort_wa-subtot = 'X'.
  125.   append ls_sort_wa to gt_sort.
  126.  
  127.   ls_sort_wa-spos = 2.
  128.   ls_sort_wa-fieldname = 'FILIALE'.
  129.   ls_sort_wa-up = 'X'.
  130.   ls_sort_wa-subtot = 'X'.
  131.   append ls_sort_wa to gt_sort.
  132.  
  133.   ls_sort_wa-spos = 3.
  134.   ls_sort_wa-fieldname = 'ZAHLUNGSART'.
  135.   ls_sort_wa-up = 'X'.
  136.   append ls_sort_wa to gt_sort.
  137.  
  138. endform.                               " BUILD_SORT_TABLE
  139. *&---------------------------------------------------------------------*
  140. *&      Module  PBO  OUTPUT
  141. *&---------------------------------------------------------------------*
  142. *       text
  143. *----------------------------------------------------------------------*
  144. module pbo output.
  145.   if tree1 is initial.
  146.     perform init_tree.
  147.   endif.
  148.   set pf-status 'MAIN100'.
  149.  
  150. endmodule.                             " PBO  OUTPUT
  151. *&---------------------------------------------------------------------*
  152. *&      Module  PAI  INPUT
  153. *&---------------------------------------------------------------------*
  154. *       text
  155. *----------------------------------------------------------------------*
  156. module pai input.
  157.  
  158.   case ok_code.
  159.     when 'EXIT' or 'BACK' or 'CANC'.
  160.       perform exit_program.
  161.  
  162.     when others.
  163.       call method cl_gui_cfw=>dispatch.
  165.   clear ok_code.
  166. endmodule.                             " PAI  INPUT
  167. *&---------------------------------------------------------------------*
  168. *&      Form  exit_program
  169. *&---------------------------------------------------------------------*
  170. *       free object and leave program
  171. *----------------------------------------------------------------------*
  172. form exit_program.
  173.  
  174.   call method tree1->free.
  175.   leave program.
  176.  
  177. endform.                               " exit_program
  178. *&---------------------------------------------------------------------*
  179. *&      Form  register_events
  180. *&---------------------------------------------------------------------*
  181. *       text
  182. *----------------------------------------------------------------------*
  183. *  -->  p1        text
  184. *  <--  p2        text
  185. *----------------------------------------------------------------------*
  186. form register_events.
  187. * define the events which will be passed to the backend
  188.   data: lt_events type cntl_simple_events,
  189.         l_event type cntl_simple_event.
  190.  
  191. * define the events which will be passed to the backend
  192.   l_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
  193.   append l_event to lt_events.
  194.   l_event-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.
  195.   append l_event to lt_events.
  196.   l_event-eventid = cl_gui_column_tree=>eventid_header_context_men_req.
  197.   append l_event to lt_events.
  198.   l_event-eventid = cl_gui_column_tree=>eventid_expand_no_children.
  199.   append l_event to lt_events.
  200.   l_event-eventid = cl_gui_column_tree=>eventid_header_click.
  201.   append l_event to lt_events.
  202.   l_event-eventid = cl_gui_column_tree=>eventid_item_keypress.
  203.   append l_event to lt_events.
  204.  
  205.   call method tree1->set_registered_events
  206.     exporting
  207.       events = lt_events
  208.     exceptions
  209.       cntl_error                = 1
  210.       cntl_system_error         = 2
  211.       illegal_event_combination = 3.
  212.  
  213. * set Handler
  214.   data: l_event_receiver type ref to lcl_tree_event_receiver.
  215.   create object l_event_receiver.
  216.   set handler l_event_receiver->on_add_hierarchy_node
  217.                                                         for tree1.
  218. endform.                               " register_events
  219.  
  220. *&---------------------------------------------------------------------*
  221. *&      Form  init_tree
  222. *&---------------------------------------------------------------------*
  223. *       text
  224. *----------------------------------------------------------------------*
  225. *  -->  p1        text
  226. *  <--  p2        text
  227. *----------------------------------------------------------------------*
  228. FORM init_tree.
  229.   perform build_fieldcatalog.
  230.  
  231.   perform build_outtab.
  232.  
  233.   perform build_sort_table.
  234.  
  235. * create container for alv-tree
  236.   data: l_tree_container_name(30) type c,
  237.         l_custom_container type ref to cl_gui_custom_container.
  238.   l_tree_container_name = 'TREE1'.
  239.  
  240.   create object l_custom_container
  241.       exporting
  242.             container_name = l_tree_container_name
  243.       exceptions
  244.             cntl_error                  = 1
  245.             cntl_system_error           = 2
  246.             create_error                = 3
  247.             lifetime_error              = 4
  248.             lifetime_dynpro_dynpro_link = 5.
  249.  
  250. * create tree control
  251.   create object tree1
  252.     exporting
  253.         i_parent              = l_custom_container
  254.         i_node_selection_mode =
  255.                               cl_gui_column_tree=>node_sel_mode_multiple
  256.         i_item_selection      = 'X'
  257.         i_no_html_header      = 'X'
  258.         i_no_toolbar          = ''
  259.     exceptions
  260.         cntl_error                   = 1
  261.         cntl_system_error            = 2
  262.         create_error                 = 3
  263.         lifetime_error               = 4
  264.         illegal_node_selection_mode  = 5
  265.         failed                       = 6
  266.         illegal_column_name          = 7.
  267.  
  268.   data: ls_variant type disvariant.
  269.   ls_variant-report = sy-repid.
  270.  
  271. * register events
  272.   perform register_events.
  273.  
  274. * create hierarchy
  275.   call method tree1->set_table_for_first_display
  276. *          exporting
  277. *               i_background_id      = 'ALV_BACKGROUND'
  278. *               i_save               = 'A'
  279. *               is_variant            = ls_variant
  280.           changing
  281.                it_sort              = gt_sort
  282.                it_outtab            = gt_summendaten
  283.                it_fieldcatalog      = gt_fieldcatalog.
  284.  
  285. * expand first level
  286. *  call method tree1->expand_Tree
  287. *         exporting
  288. *             i_level = 1.
  289.  
  290. * optimize column-width
  291.   call method tree1->column_optimize.
  292. *           exporting
  293. *               i_start_column = tree1->c_hierarchy_column_name
  294. *               i_end_column   = tree1->c_hierarchy_column_name.
  295.  
  296.  
  297. ENDFORM.                    " init_tree
  298.  
GeSHi ©
Joscha3759
.
.
 
Posts: 1
Joined: Fri Sep 26, 2014 12:47 pm
Top
Post a reply

Return to ABAP® Core

Who is online

Users browsing this forum: No registered users and 31 guests

Powered by phpBB® Forum Software © phpBB Group
  • Latest Topics