ABAP 实现内表自定义的F4功能
2024-09-02 20:07:56
“实现多列内容的F4功能
REPORT Z_TAB_TEST.
TYPES: shlp_descr TYPE shlp_descr .
DATA: BEGIN OF itab OCCURS 0 ,
matnr LIKE mara-matnr ,
maktx LIKE makt-maktx ,
END OF itab.
DATA: return_tab TYPE ddshretval OCCURS 0 .
matnr LIKE mara-matnr ,
maktx LIKE makt-maktx ,
END OF itab.
DATA: return_tab TYPE ddshretval OCCURS 0 .
PARAMETERS: p_matnr LIKE itab-matnr ,
p_maktx LIKE itab-maktx .
p_maktx LIKE itab-maktx .
INITIALIZATION.
SELECT matnr maktx INTO TABLE itab FROM makt UP TO 20 ROWS
WHERE spras = 1.
SELECT matnr maktx INTO TABLE itab FROM makt UP TO 20 ROWS
WHERE spras = 1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_matnr .
PERFORM f4.
PERFORM f4.
*&---------------------------------------------------------------------*
*& Form f4
*&---------------------------------------------------------------------*
FORM f4.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'MATNR'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'P_MATNR'
value_org = 'S'
callback_program = sy-repid
callback_form = 'CB_FORM'
TABLES
value_tab = itab
return_tab = return_tab
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
ENDFORM. "f4
*& Form f4
*&---------------------------------------------------------------------*
FORM f4.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'MATNR'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'P_MATNR'
value_org = 'S'
callback_program = sy-repid
callback_form = 'CB_FORM'
TABLES
value_tab = itab
return_tab = return_tab
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
ENDFORM. "f4
*&---------------------------------------------------------------------*
*& Form cb_form
*&---------------------------------------------------------------------*
FORM cb_form TABLES record_tab STRUCTURE seahlpres
CHANGING shlp TYPE shlp_descr
callcontrol LIKE ddshf4ctrl.
DATA: interface LIKE LINE OF shlp-interface.
*& Form cb_form
*&---------------------------------------------------------------------*
FORM cb_form TABLES record_tab STRUCTURE seahlpres
CHANGING shlp TYPE shlp_descr
callcontrol LIKE ddshf4ctrl.
DATA: interface LIKE LINE OF shlp-interface.
READ TABLE shlp-interface INTO interface INDEX 1.
interface-shlpfield+4(1) = '2'.
interface-valfield = 'P_MAKTX'.
APPEND interface TO shlp-interface.
ENDFORM. "bo_callback_form
interface-shlpfield+4(1) = '2'.
interface-valfield = 'P_MAKTX'.
APPEND interface TO shlp-interface.
ENDFORM. "bo_callback_form
最新文章
- 不用git将项目push到码云上
- ios 截屏
- JavaScript学习02 基础语法
- ORACLE 分析函数整理汇总
- eclipse字体颜色设置
- MySQL 创建数据表
- ConcurrentHashMap实现原理及源码分析
- 如何理解 Python 的赋值逻辑
- 测试left join和where的优先级
- Bootstrap3 表格-条纹状表格
- django(权限、认证)系统——自定义UserProfile储存User额外信息
- IIS中 flv、swf 文件无法播放
- C++程序设计-面向对象
- 用PRODUCT_COPY_FILES拷贝文件夹
- 详解C#特性和反射(四)
- sql点滴—mysql中查询表的信息
- C++ smart pointer智能指针
- Bypass 360主机卫士SQL注入防御(多姿势)
- 洛谷P2414 阿狸的打字机【AC自动机】【fail树】【dfs序】【树状数组】
- LNMT(Linux+Nginx+MySQL+Tomcat)常见性能参数调优
热门文章
- springboot集成dubbo服务报错No provider available for the service
- 牛客练习赛47 DongDong数颜色 (莫队算法)
- 【python基础】字符串方法汇总
- 入门Leaflet之小Demo
- 2017 去哪儿网 研发4.18(offer)
- 【leetcode】960. Delete Columns to Make Sorted III
- sublime text 编辑器的操作
- Unity3D_(游戏)贪吃蛇
- 数据聚类算法-K-means算法
- hive 分组排序函数 row_number() over(partition by "; "; order by "; ";desc