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.

SELECTION-SCREEN 作为弹窗调用

相关推荐

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

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

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

更多资讯

基于MATLAB的MIMO-OFDM仿真程序解析：从发射链路到误码率曲线

Midscene Chrome扩展安装教程：自然语言控制浏览器，4步跑通第一个AI自动化任务

如何用 Docker 运行 Android 模拟器：3 分钟跑通 Docker-Android

DevDocs 如何为 R 语言文档编译并获取本地 HTML 源文件？

PCIe链路信任机制深度解析：从物理层到事务层的性能真相

洁净车间环境监控系统设计与实践

今日更新

Linux 内核 ARM 虚拟内存布局全解析：从 4GB 地址空间划分到源码级验证

AIGC降重工具测评与教育应用指南

数据容灾核心指标与实战方案解析

本周精选

超人会飞不算本事：系统稳定依赖清晰规则与边界设计

超人VS蜘蛛侠：拆解超级IP的影响力与传播方法论

基于CNN的调制信号识别：MATLAB实现时频图分类实战

本月热门

基于YOLO的焊缝缺陷检测：从数据标注到工业部署全流程实践

分布式服务的决策记录

创业产品的首版范围

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