ABAP-ITS服务发布

1.首先要创建一个程序

  1 *&---------------------------------------------------------------------*
  2 *& Report ZTEST05
  3 *&---------------------------------------------------------------------*
  4 *&
  5 *&---------------------------------------------------------------------*
  6 REPORT ztest05.
  7 
  8 TYPES:BEGIN OF ty_data ,
  9         matnr TYPE marc-matnr,
 10         mtart TYPE marc-werks,
 11         xchar TYPE marc-xchar,
 12       END OF ty_data .
 13 
 14 DATA:gt_data  TYPE TABLE OF ty_data,
 15      gv_matnr TYPE mara-matnr.
 16 
 17 *ALV相关变量
 18 DATA:gs_alv      TYPE REF TO cl_gui_alv_grid, "ALV类
 19      gs_con      TYPE REF TO cl_gui_custom_container,                   "容器类
 20      g_dock      TYPE REF TO cl_gui_docking_container,
 21      gt_fieldcat TYPE lvc_t_fcat,                                       "列格式
 22      gs_fieldcat TYPE lvc_s_fcat,                                       "列格式-结构
 23      gs_stable   TYPE lvc_s_stbl,                                       "光标
 24      gs_layout   TYPE lvc_s_layo,                                       "输出格式
 25      gt_output   TYPE STANDARD TABLE OF sflight,
 26      ok_code     TYPE sy-ucomm.
 27 
 28 END-OF-SELECTION.
 29   CALL SCREEN '9000' .
 30 
 31 MODULE status_9000 OUTPUT.
 32 
 33   SET PF-STATUS 'STATUS_9000'.
 34   SET TITLEBAR 'TEXT01'.
 35 
 36 ENDMODULE.
 37 
 38 MODULE init OUTPUT.
 39 
 40   IF gs_alv IS INITIAL.
 41     PERFORM frm_create_alv.
 42     "设置布局
 43     PERFORM frm_set_layout.
 44     "设置字段目录
 45     PERFORM frm_set_fieldcat.
 46     "ALV展示
 47     PERFORM frm_alv_out.
 48   ELSE.
 49     PERFORM frm_refresh_alv.
 50   ENDIF.
 51 
 52 ENDMODULE.
 53 
 54 MODULE user_command_9000 INPUT.
 55   CALL METHOD gs_alv->check_changed_data."更改数据
 56   DATA(lv_code) = ok_code.
 57   CLEAR ok_code.
 58   CASE lv_code.
 59     WHEN '&F03' OR '&F12' OR '&F15'.
 60       LEAVE TO SCREEN 0.
 61     WHEN 'OK'.
 62       PERFORM frm_select.
 63     WHEN OTHERS.
 64   ENDCASE.
 65 ENDMODULE.
 66 
 67 FORM frm_select .
 68 
 69   IF gv_matnr IS NOT INITIAL .
 70 
 71     SELECT *
 72       INTO CORRESPONDING FIELDS OF TABLE @gt_data
 73       FROM marc
 74       WHERE matnr = @gv_matnr .
 75 
 76   ELSE .
 77 
 78     SELECT *
 79      INTO CORRESPONDING FIELDS OF TABLE @gt_data
 80      FROM marc .
 81 
 82   ENDIF .
 83 
 84 ENDFORM .
 85 
 86 FORM frm_set_fieldcat.
 87   DATA: lv_name    TYPE lvc_s_fcat-fieldname,
 88         lv_scrtext TYPE lvc_s_fcat-scrtext_l.
 89 
 90   REFRESH:gt_fieldcat.
 91   PERFORM frm_build_fieldcat USING :
 92     'MATNR'       ''   '' 'X'    'MARC'          'MATNR'       ''    '物料编码' ,
 93     'WERKS'       ''   '' 'X'    'MARC'          'WERKS'       ''    '工厂' ,
 94     'XCHAR'      ''  '' 'X'    'MARC'          'XCHAR'       ''    '批次' .
 95 
 96 ENDFORM.
 97 
 98 FORM frm_build_fieldcat USING pv_fieldname
 99                               pv_edit
100                               pv_no_out
101                               pv_no_zero
102                               pv_ref_table
103                               pv_ref_field
104                               pv_f4
105                               pv_reptext.
106 
107   CLEAR gs_fieldcat.
108   gs_fieldcat-fieldname    =  pv_fieldname.
109   gs_fieldcat-edit         =  pv_edit.
110   gs_fieldcat-no_out       =  pv_no_out.
111   gs_fieldcat-no_zero      =  pv_no_zero.
112   gs_fieldcat-ref_table    =  pv_ref_table.
113   gs_fieldcat-ref_field    =  pv_ref_field.
114   gs_fieldcat-f4availabl   =  pv_f4.
115   gs_fieldcat-coltext      =  pv_reptext.
116   gs_fieldcat-reptext      =  pv_reptext.
117   gs_fieldcat-scrtext_l    =  pv_reptext.
118   gs_fieldcat-scrtext_m    =  pv_reptext.
119   gs_fieldcat-scrtext_s    =  pv_reptext.
120 
121   APPEND gs_fieldcat TO gt_fieldcat.
122 
123 ENDFORM.
124 
125 FORM frm_set_layout .
126 
127   gs_layout-zebra = 'X'.
128   gs_layout-cwidth_opt = 'X'.
129 
130 ENDFORM.
131 
132 FORM frm_refresh_alv.
133 
134   CALL METHOD gs_alv->set_frontend_layout
135     EXPORTING
136       is_layout = gs_layout.
137 
138   gs_stable-row = 'X'.
139   gs_stable-col = 'X'.
140 
141   CALL METHOD gs_alv->refresh_table_display
142     EXPORTING
143       is_stable = gs_stable.
144 
145 ENDFORM.
146 
147 FORM frm_alv_out.
148 
149   DATA:gt_exclude TYPE ui_functions,
150        ls_exclude TYPE ui_func,
151        lv_save,
152        ls_variant TYPE  disvariant.
153   lv_save = 'A'.
154   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row .
155   APPEND ls_exclude TO gt_exclude.
156   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row .
157   APPEND ls_exclude TO gt_exclude.
158   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row .
159   APPEND ls_exclude TO gt_exclude.
160   ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row .
161   APPEND ls_exclude TO gt_exclude.
162   CALL METHOD gs_alv->set_table_for_first_display
163     EXPORTING
164 *     i_buffer_active               =
165 *     i_bypassing_buffer            =
166 *     i_consistency_check           =
167 *     i_structure_name              =
168       is_variant                    = ls_variant
169       i_save                        = lv_save
170 *     i_default                     = 'X'
171       is_layout                     = gs_layout
172 *     is_print                      =
173 *     it_special_groups             =
174       it_toolbar_excluding          = gt_exclude
175 *     it_hyperlink                  =
176 *     it_alv_graphics               =
177 *     it_except_qinfo               =
178 *     ir_salv_adapter               =
179     CHANGING
180       it_outtab                     = gt_data
181       it_fieldcatalog               = gt_fieldcat
182 *     it_sort                       =
183 *     it_filter                     =
184     EXCEPTIONS
185       invalid_parameter_combination = 1
186       program_error                 = 2
187       too_many_lines                = 3
188       OTHERS                        = 4.
189 
190 ENDFORM.
191 
192 FORM frm_create_alv.
193 
194   "后台运行，没有GUI，会有错误。
195   "判断是否后台运行
196   IF cl_gui_alv_grid=>offline( ) IS INITIAL.
197 
198     "前台运行
199     "创建容器
200     CREATE OBJECT gs_con
201       EXPORTING
202         container_name = 'GC_CON'.   "customer control控件的名称
203 
204     "将ALV植入到容器中
205     CREATE OBJECT gs_alv
206       EXPORTING
207         i_parent = gs_con.
208   ELSE .
209 
210     "后台运行
211     CREATE OBJECT gs_alv EXPORTING i_parent = g_dock.
212 
213   ENDIF .
214 
215 ENDFORM .