尧图网络 高端网站定制 · 原创设计
免费咨询热线
400-888-6620
免费获取方案

SELECTION-SCREEN 作为弹窗调用

发布时间：2026/11/7 15:11:25来源：尧图网络资讯中心
首页/资讯中心/文章详情
SELECTION-SCREEN 作为弹窗调用
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.
RELATED

相关推荐

Video2X：AI视频增强的四大能力象限全解析

Video2X：AI视频增强的四大能力象限全解析

Video2X：AI视频增强的四大能力象限全解析 【免费下载链接】video2x A machine learning-based video super resolution and frame interpolation framework. Est. Hack the Valley II, 2018. 项目地址: https://gitcode.com/GitHub_Trending/vi/video2x 还在…

📅 2026/11/7 15:11:25
程序员量化交易实战 42：每日运行 artifact 落盘

程序员量化交易实战 42：每日运行 artifact 落盘

第 41 篇把每日运行计划压成了一行摘要，适合日志和命令行。但日志只能回答“当时看起来是什么状态”。如果要排查一次运行为什么 blocked，还需要更完整的证据：输入股票、失败检查、失败动作、生成时间。这就是 artifact 的作用。artifact 存什…

📅 2026/10/15 4:40:31
jitword 协同文档 3.3 发布：打造word级修订/审阅/批注功能

jitword 协同文档 3.3 发布：打造word级修订/审阅/批注功能

很高兴和大家分享我们 JitWord 协同AI文档的第 91 个版本。Github：https://github.com/jitOffice/jitword-sdkJitWord 是一款可本地部署集成的专业 Word 协同AI文档，不仅具备了企业级的Word 解析渲染能力，同时还能多人协同编辑，提…

📅 2026/10/20 21:51:45
MORE NEWS

更多资讯

📰

于洪电工证学校怎么报名才不交冤枉钱

于洪电工证学校怎么报名才不交冤枉钱 怕考不过白交培训费？你不是一个人。在焦作，越来越多的电工想通过【于洪电工证学校】考取低压电工证，但总担心钱花了证没拿到，甚至还有人因报名流程不熟悉被坑。其实，只要掌握正确的方法， 怎么报名…
📰

安建电工证通过率揭秘：外省证能转吗？洛阳从业者必看干货

安建电工证通过率揭秘：外省证能转吗？洛阳从业者必看干货 之前考的证在外省能不能转过来？这个问题几乎是每个特种作业人员，尤其是像你我这样的洛阳市政公用工程从业者最关心的事。很多人手里拿着外地的【安建电工证】，到了新城市却用不上，甚至被认定为“…
📰

重庆电工证培训考试通过率揭秘：证书过期了不知道怎么复审延期？

重庆电工证培训考试通过率揭秘：证书过期了不知道怎么复审延期？ 你是不是也遇到过这种情况，电工证快到期了，不知道怎么复审，一拖再拖，结果耽误了工作？别急，今天咱们就来聊聊重庆电工证培训考试的那些事，特别是怎么 通过率揭秘…
📰

考电工证在哪里培训好 值不值得考别交冤枉钱

考电工证在哪里培训好 值不值得考别交冤枉钱 怕考不过白交培训费？你不是一个人。很多第一次报考电工证的朋友，都担心花了几千块培训费，结果考试挂了，钱打水漂，时间也浪费了。今天我就从平顶山一位初次报考人员的真实经历出发，详细说说【考电工证在哪里…
📰

电工证图怎么拍保姆级教程：实操考试心里没底怕挂科？看完这篇全搞定

电工证图怎么拍保姆级教程：实操考试心里没底怕挂科？看完这篇全搞定 实操考试心里没底怕挂科？你不是一个人。很多河南劳务班组负责人在报考电工证的时候，最担心的就是实操考试环节，尤其是拍“电工证图”这个流程，很多人一头雾水，不知道该怎么拍、拍什么…
📰

黄南州考电工证在哪考?实操考试心里没底怕挂科怎么办

黄南州考电工证在哪考?实操考试心里没底怕挂科怎么办 实操考试心里没底怕挂科？别急，黄南州考电工证的流程其实比你想象中更清晰，关键是要掌握正确的报考路径和备考方法。今天就从 黄南州考电工证…
TODAY

今日更新

🆕

桐乡去哪考电工证怎么考？全国通用电工证报考全流程详解

桐乡去哪考电工证怎么考？全国通用电工证报考全流程详解 你是桐乡人，刚到工地打工，老板一句话就敲醒了你： 没有电工证，别想上岗 。现在找工作，特种作业证成了硬门槛，特别是 全国通用…
🆕

低压电工证是必须的嘛电子证书怎么申请更稳妥

低压电工证是必须的嘛电子证书怎么申请更稳妥 学历不高怕报不上名，其实低压电工证是很多电工从业者的“门槛证”，但很多人并不清楚它到底是不是必须的。尤其是在一线施工现场，很多电工没有证书就被拒之门外。本文就围绕【低压电工证是必须的嘛】，从…
🆕

特种作业证模板工怎么报名才不会被中介坑

特种作业证模板工怎么报名才不会被中介坑 你是不是也遇到过这种情况？手里拿着一沓材料，满脑子想着怎么报名特种作业证模板工，结果转头就被各种中介忽悠得团团转？别急，今天咱们就聊聊这个证到底怎么报名，怎么避开那些坑，顺便给你支几招，让你少走弯路。…
THIS WEEK

本周精选

📌

面向复杂光照与角度的宠物面部识别鲁棒性增强策略

在智慧养宠时代，基于视觉的宠物身份识别技术正逐步从实验室走向家庭应用。然而，与配合度高的人类不同，宠物是典型的“非合作生物识别对象”——它们不会主动配合摄像头调整姿态，更无法控制光照环境。实际应用中，我们常…
📌

基于DRV8818与STM32的双极步进电机驱动方案实战解析

/* MD / 富文本中的 .toc（含博客园搬家等嵌套结构）；.toc-box 在侧栏，不受影响 */#content_views .toc,/* 编辑器常在目录前后插入空 p（:empty 仍占 20px），一并去掉避免顶空隙 */#content_views.markdown_views > p:empty:has(+ .toc),#content_views.markdown_views …
📌

DRV8818PWPR+PIC18F45K80双极步进电机控制方案实战

/* MD / 富文本中的 .toc（含博客园搬家等嵌套结构）；.toc-box 在侧栏，不受影响 */#content_views .toc,/* 编辑器常在目录前后插入空 p（:empty 仍占 20px），一并去掉避免顶空隙 */#content_views.markdown_views > p:empty:has(+ .toc),#content_views.markdown_views …
THIS MONTH

本月热门

🔥

面向复杂光照与角度的宠物面部识别鲁棒性增强策略

在智慧养宠时代，基于视觉的宠物身份识别技术正逐步从实验室走向家庭应用。然而，与配合度高的人类不同，宠物是典型的“非合作生物识别对象”——它们不会主动配合摄像头调整姿态，更无法控制光照环境。实际应用中，我们常…
🔥

基于DRV8818与STM32的双极步进电机驱动方案实战解析

/* MD / 富文本中的 .toc（含博客园搬家等嵌套结构）；.toc-box 在侧栏，不受影响 */#content_views .toc,/* 编辑器常在目录前后插入空 p（:empty 仍占 20px），一并去掉避免顶空隙 */#content_views.markdown_views > p:empty:has(+ .toc),#content_views.markdown_views …
🔥

DRV8818PWPR+PIC18F45K80双极步进电机控制方案实战

/* MD / 富文本中的 .toc（含博客园搬家等嵌套结构）；.toc-box 在侧栏，不受影响 */#content_views .toc,/* 编辑器常在目录前后插入空 p（:empty 仍占 20px），一并去掉避免顶空隙 */#content_views.markdown_views > p:empty:has(+ .toc),#content_views.markdown_views …

读完文章，想聊聊您的网站？

告诉我们您的行业与需求，资深顾问一对一梳理方案与报价，全程免费。

免费获取方案 400-888-6620
📞 💬