SAP SE38 DEMO: DEMO_CALL_SELECTION_SCREEN创建屏幕SELECTION-SCREEN BEGIN OF SCREEN 200 AS WINDOW. . PARAMETERS p_zddlx TYPE ztpp100a_17-zddlx OBLIGATORY MODIF ID x. PARAMETERS p_zlcjd TYPE ztpp100a_17-zlcjd OBLIGATORY MODIF ID x. PARAMETERS p_zxh TYPE ztpp100a_17-zxh. PARAMETERS p_zjdsm TYPE ztpp100a_17-zjdsm. PARAMETERS p_zsfyfj TYPE ztpp100a_17-zsfyfj VISIBLE LENGTH 4 AS LISTBOX. PARAMETERS p_zfzrgh TYPE ztpp100a_17-zfzrgh. PARAMETERS p_zfzrxm TYPE ztpp100a_17-zfzrxm MODIF ID z. SELECTION-SCREEN END OF SCREEN 200.通过 CALL SELECTION-SCREEN 201 STARTING AT 1 1. 调用CALL SELECTION-SCREEN 201 STARTING AT 1 1.输入完值判断他点的执行 还是 X 可以通过 SY-SUBRC判断CALL SELECTION-SCREEN 200 STARTING AT 1 1. IF sy-subrc 0. ls_ztpp100a_17-zddlx p_zddlx. ls_ztpp100a_17-zlcjd p_zlcjd. ls_ztpp100a_17-zxh p_zxh. ls_ztpp100a_17-zjdsm p_zjdsm. ls_ztpp100a_17-zsfyfj p_zsfyfj. ls_ztpp100a_17-zfzrgh p_zfzrgh. ls_ztpp100a_17-zfzrxm p_zfzrxm. ls_ztpp100a_17-werks p_werks. ls_ztpp100a_17-crnam sy-uname. ls_ztpp100a_17-crdat sy-datum. ls_ztpp100a_17-crtim sy-uzeit. SELECT COUNT(*) FROM ztpp100a_02 WHERE werks p_werks AND zbh_pp p_zddlx. IF sy-subrc 0. MESSAGE p_zddlx TYPE S DISPLAY LIKE E. RETURN. ENDIF. SELECT COUNT(*) FROM ztpp100a_11 WHERE werks p_werks AND zbh_gh p_zfzrgh. IF sy-subrc 0. MESSAGE p_zfzrgh TYPE S DISPLAY LIKE E. RETURN. ENDIF. SELECT COUNT(*) FROM ztpp100a_17 WHERE zddlx ls_ztpp100a_17-zddlx AND zlcjd ls_ztpp100a_17-zlcjd AND werks p_werks. IF sy-subrc IS INITIAL. MESSAGE TYPE S DISPLAY LIKE E. RETURN. ENDIF. INSERT ztpp100a_17 FROM ls_ztpp100a_17. COMMIT WORK AND WAIT. SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data FROM ztpp100a_17 WHERE werks p_werks AND crdat IN s_crdat AND crnam IN s_crnam. ELSE. MESSAGE 取消操作 TYPE S DISPLAY LIKE E. RETURN. ENDIF.做隐藏字段 是否可编辑 下拉框赋值可以通过 AT SELECTION-SCREEN OUTPUT.设置AT SELECTION-SCREEN OUTPUT. IF p_lists wwwww. DATA: vid TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list. value-key Y. value-text 是. APPEND value TO list. value-key N. value-text 否. APPEND value TO list. CALL FUNCTION VRM_SET_VALUES EXPORTING id P_ZSFYFJ values list. LOOP AT SCREEN. IF screen-group1 X AND gv_ucomm ZXG OR screen-group1 Z. screen-input 0. MODIFY SCREEN. ENDIF. ENDLOOP. ENDIF.对字段做搜索帮助 可以通过 AT SELECTION-SCREEN ON VALUE-REQUEST 事件设置如果想要 某两个字段做关联 在搜索帮助 选完值后带出 其他字段值 例如选完 负责人工号 带出负责人姓名 就要做带返回值的 F4 帮助 其中函数 SAPGUI_SET_FUNCTIONCODE 相当于按了一次回车 如果没有这个 即使对 字段赋值 屏幕不刷新 字段虽然有值 但是 屏幕显示 还是空的TYPES :BEGIN OF ty_selection, code TYPE zsmm_ckd_header-cklx, string TYPE char20, END OF ty_selection. DATA lt_selection TYPE TABLE OF ty_selection. SELECT zbh_gh AS code zbh_ght AS string FROM ztpp100a_11 INTO TABLE lt_selection WHERE werks p_werks. DATA lt_ddshretval TYPE TABLE OF ddshretval. CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST EXPORTING retfield CODE dynpprog sy-repid dynpnr sy-dynnr dynprofield P_ZFZRGH value_org S callback_program sy-repid TABLES value_tab lt_selection return_tab lt_ddshretval EXCEPTIONS parameter_error 1 no_values_found 2 OTHERS 3. IF sy-subrc 0. READ TABLE lt_ddshretval INTO DATA(ls_ddshretval) INDEX 1. READ TABLE lt_selection INTO DATA(ls_selection) WITH KEY code ls_ddshretval-fieldval. IF sy-subrc 0. p_zfzrxm ls_selection-string. p_zfzrgh ls_ddshretval-fieldval. ENDIF. ELSE. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CALL FUNCTION SAPGUI_SET_FUNCTIONCODE EXPORTING functioncode DUMMY.如果不需要做联动 搜索帮助 就不需要添加返回值表TYPES :BEGIN OF ty_selection, code TYPE zsmm_ckd_header-cklx, string TYPE char20, END OF ty_selection. DATA lt_selection TYPE TABLE OF ty_selection. SELECT zbh_pp AS code zbh_ppt AS string FROM ztpp100a_02 INTO TABLE lt_selection WHERE werks p_werks. CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST EXPORTING retfield CODE dynpprog sy-repid dynpnr sy-dynnr dynprofield P_ZDDLX window_title WINDOW--TITLE value_org S C表示cellS表示structure * MULTIPLE_CHOICE X 多项选择用于SELECT-OPTIONS * DISPLAY F C则只能显示不能选择 callback_program sy-repid TABLES value_tab lt_selection 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. ENDIF.
SELECTION-SCREEN 作为弹窗调用
发布时间：2026/7/9 12:36:32
SAP SE38 DEMO: DEMO_CALL_SELECTION_SCREEN创建屏幕SELECTION-SCREEN BEGIN OF SCREEN 200 AS WINDOW. . PARAMETERS p_zddlx TYPE ztpp100a_17-zddlx OBLIGATORY MODIF ID x. PARAMETERS p_zlcjd TYPE ztpp100a_17-zlcjd OBLIGATORY MODIF ID x. PARAMETERS p_zxh TYPE ztpp100a_17-zxh. PARAMETERS p_zjdsm TYPE ztpp100a_17-zjdsm. PARAMETERS p_zsfyfj TYPE ztpp100a_17-zsfyfj VISIBLE LENGTH 4 AS LISTBOX. PARAMETERS p_zfzrgh TYPE ztpp100a_17-zfzrgh. PARAMETERS p_zfzrxm TYPE ztpp100a_17-zfzrxm MODIF ID z. SELECTION-SCREEN END OF SCREEN 200.通过 CALL SELECTION-SCREEN 201 STARTING AT 1 1. 调用CALL SELECTION-SCREEN 201 STARTING AT 1 1.输入完值判断他点的执行 还是 X 可以通过 SY-SUBRC判断CALL SELECTION-SCREEN 200 STARTING AT 1 1. IF sy-subrc 0. ls_ztpp100a_17-zddlx p_zddlx. ls_ztpp100a_17-zlcjd p_zlcjd. ls_ztpp100a_17-zxh p_zxh. ls_ztpp100a_17-zjdsm p_zjdsm. ls_ztpp100a_17-zsfyfj p_zsfyfj. ls_ztpp100a_17-zfzrgh p_zfzrgh. ls_ztpp100a_17-zfzrxm p_zfzrxm. ls_ztpp100a_17-werks p_werks. ls_ztpp100a_17-crnam sy-uname. ls_ztpp100a_17-crdat sy-datum. ls_ztpp100a_17-crtim sy-uzeit. SELECT COUNT(*) FROM ztpp100a_02 WHERE werks p_werks AND zbh_pp p_zddlx. IF sy-subrc 0. MESSAGE p_zddlx TYPE S DISPLAY LIKE E. RETURN. ENDIF. SELECT COUNT(*) FROM ztpp100a_11 WHERE werks p_werks AND zbh_gh p_zfzrgh. IF sy-subrc 0. MESSAGE p_zfzrgh TYPE S DISPLAY LIKE E. RETURN. ENDIF. SELECT COUNT(*) FROM ztpp100a_17 WHERE zddlx ls_ztpp100a_17-zddlx AND zlcjd ls_ztpp100a_17-zlcjd AND werks p_werks. IF sy-subrc IS INITIAL. MESSAGE TYPE S DISPLAY LIKE E. RETURN. ENDIF. INSERT ztpp100a_17 FROM ls_ztpp100a_17. COMMIT WORK AND WAIT. SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data FROM ztpp100a_17 WHERE werks p_werks AND crdat IN s_crdat AND crnam IN s_crnam. ELSE. MESSAGE 取消操作 TYPE S DISPLAY LIKE E. RETURN. ENDIF.做隐藏字段 是否可编辑 下拉框赋值可以通过 AT SELECTION-SCREEN OUTPUT.设置AT SELECTION-SCREEN OUTPUT. IF p_lists wwwww. DATA: vid TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list. value-key Y. value-text 是. APPEND value TO list. value-key N. value-text 否. APPEND value TO list. CALL FUNCTION VRM_SET_VALUES EXPORTING id P_ZSFYFJ values list. LOOP AT SCREEN. IF screen-group1 X AND gv_ucomm ZXG OR screen-group1 Z. screen-input 0. MODIFY SCREEN. ENDIF. ENDLOOP. ENDIF.对字段做搜索帮助 可以通过 AT SELECTION-SCREEN ON VALUE-REQUEST 事件设置如果想要 某两个字段做关联 在搜索帮助 选完值后带出 其他字段值 例如选完 负责人工号 带出负责人姓名 就要做带返回值的 F4 帮助 其中函数 SAPGUI_SET_FUNCTIONCODE 相当于按了一次回车 如果没有这个 即使对 字段赋值 屏幕不刷新 字段虽然有值 但是 屏幕显示 还是空的TYPES :BEGIN OF ty_selection, code TYPE zsmm_ckd_header-cklx, string TYPE char20, END OF ty_selection. DATA lt_selection TYPE TABLE OF ty_selection. SELECT zbh_gh AS code zbh_ght AS string FROM ztpp100a_11 INTO TABLE lt_selection WHERE werks p_werks. DATA lt_ddshretval TYPE TABLE OF ddshretval. CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST EXPORTING retfield CODE dynpprog sy-repid dynpnr sy-dynnr dynprofield P_ZFZRGH value_org S callback_program sy-repid TABLES value_tab lt_selection return_tab lt_ddshretval EXCEPTIONS parameter_error 1 no_values_found 2 OTHERS 3. IF sy-subrc 0. READ TABLE lt_ddshretval INTO DATA(ls_ddshretval) INDEX 1. READ TABLE lt_selection INTO DATA(ls_selection) WITH KEY code ls_ddshretval-fieldval. IF sy-subrc 0. p_zfzrxm ls_selection-string. p_zfzrgh ls_ddshretval-fieldval. ENDIF. ELSE. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CALL FUNCTION SAPGUI_SET_FUNCTIONCODE EXPORTING functioncode DUMMY.如果不需要做联动 搜索帮助 就不需要添加返回值表TYPES :BEGIN OF ty_selection, code TYPE zsmm_ckd_header-cklx, string TYPE char20, END OF ty_selection. DATA lt_selection TYPE TABLE OF ty_selection. SELECT zbh_pp AS code zbh_ppt AS string FROM ztpp100a_02 INTO TABLE lt_selection WHERE werks p_werks. CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST EXPORTING retfield CODE dynpprog sy-repid dynpnr sy-dynnr dynprofield P_ZDDLX window_title WINDOW--TITLE value_org S C表示cellS表示structure * MULTIPLE_CHOICE X 多项选择用于SELECT-OPTIONS * DISPLAY F C则只能显示不能选择 callback_program sy-repid TABLES value_tab lt_selection 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. ENDIF.
相关文章
程序员量化交易实战 42：每日运行 artifact 落盘
第 41 篇把每日运行计划压成了一行摘要，适合日志和命令行。但日志只能回答“当时看起来是什么状态”。如果要排查一次运行为什么 blocked，还需要更完整的证据：输入股票、失败检查、失败动作、生成时间。这就是 artifact 的作用。artifact 存什…
魔兽争霸3兼容性修复终极指南：如何用WarcraftHelper轻松解决现代系统适配问题
魔兽争霸3兼容性修复终极指南：如何用WarcraftHelper轻松解决现代系统适配问题 【免费下载链接】WarcraftHelper Warcraft III Helper , support 1.20e, 1.24e, 1.26a, 1.27a, 1.27b 项目地址: https://gitcode.com/gh_mirrors/wa/WarcraftHelper 还在为魔兽争…
MA12070音频放大器与PIC18LF4455整合方案详解
1. MA12070音频放大器核心特性解析MA12070是英飞凌推出的一款高效集成D类音频放大器IC，采用多级开关技术，在4-26V供电范围内可提供280W的峰值输出功率。这款芯片最显著的特点是采用了创新的"多电平切换"架构，与传统D类放大器相比具…
高效解决M3U8视频下载难题的智能工具：m3u8-downloader使用指南
高效解决M3U8视频下载难题的智能工具：m3u8-downloader使用指南 【免费下载链接】m3u8-downloader 一个M3U8 视频下载(M3U8 downloader)工具。跨平台: 提供windows、linux、mac三大平台可执行文件,方便直接使用。 项目地址: https://gitcode.com/gh_mirrors/m3u8d…
工业负载控制方案：TPD2017FN与PIC18F86K22应用解析
1. 项目概述：工业环境中的负载控制方案 在工业自动化领域，精确控制电感和电阻负载是许多关键应用的基础需求。本项目基于德州仪器的TPD2017FN智能高侧开关和Microchip的PIC18F86K22微控制器，构建了一套可靠的负载控制系统。这种组合特别适合需…
数字电路设计中上拉与下拉电阻的原理与应用
1. 信号上拉与下拉的基础原理在数字电路设计中，上拉（Pull-up）和下拉（Pull-down）是两种常见的信号线处理方式。它们通过电阻连接将信号线稳定在确定电平状态，避免信号浮空导致的不可预测行为。1.1 上拉电阻的…
猫抓浏览器插件：三步轻松捕获任何网页视频资源的完整指南
猫抓浏览器插件：三步轻松捕获任何网页视频资源的完整指南 【免费下载链接】cat-catch 猫抓 浏览器资源嗅探扩展 / cat-catch Browser Resource Sniffing Extension 项目地址: https://gitcode.com/GitHub_Trending/ca/cat-catch 还在为无法保存喜欢的在线视频…
如何快速批量下载抖音视频：完整免费方案
如何快速批量下载抖音视频：完整免费方案 【免费下载链接】douyin-downloader A practical Douyin downloader for both single-item and profile batch downloads, with progress display, retries, SQLite deduplication, and browser fallback support. 抖音批量下…
STM32G491RE与TPD2017FN工业负载控制方案详解
1. 工业负载控制方案概述 在工业自动化领域，精确控制电感和电阻负载是许多设备运行的基础需求。TPD2017FN作为东芝半导体推出的8通道低侧开关器件，配合STM32G491RE微控制器，构成了一个高效可靠的工业级负载控制解决方案。这套组合特别适合驱动…
Unity WebGL部署Apache Tomcat：MIME配置、Gzip压缩与缓存优化实战
1. 项目概述：当Unity WebGL遇上Apache Tomcat如果你是一名Unity开发者，想把精心制作的WebGL游戏或应用部署到自己的服务器上，那么Apache Tomcat大概率是你绕不开的一环。这不仅仅是把一堆构建出来的文件扔进一个文件夹那么简单。我见过太多项…
决策树与特征选择：信息增益(互信息)的3种计算方式与对比
决策树特征选择中的信息增益：3种计算方法与实战对比引言：为什么特征选择如此重要？在机器学习项目中，我们常常面临"维度灾难"——数据集包含数十甚至数百个特征，但并非所有特征都对预测目标有同等贡献。冗余或…
Keras 与 OpenCV 人脸检测对比：95% 准确率模型 vs Haar Cascade 级联分类器
Keras 与 OpenCV 人脸检测技术深度对比：从算法原理到工程实践在计算机视觉领域，人脸检测作为基础且关键的技术环节，直接影响着后续识别、分析和交互等高级应用的性能表现。当前主流的人脸检测方法主要分为两大阵营：基于传统特征工…
3步彻底解决Windows右键菜单混乱问题：ContextMenuManager使用全攻略
3步彻底解决Windows右键菜单混乱问题：ContextMenuManager使用全攻略 【免费下载链接】ContextMenuManager 🖱️ 纯粹的Windows右键菜单管理程序 项目地址: https://gitcode.com/gh_mirrors/co/ContextMenuManager 你是否曾为Windows右键菜单中那些…
从GitHub安全案例解析常见漏洞与防护实践
1. 项目概述：从GitHub Trending看安全实战 最近在GitHub Trending上看到一个项目，叫 skills4/skills ，它因为一些安全漏洞案例被大家讨论。这其实是一个挺典型的场景：一个旨在展示或教授某种技能的仓库，本身却成了安…
MLT 2026启示：因果推理与概率建模驱动下一代LLM应用
# MLT 2026启示：因果推理与概率建模驱动下一代LLM应用## 一、背景与挑战：从“黑箱预测”到“可信推理”2026年6月，第7届机器学习与趋势国际会议（MLT 2026）将在悉尼召开。会议议程中，“因果与可解释机器学习…
FAE放射组学分析工具：医学影像特征探索的完整解决方案
FAE放射组学分析工具：医学影像特征探索的完整解决方案 【免费下载链接】FAE FeAture Explorer 项目地址: https://gitcode.com/gh_mirrors/fae/FAE 你是否曾经面对海量医学影像数据感到无从下手？想要从CT、MRI等影像中提取有价值的定量特征&#…
0.69B参数实现中文多模态AI：揭秘Qwen3-SmVL模型融合技术的完整实战指南
0.69B参数实现中文多模态AI：揭秘Qwen3-SmVL模型融合技术的完整实战指南 【免费下载链接】happy-llm 📚 从零开始构建大模型 项目地址: https://gitcode.com/GitHub_Trending/ha/happy-llm 还在为大型多模态模型动辄数十亿参数、显存占用高而烦恼&…
解锁AMD Ryzen处理器性能潜力的SMU调试神器：从新手到专家的完整指南
解锁AMD Ryzen处理器性能潜力的SMU调试神器：从新手到专家的完整指南 【免费下载链接】SMUDebugTool A dedicated tool to help write/read various parameters of Ryzen-based systems, such as manual overclock, SMU, PCI, CPUID, MSR and Power Table. 项目地址…