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

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

Twilight发表于 2019-09-26 16:48Twilight 最后回复于 2019-09-26 16:48 [复制链接] 5497 0

SALV不需要写sql语句，通过Integrated Data Access直接访问数据，通常用在HANA平台，根据alv当前展示的数据实时从数据库抽取，滚动alv滚动条能明显感受到数据加载时的卡顿，传统数据库不推荐使用salv，可能会卡死。大量数据展示时SALV的好处特别明显。

一、ALV全屏展示
1、基本功能
  1. CL_SALV_GUI_TABLE_IDA=>create(  iv_table_name = 'VBAK' )->fullscreen( )->display( ).
复制代码

2、扩展fieldcate等功能
  1. PARAMETERS: p_vbeln TYPE vbak-vbeln.

  3. **********************************************************************
  4. *alv data
  5. **********************************************************************
  6. TRY.
  7.     CALL METHOD cl_salv_gui_table_ida=>create
  8.       EXPORTING
  9.         iv_table_name        = 'VBAK'        "这个可以是数据库表，也可以是CDS View
  10.       RECEIVING
  11.         ro_alv_gui_table_ida = DATA(lr_alv).
  12.   CATCH cx_salv_db_connection.
  13.   CATCH cx_salv_db_table_not_supported.
  14.   CATCH cx_salv_ida_contract_violation.
  15. ENDTRY.

  17. **********************************************************************
  18. *alv field cata
  19. **********************************************************************
  20. DATA(lr_field) = lr_alv->field_catalog( ).
  21. lr_field->get_available_fields(
  22.   IMPORTING
  23.     ets_field_names = DATA(lt_fields)
  24. ).

  26. LOOP AT lt_fields ASSIGNING FIELD-SYMBOL(<fs_fields>).
  27.   IF <fs_fields> = 'ABDIS'.
  28.     DELETE lt_fields INDEX sy-tabix.
  29.   ENDIF.
  30. ENDLOOP.
  31. *禁止VBELN排序功能
  32. TRY.
  33.     lr_field->disable_sort( iv_field_name = 'VBELN' ).
  34.   CATCH cx_salv_ida_unknown_name.
  35.   CATCH cx_salv_call_after_1st_display.
  36. ENDTRY.

  38. TRY.
  39.     lr_field->set_available_fields( its_field_names = lt_fields ).
  40.   CATCH cx_salv_ida_unknown_name INTO DATA(cx_text).
  41. ENDTRY.

  43. **********************************************************************
  44. *alv select option
  45. **********************************************************************
  46. DATA:lt_ranges TYPE if_salv_service_types=>yt_named_ranges.
  47. DATA:ls_ranges TYPE LINE OF if_salv_service_types=>yt_named_ranges.

  49. ls_ranges-name = 'VBELN'.
  50. ls_ranges-sign = 'I'.
  51. ls_ranges-option = 'EQ'.
  52. ls_ranges-low = p_vbeln.
  53. APPEND ls_ranges TO lt_ranges.

  55. TRY.
  56.     lr_alv->set_select_options(
  57.   EXPORTING
  58.     it_ranges    = lt_ranges[]
  59. ).
  60.   CATCH cx_salv_ida_associate_invalid.
  61.   CATCH cx_salv_db_connection.
  62.   CATCH cx_salv_ida_condition_invalid.
  63.   CATCH cx_salv_ida_unknown_name.
  64. ENDTRY.

  66. **********************************************************************
  67. *alv rows
  68. **********************************************************************
  69. TRY.
  70.     lr_alv->set_maximum_number_of_rows(
  71.       EXPORTING
  72.         iv_number_of_rows = 20
  73.     ).
  74.   CATCH cx_salv_param_out_of_bounds.
  75. ENDTRY.
  76. **********************************************************************
  77. *alv dispaly
  78. **********************************************************************
  79. TRY.
  80.     lr_alv->fullscreen( )->display( ).
  81.   CATCH cx_salv_ida_contract_violation.
  82. ENDTRY.
复制代码

二、ALV自定义container展示
1、程序代码
  1. DATA:go_cust_cont TYPE REF TO cl_gui_custom_container.

  3. PARAMETERS: p_vbeln TYPE vbak-vbeln.

  5. START-OF-SELECTION.

  7.   CALL SCREEN 3000.

  9. *&---------------------------------------------------------------------*
  10. *& Module DISPLAY_ALV OUTPUT
  11. *&---------------------------------------------------------------------*
  12. *&
  13. *&---------------------------------------------------------------------*
  14. MODULE display_alv OUTPUT.
  15.   CREATE OBJECT go_cust_cont
  16.     EXPORTING
  17.       container_name              = 'CONT1'
  18.     EXCEPTIONS
  19.       cntl_error                  = 1
  20.       cntl_system_error           = 2
  21.       create_error                = 3
  22.       lifetime_error              = 4
  23.       lifetime_dynpro_dynpro_link = 5
  24.       OTHERS                      = 6.
  25.   IF sy-subrc <> 0.
  26.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  27.   ELSE.
  28. **********************************************************************
  29. *alv data
  30. **********************************************************************
  31.     TRY.
  32.         CALL METHOD cl_salv_gui_table_ida=>create
  33.           EXPORTING
  34.             iv_table_name        = 'VBAK'        "这个可以是数据库表，也可以是CDS View
  35.             io_gui_container     = go_cust_cont
  36.           RECEIVING
  37.             ro_alv_gui_table_ida = DATA(lr_alv).
  38.       CATCH cx_salv_db_connection.
  39.       CATCH cx_salv_db_table_not_supported.
  40.       CATCH cx_salv_ida_contract_violation.
  41.     ENDTRY.

  43. **********************************************************************
  44. *alv field cata
  45. **********************************************************************
  46.     DATA(lr_field) = lr_alv->field_catalog( ).
  47.     lr_field->get_available_fields(
  48.       IMPORTING
  49.         ets_field_names = DATA(lt_fields)
  50.     ).

  52.     LOOP AT lt_fields ASSIGNING FIELD-SYMBOL(<fs_fields>).
  53.       IF <fs_fields> = 'ABDIS'.
  54.         DELETE lt_fields INDEX sy-tabix.
  55.       ENDIF.
  56.     ENDLOOP.
  57. *禁止VBELN排序功能
  58.     TRY.
  59.         lr_field->disable_sort( iv_field_name = 'VBELN' ).
  60.       CATCH cx_salv_ida_unknown_name.
  61.       CATCH cx_salv_call_after_1st_display.
  62.     ENDTRY.

  64.     TRY.
  65.         lr_field->set_available_fields( its_field_names = lt_fields ).
  66.       CATCH cx_salv_ida_unknown_name INTO DATA(cx_text).
  67.     ENDTRY.

  69. **********************************************************************
  70. *alv select option
  71. **********************************************************************
  72.     DATA:lt_ranges TYPE if_salv_service_types=>yt_named_ranges.
  73.     DATA:ls_ranges TYPE LINE OF if_salv_service_types=>yt_named_ranges.

  75.     ls_ranges-name = 'VBELN'.
  76.     ls_ranges-sign = 'I'.
  77.     ls_ranges-option = 'EQ'.
  78.     ls_ranges-low = p_vbeln.
  79.     APPEND ls_ranges TO lt_ranges.

  81.     TRY.
  82.         lr_alv->set_select_options(
  83.       EXPORTING
  84.         it_ranges    = lt_ranges[]
  85.     ).
  86.       CATCH cx_salv_ida_associate_invalid.
  87.       CATCH cx_salv_db_connection.
  88.       CATCH cx_salv_ida_condition_invalid.
  89.       CATCH cx_salv_ida_unknown_name.
  90.     ENDTRY.

  92. **********************************************************************
  93. *alv rows
  94. **********************************************************************
  95.     TRY.
  96.         lr_alv->set_maximum_number_of_rows(
  97.           EXPORTING
  98.             iv_number_of_rows = 20
  99.         ).
  100.       CATCH cx_salv_param_out_of_bounds.
  101.     ENDTRY.
  102.   ENDIF.

  104. ENDMODULE.
复制代码

2、screen 3000
salv-custom-container.jpg
3、执行效果
salv-custom-cont-result.jpg
ALV, SALV, 报表, ALV

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 847 主题
  2. 125 回帖
  3. 11270 积分
发消息

Ta最近发表

快速回帖

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

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

GMT+8, 2024-12-23 02:04 , Processed in 0.053087 second(s), 9 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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