form display .
type-pools:slis.
data: sla type slis_layout_alv.
data dis_filed type slis_t_fieldcat_alv with header line.
define add_field.
dis_filed-fieldname = &1.
dis_filed-reptext_ddic = &2.
append dis_filed.
clear: dis_filed.
end-of-definition.
refresh dis_filed.
add_field 'MATNR ' ' 物料代码 '.
add_field 'MAKTX ' ' 物料描述 '.
add_field 'SPMON ' ' 分析期间 '.
add_field 'REPRS ' ' 为基期价格维护字段 '.
add_field 'BSPRS ' ' 比较期订单平均价 '.
add_field 'REPRS1' ' 比较期发票平均价 '.
add_field 'REMNG ' ' 比较期入库量 '.
add_field 'ZDCRE ' ' 单价降低 '.
add_field 'ZCOST ' ' 成本降低 '.
add_field 'ZRATE ' ' 成本降低率 '.
add_field 'ZDDP ' ' 订单总价格 '.
add_field 'ZDDN ' ' 订单总数量 '.
add_field 'ZFPP ' ' 发票总价格 '.
add_field 'MATKL ' ' 物料组 '.
add_field 'ZJQJG ' ' 基期发票价格 '.
add_field 'ZJQSL ' ' 基期发票数量 '.
add_field 'EBELN ' ' 采购定单号 '.
add_field 'EBELP ' ' 采购定单编号 '.
add_field 'SHKZG ' ' 借贷标示 '.
add_field 'BUDAT ' ' 凭证中的记账日期 '.
add_field 'DMBTR ' ' 金额 '.
add_field 'MENGE ' ' 数量 '.
add_field 'BSTMG ' ' 领取数量 '.
add_field 'WRBTR ' ' 凭证金额 '.
sla-colwidth_optimize = 'X'.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = sy-repid
it_fieldcat = dis_filed[]
i_save = 'A'
is_layout = sla
tables
t_outtab = itab.
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. " display