设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[salv] ABAP报表开发HANA平台大数据展示工具SALV学习之四

Twilight发表于 2019-10-09 10:00Twilight 最后回复于 2019-10-09 10:00 [复制链接] 3288 0

1、sALV添加计算列，计算列的概念来自HANA数据库计算试图，计算列是通过基础列经过一些计算得出的一列数据。
本示例，根据销售订单美元价格简单计算人民币价格。

2、se24 创建计算列类
  1. CLASS zcl_vbak_calc_field DEFINITION
  2.   PUBLIC
  3.   FINAL
  4.   CREATE PUBLIC .

  6.   PUBLIC SECTION.

  8.     INTERFACES if_salv_ida_calc_field_handler .

  10.     TYPES:
  11.       BEGIN OF ty_vbak,
  12.         netwr_cny TYPE vbak-netwr,
  13.         waerk_cny TYPE vbak-waerk,
  14.       END OF ty_vbak .

  16.     DATA gs_calc_vbak TYPE ty_vbak .
  17.   PROTECTED SECTION.
  18.   PRIVATE SECTION.
  19. ENDCLASS.



  23. CLASS zcl_vbak_calc_field IMPLEMENTATION.


  26.   METHOD if_salv_ida_calc_field_handler~calculate_line.
  27.     DATA:ls_vbak TYPE vbak.
  28.     DATA:ls_calc_field TYPE ty_vbak.

  30.     ls_vbak = is_data_base_line.
  31.     ls_calc_field-netwr_cny = ls_vbak-netwr * 7.
  32.     ls_calc_field-waerk_cny = 'CNY'.
  33.     es_calculated_fields = ls_calc_field.

  35.   ENDMETHOD.


  38.   METHOD if_salv_ida_calc_field_handler~get_calc_field_structure.
  39.     ro_calc_field_structure ?= cl_abap_structdescr=>describe_by_data( p_data = gs_calc_vbak ).
  40.   ENDMETHOD.


  43.   METHOD if_salv_ida_calc_field_handler~get_requested_fields.
  44.     DATA:ls_fname TYPE LINE OF if_salv_ida_types=>yts_field_name.
  45.     "列出所有参与计算的字段
  46.     ls_fname = 'NETWR'.
  47.     INSERT ls_fname INTO TABLE rts_db_field_name.

  49.   ENDMETHOD.
  50.   METHOD if_salv_ida_calc_field_handler~end_page.

  52.   ENDMETHOD.

  54.   METHOD if_salv_ida_calc_field_handler~start_page.

  56.   ENDMETHOD.

  58. ENDCLASS.
复制代码
3、salv调用计算列
  1. CLASS lcl_handle DEFINITION.
  2.   PUBLIC SECTION.
  3.     METHODS double_click FOR EVENT double_click OF if_salv_gui_table_display_opt
  4.       IMPORTING ev_field_name eo_row_data.
  5.     METHODS cell_action FOR EVENT cell_action OF if_salv_gui_field_display_opt
  6.       IMPORTING ev_field_name eo_row_data.
  7. ENDCLASS.

  9. CLASS lcl_handle IMPLEMENTATION.
  10.   METHOD double_click.
  11.     DATA: ls_vbak TYPE vbak.
  12.     CHECK ev_field_name = 'VBELN'.
  13. * read the row data
  14.     eo_row_data->get_row_data(
  15.       EXPORTING
  16.         iv_request_type = if_salv_gui_selection_ida=>cs_request_type-all_fields
  17.       IMPORTING
  18.         es_row = ls_vbak ).
  19. * Display the row data
  20.     cl_salv_ida_show_data_row=>display( iv_text = 'VBAK Row Info' is_data = ls_vbak ).
  21.   ENDMETHOD.
  22.   METHOD cell_action.
  23.     DATA: ls_vbak TYPE vbak.
  24.     CHECK ev_field_name = 'VBELN'.
  25. * read the row data
  26.     eo_row_data->get_row_data(
  27.       EXPORTING
  28.         iv_request_type = if_salv_gui_selection_ida=>cs_request_type-all_fields
  29.       IMPORTING
  30.         es_row = ls_vbak ).
  31. * Display the row data
  32.     cl_salv_ida_show_data_row=>display( iv_text = 'VBAK Row Info' is_data = ls_vbak ).
  33.   ENDMETHOD.
  34. ENDCLASS.

  36. TABLES: vbak.

  38. SELECT-OPTIONS: s_vbeln FOR vbak-vbeln.

  40. START-OF-SELECTION.
  41. **********************************************************************
  42. *alv data
  43. **********************************************************************
  44.   DATA:lr_calc_field TYPE REF TO zcl_vbak_calc_field.

  46.   CREATE OBJECT lr_calc_field.
  47.   TRY.
  48.       CALL METHOD cl_salv_gui_table_ida=>create
  49.         EXPORTING
  50.           iv_table_name         = 'VBAK'
  51.           io_calc_field_handler = lr_calc_field
  52.         RECEIVING
  53.           ro_alv_gui_table_ida  = DATA(lr_alv).
  54.     CATCH cx_salv_db_connection.
  55.     CATCH cx_salv_db_table_not_supported.
  56.     CATCH cx_salv_ida_contract_violation.
  57.   ENDTRY.

  59. **********************************************************************
  60. *alv select option
  61. **********************************************************************
  62.   DATA:lt_ranges TYPE if_salv_service_types=>yt_named_ranges.
  63.   DATA:ls_ranges TYPE if_salv_service_types=>ys_named_range.
  64.   DATA: lr_range TYPE REF TO cl_salv_range_tab_collector.
  65.   DATA: lr_handle TYPE REF TO lcl_handle.

  67.   CREATE OBJECT lr_range.
  68.   lr_range->add_ranges_for_name(
  69.     EXPORTING
  70.       iv_name   = 'VBELN'
  71.       it_ranges = s_vbeln[]
  72.   ).

  74.   lr_range->get_collected_ranges(
  75.     IMPORTING
  76.       et_named_ranges = lt_ranges[]
  77.   ).

  79.   ls_ranges-name = 'WAERK'.
  80.   ls_ranges-sign = 'I'.
  81.   ls_ranges-option = 'EQ'.
  82.   ls_ranges-low = 'USD'.
  83.   APPEND ls_ranges TO lt_ranges.

  85.   TRY.
  86.       lr_alv->set_select_options(
  87.     EXPORTING
  88.       it_ranges    = lt_ranges[]
  89.   ).
  90.     CATCH cx_salv_ida_associate_invalid.
  91.     CATCH cx_salv_db_connection.
  92.     CATCH cx_salv_ida_condition_invalid.
  93.     CATCH cx_salv_ida_unknown_name.
  94.   ENDTRY.

  96. **********************************************************************
  97. *alv select option
  98. **********************************************************************
  99.   DATA(lr_option) = lr_alv->display_options( ).
  100.   lr_option->set_title( iv_title = 'VBAK information alv with ida' ).
  101.   lr_option->enable_alternating_row_pattern( ).
  102.   lr_option->enable_double_click( ).
  103.   CREATE OBJECT lr_handle.
  104.   SET HANDLER lr_handle->double_click FOR ALL INSTANCES.
  105. **********************************************************************
  106. *alv field catalog
  107. **********************************************************************
  108.   DATA(lr_fcatlog) = lr_alv->field_catalog( ).
  109.   DATA(lr_display) = lr_fcatlog->display_options( ).
  110.   TRY.
  111.       lr_display->display_as_link_to_action( iv_field_name = 'VBELN' ).
  112.     CATCH cx_salv_ida_unknown_name.
  113.     CATCH cx_salv_call_after_1st_display.
  114.   ENDTRY.
  115.   SET HANDLER lr_handle->cell_action FOR ALL INSTANCES.
  116. * Prepare the field catalog for two calculated fields
  117.   TRY.
  118.       lr_fcatlog->set_field_header_texts(
  119.     EXPORTING
  120.       iv_field_name        = 'NETWR_CNY'
  121.       iv_header_text       = 'CNY Value'
  122.       iv_tooltip_text      = 'Value of CNY'
  123.       iv_tooltip_text_long = 'currency Value of CNY'
  124.   ).
  125.     CATCH cx_salv_ida_unknown_name INTO DATA(lc_error).
  126.       DATA(lv_error) = lc_error->get_text( ).
  127.     CATCH cx_salv_call_after_1st_display.
  128.       lv_error = lc_error->get_text( ).
  129.   ENDTRY.

  131.   TRY.
  132.       lr_fcatlog->set_field_header_texts(
  133.     EXPORTING
  134.       iv_field_name        = 'WAERK_CNY'
  135.       iv_header_text       = 'CNY'
  136.       iv_tooltip_text      = 'unit of CNY'
  137.       iv_tooltip_text_long = 'currency unit of CNY'
  138.   ).
  139.     CATCH cx_salv_ida_unknown_name.
  140.     CATCH cx_salv_call_after_1st_display.
  141.   ENDTRY.
  142. **********************************************************************
  143. *alv select option
  144. **********************************************************************
  145. *  DATA: lt_sort TYPE if_salv_gui_types_ida=>yt_sort_rule.
  146. *  DATA: ls_sort TYPE if_salv_gui_types_ida=>ys_sort_rule.
  147. *  DATA: lt_aggregations TYPE if_salv_gui_types_ida=>yt_aggregation_rule.
  148. *  DATA: ls_aggregations TYPE if_salv_gui_types_ida=>ys_aggregation_rule.
  149. *
  150. *  CLEAR: ls_sort.
  151. *  ls_sort-field_name = 'ERNAM'.
  152. *  ls_sort-descending = ''.
  153. *  ls_sort-is_grouped = 'X'.   "按照字段ERNAM分类
  154. *  APPEND ls_sort TO lt_sort.
  155. *
  156. *  CLEAR: ls_aggregations.
  157. *  ls_aggregations-field_name = 'NETWR'.
  158. *  ls_aggregations-function   = 'SUM'. "SUM,AVG,MIN,MAX，按照分类聚合字段NETWR数值
  159. *  APPEND ls_aggregations TO lt_aggregations.
  160. *
  161. *  DATA(lr_layout) = lr_alv->default_layout( ).
  162. *  TRY.
  163. *      lr_layout->set_sort_order( it_sort_order = lt_sort ).
  164. *    CATCH cx_salv_ida_unknown_name.
  165. *    CATCH cx_salv_ida_duplicate_name.
  166. *  ENDTRY.
  167. *
  168. *  TRY.
  169. *      lr_layout->set_aggregations( it_aggregations = lt_aggregations ).
  170. *    CATCH cx_salv_key_figure_definition INTO DATA(lc_text).
  171. *    CATCH cx_salv_ida_unknown_name.
  172. *    CATCH cx_salv_ida_contract_violation.
  173. *  ENDTRY.
  174. **********************************************************************
  175. *alv rows
  176. **********************************************************************
  177.   TRY.
  178.       lr_alv->set_maximum_number_of_rows(
  179.         EXPORTING
  180.           iv_number_of_rows = 20
  181.       ).
  182.     CATCH cx_salv_param_out_of_bounds.
  183.   ENDTRY.
  184. **********************************************************************
  185. *alv dispaly
  186. **********************************************************************
  187.   TRY.
  188.       lr_alv->fullscreen( )->display( ).
  189.     CATCH cx_salv_ida_contract_violation.
  190.   ENDTRY.
复制代码
4、执行效果展示
salv-calc.jpg

SALV, 计算列

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 840 主题
  2. 965 帖子
  3. 10809 积分
收听TA 发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-4-30 16:39 , Processed in 0.049529 second(s), 10 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.4

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表