-
转载资料推荐
1、ABAP动态内表(示例)
————————
https://www.jianshu.com/p/48b520a2bf62 -
主要实现代码
DATA: BEGIN OF gt_data OCCURS 0,
aufnr(12),
plnbez LIKE afko-plnbez,
maktx LIKE makt-maktx,
lgort LIKE resb-lgort,
zztext LIKE aufk-zztext,
sgt_scat LIKE afpo-sgt_scat,
verid LIKE mkal-verid,
gstrp LIKE afko-gstrp,
gltrp LIKE afko-gltrp,
wrf_charstc1 LIKE wrf_charvalt-atwrt,
atwtb1 LIKE wrf_charvalt-atwtb,
wrf_charstc2 LIKE wrf_charvalt-atwrt,
atwtb2 LIKE wrf_charvalt-atwtb,
wrf_charstc3 LIKE wrf_charvalt-atwrt,
atwtb3 LIKE wrf_charvalt-atwtb,
gamng LIKE afko-gamng,
gamng2 LIKE afko-gamng,
gmein LIKE afko-gmein,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
zzaufnr_h LIKE zpp013c001-zzaufnr_h,
zzaufnr_i LIKE zpp013c001-zzaufnr_i,
posnr LIKE zpp013c001-posnr,
vornr LIKE plpo-vornr,
aufnr_new LIKE afko-aufnr,
err_type TYPE c,
message(200) TYPE c,
r0001 TYPE c, "第一個生產版本沒有維護routing = 'X'
END OF gt_data.
...
DATA:gt_fieldcat TYPE lvc_t_fcat,
gs_fieldcat TYPE lvc_s_fcat,
gs_layout TYPE lvc_s_layo.
DATA gv_pos TYPE i .
DEFINE add_fieldcat .
CLEAR gs_fieldcat.
gv_pos = gv_po