ooalv自定義按鈕、單擊、雙擊、列編輯切換的事件用法

時間  2020-12-30
原文   原文鏈接
1、需新建屏幕1001 並畫container：'CONT1'
2、需新建屏幕1002 並畫container：'CONT2'
3、定義屏幕1001、1002的ok_code和邏輯流
4、定義工具欄
 

程序代碼：
  1. TABLES t001w.

  3. TYPES:BEGIN OF typ_t001w ,
  4.      werks  TYPE t001w-werks,
  5.      name1  TYPE t001w-name1,
  6.      werks2 TYPE t001w-werks,
  7.   rowcolor  TYPE char10,
  8.   zcheckbox TYPE c,       "LAYOUT-CHECBOX   =  'ZCHECKBOX'.
  9. *  zflag     TYPE c,      "LAYOUT-BOX_FNAME = 'ZFLAG'.
  10.   zicon     TYPE char10, "LAYOUT-ICON      = 'ZICON'  圖標需要顯示的
  11.      END OF typ_t001w.

  13. TYPES:BEGIN OF typ_smf ,
  14.      werks  TYPE t001w-werks,
  15.      name1  TYPE t001w-name1,
  16.      END OF typ_smf.

  18. DATA:i_t001w  TYPE TABLE OF typ_t001w,"""""第一次ALV內表
  19.      i_detail TYPE TABLE OF typ_smf, """""單擊ALV內表列ZICON顯示的明細ALV內表
  20.      i_smf    TYPE TABLE OF typ_smf.""""SF內表

  22. DATA:fieldcat TYPE lvc_t_fcat,
  23.      grid TYPE REF TO cl_gui_alv_grid,  "alv控件名
  24.      grid2 TYPE REF TO cl_gui_alv_grid,  "alv控件名
  25.      g_container TYPE scrfname VALUE 'CONT1',"重新定義本地容器對象名
  26.      g_container2 TYPE scrfname VALUE 'CONT2',"重新定義本地容器對象名
  27.      is_layout TYPE lvc_s_layo,
  28.      ps_layout TYPE lvc_s_layo,
  29.      g_custom_container TYPE REF TO cl_gui_custom_container,
  30.      g_custom_container2 TYPE REF TO cl_gui_custom_container.

  32. DATA: ui_functions TYPE ui_functions. "隱藏按鈕的內表
  33. *********ALV上事件捕捉類
  34. DATA:gs_toolbar TYPE stb_button.             "按鈕
  35. CLASS alv_event_receiver DEFINITION DEFERRED. "聲明類對象
  36. *----------------------------------------------------------------------*
  37. *       CLASS alv_event_receiver DEFINITION
  38. *----------------------------------------------------------------------*
  39. *
  40. *----------------------------------------------------------------------*
  41. CLASS alv_event_receiver DEFINITION.                  "聲明類成員可見性
  42.   PUBLIC SECTION.                                      "定義相關類成員可以被程序中的所有對象調用
  43.     CLASS-METHODS:                                     "靜態方法
  44.       handle_toolbar                                   "初始化工具欄對象事件，如增加按鈕並設定其屬性
  45.         FOR EVENT toolbar OF cl_gui_alv_grid
  46.           IMPORTING e_object e_interactive,

  48.        handle_menu_button                              "用於在下拉菜單中增加選項
  49.          FOR EVENT menu_button OF cl_gui_alv_grid
  50.           IMPORTING e_object e_ucomm,

  52.        handle_user_command                             "工具欄中的按鈕的單擊事件
  53.           FOR EVENT user_command OF cl_gui_alv_grid
  54.             IMPORTING e_ucomm,

  56.        handle_hotspot_click
  57.           FOR EVENT hotspot_click OF cl_gui_alv_grid    "屏幕中的單擊事件，可以具體到某行某列，需要設置熱點
  58.             IMPORTING  e_row_id e_column_id es_row_no,

  60.        handle_double_click
  61.           FOR EVENT double_click OF cl_gui_alv_grid     "屏幕中的雙擊事件，可以具體到某行某列，即使設置熱點也必須雙擊
  62.             IMPORTING e_row e_column es_row_no.
  63. ENDCLASS.                    "alv_event_receiver DEFINITION
  64. *&---------------------------------------------------------------------*
  65. *&       Class (Implementation)  alv_event_receiver
  66. *&---------------------------------------------------------------------*
  67. *        Text
  68. *----------------------------------------------------------------------*
  69. CLASS alv_event_receiver IMPLEMENTATION.  "實現類方法
  70.   METHOD handle_toolbar.
  71.     gs_toolbar-function =  'B_SUM'.       "爲按鈕分配功能碼
  72.     gs_toolbar-icon     =  icon_display.  "爲按鈕分配圖標
  73.     gs_toolbar-text     =  '總行數'.      "爲按鈕分配文本
  74.     gs_toolbar-butn_type = '0'.           "定義按鈕類型，不填時默認爲0
  75.     APPEND gs_toolbar TO e_object->mt_toolbar. "添加按鈕到工具欄

  77.     gs_toolbar-function =  'B_PRINT'.       "爲按鈕分配功能碼
  78.     gs_toolbar-icon     =  icon_import.  "爲按鈕分配圖標
  79.     gs_toolbar-text     =  '轉儲訂單打印'.      "爲按鈕分配文本
  80.     gs_toolbar-checked  = 'X'.
  81.     gs_toolbar-butn_type = '0'.           "定義按鈕類型，不填時默認爲0
  82.     APPEND gs_toolbar TO e_object->mt_toolbar. "添加按鈕到工具欄

  84.     gs_toolbar-function =  'B_LIST'.      "爲按鈕分配功能碼
  85.     gs_toolbar-quickinfo = '自定義下拉菜單'.
  86.     gs_toolbar-icon     =  icon_biw_report_view.  "爲按鈕分配圖標
  87.     gs_toolbar-text     =  '下拉菜單'.      "爲按鈕分配文本
  88.     gs_toolbar-butn_type = '1'.           "定義按鈕類型
  89.     APPEND gs_toolbar TO e_object->mt_toolbar. "添加按鈕到工具欄

  91.     gs_toolbar-function =  'B_EDIT'.       "爲按鈕分配功能碼
  92.     gs_toolbar-icon     =  icon_change.  "爲按鈕分配圖標
  93.     gs_toolbar-text     =  '切換編輯狀態'.      "爲按鈕分配文本
  94.     gs_toolbar-checked  = 'X'.
  95.     gs_toolbar-butn_type = '0'.           "定義按鈕類型，不填時默認爲0
  96.     APPEND gs_toolbar TO e_object->mt_toolbar. "添加按鈕到工具欄
  97.   ENDMETHOD.                    "handle_toolbar
  98.   METHOD handle_menu_button.
  99.     IF e_ucomm = 'B_LIST'.
  100.       CALL METHOD e_object->add_function
  101.         EXPORTING
  102.           icon  = icon_display
  103.           fcode = 'B_SUM'
  104.           text  = '顯示ALV總數'.
  105.     ENDIF.
  106.   ENDMETHOD.                    "handle_menu_button
  107.   METHOD handle_user_command.
  108.     DATA sum TYPE i.
  109.     DATA text TYPE string.
  110.     DATA: lwa_t001w LIKE LINE OF i_t001w.
  111.     DATA: lwa_smf   LIKE LINE OF i_smf.

  113.     CASE e_ucomm.
  114.       WHEN  'B_SUM'.
  115.         DESCRIBE TABLE i_t001w[] LINES sum.
  116.         text = sum.
  117.         CONCATENATE  '當前表格中數據的總行數:' text  INTO text.
  118.         MESSAGE  text  TYPE 'I'. "爲何消息類型爲 E 時運行時顯示A類型，異常終止到初始界面
  119.       WHEN 'B_PRINT'.
  120.         LOOP AT i_t001w  INTO lwa_t001w WHERE  zcheckbox = 'X'.
  121.           lwa_smf-werks = lwa_t001w-werks.
  122.           lwa_smf-name1 = lwa_t001w-name1.
  123.           APPEND  lwa_smf TO i_smf.
  124.           CLEAR :lwa_t001w,lwa_smf.
  125.         ENDLOOP.
  126.         IF i_smf[] IS INITIAL.
  127.           MESSAGE '請至少選擇一行數據區打印！' TYPE 'E'. "E類型消息會轉化爲A類型，很蛋疼，求破！
  128.         ELSE.
  129.           PERFORM frm_print_data.  "這個沒具體寫。
  130.         ENDIF.
  131.       WHEN 'B_EDIT'.
  132.         IF grid->is_ready_for_input( ) EQ 0.
  133.           CALL METHOD grid->set_ready_for_input
  134.             EXPORTING
  135.               i_ready_for_input = 1.
  136.         ELSE.
  137.           CALL METHOD grid->set_ready_for_input
  138.             EXPORTING
  139.               i_ready_for_input = 0.
  140.         ENDIF.
  141.       WHEN OTHERS.
  142.     ENDCASE.
  143.   ENDMETHOD.                    "handle_user_command
  144.   "ALV內表展示處單擊事件捕捉，需要設置熱點對單擊列字段
  145.   METHOD handle_hotspot_click.
  146.     DATA:lwa_t001w LIKE LINE OF  i_t001w.
  147.     READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id. "判斷行號
  148.     CASE e_column_id-fieldname . "判斷列名
  149.       WHEN 'NAME1'.
  150.         CALL TRANSACTION 'ME51N' AND SKIP FIRST SCREEN. "隨便寫的
  151.       WHEN 'ZICON'.         "
  152.         SELECT werks
  153.                name1
  154.           INTO TABLE i_detail
  155.           FROM t001w
  156.           WHERE werks = lwa_t001w-werks2.
  157.         CLEAR lwa_t001w.
  158.         IF sy-subrc NE 0.
  159.           MESSAGE  'No result finding!' TYPE 'I'.
  160.         ELSE.
  161.           CALL SCREEN 1002.
  162.         ENDIF.
  163.       WHEN OTHERS.
  164.     ENDCASE.
  165. *    MESSAGE i001(00) WITH '當前行：' es_row_no-row_id '，航線代碼：' ls_lt001w-werks.
  166.   ENDMETHOD.                    "handle_hotspot_click
  167.   "ALV內表展示處雙擊擊事件捕捉，如果設置熱點雙擊不起作用
  168.   METHOD handle_double_click.
  169.     DATA:lwa_t001w LIKE LINE OF i_t001w.
  170.     READ TABLE i_t001w INTO lwa_t001w INDEX es_row_no-row_id.
  171.     IF e_column-fieldname = 'WERKS'.
  172.       SET PARAMETER ID 'AUN' FIELD lwa_t001w-werks.
  173.       CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
  174.     ENDIF.
  175.   ENDMETHOD.                    "handle_double_click

  177. ENDCLASS.               "alv_event_receiver
  178. START-OF-SELECTION.
  179.   CALL SCREEN 1001.

  181. *&---------------------------------------------------------------------*
  182. *&      Module  STATUS_1001  OUTPUT
  183. *&---------------------------------------------------------------------*
  184. *       text
  185. *----------------------------------------------------------------------*
  186. MODULE status_1001 OUTPUT.
  187.   SET PF-STATUS 'T001'.
  188. *  SET TITLEBAR 'xxx'.
  189. ENDMODULE.                 " STATUS_1001  OUTPUT
  190. *&---------------------------------------------------------------------*
  191. *&      Module  USER_COMMAND_1001  INPUT
  192. *&---------------------------------------------------------------------*
  193. *       text
  194. *----------------------------------------------------------------------*
  195. MODULE user_command_1001 INPUT.
  196.   FIELD-SYMBOLS <field> TYPE typ_t001w .
  197.   DATA: i TYPE i VALUE 0.
  198.   DATA ok_code TYPE sy-ucomm.
  199.   ok_code = sy-ucomm.
  200.   CLEAR sy-ucomm.

  202.   CASE ok_code.
  203.     WHEN 'BACK'.
  204.       LEAVE TO SCREEN 0.
  205.     WHEN 'EDIT'.
  206.       IF grid->is_ready_for_input( ) EQ 0.
  207.         CALL METHOD grid->set_ready_for_input
  208.           EXPORTING
  209.             i_ready_for_input = 1.
  210.       ELSE.
  211.         CALL METHOD grid->set_ready_for_input
  212.           EXPORTING
  213.             i_ready_for_input = 0.
  214.       ENDIF.
  215.     WHEN 'EXECU'.
  216.       SELECT * FROM t001w
  217.          INTO CORRESPONDING FIELDS OF TABLE i_t001w.
  218.       LOOP AT  i_t001w  ASSIGNING <field>  .
  219.         <field>-werks2 = <field>-werks.
  220.         <field>-zicon  = '@[email protected]'.  "圖標
  221.       ENDLOOP.

  223.       IF g_custom_container IS INITIAL.
  224.         PERFORM exclude_tb_functions CHANGING ui_functions. "隱藏某些按鈕
  225.         PERFORM frm_layout_set.
  226.         PERFORM frm_fieldcat_set.
  227.         PERFORM alv_show.
  228.       ELSE.
  229.         CALL METHOD grid->refresh_table_display. "刷新
  230.       ENDIF.
  231.     WHEN OTHERS.
  232.   ENDCASE.
  233. ENDMODULE.                 " USER_COMMAND_1001  INPUT
  234. *&---------------------------------------------------------------------*
  235. *&      Form  ALV_SHOW
  236. *&---------------------------------------------------------------------*
  237. *       text
  238. *----------------------------------------------------------------------*
  239. *  -->  p1        text
  240. *  <--  p2        text
  241. *----------------------------------------------------------------------*
  242. FORM alv_show .
  243.   CREATE OBJECT g_custom_container                        "創建容器對象
  244.         EXPORTING container_name = g_container.
  245.   CREATE OBJECT grid                                      "創建ALV對象
  246.         EXPORTING i_parent = g_custom_container.
  247.   CALL METHOD grid->register_edit_event                   "可編輯回傳方法
  248.     EXPORTING
  249.       i_event_id = grid->mc_evt_modified.
  250.   CALL METHOD grid->set_table_for_first_display
  251.     EXPORTING
  252. *     I_BUFFER_ACTIVE      =
  253. *     I_BYPASSING_BUFFER   =
  254. *     I_CONSISTENCY_CHECK  =
  255. *     I_STRUCTURE_NAME     = 'T001W'
  256. *     IS_VARIANT           =
  257.       i_save               = 'X'
  258. *     I_DEFAULT            = 'X'
  259.       is_layout            = is_layout
  260. *     IS_PRINT             =
  261. *     IT_SPECIAL_GROUPS    =
  262.       it_toolbar_excluding = ui_functions[]
  263. *     IT_HYPERLINK         =
  264. *     IT_ALV_GRAPHICS      =
  265. *     IT_EXCEPT_QINFO      =
  266. *     IR_SALV_ADAPTER      =
  267.     CHANGING
  268.       it_outtab            = i_t001w[]
  269.       it_fieldcatalog      = fieldcat[].
  270. *           IT_SORT                       =
  271. *           IT_FILTER                     =
  272. *         EXCEPTIONS
  273. *           INVALID_PARAMETER_COMBINATION = 1
  274. *           PROGRAM_ERROR                 = 2
  275. *           TOO_MANY_LINES                = 3
  276. *           others                        = 4
  277.   .

  279. ******註冊ALV中引用的事件
  280.   SET HANDLER alv_event_receiver=>handle_toolbar
  281.               alv_event_receiver=>handle_menu_button
  282.               alv_event_receiver=>handle_user_command
  283.               alv_event_receiver=>handle_hotspot_click
  284.               alv_event_receiver=>handle_double_click
  285.            FOR ALL INSTANCES.
  286. ****調用方法激活自定義工具對象
  287.   CALL METHOD grid->set_toolbar_interactive.
  288. ENDFORM.                    " ALV_SHOW

  290. *&---------------------------------------------------------------------*
  291. *&      Form  exclude_tb_functions
  292. *&---------------------------------------------------------------------*
  293. *       text
  294. *----------------------------------------------------------------------*
  295. *      -->PT_EXCLUDE text
  296. *----------------------------------------------------------------------*
  297. FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .
  298.   DATA ls_exclude TYPE ui_func.
  299.   ls_exclude = cl_gui_alv_grid=>mc_fc_filter . "過濾器
  300.   APPEND ls_exclude TO pt_exclude.
  301.   ls_exclude = cl_gui_alv_grid=>mc_fc_current_variant . "佈局更改
  302.   APPEND ls_exclude TO pt_exclude.
  303.   ls_exclude = cl_gui_alv_grid=>mc_fc_average ."平均值
  304.   APPEND ls_exclude TO pt_exclude.
  305.   ls_exclude = cl_gui_alv_grid=>mc_mb_sum ."求和
  306.   APPEND ls_exclude TO pt_exclude.
  307.   ls_exclude = cl_gui_alv_grid=>mc_mb_export .   "導出
  308.   APPEND ls_exclude TO pt_exclude.
  309.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut .        "剪切
  310.   APPEND ls_exclude TO pt_exclude.
  311.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row . "刪除行
  312.   APPEND ls_exclude TO pt_exclude.
  313.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row . "插入行
  314.   APPEND ls_exclude TO pt_exclude.
  315.   ls_exclude = cl_gui_alv_grid=>mc_fc_refresh .  "刷新
  316.   APPEND ls_exclude TO pt_exclude.
  317.   ls_exclude = cl_gui_alv_grid=>mc_fc_find ."查找
  318.   APPEND ls_exclude TO pt_exclude.
  319.   ls_exclude = cl_gui_alv_grid=>mc_fc_sort_asc .  "升序排列
  320.   APPEND ls_exclude TO pt_exclude.
  321.   ls_exclude = cl_gui_alv_grid=>mc_fc_sort_dsc .  "降序排列
  322.   APPEND ls_exclude TO pt_exclude.
  323.   ls_exclude = cl_gui_alv_grid=>mc_fc_views .   "視圖
  324.   APPEND ls_exclude TO pt_exclude.
  325.   ls_exclude = cl_gui_alv_grid=>mc_fc_print ."打印
  326.   APPEND ls_exclude TO pt_exclude.
  327.   ls_exclude = cl_gui_alv_grid=>mc_fc_detail . "詳細按鈕
  328.   APPEND ls_exclude TO pt_exclude.
  329.   ls_exclude = cl_gui_alv_grid=>mc_fc_graph . "顯示圖形
  330.   APPEND ls_exclude TO pt_exclude.
  331.   ls_exclude = cl_gui_alv_grid=>mc_fc_info . "最終用戶文檔
  332.   APPEND ls_exclude TO pt_exclude.
  333.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row . "附加行
  334.   APPEND ls_exclude TO pt_exclude.
  335.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row . "複製行
  336.   APPEND ls_exclude TO pt_exclude.
  337.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy . "複製文本
  338.   APPEND ls_exclude TO pt_exclude.
  339.   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo . "撤消
  340.   APPEND ls_exclude TO pt_exclude.
  341. ENDFORM .                    "exclude_tb_functions
  342. *&---------------------------------------------------------------------*
  343. *&      Form  FRM_LAYOUT_SET
  344. *&---------------------------------------------------------------------*
  345. *       text
  346. *----------------------------------------------------------------------*
  347. *  -->  p1        text
  348. *  <--  p2        text
  349. *----------------------------------------------------------------------*
  350. FORM frm_layout_set .
  351.   is_layout-zebra = 'X' .
  352.   is_layout-grid_title = '倉儲轉儲訂單跟蹤及打印' .
  353.   is_layout-smalltitle = 'X' .  "ALV 控制: 標題大小
  354.   is_layout-cwidth_opt = 'X' . "優化列寬
  355. *   is_layout-no_toolbar = 'X' . "隱藏按鈕
  356.   is_layout-sel_mode = 'A' . "flag選擇方式 A：行和列的選擇,無法選擇單元格  多行，多列  B
  357.   is_layout-info_fname = 'ROWCOLOR'.
  358. ENDFORM.                    " FRM_LAYOUT_SET
  359. *&---------------------------------------------------------------------*
  360. *&      Form  FRM_FIELDCAT_SET
  361. *&---------------------------------------------------------------------*
  362. *       text
  363. *----------------------------------------------------------------------*
  364. *  -->  p1        text
  365. *  <--  p2        text
  366. *----------------------------------------------------------------------*
  367. FORM frm_fieldcat_set .
  368.   DATA ls_fcat TYPE lvc_s_fcat .
  369.   CLEAR ls_fcat .
  370.   ls_fcat-fieldname = 'ZCHECKBOX' .
  371.   ls_fcat-coltext = '選擇'.
  372. *  ls_fcat-emphasize = 'C601' ."列顏色控制
  373.   ls_fcat-checkbox   = 'X'.
  374.   ls_fcat-edit       = 'X'.
  375.   APPEND ls_fcat TO fieldcat .

  377.   CLEAR ls_fcat .
  378.   ls_fcat-fieldname = 'WERKS' .
  379.   ls_fcat-inttype = 'C' .
  380.   ls_fcat-outputlen = '4' .
  381.   ls_fcat-coltext = '工廠'."Carrier ID.列標題
  382.   ls_fcat-seltext = 'AAA' ."ALV 控制: 對話功能的列標識符
  383.   ls_fcat-emphasize = 'C601' ."列顏色控制
  384. *  ls_fcat-hotspot   = 'X'.  「不能設置hotspot  否則double click事件無效
  385.   APPEND ls_fcat TO fieldcat .

  387.   CLEAR ls_fcat .
  388.   ls_fcat-fieldname = 'NAME1' .
  389.   ls_fcat-ref_table = 'T001W' .
  390.   ls_fcat-ref_field = 'NAME1' .
  391.   ls_fcat-outputlen = '30' .
  392.   ls_fcat-coltext = '工廠名稱' .
  393.   ls_fcat-hotspot   = 'X'.
  394.   APPEND ls_fcat TO fieldcat .

  396.   CLEAR ls_fcat .
  397.   ls_fcat-fieldname = 'WERKS2' .
  398.   ls_fcat-inttype = 'C' .
  399.   ls_fcat-outputlen = '4' .
  400.   ls_fcat-coltext = '工廠2號'."Carrier ID.列標題
  401.   ls_fcat-seltext = 'AAA' ."ALV 控制: 對話功能的列標識符
  402.   ls_fcat-emphasize = 'C601' ."列顏色控制
  403.   ls_fcat-edit    = 'X'.
  404.   APPEND ls_fcat TO fieldcat .

  406.   CLEAR ls_fcat .
  407.   ls_fcat-fieldname = 'ZICON' .
  408.   ls_fcat-coltext = '交貨明細憑證'."Carrier ID.列標題
  409.   ls_fcat-seltext = 'AAA' ."ALV 控制: 對話功能的列標識符
  410.   ls_fcat-icon    = 'X'.
  411.   ls_fcat-hotspot   = 'X'.
  412.   APPEND ls_fcat TO fieldcat .
  413.   CLEAR ls_fcat .
  414. ENDFORM.                    " FRM_FIELDCAT_SET
  415. *&---------------------------------------------------------------------*
  416. *&      Form  FRM_PRINT_DATA
  417. *&---------------------------------------------------------------------*
  418. *       text
  419. *----------------------------------------------------------------------*
  420. *  -->  p1        text
  421. *  <--  p2        text
  422. *----------------------------------------------------------------------*
  423. FORM frm_print_data .

  425. ENDFORM.                    " FRM_PRINT_DATA
  426. *&---------------------------------------------------------------------*
  427. *&      Module  STATUS_1002  OUTPUT
  428. *&---------------------------------------------------------------------*
  429. *       text
  430. *----------------------------------------------------------------------*
  431. MODULE status_1002 OUTPUT.
  432.   SET PF-STATUS 'T001'.
  433. *  SET TITLEBAR 'xxx'.
  434.   PERFORM  frm_alv_show_detail.
  435. ENDMODULE.                 " STATUS_1002  OUTPUT
  436. *&---------------------------------------------------------------------*
  437. *&      Form  FRM_ALV_SHOW_DETAIL
  438. *&---------------------------------------------------------------------*
  439. *       text
  440. *----------------------------------------------------------------------*
  441. *  -->  p1        text
  442. *  <--  p2        text
  443. *&---------------------------------------------------------------------*
  444. *&      Module  STATUS_1002  OUTPUT
  445. *&---------------------------------------------------------------------*
  446. *       text
  447. *----------------------------------------------------------------------*
  448. MODULE status_1002 OUTPUT.
  449.   SET PF-STATUS 'T001'.
  450. *  SET TITLEBAR 'xxx'.
  451.   PERFORM  frm_alv_show_detail.
  452. ENDMODULE.                 " STATUS_1002  OUTPUT
  453. *&---------------------------------------------------------------------*
  454. *&      Form  FRM_ALV_SHOW_DETAIL
  455. *&---------------------------------------------------------------------*
  456. *       text
  457. *----------------------------------------------------------------------*
  458. *  -->  p1        text
  459. *  <--  p2        text
  460. *----------------------------------------------------------------------*
  461. FORM frm_alv_show_detail .
  462.   DATA: ls_fcat  TYPE lvc_s_fcat ,
  463.        fieldcat2 TYPE lvc_t_fcat.
  464.   ls_fcat-fieldname = 'WERKS' .
  465.   ls_fcat-coltext = '工廠'."Carrier ID.列標題
  466.   APPEND ls_fcat TO fieldcat2 .
  467.   CLEAR ls_fcat .
  468.   ls_fcat-fieldname = 'NAME1' .
  470.   SET PF-STATUS 'T001'.
  471. *  SET TITLEBAR 'xxx'.
  472.   PERFORM  frm_alv_show_detail.
  473. ENDMODULE.                 " STATUS_1002  OUTPUT
  474. *&---------------------------------------------------------------------*
  475. *&      Form  FRM_ALV_SHOW_DETAIL
  476. *&---------------------------------------------------------------------*
  477. *       text
  478. *----------------------------------------------------------------------*
  479. *  -->  p1        text
  480. *  <--  p2        text
  481. *----------------------------------------------------------------------*
  482. FORM frm_alv_show_detail .
  483.   DATA: ls_fcat  TYPE lvc_s_fcat ,
  484.        fieldcat2 TYPE lvc_t_fcat.
  485.   ls_fcat-fieldname = 'WERKS' .
  486.   ls_fcat-coltext = '工廠'."Carrier ID.列標題
  487.   APPEND ls_fcat TO fieldcat2 .
  488.   CLEAR ls_fcat .
  489.   ls_fcat-fieldname = 'NAME1' .
  490.   ls_fcat-coltext = '工廠名稱'.
  491.   APPEND ls_fcat TO fieldcat2 .
  492.   CLEAR ls_fcat .

  494. *&      Form  FRM_ALV_SHOW_DETAIL
  495. *&---------------------------------------------------------------------*
  496. *       text
相關文章
相關標籤/搜索
每日一句
    每一个你不满意的现在，都有一个你没有努力的曾经。
本站公眾號
   歡迎關注本站公眾號,獲取更多信息
聯繫我們 最近搜索 最新文章 沪ICP备13005482号-10 MyBatis教程 SQL 教程 MySQL教程 Java 教程 Thymeleaf 教程 Hibernate教程 Spring教程 Redis教程