ABAP学习（24）：Smartforms示例

最新推荐文章于 2024-10-15 13:53:05 发布
最新推荐文章于 2024-10-15 13:53:05 发布
阅读量792 收藏 4
点赞数
文章标签： 学习
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_40302781/article/details/129610214
版权
本文详细介绍了如何在ABAP中使用Smartforms创建可打印的窗体，包括创建样式、定义表格和逻辑，以及如何设置打印参数。内容涵盖样式风格、表单接口、页面布局、组件类型如文本、表格和逻辑流程。同时，展示了如何将Smartforms转换为PDF，并提供了ABAP代码示例进行打印预览和PDF导出。在遇到文本编辑器错误时，还给出了问题解决方法。
摘要由CSDN通过智能技术生成

ABAP Smartforms

       ABAP创建可以打印的窗体，二维码等。Tcode: SMARTFORMS,可以创建对应Form以及对应样式Style。

1.创建Style

 

创建Style:ZTOM_TEST_STYLE1;

整体样式，

指定默认Paragraph的格式L1；

指定字体，大小等；

 

Paragraph样式，

指定段落字体对齐方式；

设置段落字体及字体大小；

 

Character Formats:

打印二维码，条形码使用的字体格式；

 

2.创建Form

创建Smartforms:ZTOM_TEST_FORM1;

 

Form Attributes:

Page Format:指定打印纸张类型；

Characters per Inch:每字符间距；

Lines per Inch:每行间距；

 

Form Interface:form窗体提供给外部接口；

import：输入参数；

export：输出参数；

table:table参数，ZTOM_TSPFLI是Table type，line type为spfli；

 

Global Definition:全局参数定义，form内部使用的参数；

3.创建Form->Page,Window

点击Form Painter,可以看到窗口：MAIN，HEADER，PRINT_DATE,TABLE_FOOT的位置。

 

点击Field List on/off，可以打开或关闭Field List。这里可以看到我们定义的参数，已经系统提供的参数，例如：当前页码SFSY-PAGE，系统日期SFSY-DATE等。

 

Pages and Windows:定义页面以及窗口，右键选择创建Page,Window等。一个页面可以由多个窗口构成；

next Page:指定下一页；

Window type：设置窗口类型；

 

Windows窗口下可以创建多种组件。

Table:table组件显示Table内表；

Template:模板显示固定格式信息；

Text:文本信息；

Graphic:图片；

Address:地址；

Flow Logic：逻辑代码，Alternative分支判断；Loop循环语句；Program Lines:代码行；Command:命令，例如跳转新页；

 

创建Loop:主页面需要循环LT_HEADPRE，循环显示LT_ITEMPRE中内容；

 

Table定义两种行类型，LTYPE：表头及数据显示格式；TOTAL：汇总行格式；

 

创建Table:table显示内表LT_ITEMPRE，指定HEAD筛选对应信息；

 

Table由三部分组成：Header表头，Main Area数据，Footer表尾；

需要设定每个Cell下Text的内容；

 

这里有多少个cell决定于Table定义的Line Type；

Cell下面可以创建Text,ProgramLine等；

 

这里可以统计GV_SEATMAX_COUNT，最大座位数累计，显示在Footer;

 

Text内容，使用&xxxx&方法Form传入的参数数据，Styles就是使用ZTOM_TEST_STYLE1中C1；

 

这里创建Program Lines,LT_ITEMPRE循环完，页码加1，因为设计是相同carrid,connid显示同一个表。

 

 

创建Alternative，当条件为真，统计页数小于LT_HEAD内表行数，执行Command，跳转新页，继续执行循环；

 

这里最后创建Program Lines，清空累加的最大座位数加总等数据；

 

Window:HEADER,创建Template,可以看到有5行，第一行有三列，其余行两列，按照Template划分Cell,然后填充Text数据；

 

在Output Options指定Text所在行和列；

 

关于打印条形码、二维码，只需设置对应Text的Styles选择B1(创建的Barcode格式)；

ABAP调用打印或者转换成PDF

示例：打印预览

"Smart forms
"SMARTFORMS：创建smart form
"SE78：上传图片到SAP
"SE73:SAPScript font maintaince,二维码字体维护:ZMARTX.

"打印预览
FORM f_print_preview.
  DATA:fm_name TYPE RS38L_FNAM.
  DATA:lv_ssfcrespd TYPE SSFCRESPD.
  DATA:ls_ssfcrescl TYPE SSFCRESCL.
  DATA:ls_ssfcresop TYPE SSFCRESOP.

  "打印参数
  DATA:ls_ssfctrlop TYPE SSFCTRLOP.
  "弹出框参数
  DATA:ls_ssfcompop TYPE SSFCOMPOP.

  "获取form 对应 function module name
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME                 = 'ZTOM_TEST_FORM1'  "Form name
*     VARIANT                  = ' '
*     DIRECT_CALL              = ' '
    IMPORTING
      FM_NAME                  = fm_name
    EXCEPTIONS
       NO_FORM                  = 1
       NO_FUNCTION_MODULE       = 2
       OTHERS                   = 3.
  IF SY-SUBRC <> 0.
    MESSAGE e000(ZTEST_MSG) WITH '获取function name失败'.
  ENDIF.

  "设置打印参数
  "无弹窗
  ls_ssfctrlop-NO_DIALOG = 'X'.
  "获取OTF数据，不print,fax,display
  "ls_ssfctrlop-GETOTF = 'X'.
  "预览
  ls_ssfctrlop-PREVIEW = 'X'.

  "output参数
  ls_ssfcompop-TDDEST = 'SAP'.

  "动态调用
  CALL FUNCTION fm_name
     EXPORTING
*      ARCHIVE_INDEX = ''
*      ARCHIVE_INDEX_TAB = ''
*      ARCHIVE_PARAMETERS = ''
       CONTROL_PARAMETERS = ls_ssfctrlop
*      MAIL_APPL_OBJ = ''
*      MAIL_RECIPIENT = ''
*      MAIL_SENDER = ''
       OUTPUT_OPTIONS = ls_ssfcompop
*      USER_SETTINGS = ''
    IMPORTING
*      DOCUMENT_OUTPUT_INFO = lv_ssfcrespd
      JOB_OUTPUT_INFO = ls_ssfcrescl
      JOB_OUTPUT_OPTIONS = ls_ssfcresop
    TABLES
      lt_headpre = lt_spfli
      lt_itempre = lt_sflight.
ENDFORM.

 

示例：转换PDF

"导出pdf
FORM f_export_pdf.
  DATA:fm_name TYPE RS38L_FNAM.
  DATA:lv_ssfcrespd TYPE SSFCRESPD.
  DATA:ls_ssfcrescl TYPE SSFCRESCL.
  DATA:ls_ssfcresop TYPE SSFCRESOP.

  "打印参数
  DATA:ls_ssfctrlop TYPE SSFCTRLOP.
  "弹出框参数
  DATA:ls_ssfcompop TYPE SSFCOMPOP.

  "下载pdf数据
  DATA:lv_pdf_data TYPE xstring.
  DATA:lv_pdf_line TYPE I.
  DATA:lv_filelength TYPE I.
  "转换为pdf格式
  DATA:lt_pdf_table TYPE STANDARD TABLE OF tline.
  "doc
  DATA:lt_doctab TYPE TABLE OF docs WITH HEADER LINE.

  "获取form 对应 function module name
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME                 = 'ZTOM_TEST_FORM1'  "Form name
*     VARIANT                  = ' '
*     DIRECT_CALL              = ' '
    IMPORTING
      FM_NAME                  = fm_name
    EXCEPTIONS
       NO_FORM                  = 1
       NO_FUNCTION_MODULE       = 2
       OTHERS                   = 3.
  IF SY-SUBRC <> 0.
    MESSAGE e000(ZTEST_MSG) WITH '获取function name失败'.
  ENDIF.

  "设置打印参数
  "无弹窗
  ls_ssfctrlop-NO_DIALOG = 'X'.
  "获取OTF数据，不print,fax,display
  ls_ssfctrlop-GETOTF = 'X'.
  "预览
  "ls_ssfctrlop-PREVIEW = 'X'.

  "output参数
  "ls_ssfcompop-TDDEST = 'SAP'.

  "动态调用
  CALL FUNCTION fm_name
     EXPORTING
*      ARCHIVE_INDEX = ''
*      ARCHIVE_INDEX_TAB = ''
*      ARCHIVE_PARAMETERS = ''
       CONTROL_PARAMETERS = ls_ssfctrlop
*      MAIL_APPL_OBJ = ''
*      MAIL_RECIPIENT = ''
*      MAIL_SENDER = ''
       OUTPUT_OPTIONS = ls_ssfcompop
*      USER_SETTINGS = ''
    IMPORTING
*      DOCUMENT_OUTPUT_INFO = lv_ssfcrespd
      JOB_OUTPUT_INFO = ls_ssfcrescl
      JOB_OUTPUT_OPTIONS = ls_ssfcresop
    TABLES
      lt_headpre = lt_spfli
      lt_itempre = lt_sflight.

*  "OTF数据转换PDF
*  CALL FUNCTION 'CONVERT_OTF'
*    EXPORTING
*      FORMAT                      = 'PDF'
*      MAX_LINEWIDTH               = 132
**     ARCHIVE_INDEX               = ' '
**     COPYNUMBER                  = 0
**     ASCII_BIDI_VIS2LOG          = ' '
**     PDF_DELETE_OTFTAB           = ' '
**     PDF_USERNAME                = ' '
**     PDF_PREVIEW                 = ' '
**     USE_CASCADING               = ' '
**     MODIFIED_PARAM_TABLE        =
*    IMPORTING
*      BIN_FILESIZE                = lv_pdf_line
*      BIN_FILE                    = lv_pdf_data
*    TABLES
*      OTF                         = ls_ssfcrescl-OTFDATA[]
*      LINES                       = lt_pdf_table
*    EXCEPTIONS
*      ERR_MAX_LINEWIDTH           = 1
*      ERR_FORMAT                  = 2
*      ERR_CONV_NOT_POSSIBLE       = 3
*      ERR_BAD_OTF                 = 4
*      OTHERS                      = 5
*            .
*  IF SY-SUBRC <> 0.
*    MESSAGE e000(ZTEST_MSG) WITH 'CONVERT_OTF error'.
*  ENDIF.

   "OTF数据转换PDF
   CALL FUNCTION 'CONVERT_OTF_2_PDF'
*    EXPORTING
*      USE_OTF_MC_CMD               = 'X'
*      ARCHIVE_INDEX                =
     IMPORTING
       BIN_FILESIZE                 = lv_pdf_line
     TABLES
       OTF                          = ls_ssfcrescl-OTFDATA[]
       DOCTAB_ARCHIVE               = lt_doctab
       LINES                        = lt_pdf_table
*    EXCEPTIONS
*      ERR_CONV_NOT_POSSIBLE        = 1
*      ERR_OTF_MC_NOENDMARKER       = 2
*      OTHERS                       = 3
             .
   IF SY-SUBRC <> 0.
     MESSAGE e000(ZTEST_MSG) WITH 'CONVERT_OTF_2_PDF error'.
   ENDIF.


  "下载PDF
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      BIN_FILESIZE                    = lv_pdf_line
      FILENAME                        = 'E:\test.pdf'
      FILETYPE                        = 'BIN'
*     APPEND                          = ' '
*     WRITE_FIELD_SEPARATOR           = ' '
*     HEADER                          = '00'
*     TRUNC_TRAILING_BLANKS           = ' '
*     WRITE_LF                        = 'X'
*     COL_SELECT                      = ' '
*     COL_SELECT_MASK                 = ' '
*     DAT_MODE                        = ' '
*     CONFIRM_OVERWRITE               = ' '
*     NO_AUTH_CHECK                   = ' '
*     CODEPAGE                        = ' '
*     IGNORE_CERR                     = ABAP_TRUE
*     REPLACEMENT                     = '#'
*     WRITE_BOM                       = ' '
*     TRUNC_TRAILING_BLANKS_EOL       = 'X'
*     WK1_N_FORMAT                    = ' '
*     WK1_N_SIZE                      = ' '
*     WK1_T_FORMAT                    = ' '
*     WK1_T_SIZE                      = ' '
*     WRITE_LF_AFTER_LAST_LINE        = ABAP_TRUE
*     SHOW_TRANSFER_STATUS            = ABAP_TRUE
*     VIRUS_SCAN_PROFILE              = '/SCET/GUI_DOWNLOAD'
    IMPORTING
      FILELENGTH                      = lv_filelength
    TABLES
      DATA_TAB                        = lt_pdf_table
*     FIELDNAMES                      =
    EXCEPTIONS
      FILE_WRITE_ERROR                = 1
      NO_BATCH                        = 2
      GUI_REFUSE_FILETRANSFER         = 3
      INVALID_TYPE                    = 4
      NO_AUTHORITY                    = 5
      UNKNOWN_ERROR                   = 6
      HEADER_NOT_ALLOWED              = 7
      SEPARATOR_NOT_ALLOWED           = 8
      FILESIZE_NOT_ALLOWED            = 9
      HEADER_TOO_LONG                 = 10
      DP_ERROR_CREATE                 = 11
      DP_ERROR_SEND                   = 12
      DP_ERROR_WRITE                  = 13
      UNKNOWN_DP_ERROR                = 14
      ACCESS_DENIED                   = 15
      DP_OUT_OF_MEMORY                = 16
      DISK_FULL                       = 17
      DP_TIMEOUT                      = 18
      FILE_NOT_FOUND                  = 19
      DATAPROVIDER_EXCEPTION          = 20
      CONTROL_FLUSH_ERROR             = 21
      OTHERS                          = 22
            .
  IF SY-SUBRC <> 0.
    MESSAGE e000(ZTEST_MSG) WITH 'GUI_DOWNLOAD error'.
  ENDIF.

ENDFORM. 

问题

1.编辑文本Text时，弹窗报错：CSapEditorCtrl::GetObject:Object 13 does not exist

可以执行Program: RSCPSETEDITOR,修改Smartforms使用的文本编辑器。

 

使用Smart Forms，不使用SAPscript，点击激活。

设置完成后，退出Smartfroms，重新执行Tcode再次编辑时，发现已经解决问题。

偶是不器
关注
SAP 讲解史上最牛smartforms
weixin_30565199的博客
03-20 3397
Smart Forms. 1文本模块... 2节点元素... 3Page节点... 3窗口元素... 4文本节点... 4图形节点SE78. 5模板节点... 6地址节点... 7样式... 7小技巧：查看Form生成的函数... 9SmartForm强制分页（抬头、项目表都显示）... 9打印参数控制... 14一次性输出多张报表... 15SmartForm转PDF乱码问题... ...
SAP ABAP smartforms 创建并实现调用源码（下）
qq_41757790的博客
05-30 1000
SAP ABAP SMARTFORMS 智能表单的创建和调用源码
Smartforms 的一个实例
weixin_42646630的博客
02-01 978
自己偶尔做的一个实例，具体内容是： 封面单独一页，写着采购订单，然后写着订单的抬头和明细，明细中数量金额小计，5行一页。 只是测试用的，比较简陋啊。 1、封面：采购订单文本是通过text module，然后再window中直接调用，logo是通过SE78上传的。 因为只是封面调用一次，所以没有创建main window，同时next page也不是当前页。 接口变量和全局变量： 1、调用table控件之前，这里获取header_count的...
SAP smartforms 例子
10-08
自己工作中开发的smartforms程序，有打印SO,DO,Billing等等，可以直接上载到sap系统查看参考，希望对大家有帮助，由于是本人亲自写出来的心血，因此，对初学smartforms的同学有很大的帮助哦！
SMARTFORMS LOOP循环行
最新发布
weixin_44686958的博客
10-15 182
文章目录创建数据结构SMARTFORMS表实现循环运行结果另一种 创建数据结构 SMARTFORMS表实现循环 运行结果 另一种
【转载】ABAP实战Smart Forms设计
hubaichun的专栏
10-20 2084
作者参考书籍：实战SAP程序开发 Smart Forms是ABAP设计单据打印的工具，设计过程由两部分组成： (1)在Smart Forms设计单据的样式、输入输出数据接口； (2)编程调用设计单据、输出数据，实现打印输出。 本博文先以一个简单的例子，将Form与程序联调，快速了解整个设计过程，再详细介绍Smart forms相关设计及较复杂的例子。 1、一个简单的例子 本
Smart forms
weixin_57712008的博客
10-08 3930
Smart forms的创建、调用，查表方法，Excel 导入程序介绍
sap abap smartforms(本人自己写的)
02-19
sap abap smartforms案例，这个因为是自己写的所以比较详细，值得下载
abap自学的好教材：SmartForms 之一--设计
04-16
标题提及的"SmartForms"是SAP ABAP编程中用于创建动态打印输出和电子文档的一种技术。SmartForms结合了图形化的用户界面和编程逻辑，使得开发者可以构建复杂的表单，适用于各种业务报告和文档需求。描述中提到的是...
ABAP快速入门：从基础到实战
本文档是一份关于ABAP快速学习的指南，名为"ABAP三月通"，目标是在三个月内帮助读者熟练掌握ABAP编程。ABAP（Advanced Business Application Programming）是SAP系统中的编程语言，最初设计用于生成财务报表，但现在...
SAP ABAP开发实战指南：从入门到Smartforms ALV
在实践中，SAP IDES系统提供了丰富的示例程序和数据，是学习和测试ABAP程序的理想平台。而MINISAP则适合初学者进行基础练习，因为它对硬件配置的要求相对较低。 SAP ABAP开发是一项综合性的技能，涵盖了数据处理、...
smartforms 实践例子，详细的讲解smartforms
09-18
smartforms 实践例子，详细的讲解smartforms
abap_smartforms表单设计教程
02-01
SMARTFORM是在SAPScript的基础之上产生的一种新的FORM制作方式，它完全兼容SAPScript。 SMARTFORMS和SAPSCRIPT FORM都是SAP中设计打印报表的工具，但是SAPScript需要手工一条一条的根据坐标和长、高画表格线，这样极为不方便，而SmartForms有一个 GUI来直接画界面，因此，总的来说，使用SmartForms来设计报表打印要简单很多。而且SAPSrcipt在不同的Client中需要传输，测试起来也不方便。传输SAPScript的事务代码 为：SCC1，对应程序名为 RSTXSCRP。其实smartforms就是用来对我们所需要的数据进行一些出来生成报表打印出来，我们可以随意的设计报表的样式。
smartform实例讲解
09-28
ABAP SMARTFORMS实例讲解。。编程开发
smartforms实例下载
01-20
smartforms实例下载--希望给更多初学者提供帮助。
ALV和SMARTFORMS实例
06-27
ALV和SMARTFORMS实例,详细讲述了ALV和SMARTFORMS的实现过程
SAP ABAP开发详解：环境与关键技术
IDES环境则为学习和演示设计，提供了完整的业务数据和示例程序，适合进行业务程序的开发实践。MINISAP主要用于开发与维护，不具备业务功能，配置要求较低，使用MSDE数据库。 在ABAP开发中，常见的任务包括报表开发...
ABAP-07 SMARTFORMS--没搞懂
fjx0923的博客
10-17 456
SMARTFORMS
ABAP Smartform实例
热门推荐
Huiyang的博客
09-25 1万+
abap smartform实例
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

偶是不器

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值