首页 文章 精选 留言 我的

精选列表

搜索[程序],共10010篇文章
优秀的个人博客,低调大师

添加程序的标题

![](https://developer.qcloudimg.com/http-save/audit-12667468/c7a9f066aaa13f200989b63b0622ad78.png) ```javascript *&---------------------------------------------------------------------* *& Report ZTEST_1 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ztest_1. TABLES:marc,sscrfields. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002. PARAMETERS: rb_1 RADIOBUTTON GROUP g1 USER-COMMAND u1 DEFAULT 'X', rb_2 RADIOBUTTON GROUP g1. SELECTION-SCREEN END OF BLOCK b2. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001. PARAMETERS: p_field TYPE rlgrap-filename MODIF ID a1. SELECT-OPTIONS:s_matnr FOR marc-matnr MODIF ID a2. SELECTION-SCREEN END OF BLOCK b1. SELECTION-SCREEN FUNCTION KEY 1. AT SELECTION-SCREEN OUTPUT. sscrfields-ucomm = 'FC01'. sscrfields-functxt_01 = icon_export && '模板下载'. DATA: lv_titlebar TYPE c LENGTH 30. IF rb_1 = 'X'. lv_titlebar = '批量导入111'. ELSEIF rb_2 = 'X'. lv_titlebar = '查询222'. ENDIF. SET TITLEBAR 'TITLE01' WITH lv_titlebar. LOOP AT SCREEN. IF rb_1 = 'X'. CHECK screen-group1 = 'A2'. ELSEIF rb_2 = 'X'. CHECK screen-group1 = 'A1'. ENDIF. screen-active = 0. MODIFY SCREEN. ENDLOOP. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_field. PERFORM get_f4_p_field. AT SELECTION-SCREEN. IF sy-ucomm = 'FC01'. PERFORM excel_download. ENDIF. START-OF-SELECTION. IF rb_1 = 'X'. * PERFORM get_excel_data. ELSEIF rb_2 = 'X'. * PERFORM get_table_data. ENDIF. * PERFORM alv_display. END-OF-SELECTION. *&---------------------------------------------------------------------* *& Form get_f4_p_field *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& p1 text *& file_save_dialog EXPORTING window_title = lv_windows_title default_extension = 'xlsx' default_file_name = '批量导入模板' file_filter = 'Microsoft Excel文件(*.xlsx)' CHANGING filename = lv_filename path = lv_path fullpath = lv_fpath user_action = lv_action EXCEPTIONS cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 invalid_default_file_name = 4 OTHERS = 5. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. IF lv_action = 0. lv_key-relid = 'MI'. lv_key-objid = 'ZPP_BAT_007'. lv_destination = lv_fpath. CALL FUNCTION 'DOWNLOAD_WEB_OBJECT' EXPORTING key = lv_key destination = lv_destination IMPORTING rc = lv_rc. IF lv_rc <> 0. MESSAGE '工艺路线PRT模板下载失败!' TYPE 'S' DISPLAY LIKE 'E'. ENDIF. ELSE. MESSAGE '取消下载' TYPE 'S' DISPLAY LIKE 'E'. ENDIF. ENDFORM. ```

资源下载

更多资源
Mario

Mario

马里奥是站在游戏界顶峰的超人气多面角色。马里奥靠吃蘑菇成长,特征是大鼻子、头戴帽子、身穿背带裤,还留着胡子。与他的双胞胎兄弟路易基一起,长年担任任天堂的招牌角色。

Nacos

Nacos

Nacos /nɑ:kəʊs/ 是 Dynamic Naming and Configuration Service 的首字母简称,一个易于构建 AI Agent 应用的动态服务发现、配置管理和AI智能体管理平台。Nacos 致力于帮助您发现、配置和管理微服务及AI智能体应用。Nacos 提供了一组简单易用的特性集,帮助您快速实现动态服务发现、服务配置、服务元数据、流量管理。Nacos 帮助您更敏捷和容易地构建、交付和管理微服务平台。

Spring

Spring

Spring框架(Spring Framework)是由Rod Johnson于2002年提出的开源Java企业级应用框架,旨在通过使用JavaBean替代传统EJB实现方式降低企业级编程开发的复杂性。该框架基于简单性、可测试性和松耦合性设计理念,提供核心容器、应用上下文、数据访问集成等模块,支持整合Hibernate、Struts等第三方框架,其适用范围不仅限于服务器端开发,绝大多数Java应用均可从中受益。

Sublime Text

Sublime Text

Sublime Text具有漂亮的用户界面和强大的功能,例如代码缩略图,Python的插件,代码段等。还可自定义键绑定,菜单和工具栏。Sublime Text 的主要功能包括:拼写检查,书签,完整的 Python API , Goto 功能,即时项目切换,多选择,多窗口等等。Sublime Text 是一个跨平台的编辑器,同时支持Windows、Linux、Mac OS X等操作系统。

用户登录
用户注册