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

OOalv实现超市分类查询报表

Twilight发表于 2015-03-04 16:58Twilight 最后回复于 2015-03-04 16:58 [复制链接] 5737 0

包含功能：
1、显示、编辑 模式下工具栏保存按钮状态的可用性控制
2、ooALV添加自定义按钮
3、ooalv界面是否可编辑
4、alv checkbox复选框

程序代码：
  1. REPORT zpur_market_002 MESSAGE-ID 00.

  3. *&---------------------------------------------------------------------*
  4. *& INCLUDE
  5. *&---------------------------------------------------------------------*
  6. INCLUDE zpur_market_002_top.                "Type/Data
  7. INCLUDE zpur_market_002_class.        "Class
  8. INCLUDE zpur_market_002_selscr.        "Selection screen
  9. INCLUDE zpur_market_002_form.                "Form
  10. INCLUDE zpur_market_002_module.        "Module

  12. *&---------------------------------------------------------------------*
  13. *& 初始化处理
  14. *&---------------------------------------------------------------------*
  15. *INITIALIZATION.
  16. *  PERFORM xxxxxxx.

  18. *&---------------------------------------------------------------------*
  19. *& 选择屏幕控制
  20. *&---------------------------------------------------------------------*
  21. AT SELECTION-SCREEN OUTPUT.
  22. PERFORM f_modify_screen.

  24. *&---------------------------------------------------------------------*
  25. *& 参数输入检查
  26. *&---------------------------------------------------------------------*
  27. *AT SELECTION-SCREEN.
  28. *  PERFORM xxxxxxx.

  30. *&---------------------------------------------------------------------*
  31. *& 程序开始处理
  32. *&---------------------------------------------------------------------*
  33. START-OF-SELECTION.
  34.   PERFORM f_get_all_data. "取数逻辑
  35.   IF gt_output[] IS NOT INITIAL.
  36.     CLEAR: gt_status_9000,gs_status_9000.
  37.     IF p_disp = 'X'.
  38.       gs_status_9000-fcode = 'SAVE'.
  39.       APPEND gs_status_9000 TO gt_status_9000.
  40.     ENDIF.
  41.     CALL SCREEN 9000.
  42.   ELSE.
  43.     MESSAGE s001(00) DISPLAY LIKE 'E' WITH '没有符合要求的数据！'.
  44.     EXIT.
  45.   ENDIF.
复制代码

INCLUDE zpur_market_002_top.
  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZPUR_MARKET_002_TOP
  3. *&---------------------------------------------------------------------*
  4. CLASS zpu_cl_event_receiver DEFINITION DEFERRED.
  5. TYPE-POOLS:icon.
  6. TABLES:t001w,mara,zpu_matnr_d.
  7. TYPES:BEGIN OF ty_matnr_dl,
  8.        matnr       TYPE zpu_matnr_d-matnr,
  9.        lifnr       TYPE zpu_matnr_d-lifnr,
  10.        werks_d     TYPE zpu_matnr_d-werks_d,
  11.        oder_flag   TYPE zpu_matnr_d-oder_flag,
  12.        send_flag   TYPE zpu_matnr_d-send_flag,
  13.        datae       TYPE zpu_matnr_d-datae,
  14.        datab       TYPE zpu_matnr_d-datab,
  15.        del_flag    TYPE zpu_matnr_d-del_flag,
  16.       END OF ty_matnr_dl.
  17. TYPES:BEGIN OF ty_matnr_ps,
  18.        matnr       TYPE zpu_matnr_p-matnr,
  19.        lifnr       TYPE zpu_matnr_p-lifnr,
  20.        werks_s     TYPE zpu_matnr_p-werks_s,
  21.        oder_flag   TYPE zpu_matnr_p-oder_flag,
  22.        send_flag   TYPE zpu_matnr_p-send_flag,
  23.        datae       TYPE zpu_matnr_p-datae,
  24.        datab       TYPE zpu_matnr_p-datab,
  25.        del_flag    TYPE zpu_matnr_p-del_flag,
  26.       END OF ty_matnr_ps.
  27. TYPES:BEGIN OF ty_mod,
  28.         row TYPE i,
  29.       END OF ty_mod.
  30. TYPES:BEGIN OF ty_excltab,
  31.         fcode LIKE sy-ucomm,
  32.       END OF ty_excltab.

  34. DATA:BEGIN OF gt_output OCCURS 0,
  35.       matnr     TYPE mara-matnr,            "商品编码
  36.       maktx     TYPE makt-maktx,            "商品名称
  37.       lifnr     TYPE lfa1-lifnr,            "供应商编码
  38.       name1     TYPE lfa1-name1,            "供应商名称
  39.       werks     TYPE t001w-werks,           "地点
  40.       name_w    TYPE t001w-name1,           "地点名称
  41.       werks_cl(4),                          "地点种类
  42.       matnr_at(8),                          "商品属性
  43.       oder_flag TYPE zpu_matnr_s-oder_flag, "可订购标识
  44.       send_flag TYPE zpu_matnr_s-send_flag, "可出货标识
  45.       datab     TYPE zpu_matnr_s-datab,     "有效开始日期
  46.       datae     TYPE zpu_matnr_s-datae,     "有效截至日期
  47.       del_flag  TYPE zpu_matnr_s-del_flag,  "删除标识
  48.      END OF gt_output.

  50. DATA:gt_matnr_d TYPE TABLE OF ty_matnr_dl WITH HEADER LINE,
  51.      gt_matnr_l TYPE TABLE OF ty_matnr_dl WITH HEADER LINE,
  52.      gt_matnr_p TYPE TABLE OF ty_matnr_ps WITH HEADER LINE,
  53.      gt_matnr_s TYPE TABLE OF ty_matnr_ps WITH HEADER LINE.
  54. DATA:gt_mod TYPE STANDARD TABLE OF ty_mod WITH HEADER LINE.

  56. DATA:go_grid    TYPE REF TO cl_gui_alv_grid,
  57.      go_event_receiver TYPE REF TO zpu_cl_event_receiver.
  58. DATA:gt_functions TYPE ui_functions. "隐藏按钮的内表
  59. DATA: gs_stable TYPE lvc_s_stbl.
  60. gs_stable-row = 'X'.
  61. gs_stable-col = 'X'.
  62. *定义两个变量用来存储变灰的按钮信息
  63. DATA:gt_status_9000 TYPE TABLE OF ty_excltab, " Application toolbar exclude options
  64.      gs_status_9000 TYPE ty_excltab.

  66. DATA:gt_fieldcat_lvc TYPE lvc_t_fcat.
  67. DATA:gs_fieldcat_lvc TYPE LINE OF lvc_t_fcat.
  68. DATA:gs_layout_lvc TYPE lvc_s_layo.

  70. DATA: ok_code LIKE sy-ucomm.
  71. DATA: save_ok LIKE sy-ucomm.
复制代码

INCLUDE zpur_market_002_class.
  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZPUR_MARKET_002_CLASS
  3. *&---------------------------------------------------------------------*
  4. *----------------------------------------------------------------------*
  5. *       CLASS zpu_cl_event_receiver DEFINITION
  6. *----------------------------------------------------------------------*
  7. *
  8. *----------------------------------------------------------------------*
  9. CLASS zpu_cl_event_receiver DEFINITION.
  10.   PUBLIC SECTION.
  11.     METHODS:
  12.     handle_toolbar        FOR EVENT toolbar OF cl_gui_alv_grid
  13.         IMPORTING e_object e_interactive,
  14.     handle_user_command   FOR EVENT user_command OF cl_gui_alv_grid
  15.         IMPORTING e_ucomm,
  16.     handle_data_changed   FOR EVENT data_changed OF cl_gui_alv_grid
  17.         IMPORTING er_data_changed.
  18. ENDCLASS.                    "zpu_CL_EVENT_RECEIVER DEFINITION
  19. *----------------------------------------------------------------------*
  20. *       CLASS zpu_cl_event_receiver IMPLEMENTATION
  21. *----------------------------------------------------------------------*
  22. *
  23. *----------------------------------------------------------------------*
  24. CLASS zpu_cl_event_receiver IMPLEMENTATION.
  25.   METHOD handle_toolbar.
  26.     DATA:ls_toolbar TYPE stb_button.
  27.     CLEAR ls_toolbar.
  28.     ls_toolbar-function = 'B_DELX_FLAG'.
  29.     ls_toolbar-icon = icon_delete.
  30.     ls_toolbar-quickinfo = '删除'.
  31.     ls_toolbar-text = '删除'.
  32.     ls_toolbar-butn_type = '0'.
  33.     APPEND ls_toolbar TO e_object->mt_toolbar.
  34.     CLEAR ls_toolbar.
  35.     ls_toolbar-function = 'B_DEL_FLAG'.
  36.     ls_toolbar-icon = icon_system_undo.
  37.     ls_toolbar-quickinfo = '取消删除'.
  38.     ls_toolbar-text = '取消删除'.
  39.     ls_toolbar-butn_type = '0'.
  40.     APPEND ls_toolbar TO e_object->mt_toolbar.
  41.     CLEAR ls_toolbar.
  42.     ls_toolbar-function = 'B_ODER_FLAG'.
  43.     ls_toolbar-icon = icon_mass_change.
  44.     ls_toolbar-quickinfo = '批量更改可订购'.
  45.     ls_toolbar-text = '批量更改可订购'.
  46.     ls_toolbar-butn_type = '0'.
  47.     APPEND ls_toolbar TO e_object->mt_toolbar.
  48.     CLEAR ls_toolbar.
  49.     ls_toolbar-function = 'B_SEND_FLAG'.
  50.     ls_toolbar-icon = icon_mass_change.
  51.     ls_toolbar-quickinfo = '批量更改可出货'.
  52.     ls_toolbar-text = '批量更改可出货'.
  53.     ls_toolbar-butn_type = '0'.
  54.     APPEND ls_toolbar TO e_object->mt_toolbar.
  55.   ENDMETHOD.                    "HANDLE_TOOLBAR
  56. *处理功能码事件
  57.   METHOD handle_user_command.
  58.     CASE e_ucomm.
  59.       WHEN 'B_DELX_FLAG'.
  60.         PERFORM f_change_del_flag USING 'X'.
  61.       WHEN 'B_DEL_FLAG'.
  62.         PERFORM f_change_del_flag USING ''.
  63.       WHEN 'B_ODER_FLAG'.
  64.         PERFORM f_change_oder_flag.
  65.       WHEN 'B_SEND_FLAG'.
  66.         PERFORM f_change_send_flag.
  67.     ENDCASE.
  68.     CALL METHOD go_grid->refresh_table_display "刷新
  69.      EXPORTING
  70.        is_stable      = gs_stable.
  71.   ENDMETHOD.                    "HANDLE_USER_COMMAND

  73.   METHOD handle_data_changed.
  74.     PERFORM f_handle_data_changed USING er_data_changed .
  75.   ENDMETHOD.                    "handle_data_changed

  77. ENDCLASS.                    "zpu_CL_EVENT_RECEIVER IMPLEMENTATION
复制代码

INCLUDE zpur_market_002_selscr.
  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZPUR_MARKET_002_SELSCR
  3. *&---------------------------------------------------------------------*
  4. SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
  5. SELECT-OPTIONS:s_werks FOR t001w-werks,
  6.                s_matnr FOR mara-matnr,
  7.                s_prdha FOR mara-prdha,
  8.                s_matkl FOR mara-matkl,
  9.                s_lifnr FOR zpu_matnr_d-lifnr.
  10. SELECT-OPTIONS:s_oderf FOR zpu_matnr_d-oder_flag.
  11. SELECT-OPTIONS:s_sendf FOR zpu_matnr_d-send_flag.
  12. PARAMETER: p_over AS CHECKBOX DEFAULT 'X' MODIF ID ove,
  13.            p_dele AS CHECKBOX DEFAULT 'X' MODIF ID del.
  14. SELECTION-SCREEN END OF BLOCK block1.
  15. SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-002.
  16. PARAMETER: p_disp RADIOBUTTON GROUP gp1 DEFAULT 'X' USER-COMMAND singleclick.
  17. PARAMETER: p_edit RADIOBUTTON GROUP gp1.
  18. SELECTION-SCREEN END OF BLOCK block2.
复制代码
报表, ooalv

相关帖子
回复

使用道具 举报

Twilight

管理员

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

Ta最近发表

快速回帖

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

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

GMT+8, 2024-11-21 20:44 , Processed in 0.061100 second(s), 9 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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