美文网首页SAP
ALV结合Smartforms打印报表

ALV结合Smartforms打印报表

作者: Mmm_余安 | 来源:发表于2017-03-09 18:34 被阅读92次

首先确保ALV报表正常输出,输出ALV完整流程,再在状态栏添加一个按钮,实现跳转至打印的功能。

  • 按钮的实现
    添加一个GUI状态,可以引用标准模板,也可以单独加一个按钮(为整洁美观一般使用标准模板)
    定义在ALV输出展示中的'SET_PF_STATUS'方法,具体代码如下:
     SET PF-STATUS '1100'."1100为GUI的名字
   ENDFORM. "F_SET_STATUS```
* 按钮功能的实现
实现 ```USER_COMMAND``` 的方法,具体代码如下:
    ```FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
     RS_SELFIELD TYPE SLIS_SELFIELD.
   CASE R_UCOMM.
     WHEN 'SKIP'. "我的按钮键名字为 SKIP
     DATA:   L_FM_NAME  TYPE  RS38L_FNAM,
 OUTPUT TYPE SSFCOMPOP,
   CONTROL_PARAMETERS TYPE SSFCTRLOP,
   LW_SSFCRESCL       TYPE SSFCRESCL,
   OPTION             TYPE SSFCRESCL.
    DATA :LS_ZZS_11 LIKE  ZZS_011_09."ZZS_011_09为自建的表结构,定义一个工作区和表
    DATA :G_L LIKE TABLE OF  ZZS_011_09.
   CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' "实现Smartforms
     EXPORTING
 FORMNAME                 = 'ZSF_11_09' "自建的Smartforms名字
     IMPORTING
     FM_NAME                  = L_FM_NAME "DATA出来参照RS38L_FNAM的工作区,前面有定义
  IF SY-SUBRC <> 0.
  ENDIF.
 "打印设置
 CONTROL_PARAMETERS-NO_OPEN   = 'X'.
 CONTROL_PARAMETERS-NO_CLOSE  = 'X'.
  OUTPUT-TDDEST = 'LP01'. "默认的打印设备
OUTPUT-RQPOSNAME = ''.
  OUTPUT-TDDATASET = ''.
   OUTPUT-TDSUFFIX1 = ''.
    OUTPUT-TDSUFFIX2 = ''.
 OUTPUT-TDIMMED   = 'X'.
OUTPUT-TDDELETE  = 'X'.
CALL FUNCTION 'SSF_OPEN'
EXPORTING
CONTROL_PARAMETERS = CONTROL_PARAMETERS
  OUTPUT_OPTIONS     = OUTPUT
EXCEPTIONS
FORMATTING_ERROR   = 1
  INTERNAL_ERROR     = 2
 SEND_ERROR         = 3
   USER_CANCELED      = 4
  OTHERS             = 5.
 LOOP AT GT_LINE INTO WA_LINE WHERE BOX = 'X'."把选中的哪一行数据传给LS_ZZS_11工作区
LS_ZZS_11-EBELN  = WA_LINE-EBELN.
 LS_ZZS_11-BUKRS = WA_LINE-BUKRS.
 LS_ZZS_11-EBELP  = WA_LINE-EBELP.
LS_ZZS_11-MATNR = WA_LINE-MATNR.
 APPEND ls_zzs_11 to g_l."更新到表
 ENDLOOP.```

       "#  调用Smartforms的Function Module打印
      CALL FUNCTION L_FM_NAME
         EXPORTING
           CONTROL_PARAMETERS = CONTROL_PARAMETERS
           OUTPUT_OPTIONS     = OUTPUT
           WA_ZZS_011_09      = LS_ZZS_11 "传向Smartforms的工作区
         TABLES
           GT_LINE_11         = G_L  "传向Smartforms的表
         EXCEPTIONS
           FORMATTING_ERROR   = 1
           INTERNAL_ERROR     = 2
           SEND_ERROR         = 3
           USER_CANCELED      = 4.
       "#  关闭打印机设置
      CALL FUNCTION 'SSF_CLOSE'
         IMPORTING
           JOB_OUTPUT_INFO  = LW_SSFCRESCL
         EXCEPTIONS
           FORMATTING_ERROR = 1
           INTERNAL_ERROR   = 2
           SEND_ERROR       = 3
           OTHERS           = 4.
       IF SY-SUBRC <> 0.
       ENDIF
      ENDCASE.
       ENDFORM. "USER_COMMAND
引用Smartforms就是几个方法,改的地方也不多,接下来就是画Smartforms中要注意的地方。
* 表格接口中定义一个表参照自己建的结构。
* 全局定义中定义一个表一个工作区一些参数以及结构中参考货币/数量的字段。
* 一般都为表循环至工作区
* 在限定行数的循环内:先判断循环条件,同时定义一个变量赋值。程序行给变量每循环一次+1
######因为没有全粘代码,所以本文适合有一点Smartforms基础的同学。

相关文章

  • ALV结合Smartforms打印报表

    首先确保ALV报表正常输出,输出ALV完整流程,再在状态栏添加一个按钮,实现跳转至打印的功能。 按钮的实现添加一个...

  • SAP ABAP ALV报表(一)

    01 ALV报表功能介绍02 ALV报表开发步骤03 ALV报表开发实战 01 ALV报表功能介绍 AVL报表是A...

  • SAP ABAP ALV报表(三)

    ALV报表 获取表数据 ALV报表 添加默认值 设置ALV字段可修改 一、获取表数据 1.准备后台表: 学员信息表...

  • ABAP-ALV-GRID

    ALV简单实例 ABAP ALV使用实例---sflight航班表及其效果界面ABAP:ALV List报表最后页...

  • Smartforms中显示采购订单文本

    先看一下原先打印出来的Smartforms: 现在需求是通过Smartforms打印时,要显示采购订单文本。首先,...

  • ABAP开发总体介绍

    报表开发,主要使用到 数据库读取、ALV、LIST 等技术。 单据打印,主要使用到 数据库读取、SmartForm...

  • ALV的控件使用

    1简单控件创建ALV报表: 实现: 自定义输字段ALV控件实例: 以下输出结果: 在屏幕上建立ALV控件,使用SC...

  • ABAP报表开发:ALV运用

    一、ALV是什么? ALV(SAP LIST VIEW)是一种比较美观的报表显示工具,具有网格显示方式,有排序、筛...

  • Smartforms 打印PDF格式

    CALL FUNCTION l_fm_nameEXPORTINGcontrol_parameters = cont...

  • 利用 ALV 实现增删改查系列之二:仅让 ALV 报表某一列允许

    本系列前一篇文章 69. 利用 ALV 实现增删改查系列之一:让 ALV 报表进入可编辑状态[https://je...

网友评论

    本文标题:ALV结合Smartforms打印报表

    本文链接:https://www.haomeiwen.com/subject/pvfggttx.html