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

如何使用ALV创建99乘法表

XZ_P_0515发表于 2016-10-13 22:07XZ_P_0515 最后回复于 2016-10-17 22:36 [复制链接] 2833 5

ABAP新人，希望得到各位老师的教导。
回复

使用道具 举报

Twilight

RE: 如何使用ALV创建99乘法表

  1. DATA:c_index TYPE i,
  2.      r_index TYPE i.

  4. DATA:lv_sum TYPE i.
  5. DATA:lv_string TYPE string.

  7. DATA:BEGIN OF lt_out OCCURS 0,
  8.       field1 TYPE char10,
  9.       field2 TYPE char10,
  10.       field3 TYPE char10,
  11.       field4 TYPE char10,
  12.       field5 TYPE char10,
  13.       field6 TYPE char10,
  14.       field7 TYPE char10,
  15.       field8 TYPE char10,
  16.       field9 TYPE char10,
  17.   END OF lt_out .
  18. FIELD-SYMBOLS:<fs_out> LIKE lt_out,
  19.               <dyn_field> TYPE any.

  21. DO 9 TIMES.
  22.   r_index = sy-index.
  23.   APPEND INITIAL LINE TO  lt_out ASSIGNING <fs_out>.
  24.   DO 9 TIMES.
  25.     CHECK sy-index <= r_index.
  26.     CLEAR:lv_string.
  27.     c_index = sy-index.
  28.     lv_sum = r_index * c_index.
  29.     lv_string = r_index && '*' && c_index && '=' && lv_sum.
  30.     ASSIGN COMPONENT c_index OF STRUCTURE <fs_out> TO <dyn_field>.
  31.     <dyn_field> = lv_string.
  32.   ENDDO.

  34. ENDDO.

  36. LOOP AT lt_out.
  37.   WRITE:/ lt_out.
  38. ENDLOOP.
复制代码

99.jpg
自己补充成alv即可
回复 支持 反对

使用道具 举报

XZ_P_0515

RE: 如何使用ALV创建99乘法表

Twilight 发表于 2016-10-14 14:58
自己补充成alv即可

谢谢您
回复 支持 反对

使用道具 举报

XZ_P_0515

RE: 如何使用ALV创建99乘法表

XZ_P_0515 发表于 2016-10-16 23:34
谢谢您


运行结果没有列名，怎么可以加上列名呢？
  1. TYPE-POOLS:slis.

  3. DATA:i_fieldcat_alv TYPE slis_t_fieldcat_alv, "定义列标题（属性信息）
  4.      i_layout       TYPE slis_layout_alv,
  5.      i_fieldcat     TYPE slis_fieldcat_alv, "定义对象
  6.      w_repid        LIKE sy-repid. "当前程序
  7. i_layout-zebra = 'X'. "ALV表格按斑马线条纹显示
  8. i_layout-colwidth_optimize = 'X'. "将ALV字段宽度设置为最优化
  9. DATA: i_grid_settings TYPE lvc_s_glay."修改状态
  10. i_grid_settings-edt_cll_cb = 'X'.
  11. w_repid = sy-repid.

  13. DATA: column(7) TYPE c.
  14. *DATA it LIKE TABLE OF column.

  16. DATA: BEGIN OF wa,
  17.         co1 LIKE column,
  18.         co2 LIKE column,
  19.         co3 LIKE column,
  20.         co4 LIKE column,
  21.         co5 LIKE column,
  22.         co6 LIKE column,
  23.         co7 LIKE column,
  24.         co8 LIKE column,
  25.         co9 LIKE column,
  26.       END OF wa.
  27. DATA itab LIKE TABLE OF wa.

  29. *变量定义

  31. DATA: gr_table TYPE REF TO cl_salv_table.
  32. DATA: wa_layout   TYPE lvc_s_layo.

  34. FORM frm_display_data .
  35.   PERFORM frm_fill_field.
  36. ENDFORM.

  38. DATA: fieldcat TYPE lvc_t_fcat WITH HEADER LINE.

  40. DEFINE fill_field.
  41.   CLEAR fieldcat.
  42.   fieldcat-fieldname     = &1.
  43.   fieldcat-col_pos       = &2.
  44.   APPEND fieldcat.
  45. END-OF-DEFINITION.

  47. SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
  48. PARAMETERS: p_full RADIOBUTTON GROUP rg,
  49.             p_list RADIOBUTTON GROUP rg.
  50. SELECTION-SCREEN END OF BLOCK blk.

  52. *----------------------------------------------------------------------*
  53. *       CLASS lcl_alv DEFINITION
  54. *----------------------------------------------------------------------*
  55. *       ALV操作类（定义）
  56. *----------------------------------------------------------------------*
  57. CLASS lcl_alv DEFINITION.
  58.   PUBLIC SECTION.
  59.     METHODS: getdata         "取得要显示的数据
  60.       RETURNING VALUE(lt_tab) LIKE itab,
  61.       alv_full        "全屏Grid列表处理方法
  62.         IMPORTING VALUE(lt_tab) LIKE itab,
  63.       alv_list        "普通List处理方法
  64.         IMPORTING VALUE(lt_tab) LIKE itab,
  65.       main.           "主方法
  66. ENDCLASS.                    "lcl_alv DEFINITION


  69. *----------------------------------------------------------------------*
  70. *       CLASS lcl_alv IMPLEMENTATION
  71. *----------------------------------------------------------------------*
  72. *       ALV操作类（实现）
  73. *----------------------------------------------------------------------*
  74. CLASS lcl_alv IMPLEMENTATION.
  75. *取得要显示的数据
  76.   METHOD getdata.
  77.     DO 9 TIMES.
  78.       DATA i1 TYPE i.
  79.       i1 = sy-index.

  81.       DO i1 TIMES.
  82.         DATA result(2) TYPE c.
  83.         DATA: c1 TYPE c,
  84.               c2 TYPE c.
  85.         result = i1 * sy-index.
  86.         c1 = i1.
  87.         c2 = sy-index.
  88.         CONCATENATE c1 '*' c2 '=' result INTO column.
  89.         CONCATENATE wa column INTO wa SEPARATED BY ' '.

  91.       ENDDO.
  92.       APPEND wa TO lt_tab.
  93.       CLEAR wa.
  94.     ENDDO.

  96.   ENDMETHOD.                    "getdata

  98. *输出全屏网格列表的方法
  99.   METHOD alv_full.
  100.     "创建实例
  101.     TRY.
  102.         cl_salv_table=>factory(
  103.           IMPORTING
  104.             r_salv_table = gr_table
  105.           CHANGING
  106.             t_table      = lt_tab
  107.         ).
  108.       CATCH cx_salv_msg.
  109.     ENDTRY.

  111.     "显示列表
  112.     gr_table->display( ).
  113.   ENDMETHOD.                    "alv_full

  115. *输出全屏普通列表的方法
  116.   METHOD alv_list.
  117.     "创建实例
  118.     TRY.
  119.         cl_salv_table=>factory(
  120.           EXPORTING
  121.             list_display = 'X'
  122.           IMPORTING
  123.             r_salv_table = gr_table
  124.           CHANGING
  125.             t_table      = lt_tab
  126.         ).
  127.       CATCH cx_salv_msg.
  128.     ENDTRY.

  130.     "显示列表
  131.     gr_table->display( ).
  132.   ENDMETHOD.                    "alv_list

  134. *主方法，整合数据
  135.   METHOD main.
  136.     DATA: lt_tab LIKE itab.

  138.     "取得要显示的数据
  139.     lt_tab = me->getdata( ).

  141.     "判断选择屏幕的选择条件调用不同的方法
  142.     CASE 'X'.
  143.       WHEN p_full.
  144.         me->alv_full( lt_tab ).
  145.       WHEN p_list.
  146.         me->alv_list( lt_tab ).
  147.     ENDCASE.
  148.   ENDMETHOD.                    "main
  149. ENDCLASS.                    "lcl_alv IMPLEMENTATION
  150. FORM frm_layout .
  151.   CLEAR: wa_layout."它用来定义ALV报表的整体属性
  152. * WA_LAYOUT-ZEBRA         = 'X' ."ZBbra
  153. *  WA_LAYOUT-DETAILINIT         = 'X' . "initial values on detail screen
  154.   wa_layout-cwidth_opt    = 'X'."优化列宽选项是否设置
  155. *  WA_LAYOUT-DETAILTITL      = 'Detail Information' ."设置弹出窗口的标题栏
  156.   wa_layout-box_fname = 'SEL'.
  157. *  WA_LAYOUT-INFO_FNAME = 'ROWCOLOR'.

  159. ENDFORM.
  160. FORM frm_fill_field.

  162.   CLEAR fieldcat.
  163.   fieldcat-fieldname = 'BELNR'.
  164.   fieldcat-col_pos   = '9'.
  165.   APPEND fieldcat.

  167.   fill_field '1' '9'.
  168.   fill_field '2' '9'.
  169.   fill_field '3' '9'.
  170.   fill_field '4' '9'.
  171.   fill_field '5' '9'.
  172.   fill_field '6' '9'.
  173.   fill_field '7' '9'.
  174.   fill_field '8' '9'.
  175.   fill_field '9' '9'.

  177. ENDFORM.                    " FRM_FILL_FIELD
  178. *报表执行
  179. START-OF-SELECTION.
  180.   DATA  lr_alv   TYPE REF TO lcl_alv.
  181.   CREATE OBJECT lr_alv.
  182.   lr_alv->main( ).
复制代码
回复 支持 反对

使用道具 举报

Twilight

RE: 如何使用ALV创建99乘法表

你把oo alv和function alv混在一起了
  1. TYPE-POOLS:slis.

  3. DATA: column(7) TYPE c.
  4. *DATA it LIKE TABLE OF column.

  6. DATA: BEGIN OF wa,
  7.         co1 LIKE column,
  8.         co2 LIKE column,
  9.         co3 LIKE column,
  10.         co4 LIKE column,
  11.         co5 LIKE column,
  12.         co6 LIKE column,
  13.         co7 LIKE column,
  14.         co8 LIKE column,
  15.         co9 LIKE column,
  16.       END OF wa.
  17. DATA itab LIKE TABLE OF wa.

  19. *变量定义

  21. DATA: gr_table TYPE REF TO cl_salv_table.

  23. SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.
  24. PARAMETERS: p_full RADIOBUTTON GROUP rg,
  25.             p_list RADIOBUTTON GROUP rg.
  26. SELECTION-SCREEN END OF BLOCK blk.

  28. *----------------------------------------------------------------------*
  29. *       CLASS lcl_alv DEFINITION
  30. *----------------------------------------------------------------------*
  31. *       ALV操作类（定义）
  32. *----------------------------------------------------------------------*
  33. CLASS lcl_alv DEFINITION.
  34.   PUBLIC SECTION.
  35.     METHODS: getdata         "取得要显示的数据
  36.       RETURNING VALUE(lt_tab) LIKE itab,
  37.       alv_full        "全屏Grid列表处理方法
  38.         IMPORTING VALUE(lt_tab) LIKE itab,
  39.       alv_list        "普通List处理方法
  40.         IMPORTING VALUE(lt_tab) LIKE itab,
  41.       main,           "主方法
  42.       fieldcate.
  43. ENDCLASS.                    "lcl_alv DEFINITION


  46. *----------------------------------------------------------------------*
  47. *       CLASS lcl_alv IMPLEMENTATION
  48. *----------------------------------------------------------------------*
  49. *       ALV操作类（实现）
  50. *----------------------------------------------------------------------*
  51. CLASS lcl_alv IMPLEMENTATION.
  52. *取得要显示的数据
  53.   METHOD getdata.
  54.     DO 9 TIMES.
  55.       DATA i1 TYPE i.
  56.       i1 = sy-index.

  58.       DO i1 TIMES.
  59.         DATA result(2) TYPE c.
  60.         DATA: c1 TYPE c,
  61.               c2 TYPE c.
  62.         result = i1 * sy-index.
  63.         c1 = i1.
  64.         c2 = sy-index.
  65.         CONCATENATE c1 '*' c2 '=' result INTO column.
  66.         CONCATENATE wa column INTO wa SEPARATED BY ' '.

  68.       ENDDO.
  69.       APPEND wa TO lt_tab.
  70.       CLEAR wa.
  71.     ENDDO.

  73.   ENDMETHOD.                    "getdata

  75. *输出全屏网格列表的方法
  76.   METHOD alv_full.
  77.     "创建实例
  78.     TRY.
  79.         cl_salv_table=>factory(
  80.           IMPORTING
  81.             r_salv_table = gr_table
  82.           CHANGING
  83.             t_table      = lt_tab
  84.         ).
  85.       CATCH cx_salv_msg.
  86.     ENDTRY.

  88.     me->fieldcate( ).

  90.     "显示列表
  91.     gr_table->display( ).
  92.   ENDMETHOD.                    "alv_full

  94. *输出全屏普通列表的方法
  95.   METHOD alv_list.
  96.     "创建实例
  97.     TRY.
  98.         cl_salv_table=>factory(
  99.           EXPORTING
  100.             list_display = 'X'
  101.           IMPORTING
  102.             r_salv_table = gr_table
  103.           CHANGING
  104.             t_table      = lt_tab
  105.         ).
  106.       CATCH cx_salv_msg.
  107.     ENDTRY.

  109.     "显示列表
  110.     gr_table->display( ).
  111.   ENDMETHOD.                    "alv_list

  113. *主方法，整合数据
  114.   METHOD main.
  115.     DATA: lt_tab LIKE itab.

  117.     "取得要显示的数据
  118.     lt_tab = me->getdata( ).

  120.     "判断选择屏幕的选择条件调用不同的方法
  121.     CASE 'X'.
  122.       WHEN p_full.
  123.         me->alv_full( lt_tab ).
  124.       WHEN p_list.
  125.         me->alv_list( lt_tab ).
  126.     ENDCASE.
  127.   ENDMETHOD.                    "main
  128.   METHOD fieldcate.
  129.     DATA: gr_columns TYPE REF TO cl_salv_columns_table.
  130.     DATA: gr_column TYPE REF TO cl_salv_column_table.
  131.     gr_columns = gr_table->get_columns( ).
  132.     gr_column ?= gr_columns->get_column( 'CO1' )."需处理的列
  133.     gr_column->set_long_text( 'name1' ).
  134.     gr_column->set_medium_text( 'name1' ).
  135.     gr_column->set_short_text( 'name1' ).
  136.     gr_column ?= gr_columns->get_column( 'CO2' )."需处理的列
  137.     gr_column->set_long_text( 'name2' ).
  138.     gr_column->set_medium_text( 'name2' ).
  139.     gr_column->set_short_text( 'name2' ).
  140.     gr_column ?= gr_columns->get_column( 'CO3' )."需处理的列
  141.     gr_column->set_long_text( 'name3' ).
  142.     gr_column->set_medium_text( 'name3' ).
  143.     gr_column->set_short_text( 'name3' ).
  144.     gr_column ?= gr_columns->get_column( 'CO4' )."需处理的列
  145.     gr_column->set_long_text( 'name4' ).
  146.     gr_column->set_medium_text( 'name4' ).
  147.     gr_column->set_short_text( 'name4' ).
  148.     gr_column ?= gr_columns->get_column( 'CO5' )."需处理的列
  149.     gr_column->set_long_text( 'name5' ).
  150.     gr_column->set_medium_text( 'name5' ).
  151.     gr_column->set_short_text( 'name5' ).
  152.     gr_column ?= gr_columns->get_column( 'CO6' )."需处理的列
  153.     gr_column->set_long_text( 'name6' ).
  154.     gr_column->set_medium_text( 'name6' ).
  155.     gr_column->set_short_text( 'name6' ).
  156.     gr_column ?= gr_columns->get_column( 'CO7' )."需处理的列
  157.     gr_column->set_long_text( 'name7' ).
  158.     gr_column->set_medium_text( 'name7' ).
  159.     gr_column->set_short_text( 'name7' ).
  160.     gr_column ?= gr_columns->get_column( 'CO8' )."需处理的列
  161.     gr_column->set_long_text( 'name8' ).
  162.     gr_column->set_medium_text( 'name8' ).
  163.     gr_column->set_short_text( 'name8' ).
  164.     gr_column ?= gr_columns->get_column( 'CO9' )."需处理的列
  165.     gr_column->set_long_text( 'name9' ).
  166.     gr_column->set_medium_text( 'name9' ).
  167.     gr_column->set_short_text( 'name9' ).
  168.   ENDMETHOD.
  169. ENDCLASS.                    "lcl_alv IMPLEMENTATION

  171. *报表执行
  172. START-OF-SELECTION.
  173.   DATA  lr_alv   TYPE REF TO lcl_alv.
  174.   CREATE OBJECT lr_alv.
  175.   lr_alv->main( ).
复制代码

ALV99.jpg
回复 支持 反对

使用道具 举报

XZ_P_0515
谢谢老师，因为刚刚开始接触，嘿嘿。太感谢您了
回复 支持 反对

使用道具 举报

XZ_P_0515

SAP初级小粉

+发表新主题
  1. 3 主题
  2. 13 回帖
  3. 111 积分
发消息

Ta最近发表

快速回帖

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

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

GMT+8, 2024-11-21 23:46 , Processed in 0.049784 second(s), 6 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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