*&---------------------------------------------------------------------*
*& Form get_fieldcat
*&---------------------------------------------------------------------*
FORM get_fieldcat USING P_FIELDCAT TYPE slis_t_fieldcat_alv.
data: fieldcat TYPE slis_fieldcat_alv.
DATA: BEGIN OF STRUCT,
fieldname(6),
ref_tabname(5),
ref_fieldname(6),
seltext_s(10),
COL_POS(3),
END OF STRUCT.
DEFINE MAKE.
clear: FIELDCAT,STRUCT.
STRUCT = &1.
FIELDCAT-fieldname = STRUCT-fieldname.
fieldcat-REF_tabname = STRUCT-ref_tabname.
FIELDCAT-REF_fieldname = STRUCT-REF_fieldname.
FIELDCAT-seltext_s = STRUCT-seltext_s.
FIELDCAT-col_pos = STRUCT-col_pos.
append FIELDCAT TO p_fieldcat.
END-OF-DEFINITION.
MAKE 'MATNR 物料 1 '.
MAKE 'MAKTX 物料描述 2 '.
MAKE 'VTEXT 物料类别 3 '.
MAKE 'BWKEY 工厂 4 '.
MAKE 'VBELN MSKA 5 '.
MAKE 'POSNR MSKA 6 '.
MAKE 'KUNNR MSKU 7 '.
MAKE 'LBKUM MBEW 8 '.
MAKE 'MEINS 单位 9 '.
MAKE 'STPRS MBEW 10 '.
MAKE 'SALK3 MBEW 11 '.
MAKE 'LABST MBEW LBKUM 前期库存数12 '.
MAKE 'LCOST MBEW SALK3 前期总金额13'.
MAKE 'LYMON 前期 14'.
MAKE 'SUDAY 呆滞天数 15'.
ENDFORM. " get_fieldcat