Chinaunix首页 | 论坛 | 博客
  • 博客访问: 358744
  • 博文数量: 199
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 1891
  • 用 户 组: 普通用户
  • 注册时间: 2020-05-14 13:25
个人简介

代码5S

文章分类

全部博文(199)

文章存档

2021年(5)

2020年(194)

我的朋友

分类: 其他平台

2020-09-30 09:58:34


type-pools truxs.

tables sscrfields.

data:gt_fcat    type lvc_t_fcat,
     gs_fcat    type lvc_s_fcat,
     gs_layout  type lvc_s_layo,
     gt_event   type slis_t_event,
     gs_event   like line of gt_event.

** 宏定义
define m_build_fcat.
  clear gs_fcat .
  gs_fcat-fieldname     &1.
  gs_fcat-coltext       &2.
  gs_fcat-scrtext_l     &2.
  gs_fcat-scrtext_m     &2.
  gs_fcat-scrtext_s     &2.
  gs_fcat-ref_field     &3.
  gs_fcat-ref_table     &4.
  gs_fcat-checkbox      &5.
  gs_fcat-edit          &6.
  append gs_fcat to gt_fcat.
  clear gs_fcat.
end-of-definition.

gs_layout-cwidth_opt 'X'.
gs_layout-zebra 'X'.

*&---------------------------------------------------------------------*
*&      Form  FRM_OUT_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PT_ITAB    text
*----------------------------------------------------------------------*
form frm_out_data tables pt_itab.
  call function 'REUSE_ALV_GRID_DISPLAY_LVC'
    exporting
      i_callback_program sy-repid
      is_layout_lvc      gs_layout
      it_fieldcat_lvc    gt_fcat
      it_events          gt_event
      i_save             'A'"保存
    tables
      t_outtab           pt_itab
    exceptions
      program_error      1
      others             2.
endform.                    "FRM_OUT_DATA
阅读(1272) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~