当前位置：首页 > news >正文

SAP 使用cl_gui_timer自动刷新屏幕的用法详解＜转载＞

news 文章来源：https://blog.csdn.net/qq_55488207/article/details/134125109 2025/4/22 14:25:50

原文链接：https://blog.csdn.net/SAPmatinal/article/details/130483382
SAP 使用cl_gui_timer自动刷新屏幕的用法详解

这个类在初始化的时候会设置一个定时间隔，每隔这个时间就会触发一次FINISHED事件。利用这个类的特性，可以实现很多东西，让程序自动化起来

比如定时刷新ALV，但是这个事件不能触发PBO ，此时需要去强制触发PAI，让程序走一次PBO，如果不涉及屏幕字段啥的，只是刷新ALV就不必要了，直接调用REFRESH就行了
在这里插入图片描述
正常结果屏幕刷新

*&---------------------------------------------------------------------*
*& Report Y_XB_TEST1
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Y_XB_TEST1 NO STANDARD PAGE HEADING.CLASS lcl_event_handler DEFINITION DEFERRED.DATA: go_timer    TYPE REF TO cl_gui_timer,go_evt_hndl TYPE REF TO lcl_event_handler,gv_datum    TYPE sy-datum,gv_uzeit    TYPE sy-uzeit.*&---------------------------------------------------------------------**&      START-OF-SELECTION*&---------------------------------------------------------------------*START-OF-SELECTION.gv_datum = sy-datum.gv_uzeit = sy-uzeit.PERFORM list_output.PERFORM init_timer.*&---------------------------------------------------------------------**&      USER-COMMAND*&---------------------------------------------------------------------*AT USER-COMMAND.IF sy-ucomm = 'RFSH'.sy-lsind = sy-lsind - 1.PERFORM list_output.ENDIF.*&---------------------------------------------------------------------**&      CLASS lcl_event_handler DEFINITION*&---------------------------------------------------------------------*CLASS lcl_event_handler DEFINITION.PUBLIC SECTION.METHODS:handle_timer FOR EVENT finished OF cl_gui_timer.ENDCLASS.                    "lcl_event_handler DEFINITION
*&---------------------------------------------------------------------*
*&      CLASS lcl_event_handler IMPLEMENTATION
*&---------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.METHOD handle_timer.CALL METHOD cl_gui_cfw=>set_new_ok_codeEXPORTINGnew_code = 'RFSH'.CALL METHOD go_timer->run "必须重新激活定时器EXCEPTIONSOTHERS = 9.ENDMETHOD.                 "handle_timer
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION*&---------------------------------------------------------------------**&      Form  INIT_TIMER*&---------------------------------------------------------------------*FORM init_timer.CHECK go_timer IS INITIAL.CREATE OBJECT go_timerEXCEPTIONSOTHERS = 9.CREATE OBJECT go_evt_hndl.SET HANDLER go_evt_hndl->handle_timer FOR go_timer.go_timer->interval = 5.  "设置间隔为10秒CALL METHOD go_timer->run "激活定时器EXCEPTIONSOTHERS = 9.ENDFORM.                    " INIT_TIMER
*&---------------------------------------------------------------------*
*& Form LIST_OUTPUT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM list_output .DATA: datediff TYPE p,timediff TYPE p DECIMALS 2.datediff = sy-datum - gv_datum.timediff = ( sy-uzeit - gv_uzeit ) / 60.WRITE: /5 '本次开始时间：' ,AT 30 gv_datum , AT 45 gv_uzeit.WRITE: /5 '本次运行时长：' ,AT 30 datediff LEFT-JUSTIFIED,AT 38 '天' ,at 45 timediff LEFT-JUSTIFIED ,AT 51 '分'.
ENDFORM.

layout CALL SCREEN 屏幕刷新

DATA GO_TIMER TYPE REF TO CL_GUI_TIMER .
DATA: GV_INDEX TYPE N LENGTH 2 ,GV_TMP TYPE N LENGTH 2 ,GV_OKCODE TYPE SY-UCOMM .DATA: HH TYPE C LENGTH 2 , "记录时分秒FF TYPE C LENGTH 2 ,MM TYPE C LENGTH 2 .
CLASS LCL_EVENT_HANDLER DEFINITION.PUBLIC SECTION.METHODS:HANDLE_TIMER FOR EVENT FINISHED OF CL_GUI_TIMER.
ENDCLASS.                    "lcl_event_handler DEFINITION
*&---------------------------------------------------------------------*
*&      CLASS lcl_event_handler IMPLEMENTATION
*&---------------------------------------------------------------------*
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.METHOD HANDLE_TIMER.PERFORM FRM_PROCESS_TIMER.ENDMETHOD.                 "handle_timer
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION
DATA GO_EVT_HNDL TYPE REF TO LCL_EVENT_HANDLER .INITIALIZATION .START-OF-SELECTION  .CALL SCREEN 0100 .
*&---------------------------------------------------------------------*
*& Form FRM_PROCESS_TIMER
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM FRM_PROCESS_TIMER .CALL METHOD CL_GUI_CFW=>SET_NEW_OK_CODE "强制触发PAIEXPORTINGNEW_CODE = 'RFSH'.CALL METHOD GO_TIMER->RUN "EXCEPTIONSOTHERS = 9.ENDFORM.
*&---------------------------------------------------------------------*
*& Form INIT_TIMER
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM INIT_TIMER .IF GO_TIMER IS INITIAL.CREATE OBJECT GO_TIMEREXCEPTIONSOTHERS = 9.CREATE OBJECT GO_EVT_HNDL.SET HANDLER GO_EVT_HNDL->HANDLE_TIMER FOR GO_TIMER.GO_TIMER->INTERVAL = 1.  "设置间隔为1秒CALL METHOD GO_TIMER->RUN "激活定时器EXCEPTIONSOTHERS = 9.ELSE .CALL METHOD GO_TIMER->RUN "重新激活定时器EXCEPTIONSOTHERS = 9.ENDIF .
ENDFORM.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.PERFORM INIT_TIMER .
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.CASE GV_OKCODE.WHEN 'BACK'.LEAVE TO SCREEN 0 .WHEN  'RFSH'.GV_INDEX = GV_INDEX + 1 .CLEAR GV_TMP.GV_TMP = GV_INDEX DIV 3600 . "获取小时HH = GV_TMP .CLEAR  GV_TMP .GV_TMP = GV_INDEX DIV 60 . "获取分钟FF = GV_TMP .CLEAR GV_TMP .GV_TMP  = GV_INDEX MOD 60 . "获取秒MM = GV_TMP .WHEN OTHERS.ENDCASE.
ENDMODULE.

SAP 使用cl_gui_timer自动刷新屏幕的用法详解＜转载＞

原文链接：https://blog.csdn.net/SAPmatinal/article/details/130483382 SAP 使用cl_gui_timer自动刷新屏幕的用法详解这个类在初始化的时候会设置一个定时间隔，每隔这个时间就会触发一次FINISHED事件。利用这个类的特性，可以实现很多东西&…...

编程日记 2023/10/31 0:46:27

golang中的Interface接口类型断言、接口赋值、空接口的使用、接口嵌套

Interface整理文章目录 Interface整理接口嵌套接口类型断言类型判断 type-switch使用方法集与接口空接口实例接口赋值给接口接口是一种契约，实现类型必须满足它，它描述了类型的行为，规定类型可以做什么。接口彻底将类型能做什么&#xff0…...

编程日记 2023/10/31 0:45:26

使用设计模式省去大量的if-elsef分支

1.测试类 Testpublic void test7() {/*** 使用设计模式前*///模拟入参String name "?";if("张三".equals(name)){System.out.println("按照张三的策略执行的任务!");}else if ("李四".equals(name)){System.out.println("按照李…...

编程日记 2023/10/31 0:44:25

Tomcat安装与配置文件解读

简介 Tomcat是Apache软件基金会（Apache Software Foundation）项目中的一个核心项目，由Apache、Sun和其他一些公司及个人共同开发而成。 Tomcat服务器是一个免费的开放源代码的Web应用服务器，属于轻量级应用服务器，在…...

编程日记 2023/10/31 0:43:24

计算机网络重点概念整理-第一章计算机网络概述【期末复习|考研复习】

计算机网络复习系列文章传送门： 第一章计算机网络概述第二章物理层第三章数据链路层第四章网络层第五章传输层第六章应用层第七章网络安全计算机网络整理-简称&缩写文章目录前言一、计算机网络概述1.1 计算机网络的定义：1.2 计算机网…...

编程日记 2023/10/31 0:42:23

Day 11 python学习笔记

模块内置模块 random random：随机数模块我们可以在解释器中看到其蕴含的方法接下来我解释一些常用的方法： random.random( ) random.random( ) 返回0-1的随机数 [0,1) >>> random.random() 0.364183511476754 random.randint(n,m) r…...

编程日记 2023/10/31 0:41:22

HarmonyOS鸿蒙原生应用开发设计- 图标库

HarmonyOS设计文档中，为大家提供了独特的图标库，开发者可以根据需要直接引用。图标库可以分为双色图标、填充图标、线性图标。具体分为键盘、箭头、连接状态、媒体、人、设备、索引、通信、文件、物体与工具等。整体分类开发者直接使用官方提供的图标…...

编程日记 2023/10/31 0:40:21

微软bing大声朗读文档或网页卡顿老是中断，用离线的huihui就很流畅但没那么自然

默认的xiaoxiao_online好听，但卡顿，朗读功能确实受到了网络状态的影响。大概率是网络问题。...

编程日记 2023/10/31 0:39:19

Java VMTranslator Part I

目录堆栈运算命令基本思路核心代码 Parser Code Writer Main 实验结果，使用SimpleAdd、StackTest进行验证内存访问命令基本思路核心代码 Parser Code Writer Main 实验结果，使用进行验证。对比生成的二进制代码文件。用Java写一个翻…...

编程日记 2023/10/31 0:38:18

ES6带来那些js新特性？

ECMAScript 6（ES6），也称为 ECMAScript 2015，引入了许多重大的改进和新特性，以改善JavaScript语言的功能和可读性。以下是一些ES6中的主要改变和新特性： 1、let 和 const 声明: 引入了 let 和 const 关键字…...

编程日记 2023/10/31 0:37:16

1.for 循环实现数组的深拷贝通过对数组的for循环，即可实现对数组的深拷贝了。 var arr [1,2,3,4,5] var arr2 copyArr(arr) function copyArr(arr) {let res []for (let i 0; i < arr.length; i) {res.push(arr[i])}return res }2.slice 方法实现数组的深…...

编程日记 2023/10/31 0:36:15

错误 LNK1112 模块计算机类型“x64”与目标计算机类型“X86”冲突

这个错误表明你在进行链接时，模块的计算机类型与目标计算机类型冲突。在这里，“x64”代表64位系统，“X86”代表32位系统。要解决这个问题，你需要确保你的所有模块（包括库文件和依赖项）都是与你的目标计…...

编程日记 2023/10/31 0:35:14

java八股文(基础篇)

面向过程和面向对象的区别面向过程：在解决问题时，特别自定义函数编写一步一步的步骤解决问题。面向对象：其特点就是继承，多态，继承，在解决问题时，不再注重函数的编写，而在于注重…...

编程日记 2023/10/31 0:34:13

window系统修改rabbitmq 默认端口

安装完rabbitmq之后，默认的client端口是5672, 控制台访问端口是15672，rabbitmq管理工具启动之后在浏览器中输入地址： http://localhost:15672/ 就可以访问后台 ， 默认管理员账号：guest 密码&#x…...

编程日记 2023/10/31 0:33:13

七人拼团模式：颠覆你的购物观念，499元产品让你赚翻天！

七人拼团模式是一种创新的消费模式，通过聚集消费者的购买力，让消费者能够以更优惠的价格购买到优质的商品。下面我们以499元的产品为例，详细介绍七人拼团模式的玩法规则和收益计算。玩法规则： 消费者购买499元的指定产品后&…...

编程日记 2023/10/31 0:32:11

【机器学习合集】模型设计之卷积核设计 -＞（个人学习记录笔记）

文章目录卷积核设计1. 基于参数压缩的卷积设计1.1 【11卷积】1.2 【11卷积典型应用】1.3 【小卷积的使用】 2. 基于感受野的卷积设计2.1 膨胀卷积(带孔卷积，strous convolution)2.2 可变形卷积2.3 非局部卷积 3. 基于卷积操作的优化3.1 移位网络3.2 加法网络卷积核…...

编程日记 2023/10/31 0:30:08

JS实现用户二次确认后再提交表单

HTML代码 <form id"importForm" action"" method"post" enctype"multipart/form-data" onsubmit"return confirmSubmit()"> ...... <input id"btnImportSubmit" class"btn btn-primary" type…...

编程日记 2023/10/31 0:29:07

1992-2021年全国各省经过矫正的夜间灯光数据（GNLD、VIIRS）

1992-2021年省市县经过矫正的夜间灯光数据（GNLD、VIIRS） 1、时间：1992-2021年3月，其中1992-2013年为年度数据，2013-2021年3月为月度数据 2、来源：DMSP、VIIRS 3、范围：31省 4、指标解释&…...

编程日记 2023/10/31 0:28:06

JMeter的使用——傻瓜式学习【中】

目录前言 1、JMeter参数化 1.1、什么是参数化 1.2、用户定义的变量 1.2.1、什么时候使用用户定义的变量 1.2.2、使用“用户定义的变量”进行参数化的步骤： 1.2.3、案例 1.3、用户参数 1.3.1、什么时候使用用户参数？ 1.3.2、使用“用户参数”进…...

编程日记 2023/10/31 0:27:05

MyBaties存储和查询json格式的数据(实体存储查询版本)

最近在做的功能，由于别的数据库有值，需要这边的不同入口的进来查询，所以需要同步过来，如果再继续一个一个生成列对应处理感觉不方便，如果没有别的操作，只是存储和查询，那就可以用MySql支持的jso…...

编程日记 2023/10/31 0:24:03

动态规划14：一和零

动态规划14：一和零题目 474. 一和零给你一个二进制字符串数组 strs 和两个整数 m 和 n 。请你找出并返回 strs 的最大子集的长度，该子集中最多有 m 个 0 和 n 个 1 。如果 x 的所有元素也是 y 的元素，集合 x 是集合 y 的子集。 …...

编程日记 2023/10/31 0:23:02

C#WPF嵌入字体实例

本文介绍C#WPF嵌入字体实例。首先创建项目添加Resources文件夹，添加字体文件，字体文件属性：生成操作为Resources，复制到输出目录：不复制字体的使用可以采用以下两种方法：方式一直接引用 FontFamily="./Resources/#幼圆" 方式二定义资源 <Applica…...

编程日记 2023/10/31 0:20:58

Linux——Linux权限

Linux权限前言一、shell命令以及运行原理二、Linux权限的概念Linux权限管理文件访问者的分类（人）文件类型和访问权限（事物属性）文件权限值的表示方法文件访问权限的相关设置方法 file指令目录的权限粘滞位总结前言 linux的学习…...

编程日记 2023/10/31 0:19:56

android中gradle的kotlin编译配置选项

一、编译配置 1、Android中的配置使用如下方式开启在Android中的gradle的kotlin编译配置： 该配置在其余平台不可用 android {...compileOptions {sourceCompatibility JavaVersion.VERSION_17targetCompatibility JavaVersion.VERSION_17}kotlinOptions {jvmTar…...

编程日记 2023/10/31 0:18:55

【知识串联】概率论中的值和量（随机变量/数字特征/参数估计）【考研向】【按概率论学习章节总结】（最大似然估计量和最大似然估计值的区别）

就我的概率论学习经验来看，这两个概念极易混淆，并且极为重点，然而，在概率论的前几章学习中，如果只是计算，对这方面的辨析不清并没有问题。然而，到了后面的参数估计部分，却可能出现问…...

编程日记 2023/10/31 0:17:54

NOIP2023模拟6联测27 点餐

题目大意有 n n n样菜品，每样菜品都有两个权值 a i a_i ai和 b i b_i bi，如果你选择了 k k k个菜品，分别为 p 1 , … , p k p_1,\dots,p_k p1,…,pk，则你的花费为 ∑ i 1 k a p i max ⁡ i 1 k b p i \sum\limits_{i…...

编程日记 2023/10/31 0:15:51