程序博客网 > 2017年大数据市场规模

ABAP 屏幕容器ALV显示

来源：互联网 发布：2017年大数据市场规模 编辑：程序博客网 时间：2024/05/21 16:58

抬头：

************************************OO ALV属性声明及定义***************
DATA: gcl_alv       TYPE REF TO cl_gui_alv_grid.
*存放字段目录的内表
DATA gt_fieldcat TYPE lvc_t_fcat.
*存放字段目录的结构
DATA gs_fcat TYPE lvc_s_fcat.
*布局结构
DATA gs_layout TYPE lvc_s_layo.
*超链接
"DATA  gt_hyperlink TYPE lvc_t_hype.
*排序表
"DATA  gt_sort  TYPE lvc_t_sort.
*设置过滤表
"DATA gt_filter TYPE lvc_t_filt.
"排除标准按钮内表
DATA  gt_excluding TYPE ui_functions.
DEFINE add_field.
  gs_fcat-tabname = &2.
  gs_fcat-fieldname = &1.
  gs_fcat-coltext = &4.
  gs_fcat-outputlen = &3.


  if gs_fcat-fieldname = 'MATNR'.
    gs_fcat-hotspot = 'X'.
  endif.
  if gs_fcat-fieldname = 'COMPETITOR_LISTING_PRICE'
    or gs_fcat-fieldname = 'COMPETITOR_DEAL_PRICE'.
*    gs_fcat-edit = 'X'.
    gs_fcat-decimals = 2.
    "gs_fcat-ref_table = 'T001'.
    "gs_fcat-ref_field = 'WAERS'.
  endif.

  append gs_fcat to gt_fieldcat.
  clear: gs_fcat.
END-OF-DEFINITION.


*类定义
*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_HANDLER DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    METHODS:
*热点点击控制
      handle_hotspot_click
      FOR EVENT hotspot_click OF cl_gui_alv_grid
      IMPORTING e_row_id e_column_id ."es_row_no.

  PRIVATE SECTION.
ENDCLASS.                    "lcl_event_handler DEFINITION

*类实现
CLASS lcl_event_handler IMPLEMENTATION.
*--HANDLE HOTSPOT CLICK
  METHOD handle_hotspot_click.

    PERFORM handle_hotspot_click USING e_row_id e_column_id." es_row_no.

  ENDMETHOD.                    "HANDLE_HOTSPOT_CLICK



ENDCLASS.                    "lcl_event_handler IMPLEMENTATION

DATA gr_event_handler TYPE REF TO lcl_event_handler.

 

 

FORM:

FORM frm_display_alv .
  IF gcl_alv IS INITIAL.
    CREATE OBJECT: gcl_container"屏幕容器，下面不用默认屏幕则需要在屏幕画自定义控件
    EXPORTING
      container_name = 'ALV_COMM'.


    CREATE OBJECT gcl_alv"容器实例
      EXPORTING
        i_parent = gcl_container.


    CALL METHOD gcl_alv->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_enter.

    CALL METHOD gcl_alv->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_modified.
*准备获取字段目录，主要针对每个字段
    PERFORM frm_prepare_fieldcat." CHANGING gt_fieldcat.
*准备设置布局，整体布局
    PERFORM frm_prepare_layout CHANGING gs_layout.
*排除不需要的标准按钮
    PERFORM frm_exclude_toolbar CHANGING gt_excluding.
*显示ALV
    CALL METHOD gcl_alv->set_table_for_first_display
      EXPORTING
*       I_BUFFER_ACTIVE               = 'X'"静态调用，每次相同字段目录可设为X，可加速显示ALV
*       I_CONSISTENCY_CHECK           =
*       i_structure_name              = 'SFLIGHT'"若无字段目录，则必须设置此选项
*       is_variant                    = gs_variant
        i_save                        = 'A'"X全局，U特定，A两者变式，SPACE均不可保存
        i_default                     = 'X'"是否可定义默认布局
        is_layout                     = gs_layout
*       IS_PRINT                      ="打印内表
*       IT_SPECIAL_GROUPS             ="字段目录设置了SP_GROUP被分组在一起的内表
        it_toolbar_excluding          = gt_excluding
*       it_hyperlink                  = gt_hyperlink
      CHANGING
        it_outtab                     = it_tab_alv[]"显示内表最好和字段目录一样结构
        it_fieldcatalog               = gt_fieldcat
                                                                                                                                                                                                                  "it_sort                       = gt_sort"排序
                                                                                                                                                                                                                "it_filter                     = gt_filter"过滤
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.

    PERFORM frm_register_events.

  ELSE .
*----刷新ALV
    CALL METHOD gcl_alv->refresh_table_display
* EXPORTING
* IS_STABLE =
* I_SOFT_REFRESH =
    EXCEPTIONS
    finished = 1
    OTHERS = 2 .
    "    IF sy-subrc <> 0.
*--异常处理
    "   ENDIF.
  ENDIF .

ENDFORM.                    " FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*&      Form  FRM_MODIFY_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
" FRM_MODIFY_ALV
*&---------------------------------------------------------------------*
*&      Form  FRM_PREPARE_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_FIELDCAT  text
*----------------------------------------------------------------------*
FORM frm_prepare_fieldcat ." CHANGING p_gt_fieldcat TYPE lvc_t_fcat.

  add_field:
          'SPART'         'IT_TAB_ALV'  8   '业务单元',
          'MATNR'         'IT_TAB_ALV'  20  '我司商品编码',
          'MAKTX'         'IT_TAB_ALV'  25  '我司商品描述',
          'CITY_CODE'     'IT_TAB_ALV'  12  '我司城市编码',
          'CITY_NAME'     'IT_TAB_ALV'  20  '我司城市名称',
          'COMPETITOR_NAME' 'IT_TAB_ALV' 10 '竞争对手名称',
          'ZCITY_NAME'     'IT_TAB_ALV'  20 '竞争对手城市名称',
          'COMPETITOR_LISTING_PRICE' 'IT_TAB_ALV' 10 '挂牌价价格',
          'COMPETITOR_DEAL_PRICE'  'IT_TAB_ALV'  10  '购物车价格',
          'AVAILABLE'     'IT_TAB_ALV' 8 '对手是否有货',
          'ISBN_NO'       'IT_TAB_ALV'  18  'ISBN编码',
          'CATCH_DATE'    'IT_TAB_ALV' 10 '抓取日期',
          'CMMDTY_TIME'   'IT_TAB_ALV'  8  '抓取时间',
          'BGAUTHOR'      'IT_TAB_ALV' 12 '修改者'.

ENDFORM.                    " FRM_PREPARE_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  FRM_PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GS_LAYOUT  text
*----------------------------------------------------------------------*
FORM frm_prepare_layout  CHANGING ps_layout  TYPE lvc_s_layo.
  ps_layout-zebra = 'X'.

ENDFORM.                    " FRM_PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  FRM_REGISTER_EVENTS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_register_events .
*--为事件句柄创建实例
  CREATE OBJECT gr_event_handler.
*--注册实例方法到ALV GRID 事件
  " SET HANDLER gr_event_handler->handle_double_click FOR gcl_alv.
  SET HANDLER gr_event_handler->handle_hotspot_click FOR gcl_alv.

ENDFORM.                    " FRM_REGISTER_EVENTS

*&---------------------------------------------------------------------*
*&      Form  FRM_EXCLUDE_TOOLBAR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_EXCLUDING  text
*----------------------------------------------------------------------*
FORM frm_exclude_toolbar  CHANGING pt_exclude TYPE ui_functions.
  DATA ls_exclude TYPE ui_func.
  ls_exclude = cl_gui_alv_grid=>mc_fc_maximum.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_minimum .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_subtot .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_sum .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_average .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_mb_sum .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_mb_subtot .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row .
  APPEND ls_exclude TO pt_exclude.

  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_print .
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row .
  APPEND ls_exclude TO pt_exclude.

ENDFORM.                    " FRM_EXCLUDE_TOOLBAR

 

 

 

 

2017年大数据市场规模 2017年大数据市场规模
原创粉丝点击
热门IT博客
宋仲基宋慧乔婚礼知乎宋仲基宋慧乔婚礼知乎
优盘数据恢复免费版优盘数据恢复免费版
美业软件免费
ubuntu换源163
怎么在电脑上清理数据
巡更棒作弊软件
黑莓z10淘宝
python msi下载
淘宝已评价管理在哪里
怎样下载网络视频
java rest服务
tv霸网络电视
纵横软件好用吗
中教数据库怎么样
手机剪切视频的软件
q宠大乐斗门派技能数据
node.js webpack vue
ubuntu源文件在哪
seo交流中心
python实际应用
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防，我是瞎子 关于雪松的资料 雪松种植方法 三米雪松价格 雪松精油价格 雪松树的资料 雪松有什么特点 雪松是开花植物吗 雪松树种子价格 傲世狼尊 冬季雪松 雪里拖枪 雪莉枪 成都4p雪利枪 程雪柔txt全文在线阅读 善良美人慕柔雪全文目录 程雪柔txt全文 程雪柔 慕柔雪全篇阅读 漂亮人妇慕柔雪系列全文目录 校花程雪柔 慕容柔雪二次怀孕 雪柔挺身而进 雪柔公交txt 慕柔雪三部曲 幕柔雪一到四十集 老婆雪柔 公交车雪柔 慕柔雪怀孕后续29 程雪柔txt免费阅读 慕雪柔全文阅读 慕柔雪母亲跟乞丐结局 程雪柔txt阅读 公交轮雪柔 高雪柔被灌满 雪柔 公交车大战程雪柔阅读 铭雪冷藏展示柜 雪飞扬保鲜柜 雪雨浴室柜怎么样 星星雪柜 雪柜什么牌子好 雪欧点菜柜

程序博客网，程序员的互联网技术博客家园。csdn论坛精品 msdn技术资料都在这里