效果
MODULE init_alv OUTPUT.
PERFORM init_alv.
PERFORM init_alv2.
PERFORM init_alv3.
ENDMODULE.
FORM init_alv .
" ------------------display avv1-------------------------
IF gs_alv IS INITIAL .
"-------------------build fieldcat ----------------
DEFINE %%add_fieldcat .
CLEAR gs_fieldcat .
gv_pos = gv_pos + 1 .
gs_fieldcat-col_pos = gv_pos .
gs_fieldcat-fieldname = &1 .
gs_fieldcat-scrtext_m = &2 .
gs_fieldcat-outputlen = &3.
CASE &1 .
WHEN 'GYS' .
gs_fieldcat-edit = 'X' . "单列可修改
ENDCASE .
APPEND gs_fieldcat TO gt_fieldcat .
END-OF-DEFINITION .
%%add_fieldcat:
* 'ZYMD' '日期' '10',
* 'ZXUHH' '序号' '10' ,
* 'ZGGDM' '规格代码' '10' ,
* 'ZGGMC' '规格名称' '20',
* 'ZPACK' '包装方式' '10',
* 'ZNUM ' '数量' '10' .
* 'ZYMD' '日期' '10',
* 'ZXUHH' '系统订单编号' '10',
'ZCOL1' '下单日期' '10',
'ZCOL2' '下单日期' '10',
'ZCOL3' '客户参考日期/发货日期' '10',
'ZCOL4' '单据类型' '10',
'ZCOL5' '销售部门' '10',
'ZCOL6' '客户参考/平台单号' '10',
'ZCOL7' '名称/旺旺号' '10',
'ZSPBH' '商品编号' '10',
'ZGGDM' '规格代码' '10',
'ZGGMC' '规格名称' '10',
'ZPACK' '包装方式' '10',
'ZNUM' '数量' '10