ABAP学习之—SMARTFORM.ppt

1,ABAP学习之SMARTFORM,2008年7月28号V1.0,2,前言,总结了一下SmartForm的知识，和大家一起共享，也希望以后大家能够共同丰富这个PPT的内容。 本次讲解建立在大家都掌握SmartForm开发的基本知识的基础之上。,3,目录,我们主要通过SmartForm的开发流程逐次讲解： 1.如何通过表单打印类型来判断SmartForm的设计方式 2.如何选择SmartForm与程序的接口方式 3.Report中编程和SmartForm中编程的区别 4.SmartForm中常用的小技巧,4,1.如何通过表单类型来判断SmartForm的设计方式,常见的几种表单打印类型分为 套打 例如：发票的打印 非套打 1）有固定的格式，对其中的字数和行数都有严格的规定。 例如：发票凭证的打印 2）只用按照一定的格式即可。 例如：工资单信息的打印 在这里，我们主要判断是使用模板，还是表来实现主数据的循环显示。,5,2.如何选择SmartForm与程序的接口方式,在SAP的ABAP编程中，一般开发过程都是在Report程序中取出所有需要的数据，将数据进行相应的处理以后保存到输出内表中，再打印内表中的数据，但是SmartForms是一个独立的外部Function Module，对于程序内部定义的内表数据不能直接传递，需要定义外部的数据结构Structure或者使用标准的表结构，如果程序变更，需要传递的数据发生变化，那么该Sturcture也需要修改，这是SmartForms中不方便的地方。,6,2.如何选择SmartForm与程序的接口方式,2.1通过读取数据库数据 用SE11创建结构，通过设置SmartForm中的全局设置=表格借口=表，来使用。 2.2通过指针 不用在SE11中创建结构，需要在SmartForm中的全局设置=全局定义=类型 中定义。必须与Report中传输的内表结构一致。 2.3通过读取内存数据 1)在全局设置=表格借口=导入 中定义内表数据句柄。 2)不用在SE11中创建结构，需要在SmartForm中的全局设置=全局定义=类型 中定义。必须与Report中传输的内表结构一致。,7,2.1通过读取数据库数据,结构：ZSDSM0001 表单：ZSDSM0002 程序：ZSDSM0001,8,2.1通过读取数据库数据,9,2.1通过读取数据库数据,10,2.1通过读取数据库数据,11,2.1通过读取数据库数据,12,2.1通过读取数据库数据,行格式固定。,13,2.1通过读取数据库数据,系统：KF1 参考Smartform：ZSDSM0001 参考程序：YFIF0007_1,14,2.2通过指针,这种方法是通过在Smartform中建立指针，让其指向程序中的内表或工作区，从而实现不需要建立结构、不需要导入导出参数或内表，Smartform即可展示程序中数据的效果。,15,2.2通过指针,我们通常根据业务需求，会在程序中使用TYPE构建用于Smartform展示的内表或工作区，然后通过 CALL FUNCTION FNAME EXPORTING TABLES 向Smartform传入参数，在Smartform中通过全局设置表格接口定义接收参数。 使用指针，我们仍然需要在Smartform中定义参数，不过是在全局设置全局定义中进行设置。,16,2.2通过指针,步骤一：我们需要在全局定义的类型选项卡中进项设置，这里把我们程序中定义的TYPE直接复制过来就行了，如图：,直接复制程序中的type定义,17,2.2通过指针,步骤二：在全局定义的全局数据选项卡中定义Smartform中使用的内表和工作区变量，参考的类型就是步骤一中定义的类型。 定义内表使用TYPE TABLE OF 定义 工作区使用TYPE 如图：,18,2.2通过指针,步骤三：在全局定义的初始化选项卡中定义指针指向程序中的内表或工作区。 首先：在输入参数填入步骤二中定义的内表和工作区变量名称。如图：,19,2.2通过指针,然后在下面的文本框中加入如下代码： *定义变量 DATA: HEADER(50),BODY(50). *定义指针 FIELD-SYMBOLS: TYPE ANY, TYPE ANY. *将程序中的工作区和内表赋值给变量 HEADER = (YFIF0007_1)GWA_HEADER. BODY = (YFIF0007_1)GIT_BODY. *将变量赋给指针 ASSIGN (HEADER) TO . ASSIGN (BODY) TO . *将指针赋给在全局数据中定义的内表和工作区变量 GW_HEADER = . GT_BODY = .,20,2.2通过指针,那程序中需要做何事情吗？ 看这个调用Smartform的FUNCTION： CALL FUNCTION FNAME * EXPORTING * TABLES EXCEPTIONS FORMATTING_ERROR = 1 INTERNAL_ERROR = 2 SEND_ERROR = 3 USER_CANCELED = 4 OTHERS = 5. 答案是：什么都不用做，注释掉EXPORTING和 TABLES，我们不需要他们了。,21,2.2通过指针,系统：KF1 参考Smartform：YFISM0001_1 参考程序：YFIF0007_1,22,2.3通过读取内存数据,我们是在Report程序中进行取数逻辑，然后想办法将数据传递到SMARTFORMS中。我们知道在SAP中可以将一个对象Export到内存中的，我们就可以根据一个类似于句柄的字符串再次取出该数据，传送一个字符串到SmartForms中是没有任何问题的，所以我们只需要Export内表到内存中，将句柄传递到SmartForms中，在SmartForms中首先定义完全相同类型的内表，再将数据Import到内表中即可完全恢复数据，这样就完成的数据的传递工作。,23,2.3通过读取内存数据,事例程序： *&-* *& Report ZFS_TEST001 *& *&-* * 创建日期 ： 2008/07/29 * * 创建人 ： DuanYulan * * 功能说明 ： 通过调用内存才实现参数的传递 * *-* * 变更履历 * * 变更日期 变更者 管理序号 变更内容 * * YYYY/MM/DD CG X.XXXXXXXXXX XXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXX * *-* REPORT ZFS_TEST001. INCLUDE ZINC_SF_HELPER.“创建内表在内存中的句柄的程序 DATA:GIT_OUTPUT_H TYPE TABLE OF SCARR,“传入SmartForm的头数据 GWA_OUTPUT_H LIKE LINE OF GIT_OUTPUT_H, GIT_OUTPUT_D TYPE TABLE OF SFLIGHT,“传入SmartForm的明细数据 GWA_OUTPUT_D LIKE LINE OF GIT_OUTPUT_D.,24,2.3通过读取内存数据,DATA:HEADERNAME TYPE CHAR18,“头内表句柄 ITEMSNAME TYPE CHAR18,“明细内表句柄 GC_CARRID TYPE S_CARR_ID.“查询条件 SELECT-OPTIONS:S_CARRID FOR GC_CARRID. START-OF-SELECTION. PERFORM FRM_GETDATA.“输出数据的查询 “ 在句柄中加上服务器当前时间作为句柄名称，防止多人同时使用该程序，导致句柄名称相同 CONCATENATE ZFSTEST001HD SY-UZEIT INTO HEADERNAME. CONCATENATE ZFSTEST001IT SY-UZEIT INTO ITEMSNAME. “存输出表单表头数据的内表 SAVEBUFFER GIT_OUTPUT_H HEADERNAME. “保存输出数据明细的内表，与表头数据有关联字段 SAVEBUFFER GIT_OUTPUT_D ITEMSNAME. PERFORM FRM_OUTPUT_TO_SMARTFORM. “调用完毕以后，删除数据 CLEARBUFFER HEADERNAME. CLEARBUFFER ITEMSNAME. END-OF-SELECTION.,25,2.3通过读取内存数据,*&-* *& Form FRM_OUTPUT_TO_SMARTFORM *&-* * 输出到smartform打印 *-* FORM FRM_OUTPUT_TO_SMARTFORM . “SMARTFORMS DATA:OPTIONS TYPE SSFCOMPOP. DATA:FM_NAME TYPE RS38L_FNAM, S_OUTPUT_OPTIONS TYPE SSFCOMPOP, CONTROL TYPE SSFCTRLOP. S_OUTPUT_OPTIONS-TDDEST = LP01. “SMARTFORMS初始化定义 CONTROL-NO_DIALOG = . CONTROL-PREVIEW = . CONTROL-NO_OPEN = X. CONTROL-NO_CLOSE = X. CALL FUNCTION SSF_FUNCTION_MODULE_NAME EXPORTING FORMNAME = ZSF_TEST003 IMPORTING FM_NAME = FM_NAME EXCEPTIONS NO_FORM = 1 NO_FUNCTION_MODULE = 2 OTHERS = 3.,26,2.3通过读取内存数据,CALL FUNCTION SSF_OPEN EXPORTING CONTROL_PARAMETERS = CONTROL EXCEPTIONS FORMATTING_ERROR = 1 INTERNAL_ERROR = 2 SEND_ERROR = 3 USER_CANCELED = 4 OTHERS = 5. CALL FUNCTION FM_NAME“打印会计凭证 EXPORTING PTR_HEADER = HEADERNAME PTR_ITEMS = ITEMSNAME CONTROL_PARAMETERS = CONTROL OUTPUT_OPTIONS = S_OUTPUT_OPTIONS USER_SETTINGS = EXCEPTIONS FORMATTING_ERROR = 1 INTERNAL_ERROR = 2 SEND_ERROR = 3 USER_CANCELED = 4 OTHERS = 5.,27,2.3通过读取内存数据,CALL FUNCTION SSF_CLOSE EXCEPTIONS FORMATTING_ERROR = 1 INTERNAL_ERROR = 2 SEND_ERROR = 3 OTHERS = 4. ENDFORM. “ FRM_OUTPUT_TO_SMARTFO *&-* *& Form FRM_GETDATA *&-* * 通过查询条件得到查询信息 *-* FORM FRM_GETDATA . “获取数据 SELECT * FROM SCARR INTO CORRESPONDING FIELDS OF TABLE GIT_OUTPUT_H WHERE CARRID IN S_CARRID. SELECT * FROM SFLIGHT INTO CORRESPONDING FIELDS OF TABLE GIT_OUTPUT_D WHERE CARRID IN S_CARRID. ENDFORM. “ FRM_GETDATA,28,2.3通过读取内存数据,以下是在Report程序中Import和Export的Include的程序： *&-* *& 包括 ZINC_SF_HELPER *&-* * 创建日期 ： 2008/07/29 * * 创建人 ： DuanYulan * * 功能说明 ： 通过调用内存才实现参数的传递 * *-* * 变更履历 * * 变更日期 变更者 管理序号 变更内容 * * YYYY/MM/DD CG X.XXXXXXXXXX XXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXX * *-* TYPES BUFFER_ID(80) TYPE C. DATA WA_INDX TYPE INDX. DEFINE SAVEBUFFER.“定义存入内存的句柄 PERFORM SAVE_TO_BUFFER USING &1 &2. END-OF-DEFINITION. DEFINE CLEARBUFFER.“清空内存 PERFORM CLEAR_BUFFER USING &1. END-OF-DEFINITION.,29,2.3通过读取内存数据,*&-* *& Form save_to_buffer *&-* * 定义存入内存的句柄 *-* FORM SAVE_TO_BUFFER USING T TYPE TABLE TYPEID TYPE C. WA_INDX-AEDAT = SY-DATUM. WA_INDX-USERA = SY-UNAME. WA_INDX-PGMID = SY-REPID. EXPORT T TO DATABASE INDX(HK) ID TYPEID FROM WA_INDX. ENDFORM. “Save_To_Buffer *&-* *& Form clear_buffer *&-* * 清空内存 *-* FORM CLEAR_BUFFER USING BUFFID TYPE C. DELETE FROM DATABASE INDX(HK) ID BUFFID. ENDFORM. “Cl