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的內(nèi)表
      ls_fieldcat type slis_fieldcat_alv,
      ls_layout type slis_layout_alv, " alv格式控制的結構體 layout
      lt_event type slis_t_event, " 事件內(nèi)表
      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.

*---------------------- 讀取數(shù)據(jù) ----------------------*
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.

" 創(chuàng)建人
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 = '創(chuàng)建人'.
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.

" 數(shù)量
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 = '數(shù)量'.
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狀態(tài)  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
          .



*---------------------------- 事件回調(diào) -----------------------------------------*

*&---------------------------------------------------------------------*
*&      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
最后編輯于 ：
?著作權歸作者所有,轉載或內(nèi)容合作請聯(lián)系作者
  • 人面猴
    序言：七十年代末蜻拨，一起剝皮案震驚了整個濱河市食拜，隨后出現(xiàn)的幾起案子窘奏，更是在濱河造成了極大的恐慌票从，老刑警劉巖，帶你破解...
    沈念sama閱讀 221,888評論 6贊 515
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件濒旦，死亡現(xiàn)場離奇詭異误墓，居然都是意外死亡唁影，警方通過查閱死者的電腦和手機，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 94,677評論 3贊 399
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進店門遇伞，熙熙樓的掌柜王于貴愁眉苦臉地迎上來辙喂，“玉大人，你說我怎么就攤上這事∥『模” “怎么了秋麸？”我有些...
    開封第一講書人閱讀 168,386評論 0贊 360
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵，是天一觀的道長芍锦。 經(jīng)常有香客問我竹勉，道長，這世上最難降的妖魔是什么娄琉？ 我笑而不...
    開封第一講書人閱讀 59,726評論 1贊 297
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任次乓，我火速辦了婚禮，結果婚禮上孽水，老公的妹妹穿的比我還像新娘票腰。我一直安慰自己，他們只是感情好女气，可當我...
    茶點故事閱讀 68,729評論 6贊 397
  • 惡毒庶女頂嫁案：這布局不是一般人想出來的
    文/花漫 我一把揭開白布杏慰。 她就那樣靜靜地躺著，像睡著了一般炼鞠。 火紅的嫁衣襯著肌膚如雪缘滥。 梳的紋絲不亂的頭發(fā)上，一...
    開封第一講書人閱讀 52,337評論 1贊 310
  • 城市分裂傳說
    那天谒主，我揣著相機與錄音朝扼，去河邊找鬼。 笑死霎肯，一個胖子當著我的面吹牛擎颖，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播观游，決...
    沈念sama閱讀 40,902評論 3贊 421
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼搂捧，長吁一口氣：“原來是場噩夢啊……” “哼！你這毒婦竟也來了懂缕？” 一聲冷哼從身側響起允跑，我...
    開封第一講書人閱讀 39,807評論 0贊 276
  • 萬榮殺人案實錄
    序言：老撾萬榮一對情侶失蹤，失蹤者是張志新（化名）和其女友劉穎搪柑，沒想到半個月后吮蛹，有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體，經(jīng)...
    沈念sama閱讀 46,349評論 1贊 318
  • ?護林員之死
    正文 獨居荒郊野嶺守林人離奇死亡拌屏，尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 38,439評論 3贊 340
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年潮针，在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片倚喂。...
    茶點故事閱讀 40,567評論 1贊 352
  • 活死人
    序言：一個原本活蹦亂跳的男人離奇死亡每篷，死狀恐怖瓣戚，靈堂內(nèi)的尸體忽然破棺而出，到底是詐尸還是另有隱情焦读，我是刑警寧澤子库，帶...
    沈念sama閱讀 36,242評論 5贊 350
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布，位于F島的核電站矗晃，受9級特大地震影響仑嗅，放射性物質發(fā)生泄漏。R本人自食惡果不足惜张症，卻給世界環(huán)境...
    茶點故事閱讀 41,933評論 3贊 334
  • 男人毒藥：我在死后第九天來索命
    文/蒙蒙 一仓技、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧俗他，春花似錦脖捻、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,420評論 0贊 24
  • 一樁弒父案地沮，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至羡亩，卻和暖如春摩疑，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背畏铆。 一陣腳步聲響...
    開封第一講書人閱讀 33,531評論 1贊 272
  • 情欲美人皮
    我被黑心中介騙來泰國打工雷袋， 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留，地道東北人及志。 一個月前我還...
    沈念sama閱讀 48,995評論 3贊 377
  • 代替公主和親
    正文 我出身青樓，卻偏偏與公主長得像寨腔，于是被迫代替她去往敵國和親速侈。 傳聞我的和親對象是個殘疾皇子，可洞房花燭夜當晚...
    茶點故事閱讀 45,585評論 2贊 359