【ABAP】如何动态调整SMARTFORMS窗口位置?(附案例演示)

💂作者简介: THUNDER王,阿里云社区专家博主,华为云·云享专家,腾讯云社区认证作者,CSDN SAP应用技术领域优质创作者。在学习工作中,我通常使用偏后端的开发语言ABAP,SQL进行任务的完成,对SAP企业管理系统,SAP ABAP开发和数据库具有较深入的研究。


💅文章概要: 在SAP SMARTFORMS(智能表单) 设计过程中,我们可能会遇到这种需求:有没有办法能够动态调整我的窗口位置?本文笔者将带领大家一起来学习一下如何在SMARTFORMS中通过增加ABAP代码来实现这个功能。


🤟每日一言: 永远年轻,永远热泪盈眶!


前言

在SAP SMARTFORMS(智能表单) 设计过程中,我们可能会遇到这种需求:有没有办法能够动态调整我的窗口位置?本文笔者将带领大家一起来学习一下如何在SMARTFORMS中通过增加ABAP代码来实现这个功能。


效果演示


实现原理

SMARTFORMS 在激活时会生成一个对应的FUNCTION MODULE,通过DEBUG进入FUNCTION MODULE,可以发现:SMARTFORMS中定义的窗口信息TEMPLATE 等都是存放在特定的内表中的,如下图所示:

内表 作用
%HEADER 存放smartforms属性信息
%REFTAB 存放的信息还不太清楚
%DOCSTRUC 存放窗口的详细信息
%TABDEFS 存放template控件和tables控件相关的信息

我们可以通过改变%DOCSTRUC中的数据来改变窗口的位置信息、背景颜色等

PS: 可以看到TDWINDOW字段就是对应了当前行所控制的窗口名称,在后面的ABAP代码中,我们将使用TDWINDOW字段作为WHERE子句中的限制条件


如何确定ABAP代码位置?

在上面的分析中,我们已经明白了动态调整窗口位置的实现原理,那么下一步要进行的操作就是编写ABAP代码来进行控制了,这一步的关键问题在于我们的代码要放在什么位置才能在SMARTFORMS打印前完成对%DOCSTRUC内表的更新操作。

通过观察分析:发现了SMARTFORMS打印数据流的FUNCTION MODULE在如下图所示位置:

确定了数据流打印的位置后,那么下一步便是确定在什么位置添加ABAP代码,我们知道在SMARTFORMS中有三处地方可以进行代码的编写,它们分别是全局定义中初始化页签和格式化程序页签以及程序行控件

代码位置 作用
初始化页签 用于数据全局初始化,在打印输出前进行调用
格式化程序页签 用于子例程FORM的编写,可在程序行控件以及初始化中被调用
程序行控件 用于一般ABAP代码的编写,在打印输出时进行调用

PS: 从表格中我们可以知道,要想实现在SMARTFORMS打印前完成对%DOCSTRUC内表的更新操作,需要在打印输出前进行调用,因此只能在初始化页签中进行ABAP代码编写

首先我们在初始化页签中输入断点BREAK-POINT,打印预览执行DEBUG跳转到断点位置,观察下图我们可以发现初始化中的ABAP代码是存储在一个名为%GLOBAL_INIT的子例程中。

观察下图可以发现:PERFORM %GLOBAL_INIT语句在打印数据流的FUNCTION MODULE之前,那么我们对于%DOCSTRUC内表的更新操作便可以写在初始化页签中。


示例代码

sql 复制代码
FIELD-SYMBOLS:<lt_docstruc> TYPE tsfdocstrc.
DATA:ls_docstruc TYPE ssfdocstrc.

ASSIGN ('%DOCSTRUC') TO <lt_docstruc>.

IF sy-subrc = 0.

  LOOP AT <lt_docstruc> INTO ls_docstruc WHERE tdwindow = 'MAIN'.
    IF piv_wtop IS NOT INITIAL.
      ls_docstruc-wtop = piv_wtop.
      "PIV_WTOP 是定义的全局变量
      MODIFY <lt_docstruc> FROM ls_docstruc TRANSPORTING wtop.
      EXIT.
    ENDIF.
  ENDLOOP.
ENDIF.

在这里我们定义了一个表格接口PIV_WTOP用于控制打印预览时主窗口的上边距,并且还在主窗口下创建了一个模板,模板的上边距与主窗口一致并且边框设置为了实线,以便于观察,如下图所示:

PS: 关于窗口各个边距的详细字段信息,可以进入%DOCSTRUC内表中进行查看


写在最后的话

本文花费大量时间介绍了如何动态调整SMARTFORMS窗口位置,希望能帮助到各位小伙伴,码文不易,还望各位大佬们多多支持哦,你们的支持是我最大的动力!

✨ <math xmlns="http://www.w3.org/1998/Math/MathML"> 原创不易,还希望各位大佬支持一下 \textcolor{blue}{原创不易,还希望各位大佬支持一下} </math>原创不易,还希望各位大佬支持一下

👍 <math xmlns="http://www.w3.org/1998/Math/MathML"> 点赞,你的认可是我创作的动力! \textcolor{9c81c1}{点赞,你的认可是我创作的动力!} </math>点赞,你的认可是我创作的动力!

⭐️ <math xmlns="http://www.w3.org/1998/Math/MathML"> 收藏,你的青睐是我努力的方向! \textcolor{ed7976}{收藏,你的青睐是我努力的方向!} </math>收藏,你的青睐是我努力的方向!

✏️ <math xmlns="http://www.w3.org/1998/Math/MathML"> 评论,你的意见是我进步的财富! \textcolor{98c091}{评论,你的意见是我进步的财富!} </math>评论,你的意见是我进步的财富!

相关推荐
y = xⁿ10 分钟前
重生之我创作出了小红书:对象存储模块,用户资料模块
后端·mysql·intellij-idea
404避难所19 分钟前
windows安装WSL2
后端
轩情吖19 分钟前
MySQL之用户管理
数据库·c++·后端·mysql·权限管理·用户管理
添尹1 小时前
Go语言基础之基本数据类型
开发语言·后端·golang
fffcccc11121 小时前
关于解决Eino不兼容音音频输入的问题
后端
Leo8991 小时前
go从零单排之方法
后端
wefly20171 小时前
告别本地环境!m3u8live.cn一键实现 M3U8 链接预览与调试
前端·后端·python·音视频·m3u8·前端开发工具
Darren2452 小时前
JUnit 5 + Mockito 终极实战笔记
后端
苏三说技术3 小时前
AI中四种向量数据库
后端
江沉晚呤时4 小时前
.NET 9 快速上手 RabbitMQ 直连交换机:高效消息传递实战指南
开发语言·分布式·后端·rabbitmq·.net·ruby