SAP_ABAP_SMARTFORMS打印教程

​​​​​SAP ABAP 顾问（开发工程师）能力模型_Terry谈企业数字化的博客-CSDN博客文章浏览阅读423次。目标：基于对SAP abap 顾问能力模型的梳理，给一年左右经验的abaper 快速成长为三年经验提参考ALV/REPORT|SMARTFROM|SCREEN|OLE|BAPI|BDC|PI|IDOC|RFC|API|WEBSERVICE|Enhancement|UserExits|Badi|Debughttps://blog.csdn.net/java_zhong1990/article/details/132469977

一 背景说明

文章来自：SAP ABAP顾问能力模型_企业数字化建设者Terry的博客

软件环境：GUI760 , S4/Hana  755

Source code:

二 实现效果

三 实现步骤

主要实现2个部分的内容，第一部分：smartforms表单绘制部分；第二部分：abap 程序代码部分。

四 细节说明

4.1 表单绘制

表单绘制从大的分类来看为两个部分：表单内容、表单样式，细节非常多。

tcode:smartforms

表单、样式创建入口位置

 表单界面总览：

 样式界面总览：

4.2 代码实现

代码实现主要为5个步骤：

1.通过smartfroms 取到对应的函数名称,如： ZSF_SALESORDER --> /1BCDWB/SF00000039

2.设置打印控制

3. 打开输出请求 SSF

4. 调用smartfrom 函数 ，传入打印参数

5. 关闭打印机设置

（复制直接可用）

6 数据准备：

6.1 定义结构：ZSSD_VBAK

6.2 定义结构：ZSSD_VBAP , 定义表类型 ZSSD_VBAP_T

6.3 smartforms:ZSF_SALESORDER、ZSF1

*&---------------------------------------------------------------------*
*& Report ZSMF
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zsmf.SELECTION-SCREEN:BEGIN OF BLOCK b0 WITH FRAME TITLE TEXT-001."PARAMETERS: pa_file TYPE rlgrap-filename ."文件夹上传
SELECTION-SCREEN:END OF BLOCK b0.INITIALIZATION.
* PERform INI_SELECTION_SCREEN. " 初始化选择屏上的变量
AT SELECTION-SCREEN.
* PERform INI_DATA. " 选择屏幕输入值的验证
START-OF-SELECTION.
* PERform PRECESS_DATA. " 主要数据处理逻辑" --- 1 通过smartfroms 取到对应的函数名称, ZSF_SALESORDER --> /1BCDWB/SF00000039DATA: lv_formname   TYPE tdsfname.DATA: w_sfname TYPE rs38l_fnam.lv_formname = 'ZSF_SALESORDER'.        "改成自己的SMART名字CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'EXPORTINGformname           = lv_formnameIMPORTINGfm_name            = w_sfnameEXCEPTIONSno_form            = 1no_function_module = 2OTHERS             = 3." --- 2 设置打印控制DATA: w_control        TYPE ssfctrlop,w_output_options TYPE ssfcompop.DATA: w_job_output_options TYPE ssfcresop.w_output_options-tdimmed  = 'X'.w_output_options-tddelete = 'X'.w_output_options-tddest   = 'LP01'.w_control-no_open         = 'X'.      "没有新的假脱机请求w_control-no_close        = 'X'.      "不关闭假脱机请求" --- 3 打开输出请求 SSFCALL FUNCTION 'SSF_OPEN'EXPORTINGoutput_options     = w_output_optionscontrol_parameters = w_controlIMPORTINGjob_output_options = w_job_output_optionsEXCEPTIONSformatting_error   = 1internal_error     = 2send_error         = 3user_canceled      = 4OTHERS             = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE 'I' "sy-msgtyNUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.RETURN.ENDIF." --- 4 调用smartfrom 函数 ，传入打印参数DATA: ls_head TYPE zssd_vbak,ls_item TYPE zssd_vbap,lt_item TYPE STANDARD TABLE OF zssd_vbap.DATA:lv_i TYPE i.lv_i = 1.DO 2 TIMES.REFRESH:lt_item.CLEAR:ls_head.ls_head-vkorg = '1010'.ls_head-kunnr = 'kunnr'.ls_head-name1 = 'kunnr_desc'.ls_head-vbeln = 'A000' && lv_i.CLEAR:ls_item.ls_item-posnr = 1.ls_item-vrkme = '个'.ls_item-zdw = '个'.ls_item-matnr = 'M001' && lv_i.ls_item-name1 = 'NAME1'.ls_item-zbak  = '销售订单打印测试demo'&& lv_i.ls_item-kwmeng = 12.APPEND ls_item TO lt_item.CLEAR:ls_item.ls_item-posnr = 2.ls_item-vrkme = 'PC'.ls_item-zdw = '个'.ls_item-matnr = 'M002' && lv_i.ls_item-name1 = 'NAME2'.ls_item-zbak  = '销售订单打印测试demo'&& lv_i.ls_item-kwmeng = 13.APPEND ls_item TO lt_item.CALL FUNCTION w_sfnameEXPORTINGcontrol_parameters = w_controlzs_vbak            = ls_headIMPORTINGjob_output_options = w_job_output_optionsTABLESzt_vbap            = lt_itemEXCEPTIONSformatting_error   = 1internal_error     = 2send_error         = 3user_canceled      = 4OTHERS             = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno DISPLAY LIKE 'E'WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.LEAVE LIST-PROCESSING.ENDIF.lv_i = lv_i + 1.ENDDO." --- 5 关闭打印机设置DATA: job_output_options TYPE ssfcrescl.CALL FUNCTION 'SSF_CLOSE'IMPORTINGjob_output_info  = job_output_optionsEXCEPTIONSformatting_error = 1internal_error   = 2send_error       = 3OTHERS           = 4.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE 'I' "sy-msgtyNUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.RETURN.ENDIF.AT LINE-SELECTION.
* PERform PRECESS_LINE_SELECTED. " 行选择时的处理AT USER-COMMAND.
* PERform PRECESS_USER_COMMAND. * 用自定义命令按钮时的处理TOP-OF-PAGE.
* PERform PAGE_HEADER. " 页眉END-OF-PAGE.
* PERform PAGE_FOOT. " 页脚

4.3 表单绘制-操作细节

如果是第一次画smartfroms ,建议从这个部分开始快速预览，在实际操作的过程中基本上都会碰到的操作细节：

4.3.1 主窗口，次窗口的窗口、边距、宽度、高度调整

4.3.2 在窗口下去添加对应的元素：模版、表、行、文本等等

 4.3.3 文本字段的赋值操作

 4.3.4 表格栏位的赋值操作

  4.3.5 模版下文本字段位置确定

4.3.6 表格边框的绘制

 4.3.7  文本字段样式的设置

 4.3.8  文本字段样式-字符格式的设置

        一定要点击进去编辑

 4.3.9  输入参数设置

 4.3.10  表的列数设置

4.3.11  下载模版，可以用到下一个项目中

4.3.12 二维码的实现参考

1.

 2.

4.3.13 gui760 文本不能编辑，需要安装sap控件

        SAPSLTESP00_0-70001053 .zip

参考：Smart forms_sap smartform_竟日冥思绝妙相的博客-CSDN博客