SAP ABAP SMARTFROMS表单

作者: 鼠小倩 | 来源:发表于2022-09-14 15:59 被阅读0次

SAP ABAP SMARTFROMS表单
Fiori-like Prototype ( SAP Cloud
SAP ABAP 创建域、数据元素、表、结构和视图
有哪些ABAP关键字和语法，到了ABAP云环境上就没办法用了？
SAP Fiori 注解 @ObjectModel.readOn
ABAP-服务器文件
如何在SAP Cloud Platform ABAP编程环境里创
ABAP Netweaver 和 ABAP Platform 这
谈谈 SAP 系统的权限管控和事务记录功能的实现
SAP ABAP 的两种内存对象类型

01 SMF表单介绍
02 SMF表单开发步骤
03 SMF表单开发实战

01 SMF表单是什么？

Smart Forms是在SAPScript的基础上产生的一种新的表单制作工具，它完全兼容SAPScript。但Smart Forms 更独立，且使用起来更加方便，可以创建FORM的同时，生成该表单对应的功能块（Function Module），从而为FORM和ABAP程序的交互提供参数接口。

SAP Smart Forms工具可用于打印和发送文档。
此工具在开发用于Internet的表单，PDF文件，电子邮件和文档中非常有用。
该工具提供了一个接口来构建和维护表单的布局和逻辑。SAP还为业务流程(如客户关系管理(CRM)，销售和分销(SD)，财务会计(FI)和人力资源(HR))提供一系列表格。
该工具允许使用简单的图形工具而不是使用任何编程工具来修改表单。这意味着没有编程知识的用户可以毫不费力地为这些表单配置业务流程的数据。

在SmartForms表单中，从静态和动态表中检索数据。
表标题和小计由触发事件指定，然后数据在最终输出之前排序。
SmartForms表单允许包含可以作为表单的一部分或作为背景显示的图形。如果需要，还可以在进行表单打印输出时抑制背景图形。

SAP系统中可用的标准智能表单的一些示例如下：
SF_EXAMPLE_01 表示具有用于客户的航班预订的表输出的发票。
SF_EXAMPLE_02 表示类似于 SF_EXAMPLE_01 的发票，但带有小计。
SF_EXAMPLE_03 指定类似于 SF_EXAMPLE_02 的发票，但可以在应用程序中选择多个客户的发票。

以下是SMARTFORMS的打印效果：

02 SMF表单开发技巧

创建Form-表单版式
创建Style-文本样式
创建 Text Module-文本模块
创建图片组件
程序调用SMARTFORMS

SMF表单开发技巧-1.创建Form-表单版式

TCODE：smartforms

SMF表单开发技巧-2.创建Style-文本样式

SMF表单开发技巧-3.创建 Text Module-文本模块

SMF表单开发技巧-4.创建图片组件

TCODE：se78

SMF表单开发技巧-程序调用SMARTFORMS

TCODE：se38

03 SMF表单开发实战

业务背景：
通过前期开发的学员信息录入功能，积累的学员信息数据；现需要使用SMARTFORMS实现学员信息卡片打印。

功能分析：
1）为实现打印功能，需用SMARTFORMS方式；开发学员卡片打印程序。
2）课堂上确认具体格式需求。

打印效果界面

实战练习

一、SE38创建程序（作为SMARTFORMS的载体）

1.准备数据库表

TABLES: ZTKT_XYXX,
        ZTKT_XYKQ.

2.定义初始屏幕

*----------------------------------------------------------------------*
*  DESC: 定义初始屏幕
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK SB01  WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS:   S_ZBJ       FOR ZTKT_XYXX-ZBJ
                                NO-EXTENSION
                                NO INTERVALS
                                OBLIGATORY
                                DEFAULT 'H1'.

  SELECT-OPTIONS:   S_ZXH       FOR ZTKT_XYXX-ZXH
                                OBLIGATORY
                                DEFAULT 'HY101'.

  SELECT-OPTIONS: S_ZRQ FOR ZTKT_XYKQ-ZRQ
                            OBLIGATORY
                            DEFAULT SY-DATUM.
SELECTION-SCREEN END   OF BLOCK SB01.

运行结果展示

3.添加事件

START-OF-SELECTION.

4.定义获取数据

创建 perform 获取数据“PERFORM FRM_GET_DATA.”。

*定义perform获取数据
  PERFORM FRM_GET_DATA.
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_get_data .

ENDFORM.

5.定义变量

获取的数据放入两张表中，所以先进行定义变量，定义一个结构，两张表.

*定义变量
DATA: GS_ZXYXX LIKE ZTKT_XYXX, "学员信息
      GT_ZXYXX TYPE TABLE OF ZTKT_XYXX WITH HEADER LINE, "学员信息
      GT_ZXYKQ TYPE TABLE OF ZTKT_XYKQ WITH HEADER LINE. "学员考勤

6.定义打印数据。

创建perform 打印数据“PERFORM FRM_PRINT_SMF.”。

定义 perform打印数据
  PERFORM frm_print_smf.
*&---------------------------------------------------------------------*
*& Form FRM_PRINT_SMF
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_print_smf .

ENDFORM.

二、调用smartforms进行文本测试

1.首先创建smartforms

事物代码: SMARTFORMS

然后进入samrtforms画板窗口界面，分为三部分：左侧导航窗口，中间明细窗口，右侧画板窗口。

2.添加文本控件

创建控件text文本

点击执行

再次执行

出现打印界面

打印成功

3.function函数调用smartforms

在定义打印数据的form表单“PERFORM frm_print_smf.”中，填写函数的返回参数，smartform是表单“ZSF_HY101_01”。

FORM frm_print_smf .
**定义SMARTFORMS相关变量
  DATA: LSM_NAME TYPE RS38L_FNAM.

**调用RFC函数；SMARTFORMS打印
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING  "函数的返回参数
    FORMNAME = 'ZSF_HY101_01'
  IMPORTING   "函数的输入参数
    FM_NAME  = LSM_NAME.
  IF SY-SUBRC = 0.
    CALL FUNCTION LSM_NAME
      TABLES
        IT_ZXYXX = GT_ZXYXX[]
        IT_ZXYKQ = GT_ZXYKQ[].
    IF SY-SUBRC <> 0.
    ENDIF.
  ENDIF.
ENDFORM.

测试调用smartforms成功

执行打印

调用成功

注意：调用smartforms时，smartforms必须先进行激活。

三、获取数据库中数据

在定义获取数据的form表单“PERFORM frm_get_data.”中，
通过选择条件，获取学员信息和考勤记录表中的信息，班级、学号、日期

FORM frm_get_data .
**获取学员信息
  SELECT
       *
    INTO CORRESPONDING FIELDS OF TABLE GT_ZXYXX
    FROM ZTKT_XYXX
   WHERE ZXH IN S_ZXH
     AND ZBJ IN S_ZBJ.
  IF SY-SUBRC NE 0.
    MESSAGE '学员信息不存在，请用TCODE-ZYTKT01维护' TYPE 'I'.
  ELSE.
    SORT GT_ZXYXX BY ZBJ
                     ZXH.

****获取考勤记录
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE GT_ZXYKQ
    FROM ZTKT_XYKQ
   WHERE ZBJ IN S_ZBJ "班级
     AND ZXH IN S_ZXH "学号
     AND ZRQ IN S_ZRQ."日期

  SORT GT_ZXYKQ BY ZBJ
                   ZXH
                   ZRQ.
 ENDIF.
ENDFORM.

设置断点，看是否已经从表里获取到了数据

执行

F6执行,双击变量

获取数据成功

学员信息表

学员考勤表

四、传递数据，传递数据到smartforms表单中

（1）定义两张表

form表单中进行赋值

（2）定义结构

（3）添加变量

（4）给变量进行赋值

se38激活执行程序

数据传递成功

五、绘制smartforms表单

（1）创建屏幕，存放表头、内容、表尾

（2）窗口添加模板。给窗口画格子。

效果展示

同理创建明细和表尾的模板。

模板页创建完成

（3）添加内容——“学员信息卡”。

执行出现乱码

解决乱码问题,通过创建变量的方式
定义变量

赋值

结果展示

六、调整格式：创建Style“ZSF_HY101_01”

创建段落格式结点

选择“T0”

使用格式，在smartforms中填入刚才创建的格式

结果查看

七、显示实时变量

1.动态显示信息——学员（鼠小倩）信息卡
首先把数据动态传入到信息表中

去掉初始化信息

进行赋值

效果展示：

2.表格显示：同理第二行 “鸿越”和“第几期”

首先进行定义

定义第几期变量

创建文本

style中调整格式、位置和字体大小

form中调整格式

填写输出行数

保存激活查看效果

同理：年龄、性别、出生年月、考勤明细、系统日期、系统时间

注意系统日期和系统时间，添加系统变量“SY-UZEIT”和“SY-DATUM”

八、添加显示图片信息

首先SE78上传图片
（1）首先导入图片

（2）上传成功进行传输

预览查看

（3）form中创建graphic，填写se78中上传到系统中的头像

（4）上传成功

注意：图片上传问题可参考：(54条消息) SE78上传BMP格式图片出错，出错信息提示上传的不是BMP格式图片_-_0的博客-CSDN博客

九、考勤明细传输数据补空行

补空行有两种方式，一种是通过smartforms补空行，另一种是通过传输数据代码的方式补空行

（1）在程序“ZHYR01_20220728_HY101_01”的“frm_get_data”FORM表单中插入代码

*首先查看查询的记录
  DATA: L_LINE TYPE I, "定义行数
        L_LKH  TYPE I. "定义补空行
  DESCRIBE TABLE GT_ZXYKQ LINES L_LINE."查看表中有多少行
    IF L_LINE = 0.    "判断如果行数=0.补充10个空行
      L_LKH = 10.
    ELSE.
      L_LKH = 10 - L_LINE.
    ENDIF.
* 补空行
    DO L_LKH TIMES.
      CLEAR GT_ZXYKQ.
      APPEND GT_ZXYKQ.
    ENDDO.

效果展示