前台事务代码CO03时，需要开发报表来分析订单的成本，以实现批量操作

这里没有隐藏的增强，内表数据无法通过标准方法获得。因此，通过memory id 实现。插入代码如下：

核心代码如下：
利用函数K_KKB_KKBCS_ORDER_REPORT读取数据
标准报表的输出字段为结构KKBCS_OUT 结构KKBCS_OUT_KEY文本(例如HKTYP_TEXT）

全部代码如下：
&---------------------------------------------------------------------
*& Report ZFIR028
&---------------------------------------------------------------------
&---------------------------------------------------------------------
*& DEVELOPER < 开 发>:
*& CREATE ON <创建日期>:
*& FS NUMBER :
*& FUNCTIONAL CONSULTANT<功能顾问>:
*& DESCRIPTION :
*&
&---------------------------------------------------------------------

•          MODIFICATION LOG<程序修改日志时不要填写> 

*<版本> <日期> <开发者> <功能顾问> 任务编号 <请求号>
*VERSION DATE PROGRAMMER CORR. # IL# TRANSPORT

• 1 YYYY/MM/DD
  *DESCRIPTION<修改程序逻辑 版本1> :

*DESCRIPTION<修改程序逻辑 版本2> :
*
&---------------------------------------------------------------------

REPORT zfir028
MESSAGE-ID zfico01
LINE-COUNT 50 "行 MIN=35
LINE-SIZE 132 "列 MIN=124
NO STANDARD PAGE HEADING.

----------------------------------------------------------------------

• <1.1-声明 包含程序> INCLUDE PROGRAMS *
  ----------------------------------------------------------------------
  所有全局变量和类都写在 DEFINE INCLUDE 程序中》***
  INCLUDE zfir028_define.
  所有查询条件都写在上面 SEL INCLUDE 程序中》******
  INCLUDE zfir028_sel.
  所有的逻辑代码都写在上面 F0 INCLUDE 程序中》*******
  INCLUDE zfir028_f01.

•         <第二部分-声明 过程：即事件>  PROCESSING                * 

----------------------------------------------------------------------

• <2.1-在显示选择屏幕前触发程序的初始化，> *
• INITIAL PROCESS BEFORE THE STANDARD SELECTION SCREEN IS CALLED *
  ----------------------------------------------------------------------
  INITIALIZATION.
  "初始化处理
  PERFORM frm_intial.
  ----------------------------------------------------------------------
• <2.2-选择屏幕事件> *
• EVENTS THAT OCCUR WHILE THE SELECTION SCREEN IS BING PROCESSED *
  ----------------------------------------------------------------------
• 所有选择屏幕数据传输到程序后触发的事件
  AT SELECTION-SCREEN.

*选择屏幕PBO在显示屏选择前触发事件
AT SELECTION-SCREEN OUTPUT.

• 当对SELECT-OPTIONS当变量有多值输入时
  *AT SELECTION-SCREEN ON END OF S_MATKL.

• 选择屏幕BLOCK触发程序传输值{如点击执行，点击多选弹出其他窗口)
  *AT SELECTION-SCREEN ON BLOCK BL01.

• 按指定字段F4触发
  *AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.

• 按指定字段F1触发
  *AT SELECTION-SCREEN ON HELP-REQUEST FOR S_MATKL.

• 选择屏幕RADIOBUTTON GROUP触发到程序传输值
  *AT SELECTION-SCREEN ON RADIOBUTTON GROUP RG1.

• 触发了 FUNCTIONS BACK, EXIT, OR CANCEL
  AT SELECTION-SCREEN ON EXIT-COMMAND.

----------------------------------------------------------------------

• <2.3-在选择屏幕处理后触发的事件，程序默认开始事件> *
• EVENT OCCURS AFTER THE SELECTION SCREEN HAS BEEN PROCESSED *
  ----------------------------------------------------------------------
  START-OF-SELECTION.
  "权限检查
  PERFORM frm_authority_check.
  "检查输入数据的合法性
  PERFORM frm_validate_check.
  "获取数据
  PERFORM frm_get_data.
  "处理数据
  PERFORM frm_process_data.
  "调用屏幕
  PERFORM frm_call_screen.

---------------------------------------------------------------------

• <2.4-最后被触发的事件> *
• THE LAST OF THE EVENTS CALLED BY THE RUNTIME ENVIRONMENT TO OCCUR *
  ----------------------------------------------------------------------
  END-OF-SELECTION.
  "展示数据
  PERFORM frm_show_data.
  "保存数据
  PERFORM frm_save_data.
  "清空所有全局变量
  PERFORM frm_clear_global_data.

&---------------------------------------------------------------------
*& 包含 ZFIR028_F01
&---------------------------------------------------------------------
&---------------------------------------------------------------------

•          MODIFICATION LOG<程序修改日志,创建时不要填写>
  

*<版本> <日期> <开发者> <功能顾问> 任务编号 <请求号>
*VERSION DATE PROGRAMMER CORR. # IL# TRANSPORT

• 1 YYYY/MM/DD
  *DESCRIPTION<程序逻辑修改 版本1> :

*DESCRIPTION<程序逻辑修改 版本2> :
*
&---------------------------------------------------------------------
&---------------------------------------------------------------------
*& Form FRM_GET_DATA
&---------------------------------------------------------------------
*& 获取数据
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_get_data .
RANGES:r_status FOR bsvx-sttxt.
DATA:lt_status TYPE TABLE OF ty_status.
DATA:lv_line TYPE bsvx-sttxt.
DATA:lt_cat_lvc TYPE lvc_t_fcat.
DATA:lr_data TYPE REF TO data.
DATA:ls_varia TYPE disvariant.
DATA:lv_matnr TYPE mara-matnr.
DATA:lv_index TYPE i.
FIELD-SYMBOLS: TYPE table.

CLEAR:gt_out[].

SELECT a_aufnr,aobjnr,auart,gamng,gstri,gltri,
CAST( ’ ’ AS CHAR( 50 ) ) AS status
FROM aufk AS a
INNER JOIN afko AS b ON a~aufnr = b~aufnr
WHERE werks IN @s_werks
AND a~aufnr IN @s_aufnr
AND plnbez IN @s_matnr
AND auart IN @s_auart
AND gstrp IN @s_gstrp
AND gltrp IN @s_gltrp
INTO TABLE @DATA(lt_aufk).

"取符合屏幕输入条件的工单状态
"将系统状态输入条件拆分到内表中
SPLIT s_stat-low AT ‘/’ INTO TABLE lt_status.
LOOP AT lt_status INTO DATA(ls_status).
r_status[] = VALUE #( BASE r_status[] ( sign = ‘I’ option = ‘EQ’ low = ls_status-status ) ).
ENDLOOP.

LOOP AT lt_aufk INTO DATA(ls_aufk).

"取系统状态和用户状态
CLEAR:lv_line,lt_status[].
CALL FUNCTION 'STATUS_TEXT_EDIT'
  EXPORTING
    objnr            = ls_aufk-objnr

•   ONLY_ACTIVE      = 'X'
    spras            = sy-langu
  

•   BYPASS_BUFFER    = ' '
  IMPORTING
  

•   ANW_STAT_EXISTING       =
  

•   E_STSMA          =
    line             = lv_line
  

•   user_line        =
  

•   STONR            =
  EXCEPTIONS
    object_not_found = 1
    OTHERS           = 2.
  

  "筛选符合条件的系统状态
  SPLIT lv_line AT space INTO TABLE lt_status.
  LOOP AT lt_status INTO ls_status.
  IF ls_status-status IN r_status[].
  DATA(lv_ok) = ‘X’.
  EXIT.
  ENDIF.
  ENDLOOP.
  IF sy-subrc = 0.
  IF lv_ok IS INITIAL.
  DELETE lt_aufk.
  CONTINUE.
  ENDIF.
  ENDIF.
  CLEAR:lv_ok.

  ls_aufk-status = lv_line.
  MODIFY lt_aufk FROM ls_aufk.

  ENDLOOP.

  IF lt_aufk[] IS INITIAL.
  MESSAGE s001 WITH ‘找不到符合条件的数据’ DISPLAY LIKE ‘E’.
  LEAVE LIST-PROCESSING.
  ENDIF.

  SORT lt_aufk BY aufnr.

  SELECT a~aufnr,SUM( wemng ) AS wemng
  FROM afpo AS a
  INNER JOIN @lt_aufk AS b ON a~aufnr = b~aufnr
  GROUP BY a~aufnr
  INTO TABLE @DATA(lt_afpo).
  SORT lt_afpo BY aufnr.

  "调用标准函数取报表内表数据
  LOOP AT lt_aufk INTO ls_aufk.

  ls_varia-variant = ‘1SAP02’. "成本趋势 布局
  CALL FUNCTION ‘K_KKB_KKBCS_ORDER_REPORT’
  EXPORTING
  i_aufnr = ls_aufk-aufnr

•   I_CONTAINER      =
  

•   I_TIME_RANGE     =
  

•   I_PIVOT          =
  

•   I_ROLLD          =
  

•   I_POSNR          =
  

•   I_NINCL          =
    i_varia          = ls_varia
  

•   I_WIP            =
  

•   I_HEADER         =
  EXCEPTIONS
    object_not_found = 1
    no_data          = 2
    no_authority     = 3
    OTHERS           = 4.
  

  AT FIRST.
  "仅仅在第一次调用取fieldcat,原因为取用标准报表字段样式固定，不需要取多次，同时生成动态内表的方法多次调用会ABAP DUMP
  IMPORT fieldcat = lt_cat_lvc[] FROM MEMORY ID ‘ZFI028_FIELDCAT’.
  CALL METHOD cl_alv_table_create=>create_dynamic_table
  EXPORTING
  it_fieldcatalog = lt_cat_lvc
  IMPORTING
  ep_table = lr_data.
  ASSIGN lr_data->* TO .
  ENDAT.

  IMPORT outtab = FROM MEMORY ID ‘ZFI028_TABLE’.

  "根据标准报表数据，转换成当前报表字段
  LOOP AT ASSIGNING FIELD-SYMBOL().
  APPEND INITIAL LINE TO gt_out ASSIGNING FIELD-SYMBOL().
  -aufnr = ls_aufk-aufnr.
  -auart = ls_aufk-auart.
  ASSIGN COMPONENT ‘BEWEG_TEXT’ OF STRUCTURE TO FIELD-SYMBOL().
  IF IS ASSIGNED.
  -zfylx = . "业务类型
  UNASSIGN:.
  ENDIF.

  ASSIGN COMPONENT 'WERKS' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -werks = .
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'HERKU' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    SPLIT  AT  '/' INTO DATA(lv_value1) DATA(lv_value2).
    -matnr = lv_value2.
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'HERKU_TEXT' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -maktx = .
    UNASSIGN:.
  ENDIF.
  
  "物料组和物料组描述
  lv_matnr = -matnr.
  CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
    EXPORTING
      input        = lv_matnr
    IMPORTING
      output       = lv_matnr
    EXCEPTIONS
      length_error = 1
      OTHERS       = 2.
  
  SELECT SINGLE a~matkl,zspec,b~wgbez FROM mara AS a
                            INNER JOIN t023t AS b ON a~matkl = b~matkl AND b~spras = @sy-langu
                            INTO @DATA(ls_mara)
                            WHERE matnr = @lv_matnr.
  IF sy-subrc = 0.
    -zspec = ls_mara-zspec.
    -wgbez = ls_mara-wgbez.
  ENDIF.
  CLEAR:ls_mara.
  
  -status = ls_aufk-status.  "工单状态
  
  -menge = ls_aufk-gamng.  "总数量
  
  IF line_exists( lt_afpo[ aufnr = ls_aufk-aufnr ] ).
    -menge_sh = lt_afpo[ aufnr = ls_aufk-aufnr ]-wemng."收货数量
  ENDIF.
  
  ASSIGN COMPONENT 'MEINH' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -meins = .  "单位
    UNASSIGN:.
  ENDIF.
  
  -gstri = ls_aufk-gstri.
  -gltri = ls_aufk-gltri.
  
  ASSIGN COMPONENT 'MATNR' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -matnr1 = .  "费用编码
    SELECT SINGLE a~matkl,zspec,b~wgbez,c~maktx FROM mara AS a
                    INNER JOIN t023t AS b ON a~matkl = b~matkl AND b~spras = @sy-langu
                    INNER JOIN makt AS c ON a~matnr = c~matnr AND c~spras = @sy-langu
                    INTO @DATA(ls_mara1)
                    WHERE a~matnr = @-matnr1.
    IF sy-subrc = 0.
      -maktx1 = ls_mara1-maktx.
      -wgbez1 = ls_mara1-wgbez.
      -zspec1 = ls_mara1-zspec.
    ENDIF.
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'KSTAR' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -kstar = .  "成本要素
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'KSTAR_TEXT' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -kstar_txt = .  "成本要素描述
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'LSTAR' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -zylx = .  "作业类型
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'PLANMENG_G' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -menge_jh = .  "计划数量
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'PLANKOST_G' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -dmbtr_jh = .  "计划金额
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'ISTMENG_G' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -menge_sj = . "实际数量
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'ISTKOST_G' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -dmbtr_sj = . "实际金额
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'SOLLMENG_G' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -menge_mb = .  "目标数量（标准成本）
    UNASSIGN:.
  ENDIF.
  
  ASSIGN COMPONENT 'SOLLKOST_G' OF STRUCTURE  TO .
  IF  IS ASSIGNED.
    -dmbtr_mb = . "目标金额（标准成本）
    UNASSIGN:.
  ENDIF.
  

*PRICE_JHCB 计划成本单价 =计划金额/计划数量
IF -menge_jh <> 0.
-price_jhcb = -dmbtr_jh / -menge_jh.
ENDIF.

*PRICE_SJCB 实际成本单价
IF -menge_sj <> 0.
-price_sjcb = -dmbtr_sj / -menge_sj.
ENDIF.
*PRICE_MBCB 目标成本单价
IF -menge_mb <> 0.
-price_sjcb = -dmbtr_mb / -menge_mb.
ENDIF.

*MENGE_CY 计划与实际数量差异
-menge_cy = -menge_jh - -menge_sj.

*RATE_CY 计划与实际数量差异%
IF -menge_sj <> 0.
-rate_cy = -menge_cy / -menge_sj * 100.
ENDIF.

*DMBTR_CY 计划与实际金额差异
-dmbtr_cy = -dmbtr_jh - -dmbtr_sj.

*DMBTR_RATE_CY 计划与实际金额差异%
IF -dmbtr_sj <> 0.
-dmbtr_rate_cy = -dmbtr_cy / -dmbtr_sj * 100…
ENDIF.

*MENGE1_CY 目标与实际数量差异
-menge1_cy = -menge_mb - -menge_sj.

*RATE1_CY 目标与实际数量差异%
IF -menge_sj <> 0.
-rate1_cy = -menge1_cy / -menge_sj * 100…
ENDIF.

*DMBTR1_CY 目标与实际金额差异
-dmbtr1_cy = -dmbtr_mb - -dmbtr_sj.

*DMBTR1_RATE_CY 目标与实际金额差异%
IF -dmbtr_sj <> 0.
-dmbtr1_rate_cy = -dmbtr1_cy / -dmbtr_sj * 100…
ENDIF.

ENDLOOP.

FREE MEMORY ID 'ZFI028_FIELDCAT'.
FREE MEMORY ID 'ZFI028_TABLE'.
IF  IS ASSIGNED.
  CLEAR:.
ENDIF.

ENDLOOP.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_PROCESS_DATA
&---------------------------------------------------------------------
*& 处理数据
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_process_data .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_AUTHORITY_CHECK
&---------------------------------------------------------------------
*& 权限检查
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_authority_check .

ENDFORM.
&---------------------------------------------------------------------
*& FORM FRM_VALIDATE_CHECK
&---------------------------------------------------------------------
*& 数据合法性检查
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_validate_check .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_SHOW_DATA
&---------------------------------------------------------------------
*& 展示数据
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_show_data .

gs_layout-zebra = ‘X’ .
gs_layout-cwidth_opt = ‘X’.
CLEAR gt_fieldcat[].

PERFORM frm_generate_field_catalogu.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC’
EXPORTING
i_callback_program = sy-repid
i_bypassing_buffer = ‘X’
i_save = ‘A’
is_layout_lvc = gs_layout

• i_callback_pf_status_set = 'FRM_SET_PF'
  

• i_callback_user_command  = 'FRM_USER_COM'
  it_fieldcat_lvc    = gt_fieldcat[]
  i_default          = 'X'
  

  TABLES
  t_outtab = gt_out[]
  EXCEPTIONS
  program_error = 1.
  IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_SAVE_DATA
&---------------------------------------------------------------------
*& 保存数据
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_save_data .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_CLEAR_GLOBAL_DATA
&---------------------------------------------------------------------
*& 清空所有全局变量
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_clear_global_data .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_CALL_SCREEN
&---------------------------------------------------------------------
*& 调用屏幕
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_call_screen .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_INTIAL
&---------------------------------------------------------------------
*& 初始化处理
&---------------------------------------------------------------------
*& --> p1 text
*& <-- p2 text
&---------------------------------------------------------------------
FORM frm_intial .

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_GENERATE_FIELD_CATALOGU
&---------------------------------------------------------------------

•   text
  

----------------------------------------------------------------------

• –> p1 text
• <-- p2 text
  ----------------------------------------------------------------------
  FORM frm_generate_field_catalogu.

PERFORM frm_get_fieldcat TABLES gt_fieldcat USING ‘ZSFI028’.

LOOP AT gt_fieldcat ASSIGNING FIELD-SYMBOL().

IF -fieldname = 'MAKTX'.
  -coltext = '产品描述'.
ENDIF.

IF -fieldname = 'MENGE'.
  -coltext = '总数量'.
ENDIF.

IF -fieldname = 'MENGE_SH'.
  -coltext = '已交货数量'.
ENDIF.

IF -fieldname = 'MATNR1'.
  -coltext = '费用编码'.
ENDIF.

IF -fieldname = 'MAKTX1'.
  -coltext = '费用描述'.
ENDIF.

ENDLOOP.

ENDFORM.
&---------------------------------------------------------------------
*& Form FRM_GET_FIELDCAT
&---------------------------------------------------------------------

•   text
  

----------------------------------------------------------------------

• –> p1 text
• <-- p2 text
  ----------------------------------------------------------------------
  FORM frm_get_fieldcat TABLES ft_fieldcat_out USING fu_name.
  DATA:lt_fieldcat TYPE slis_t_fieldcat_alv.
  DATA:ls_fieldcat_out TYPE lvc_s_fcat.

CALL FUNCTION ‘REUSE_ALV_FIELDCATALOG_MERGE’
EXPORTING

• I_PROGRAM_NAME         =
  

• I_INTERNAL_TABNAME     =
  i_structure_name       = fu_name
  

• I_CLIENT_NEVER_DISPLAY = 'X'
  

• I_INCLNAME             =
  

• I_BYPASSING_BUFFER     =
  

• I_BUFFER_ACTIVE        =
  

  CHANGING
  ct_fieldcat = lt_fieldcat[]
  EXCEPTIONS
  inconsistent_interface = 1
  program_error = 2
  OTHERS = 3.
  IF sy-subrc <> 0.

• Implement suitable error handling here
  ENDIF.

  LOOP AT lt_fieldcat[] INTO DATA(ls_fieldcat).
  MOVE-CORRESPONDING ls_fieldcat TO ls_fieldcat_out.
  ls_fieldcat_out-coltext = ls_fieldcat-seltext_l.
  ls_fieldcat_out-ref_field = ls_fieldcat-fieldname.
  ls_fieldcat_out-ref_table = ls_fieldcat-ref_tabname.
  APPEND ls_fieldcat_out TO ft_fieldcat_out.
  ENDLOOP.

ENDFORM.
&---------------------------------------------------------------------
*& Form frm_alv_field
&---------------------------------------------------------------------

•   text
  

----------------------------------------------------------------------

• –> p1 text
• <-- p2 text
  ----------------------------------------------------------------------
  FORM frm_alv_field USING my_fieldcat TYPE lvc_t_fcat
  VALUE(p_reftable)
  VALUE(p_tabname)
  VALUE(p_reffield)
  VALUE(p_fieldname)
  VALUE(p_stext)
  VALUE(p_ltext)
  VALUE(p_zero)
  VALUE(p_outlenid)
  VALUE(p_outlen)
  VALUE(p_pos)
  VALUE(p_chk)
  VALUE(p_edit)
  VALUE(p_fixed).

gs_fieldcat-col_pos = p_pos.
gs_fieldcat-ref_table = p_reftable.
gs_fieldcat-tabname = p_tabname.
gs_fieldcat-ref_field = p_reffield.
gs_fieldcat-fieldname = p_fieldname.
gs_fieldcat-seltext = p_stext.
gs_fieldcat-seltext = p_ltext.
gs_fieldcat-seltext = p_ltext.
gs_fieldcat-reptext = p_stext.
gs_fieldcat-no_zero = p_zero .
gs_fieldcat-checkbox = p_chk.
gs_fieldcat-edit = p_edit.
gs_fieldcat-fix_column = p_fixed.
IF p_outlenid = ‘X’ .
gs_fieldcat-outputlen = p_outlen.
ENDIF.
APPEND gs_fieldcat TO my_fieldcat.
CLEAR gs_fieldcat.
ENDFORM. " frm_alv_field_COLUMN

&---------------------------------------------------------------------
*& 包含 ZFIR028_DEFINE
&---------------------------------------------------------------------
&---------------------------------------------------------------------

•          MODIFICATION LOG<程序修改日志,创建时不要填写>
  

*<版本> <日期> <开发者> <功能顾问> 任务编号 <请求号>
*VERSION DATE PROGRAMMER CORR. # IL# TRANSPORT

• 1 YYYY/MM/DD
  *DESCRIPTION<程序逻辑修改 版本1> :

*DESCRIPTION<程序逻辑修改 版本2> :
*
&---------------------------------------------------------------------

•        <第一部分---声明程序变量和类>  DECLARATION                 *
  

----------------------------------------------------------------------