lr_tabdescr ?= cl_abap_structdescr=>describe_by_data( ls_value_tab ).
lt_dfies = cl_salv_data_descr=>read_structdescr( lr_tabdescr ).
LOOP AT lt_dfies INTO ls_dfies.
ls_dfies-lfieldname = ls_dfies-fieldname.
ls_dfies-offset = lv_offset.
CASE ls_dfies-fieldname.
WHEN 'EBELN'.
ls_dfies-scrtext_l = ls_dfies-scrtext_m = ls_dfies-scrtext_s = ls_dfies-reptext = '贸易采购订单号'.
WHEN 'EBELP'.
ls_dfies-scrtext_l = ls_dfies-scrtext_m = ls_dfies-scrtext_s = ls_dfies-reptext = '订单行项目'.
WHEN OTHERS.
ENDCASE.
lv_offset = lv_offset + ls_dfies-intlen.
MODIFY lt_dfies FROM ls_dfies.
ENDLOOP.
lt_value_tab = VALUE #( ( ebeln = '1' ebelp = '10' ) ( ebeln = '1' ebelp = '20' ) ( ebeln = '2' ebelp = '10' ) ).
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'EBELN'
dynpprog = sy-repid
dynpnr = '1000'
dynprofield = 'P_EBELN'
* WINDOW_TITLE = WINDOW_TITLE
value_org = 'S'
* IMPORTING
* USER_RESET = USER_RESET
TABLES
value_tab = lt_value_tab
field_tab = lt_dfies
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
搜索帮助数据表头自定义文本描述
最新推荐文章于 2024-06-04 13:46:00 发布