ABAP 点击搜索帮助后取的值。
2013-11-14 17:08
363 查看
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * DDIC_STRUCTURE = ' ' RETFIELD = 'BUDAT1' * PVALKEY = ' ' DYNPPROG = SY-REPID DYNPNR = SY-DYNNR DYNPROFIELD = 'GS_HEADER-BUDAT1' * STEPL = 0 * WINDOW_TITLE = VALUE = 'BUDAT1' VALUE_ORG = 'S' * MULTIPLE_CHOICE = ' ' * DISPLAY = ' ' * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = 'VALUE_HELP_PRCNO_CALLBACK' * MARK_TAB = * IMPORTING * USER_RESET = TABLES VALUE_TAB = LT_HELP * FIELD_TAB = RETURN_TAB = RETURN_TAB * DYNPFLD_MAPPING = EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3 . IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ELSE. READ TABLE RETURN_TAB INDEX 1. IF SY-SUBRC EQ 0 . CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL' EXPORTING DATE_EXTERNAL = RETURN_TAB-FIELDVAL IMPORTING DATE_INTERNAL = GS_HEADER-BUDAT1 EXCEPTIONS DATE_EXTERNAL_IS_INVALID = 1 . IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. . ENDIF.
READ TABLE RETURN_TAB INDEX 1.
读取第一行即点击搜索帮助后返回的内容。
另外。函数CONVERT_DATE_TO_INTERNAL 将格式为2013.11.14的日期(字符串)转化为日期格式20131114(DATE)
相关文章推荐
- ABAP 搜索帮助的建立F4IF_INT_TABLE_VALUE_REQUEST
- ABAP开发中常用的两个F4搜索帮助函数的区别
- ABAP 中的搜索帮助
- ABAP 搜索帮助
- abap:非主键搜索帮助创建删除重复项的方法
- ABAP 用户选择屏幕 搜索帮助 实现代码
- ABAP 搜索帮助
- ABAP:ALV中自定义搜索帮助
- ABAP search help (搜索帮助) 五种方法
- ABAP 中的搜索帮助
- ABAP中SELECTION-SCREEN 内表直接作为搜索帮助
- ABAP search help (搜索帮助) 五种方法
- ABAP 绩效 组织单位 选择屏字段 搜索帮助
- abap:非主键搜索帮助创建删除重复项的方法
- ABAP 搜索帮助的建立F4IF_INT_TABLE_VALUE_REQUEST
- BU_DATE_CHAR abap screen 日期字段搜索帮助
- abap:alv (oo)自定义搜索帮助
- ABAP 选择界面搜索帮助
- BU_DATE_CHAR abap screen 日期字段搜索帮助
- ABAP中年月搜索帮助的实现