企业官网建设流程全解析

在screen界面增加POV时间

PROCESS ON VALUE-REQUEST. FIELD ZTMM002-LEG MODULE F4_HELP_LEG."ZTMM002-LEG屏幕定义字段

单个值赋值

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'LEG' "it_itaba中的使用字段 dynpprog = sy-repid dynpnr = sy-dynnr dynprofield = 'ZTMM002-LEG'"屏幕字段 value_org = 'S' TABLES value_tab = it_itaba "获取帮助的表 * dynpfld_mapping = it_map EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3. IF sy-subrc <> 0. ENDIF.

多个值赋值

*&---------------------------------------------------------------------* *& Module F4_HELP_LEG INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE f4_help_leg INPUT. DATA it_re TYPE TABLE OF ddshretval. DATA it_itabb TYPE TABLE OF ztmm002b. IF it_itabb IS INITIAL. SELECT * FROM ztmm002b INTO CORRESPONDING FIELDS OF TABLE it_itabb. ENDIF. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'LEG' dynpprog = sy-repid dynpnr = sy-dynnr dynprofield = 'ZTMM002-LEG' value_org = 'S' callback_program = sy-repid callback_form = 'CB_FORM' display = 'F' " <– Force TABLES value_tab = it_itabb return_tab = it_re EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3. ENDMODULE. *&---------------------------------------------------------------------* *& Form cb_form *&---------------------------------------------------------------------* FORM cb_form TABLES record_tab STRUCTURE seahlpres CHANGING shlp TYPE shlp_descr_t callcontrol LIKE ddshf4ctrl. DATA: interface LIKE LINE OF shlp-interface. READ TABLE shlp-interface INTO interface INDEX 1. interface-shlpfield+4(1) = '4'. "增加赋值的表值，取值来源ITABB的列数 interface-valfield = 'ZTMM002-DICHTE'."另外的屏幕赋值字段 APPEND interface TO shlp-interface. ENDFORM.