ALV结合Smartforms打印报表

首先确保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基础的同学。

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 205,132评论 6 478
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 87,802评论 2 381
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 151,566评论 0 338
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 54,858评论 1 277
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 63,867评论 5 368
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 48,695评论 1 282
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 38,064评论 3 399
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 36,705评论 0 258
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 42,915评论 1 300
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,677评论 2 323
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 37,796评论 1 333
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 33,432评论 4 322
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 39,041评论 3 307
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,992评论 0 19
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 31,223评论 1 260
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 45,185评论 2 352
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 42,535评论 2 343

推荐阅读更多精彩内容

  • 一些悲喜 一些不眠 换青春里的一场醒悟 在红尘里待久了 就再难清醒 在世事里打久了盹 就再难相信纯粹 在孤独里徘徊...
    晨初_阅读 290评论 2 2
  • 轮胎是汽车整车唯一落地的地方,与地面常年接触,路面磨损那是自然。不仅要经过路面的磨损,还要经过岁月的氧化,都威胁到...
    茜茜车阅读 718评论 0 2
  • 情出自愿,事过无悔。这是我前一阵的签名。 十八岁,有的人在享受着青春的美好,有的人在为梦想一如既往地奋斗,有的...
    女王是妖怪阅读 691评论 1 2