006. 1alv代码

image.png
*&---------------------------------------------------------------------*
*& Report  ZPPF_ALV_900
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report  zppf_alv_900.

*---------------------- 声明alv相关变量 ----------------------*

type-pools:slis.
data: lt_fieldcat type slis_t_fieldcat_alv, " 存储fieldcat的内表
      ls_fieldcat type slis_fieldcat_alv,
      ls_layout type slis_layout_alv, " alv格式控制的结构体 layout
      lt_event type slis_t_event, " 事件内表
      ls_event type slis_alv_event.
data: lv_colpos type int2.

*---------------------- 定义列表 ----------------------*
types:begin of ty_alvshow,
  vbeln type vbak-vbeln,
  erdat type vbak-erdat,
  ernam type vbak-ernam,
  kunnr type vbak-kunnr,
  posnr type vbap-posnr,
  matnr type vbap-matnr,
  matkl type vbap-matkl,
  zmeng type vbap-zmeng,
  zieme type vbap-zieme,
  werks type vbap-werks,
  lgort type vbap-lgort,
  end of ty_alvshow.
data: lt_alvshow type table of ty_alvshow,
      wa_alvshow type ty_alvshow.

*---------------------- 读取数据 ----------------------*
select
  a~vbeln a~erdat a~ernam kunnr
  posnr matnr matkl zmeng
  zieme werks lgort
from vbak as a inner join vbap as b
on a~vbeln = b~vbeln
into table lt_alvshow
  up to 10 rows.

*---------------------- 设置ALV布局 ----------------------*
ls_layout-zebra = 'X'.
ls_layout-detail_popup = 'X'.
ls_layout-detail_titlebar = '详细信息'.
ls_layout-f2code = '&ETA'.
ls_layout-colwidth_optimize = 'X'.

" 销售凭证
lv_colpos = 1.
ls_fieldcat-fieldname = 'VBELN'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-key = 'X'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-outputlen = '10'.
ls_fieldcat-seltext_m = '销售凭证'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 凭证日期
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'ERDAT'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-outputlen = '8'.
ls_fieldcat-seltext_m = '凭证日期'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 创建人
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'ERNAM'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-outputlen = '10'.
ls_fieldcat-seltext_m = '创建人'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 售达方
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'KUNNR'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-outputlen = '10'.
ls_fieldcat-seltext_m = '售达方'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 项目编码
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'POSNR'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'NUMC'.
ls_fieldcat-outputlen = '6'.
ls_fieldcat-seltext_m = '项目编码'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 物料
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'MATNR'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-outputlen = '18'.
ls_fieldcat-seltext_m = '物料'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 物料组
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'MATKL'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-outputlen = '9'.
ls_fieldcat-seltext_m = '物料组'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 数量
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'ZMENG'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'QUAN'.
ls_fieldcat-outputlen = '13'.
ls_fieldcat-seltext_m = '数量'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 单位
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'ZIEME'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = 'UNIT'.
ls_fieldcat-outputlen = '3'.
ls_fieldcat-seltext_m = '单位'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 工厂
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'WERKS'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-ref_tabname = 'VBAP'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

" 库存
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = 'LGORT'.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-ref_tabname = 'VBAP'.
append ls_fieldcat to lt_fieldcat.
clear ls_fieldcat.

*---------------------- 定义事件 ----------------------*

*ls_event-name = 'USER_COMMAND'. " 用户响应事件
*ls_event-form = 'FORM_USER_COMMAND'.
*append ls_event to  lt_event.
*
ls_event-name = 'TOP_OF_PAGE'. " 显示标题
ls_event-form = 'FRM_TOP_OF_PAGE'.
append ls_event to  lt_event.


*ls_event-name = 'PF_STATUS_SET'. " 设置gui状态  gui-status
*ls_event-form = 'FORM_PF_STATUS_SET'.
*append ls_event to  lt_event.



*---------------------- 显示ALV ----------------------*
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
*   I_CALLBACK_PROGRAM                = ' '
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = 'FRM_TOP_OF_PAGE'
    i_callback_top_of_page   = 'FRM_TOP_OF_PAGE'
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
   is_layout                         = ls_layout
   it_fieldcat                       = lt_fieldcat
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   it_events                         =  lt_event
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  tables
    t_outtab                          = lt_alvshow
 exceptions
   program_error                     = 1
   others                            = 2
          .



*---------------------------- 事件回调 -----------------------------------------*

*&---------------------------------------------------------------------*
*&      Form  form_user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form form_user_command using r_ucomm like sy-ucomm rs_selfield type slis_selfield.

endform.                    "FORM_USER_COMMAND
*&---------------------------------------------------------------------*
*&      Form  form_top_of_page
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form FRM_TOP_OF_PAGE.
 DATA it_listheader TYPE slis_t_listheader.
  DATA wa_listheader TYPE slis_listheader .
  DATA: l_line TYPE string.

  l_line = '负债表'.
  CLEAR wa_listheader.
  wa_listheader-typ = 'H'.    "Header
  wa_listheader-info = l_line.
  APPEND wa_listheader TO it_listheader.
  CLEAR wa_listheader.
  l_line = '负债表'.
  wa_listheader-typ = 'S'.    "Selection
  wa_listheader-info = l_line.
  APPEND wa_listheader TO it_listheader.

  CLEAR wa_listheader.
  l_line = '负债表'.
  wa_listheader-typ = 'S'.    "Selection
  wa_listheader-info = l_line.
  APPEND wa_listheader TO it_listheader.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheader
      i_logo             = 'UNICHARM'.
endform.                    "FORM_TOP_OF_PAGE

*&---------------------------------------------------------------------*
*&      Form  form_pf_status_set
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form form_pf_status_set using rt_extab type slis_t_extab.
  set pf-status 'STANDARD'.
endform.                    "FORM_PF_STATUS_SET
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
  • 人面猴
    序言：七十年代末，一起剥皮案震惊了整个滨河市，随后出现的几起案子，更是在滨河造成了极大的恐慌，老刑警刘岩，带你破解...
    沈念sama阅读 217,542评论 6赞 504
  • 死咒
    序言：滨河连续发生了三起死亡事件，死亡现场离奇诡异，居然都是意外死亡，警方通过查阅死者的电脑和手机，发现死者居然都...
    沈念sama阅读 92,822评论 3赞 394
  • 救了他两次的神仙让他今天三更去死
    文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
    开封第一讲书人阅读 163,912评论 0赞 354
  • 道士缉凶录：失踪的卖姜人
    文/不坏的土叔 我叫张陵，是天一观的道长。 经常有香客问我，道长，这世上最难降的妖魔是什么？ 我笑而不...
    开封第一讲书人阅读 58,449评论 1赞 293
  • 港岛之恋（遗憾婚礼）
    正文 为了忘掉前任，我火速办了婚礼，结果婚礼上，老公的妹妹穿的比我还像新娘。我一直安慰自己，他们只是感情好，可当我...
    茶点故事阅读 67,500评论 6赞 392
  • 恶毒庶女顶嫁案：这布局不是一般人想出来的
    文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
    开封第一讲书人阅读 51,370评论 1赞 302
  • 城市分裂传说
    那天，我揣着相机与录音，去河边找鬼。 笑死，一个胖子当着我的面吹牛，可吹牛的内容都是我干的。 我是一名探鬼主播，决...
    沈念sama阅读 40,193评论 3赞 418
  • 双鸳鸯连环套：你想象不到人心有多黑
    文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
    开封第一讲书人阅读 39,074评论 0赞 276
  • 万荣杀人案实录
    序言：老挝万荣一对情侣失踪，失踪者是张志新（化名）和其女友刘颖，没想到半个月后，有当地人在树林里发现了一具尸体，经...
    沈念sama阅读 45,505评论 1赞 314
  • 护林员之死
    正文 独居荒郊野岭守林人离奇死亡，尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,722评论 3赞 335
  • 白月光启示录
    正文 我和宋清朗相恋三年，在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 39,841评论 1赞 348
  • 活死人
    序言：一个原本活蹦乱跳的男人离奇死亡，死状恐怖，灵堂内的尸体忽然破棺而出，到底是诈尸还是另有隐情，我是刑警宁泽，带...
    沈念sama阅读 35,569评论 5赞 345
  • 日本核电站爆炸内幕
    正文 年R本政府宣布，位于F岛的核电站，受9级特大地震影响，放射性物质发生泄漏。R本人自食恶果不足惜，却给世界环境...
    茶点故事阅读 41,168评论 3赞 328
  • 男人毒药：我在死后第九天来索命
    文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹，春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,783评论 0赞 22
  • 一桩弑父案，背后竟有这般阴谋
    文/苍兰香墨 我抬头看了看天上的太阳。三九已至，却和暖如春，着一层夹袄步出监牢的瞬间，已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,918评论 1赞 269
  • 情欲美人皮
    我被黑心中介骗来泰国打工， 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留，地道东北人。 一个月前我还...
    沈念sama阅读 47,962评论 2赞 370
  • 代替公主和亲
    正文 我出身青楼，却偏偏与公主长得像，于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子，可洞房花烛夜当晚...
    茶点故事阅读 44,781评论 2赞 354