表条目写入请求
请求
在SE10只能看到表key,请求在释放时产生文件确定内容,通过“表内容”查看内容只能看到根据key关联的当前表内容,不是请求实际包含的表内容,请求实际包含的表条目在请求文件里
标准程序
RSTABLESIZE
代码实现
form frm_data_transport.
data: lv_order type e070-trkorr,
lv_task type e070-trkorr,
lt_ko200 type standard table of ko200,
lt_e071k type standard table of e071k,
lv_key type trobj_name,
lv_objects_appendable type trpari-s_checked.
loop at <gt_alv> assigning field-symbol(<ls_alv>).
assign component 'SEL' of structure <ls_alv> to field-symbol(<lv_sel>).
if sy-subrc = 0.
if <lv_sel> = 'X'.
data(lv_sel) = 'X'.
loop at gt_fieldcat into data(ls_fieldcat) where key = 'X'.
assign component ls_fieldcat-fieldname of structure <ls_alv> to field-symbol(<lv_field>).
lv_key = lv_key && <lv_field>.
endloop.
lt_e071k = value #( ( pgmid = 'R3TR' object = 'TABU'
objname = p_tab mastertype = 'TABU' mastername = p_tab
tabkey = lv_key
sortflag = '2' ) ).
clear lv_key.
endif.
endif.
endloop.
if lv_sel is initial.
message s001(00) with '至少选择一行'(119) display like 'E'.
else.
lt_ko200 = value #( ( pgmid = 'R3TR' object = 'TABU' obj_name = p_tab objfunc = 'K' ) ).
call function 'VIM_TR_OBJECTS_CHECK'
importing
we_order = lv_order
we_task = lv_task
we_objects_appendable = lv_objects_appendable
tables
wt_ko200 = lt_ko200
* wt_e071k = lt_e071k
* tt_tadir = lt_tadir
exceptions
cancel_edit_other_error = 1
show_only_other_error = 2.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
call function 'VIM_TR_OBJECTS_INSERT'
importing
we_order = lv_order
we_task = lv_task
tables
wt_ko200 = lt_ko200
wt_e071k = lt_e071k
exceptions
cancel_edit_other_error = 1
show_only_other_error = 2.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endif.
endform.
文章来自于网络,如果侵犯了您的权益,请联系站长删除!