FORM fieldcat_init USING u_er_fieldcat TYPE slis_t_fieldcat_alv. DATA: afieldcat TYPE slis_fieldcat_alv, pos TYPE i. CLEAR pos. DEFINE d_get_field. pos = pos + 1. clear afieldcat. afieldcat-col_pos = pos. afieldcat-fieldname = &1. afieldcat-seltext_l = &2. afieldcat-quantity(3) = &3. afieldcat-edit = &4. afieldcat-REF_fieldname = &5. afieldcat-REF_tabname = &6. append afieldcat to u_er_fieldcat. END-OF-DEFINITION. IF p1 = 'X'. d_get_field 'TABIX' '序号' '' '' '' ''. d_get_field 'RSNUM' '预留号码' '' '' '' ''. d_get_field 'RSPOS' '预留行号' '' '' '' ''. d_get_field 'BWART' '移动类型' '' '' '' ''. d_get_field 'MATNR' '物料号' '' '' '' ''. d_get_field 'MAKTX' '物料描述' '' '' '' ''. d_get_field 'RSNUM' '预留数量' '' '' '' ''. d_get_field 'MEINS' '单位' '' '' '' ''. d_get_field 'BDTER' '需求日期' '' '' '' ''. d_get_field 'ENMNG' '领料数量' '' 'X' 'ENMNG' 'RESB'. d_get_field 'SWMNG' '尚未领取数量' '' '' '' ''. d_get_field 'WERKS' '工厂' '' '' '' ''. d_get_field 'NAME1' '工厂名称' '' '' '' ''. d_get_field 'LGORT' '库存地点' '' '' '' ''. d_get_field 'LGOBE' '库存地点名称' '' '' '' ''. d_get_field 'KOSTL' '成本中心' '' '' '' ''. d_get_field 'KTEXT' '成本中心名称' '' '' '' ''. d_get_field 'AUFNR' '内部订单' '' '' '' ''. d_get_field 'LLTYP' '领料类型' '' '' '' ''.