Smart Form Tutorial(适用新手学习)

发现Smart FormECC6中和4.6C相比改变了不少,最近重新研究了一下。help.sap.com上的文档基本上是针对新特性的,不过例子却还是旧的。做个笔记省的以后找不到最新的example
最大的改变在Table上,现在tableheaderfooter比以前好做了。
还是用IDES自带的SFLIGHT表做例子,先看一下打印出来的效果:
Smart Form 相对SAP Script来说,系统给封装了很多功能,这样用户在Form中的代码写的少了一些,更容易维护,如果把SAP Script比作汇编语言的话,Smart Form可以算上C++了,不过个人感觉对于复杂表单的设计来说,用SAP Script更容易实现。在Smart Form中调整表格边线比较费劲。
1. Create a Form named 'ZBSUNTEST'
TCode: SMARTFORMS创建一个空白的Form。双击左边树状结构中的'Global Setting'->'Form Attributes'。在 里头可以看到纸张的设置,默认是A4。这里还可以调正一页中可以打印多少行。
2. Form Interface
我们生成一个Form的同时,系统也创建了一个相应的function moduleFormApplication的数据交换就是通过functioninterface来实现的。双击左边树状结构中的'Global Setting'->'Form Interface',我们可以看到 ,这和我们在SE37中看到的function module的接口是一样的。点击'Table'这个tab,输入如下:
3. Global Definition
这里定义的是在form中共用的全局变量,还可以定义subroutine form初始化的时候调用的一个routine,可以在这里做一些data初始化的工作。  用来设置货币或者数量的单位关联用的。
下面是'Global Data'里头的定义:

上图中的T_SUM类型是我在'Types'里头定义的,其中PRICE, CURRENCY是用来做sum用的:
TYPES:
  BEGIN OF T_SUM,
    PRICE  TYPE S_PRICE,
    CURRENCY   TYPE S_CURRCODE,
  END OF T_SUM.
下面是Currecy & Quantity的单位关联设置。这样关联之后Price会按照Currency的不同,输出格式也不同:
 
4. Create a Style named 'Z_BSUN_TITEL01'
回过头我们要创建一个给这个Form使用的Style。还是用SMARTFORMS这个TCode来创建。在这个Styel里头我只创建了'Paragrah Format',真正的项目中'Character Format'肯定也是不可缺少的。这个Style使用在Step 1 中创建的Form所有的Output Option中。
M1: Aligned:left;Indent->left margin:0.20 CM;font family: Arial;font size: 12pt
M2: Aligned:right;Indent->right margin:0.20 CM;font family: Arial;font size: 11pt
M3: Aligned:right;Indent->right margin:0.20 CM;font family: Arial;font size: 12pt;font color:blue
T1: Aligned:center;font family: Arial;font size: 14pt;font style: Bold Italic
5.Creat a Page named 'FIRSTPG'
下创建一个名为'FIRSTPG'page,并把它的next page设置为其本身。Page Format设置为'Portrait Format'
6.Create Windows under 'FIRSTPG'

Windows
Position and Size如下(单位都是CM)
HEADER:  L2.60, U0.20, W14.70, H2.00
MAIN: L2.00, U2.00, W16.00, H25.00
FOOTER:  L2.60, U27.20, W14.70, H2.00
7. Create Header's Text
'HEADER' Window node下面创建一个Text,取名'TITLE'Text type设置成'Text Element'。再PC Editor中点  输入 T1就是在Step 3里头定义的Paragraph Format
8. Create a table in 'MAIN' Window
'MAIN' Window node下面创建一个Table . Table下面自带了三个node: header, main area, footer,颜色跟别的由用户创建的node有区别。其中Tableheader node下面我们可以放表头。Tablefooter node跟我们在Step 6创建的FOOTER Window有区别。FOOTER Window的位置是固定的,TablefooterTableline在哪里结束,它就紧跟在后面。文章开头的打印结果中我们可以很直观的看到这两个的区别:FOOTER Window在每页的最下面(打印了两次,尽管内容不一样),Table footer在第二页中间只打印了一次。当然我们说的都是默认的情况。
9. Insert program line 'CODE_CLEAR' before 'MAIN' Window
Input Parameters:  G_TAB_DATA;
Output Parameters: G_REC_TOTAL, G_TAB_TOTAL, G_ITEMS_ONPAGE;
REFRESH: G_TAB_TOTAL, G_TAB_SUBTOTAL.
CLEAR: G_REC_TOTAL, G_REC_SUBTOTAL, G_ITEMS, G_ITEMS_ONPAGE.
DESCRIBE TABLE G_TAB_DATA LINES G_ITEMS. "Get total item number
 Programe Line中使用到的全局变量必须在Input/Output中定义,否则check不通过。
10. Create some line types in Table 'FLIGHTINFO'
Line Type是控制表格格式的,每一个Table Line都要指定一个Line Type

Layout
如下图,注意这些Lineborder是框了线的
11. 'DATA' of Table 'FLIGHTINFO'

G_TAB_DATA
Step 2Form Interface定义的一个内部表,也就是从Application传过来准备给Form显示的数据。我们还想让显示的数据排一下序,当然这可以在外部程序中SORT,不过这里的排序还有触发event的作用,后面会讲到。如果内部表已经排好序了,只是想触发类似LOOPAT NEW/AT END OF这样的功能,那么把 这个勾上就好。下面是SORT的设置,我们对CARRID(Airline),CONNID(Flight No.)排序,并且要触发两个events,用来做subtotal统计。
12. 'Calculation' of Table 'FLIGHTINFO'
是用来对TableFields做简单计算的,包括'Number', 'Total', 'Mean Value'。如果不是涉及到货币或者数量的统计我们可以用'Total'这个Operation,具体使用可以参考help。我这里用了'Number'做一个每页的Items统计,'Number'也可以用来做行号。
13. Insert a title in table header
Table 'FLIGHTINFO'header node下增加table line HEADER_LINELINE TYPE'Line1'tablbe line自动带出5cellcell的数目是根据LINE TYPE :'Line1'来的,Step 10里头可以看到Line1是有5cell的。我们在每一个cell下面添加一个Text,作为colum title,把paragraph format设置成M1。不过'Price'这个Column因为是数字,paragraph format设置成M3

P.S.Table
自带的headerOutput Option->Print Time有两个选项

at start of Table
就不说了,不过at Page Break工作不正常,第2页并没有打印出来title,也不知道是不是我写的问题。
14. Insert table line into table main area
Main Area
是显示Application传进来的内部表的地方,和Step 13一样增加一个Line Type=LINE1Table Line,每个Cell下各增加一个Text,属性设置成'Text Element'

PC Editor ,编辑Text内容,以CARRID为例:  
15. Insert a Program Line Under 'DATA_LINES'
CURRENCY_DATA
下的Programe Line: SUM,是为了做合计用的,按照Currecy的不同将Price合计。(当然单价Price的合计没什么实际意义,权当是演示)
Input Parameters:  G_REC_DATA, G_TAB_SUBTOTAL;
Output Parameters: G_REC_TOTAL, G_TAB_TOTAL;
G_REC_TOTAL-PRICE = G_REC_DATA-PRICE.
G_REC_TOTAL-CURRENCY = G_REC_DATA-CURRENCY.
COLLECT G_REC_TOTAL INTO G_TAB_TOTAL.
COLLECT G_REC_TOTAL INTO G_TAB_SUBTOTAL.
CLEAR: G_REC_TOTAL.
内部表'G_TAB_TOTAL','G_TAB_SUBTOTAL'保存的是合计和根据'Airline'进行小计的数据。
16. Print 'Grand Total' in table footer
tablefooter node下增加一个loop node  
Loop
DATA如下:

因为我只想在所有的记录打印结束之后显示总计,所以给这个loop增加一个condition。在Condition Tab里的Output Condition中增加一行:

G_ITEMS_ONPAGE
Step 12中被赋值Number, G_ITEMStep 9被赋值内部表中的记录数,当这两个值相等的时候也就是记录输出完毕的时候。再给loop node下一级增加一行table lineLINE TYPE : LINE3
GRANDTOTAL: M2 -> 'Grand total:'
PRICESUM_TAB: M2 -> &G_REC_TOTAL-PRICE&
CURR_TAB: M2->&G_REC_TOTAL-CURRENCY&
17. Print subtotal in table (1)
我们在Step 10里头的Sort中勾选了CARRID字段的两个事件之后就能够发现table node 自动增加了两个节点:

首先在'CARRID Event on Sort Begin'下一级增加一个Program Line:SUB_CLEAR,用来在CARRID改变的时候清空subtotal内部表。
Output Parameters: G_REC_SUBTOTAL;
CLEAR: G_REC_SUBTOTAL.
REFRESH: G_TAB_SUBTOTAL.
然后在'CARRID Event on Sort End'下一级增加一个Program Line:CLEAR_SUBTITLE,用来清空一个打印标志。
Output Parameters: G_FLG_SUBTITLE;
CLEAR: G_FLG_SUBTITLE.
每一个CARRID(Airline)下面可能会有多种不同的货币价格,这个标志的作用是为了限制下面的'Subtotal of &G_REC_SUBTOTAL-CARRID& is'这句话在小计的时候不至于print出来很多遍。
18. Print subtotal in table (2)
'CARRID Event on Sort End'下一级增加一个Loop:PRINTSUBTOTAL:

Loop:PRINTSUBTOTAL:
下一级增加一个table line:SUBTOTALLINE TYPE : LINE3
AIRLINE_NAME: M2 -> 'Subtotal of&G_REC_DATA-CARRID& is'
SUB_PRICE: M2 -> &G_REC_SUBTOTAL-PRICE&
SUB_CURR: M2->&G_REC_SUBTOTAL-CURRENCY&
其中AIRLINE_NAME是有显示条件的:G_FLG_SUBTITLE没有赋值的时候才显示。

AIRLINE_NAME print
出来之后我们在Program Line 'SET_SUBTITLE'中将G_FLG_SUBTITLE设置为'X'
Output Parameters: G_FLG_SUBTITLE;
G_FLG_SUBTITLE = 'X'.
19. Print 'Grand Total' in page footer
FOOTER Window的下一级添加一个Table Line: FTTABLE, Line Type:

DATA:

然后,在FTTABLEMain Area下增加一行Table Line: PRICESUM, Line Type: LINE1 

为了控制在最后一页的页脚打印出来金额合计,要给PRICESUM增加一个条件。在Conditions Tab里头的
And Additional Event
中勾选'Only after end of main window''SUM''CURR'这两个Text的设置如下:
SUM: M2 -> &G_REC_TOTAL-PRICE&
CURR: M2->&G_REC_TOTAL-CURRENCY&
最后,在FTTABLEFooter下增加一行Table Line: FOOTER, Line Type: LINE1 

ITEMS: M2 -> ITEMS IN THIS PAGE:&G_ITEMS_ONPAGE(3)&
PAGE: M2->PAGE:&SFSY-PAGE&
20. Calling a Smart Form from Application
生成smart form的同时系统会自动创建一个对应的funtion module,这个function的名字可以通过菜单Enviroment->Function Module Name得到。在程序中一般通过function 'SSF_FUNCTION_MODULE_NAME'来得到。下面是我们的测试这个smart form的代码:
*&---------------------------------------------------------------------*
*& Report  Z_SUN_SFORM
*&
*&---------------------------------------------------------------------*
REPORT  Z_SUN_SFORM NO STANDARD PAGE HEADING LINE-SIZE 150 MESSAGE-ID ZBSUN.
************************************************************************
* D E C L A R A T I O N   O F  I N T E R N A L    T A B L E S
************************************************************************
DATA:
  G_TAB_OUTPUT   TYPE STANDARD TABLE OF SFLIGHT.
************************************************************************
* D E C L A R A T I O N   O F  V A R I A B L E S
************************************************************************
DATA:
  G_REC_OUTPUT      TYPE SFLIGHT,
  G_REC_OPTIONS     LIKE ITCPO,
  G_REC_RESULT      TYPE ITCPP.
************************************************************************
* D E C L A R A T I O N   O F  C O N S T A N T S
************************************************************************
CONSTANTS:
  G_CON_FLG_ON      TYPE C VALUE 'X',
  G_CON_FORMNAME(8) TYPE C VALUE 'ZBSUN_01'.
************************************************************************
*    S E L E C T I O N   S C R E E N
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME.
SELECT-OPTIONS S_LINE FOR G_REC_OUTPUT-CARRID NO INTERVALS.
SELECT-OPTIONS S_DATE FOR G_REC_OUTPUT-FLDATE.
SELECTION-SCREEN END OF BLOCK BLOCK1.
************************************************************************
*  S T A R T - O F - S E L E C T I O N
************************************************************************
START-OF-SELECTION.
  PERFORM FRM_GET_DATA.
************************************************************************
*  E N D - O F - S E L E C T I O N
************************************************************************
END-OF-SELECTION.
  PERFORM FRM_OUTPUT.
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       GET FLIGHT DATA
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .
  SELECT *
    INTO TABLE G_TAB_OUTPUT
    FROM SFLIGHT
   WHERE CARRID IN S_LINE
     AND FLDATE IN S_DATE.
  IF SY-SUBRC <> 0.
    MESSAGE E000.
*   No data selected.
  ENDIF.
ENDFORM.                    " FRM_GET_DATA
*&---------------------------------------------------------------------*
*&      Form  FRM_OUTPUT
*&---------------------------------------------------------------------*
*       OUTPUT DATA
*----------------------------------------------------------------------*
FORM FRM_OUTPUT.
  DATA: FM_NAME TYPE RS38L_FNAM.
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME                 = 'ZBSUNTEST'
*     VARIANT                  = ' '
*     DIRECT_CALL              = ' '
   IMPORTING
     FM_NAME                  = FM_NAME
*   EXCEPTIONS
*     NO_FORM                  = 1
*     NO_FUNCTION_MODULE       = 2
*     OTHERS                   = 3
            .
  IF SY-SUBRC <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CALL FUNCTION fm_name
*  EXPORTING
*   ARCHIVE_INDEX =
*   ARCHIVE_PARAMETERS =
*   CONTROL_PARAMETERS =
*   MAIL_APPL_OBJ =
*   MAIL_RECIPIENT =
*   MAIL_SENDER =
*   OUTPUT_OPTIONS =
*   USER_SETTINGS = 'X'
* IMPORTING
*   DOCUMENT_OUTPUT_INFO =
*   JOB_OUTPUT_INFO =
*   JOB_OUTPUT_OPTIONS =
  TABLES
    G_TAB_DATA = G_TAB_OUTPUT
  EXCEPTIONS
    FORMATTING_ERROR = 1
    INTERNAL_ERROR = 2
    SEND_ERROR = 3
    USER_CANCELED = 4
    OTHERS = 5.
IF SY-SUBRC <> 0.
*   <error handling>
ENDIF.
ENDFORM.                    " FRM_OUTPUT
到这里这个Tutorial就结束了,我们没有用到的node还有Command, Alternative,Graphic,Complex Section等。其中Command主要用来插入分页或者打印控制语句的;Alternative用来插入一个逻辑分支;Graphic插入图片的;Complex Section我自己没用过,看帮助文件说SAP不推荐使用。
real project中的form不会有这么简单,但是也不会脱离这些elements的组合。
 

转载于:https://www.cnblogs.com/duadu/archive/2007/07/23/6166698.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/363979.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

执行命令npm install XXX后仍然提示 Cannot find Module XXX

最近遇到一个问题&#xff0c;在服务器上配置完node环境后 执行npm start 命令后提示 Cannot find Module "Jquery" 然后就知道可能没有安装jquery 就继续在当前文件夹下执行 npm install jquery 但是再次执行后却仍然提示 Cannot find Module "Jquery"…

青蛙学Linux—Zabbix Web使用之Zabbix发现功能①自动网络发现

Zabbix的发现功能用于自动发现主机或者监控数据&#xff0c;包括以下三种发现类型&#xff1a; 自动网络发现&#xff08;Network discovery&#xff09;主动客户端自动注册&#xff08;Active agent auto-registration&#xff09;低级别发现&#xff08;low-level discovery&…

php 修改 wordpress,wordpress怎么编辑代码修改页面

wordpress是用PHP写的。PHP是服务器端执行脚本文件。然后到客户端(就是网页)生成html文件。你看到的html代码都是PHP程序在服务器端执行后生成的。若要修改代码主要是看想修改那一部分的内容。然后找到其对应的PHP代码.然后修改。在后台点击-->,就能看见你现在使用的wp主题的…

mpvue tabBar设定 app.json

1.微信小程序&#xff0c;设置src/app.json 中的tabBar 图标选择来自 iconfont 如图所示 小程序显示如下&#xff1a; 转载于:https://www.cnblogs.com/0909/p/11144861.html

JDK 8时代的抽象类与接口

在新的Java 8日期和时间API&#xff1a;Stephen Colebourne的访谈中 &#xff0c; Stephen Colebourne告诉Hartmut Schlosser &#xff1a;“我认为最重要的语言更改不是lambda&#xff0c;而是接口上的静态方法和默认方法。” Colebourne补充说&#xff1a;“添加默认方法消除…

察看linux内存使用情况

free功能说明&#xff1a;显示内存状态。语  法&#xff1a; free [-bkmotV][-s <间隔秒数>]补充说明&#xff1a;free指令会显示内存的使用情况&#xff0c;包括实体内存&#xff0c;虚拟的交换文件内存&#xff0c;共享内存区段&#xff0c;以及系统核心使用的缓冲区…

ajax请求拿到多条数据拼接显示在页面中

首先我们拿到的了一坨Json数据 如下 然后通过ajax请求拿到数据 在ajax的success方法中处理和使用数据&#xff1a; 其中包括&#xff1a; 用eval处理这种数据 var outStr eval(( data.data )); 用循环取出数据并使用 $.each(outStr,function(index){ console.log(outStr[i…

onesignal php,PHP FPM源代码反刍品味之五:信号signal处理

unix 的信号signal常用于进程管理.比如管理员或者操作系统通过向master进程实现重启和关闭服务&#xff0e;master进程通过向worker进程发信号管理worker进程&#xff0e;通常会在进程自定义信号处理函数,处理相关的逻辑.自定义信号处理函数,从使用者的角度看,很简单,有点像快捷…

【leetcode】657. Robot Return to Origin

Algorithm 【leetcode】657. Robot Return to Origin https://leetcode.com/problems/robot-return-to-origin/ 1&#xff09;problem There is a robot starting at position (0, 0), the origin, on a 2D plane. Given a sequence of its moves, judge if this robot ends up…

HTTP Developer's Handbook Part V: Security 读书笔记

Thus, the SSL handshake takes place once a TCP connection has been established between the Web client and Web server and before the initial HTTP request is sent.转载于:https://www.cnblogs.com/huyi/archive/2010/11/06/1870686.html

Spring 3.2矩阵变量是什么? - 第1部分

Spring 3.2引入了对处理“矩阵变量”的支持&#xff0c;并且可能像大多数开发人员一样&#xff0c;我从未听说过它们。 因此&#xff0c;经过一番研究&#xff0c;我对这个博客的了解是什么&#xff0c;以及您可以如何使用它们。 和往常一样&#xff0c;如果我错了&#xff0c;…

登录界面点击登录后如何延迟提示成功的div的显示时间并跳转

需求&#xff1a; 在登录页面点击sign in跳转到下个页面之前&#xff0c;我需要显示成功的窗口2秒然后自动关闭 那我们来研究下setTimeout: 关于这个setTimeout首先下面的代码实现的是两秒之后再显示SuccLogin窗体。 setTimeout(function () {$(".SuccLogin").sho…

MSN和QQ文件传输速度解析

基本上就是说msn传输文件是使用TCP&#xff0c;而QQ使用UDP&#xff0c;这就是两者传输速率的区别…… 发现很多情况下&#xff0c;msn传输文件比qq要慢&#xff0c;倒不是说msn没有快的时候&#xff0c;但是大部分的时候是真的比QQ慢&#xff0c;连我这种神经比较大条的人都注…

Java 队列清空,如何清空Actor死信队列 - java

我有一个用例&#xff0c;我想清空我的Akka演员的死信队列。我的本地演员与远程演员交谈&#xff0c;并定期向其发送一些数据。我认为这些会排队等待&#xff0c;因为当远程角色可用时&#xff0c;会发生大量事件。是否可以限制此队列的大小&#xff1f;甚至更好地访问它&#…

[minecraft]mcCoder制作有感

mcCoder是一个minecraft-forge-mod制作库&#xff0c;力图让mod制作者可以更简单的制作mod&#xff0c;减少mod制作者的mod制作难度。 在GitHub上关注这个项目&#xff1a; 原理 mcCoder主要使用&#xff0c;JSR 269 Pluggable Annotation Processing API&#xff0c;辅以使用a…

关于导入oracle10g的数据到sqlserver2005里的方案总结

由于项目需求&#xff0c;现需要将oracle的数据全部导入到sqlserver中&#xff0c;一下算是自己的总结小计吧。 sqlserver有自己的导入数据的功能&#xff0c;其中就有提供两种方式从oracle导入数据。 两种方式就不仔细说了&#xff0c;可以google到的。 遇到的问题如下&…

js文件处理File

支持File API的浏览器有IE10 ,Firefox3.5 &#xff0c;Opera10.6 &#xff0c;Safari5 ,Chrome。 1.在表单元素上<input type"fiel" name"file" id"file" />&#xff0c;可以选择一个或多个文件&#xff0c;通过获取文件元素对象的集合fi…

在IntelliJ IDEA中为不同的数据源着色

IntelliJ IDEA中的数据库插件是使用数据库中数据的有用工具。 只要我们有了JDBC驱动程序来连接数据库&#xff0c;就可以配置数据源。 然后&#xff0c;我们可以运行查询&#xff0c;检查表的内容并使用数据库工具窗口更改数据。 具有多个数据源&#xff08;例如开发和测试环境…

.NET Framework 如何:提高性能

以下编程做法可以节省内存和改善设备应用程序的性能。 使用 Windows 窗体和图形节省内存 对提供 BeginUpdate 和 EndUpdate 方法的控件使用这两种方法&#xff0c;提供这两种方法的控件包括 ComboBox、ListBox、ListView、ToolStripComboBox 和 TreeView。 重新定位控件时&…

[蓝桥杯]ALGO-185.算法训练_Trash Removal

题目描述&#xff1a; 代码如下&#xff1a; 1 #include <algorithm>2 #include <cstdio>3 #include <cstdlib>4 #include <cmath>5 #include <cstring>6 #include <iostream>7 #define INF 0x7fffffff8 using namespace std;9 10 typed…