博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
smortform 创建
阅读量:5326 次
发布时间:2019-06-14

本文共 1895 字,大约阅读时间需要 6 分钟。

1、T-CODE : SMARTFORMS 进入SMARTFORM创建界面

                      SMARTSTYLES 进入创建样式

2、表格接口 -> 表,填写数据源对象TD_DATA

    全局定义 -> 全局数据,定义变量,数据源结构TH_DATA

                        初始化填写代码,将表loop到结构record中

                        IF TH_DATA IS INITIAL.

                           READ TABLE TD_DATA INTO TH_DATA INDEX 1.

                        ENDIF.

3、程序中代码

FORM FRM_SMARTFORM_OUT.

    DATA:

         LW_FMNAME    TYPE  RS38L_FNAM, "通用名,必须 以下2个定义字段为非必须

         LST_OPTIONS   TYPE  SSFCOMPOP,  " 输出设置

         CONTROL             TYPE  SSFCTRLOP,

         LTD_DATA       TYPE  TABLE OF ZCPPS003.  "TH_DATA的结构

 

  LST_OPTIONS-TDNEWID = 'X'.  "新建SPOOL请求

  LST_OPTIONS-TDIMMED = 'X'.  “即时打印

 

  CONTROL-NO_DIALOG = 'X'.

  CONTROL-NO_OPEN    = 'X'.

  CONTROL-PREVIEW     = 'X'.

  LTD_DATA[ ] = MATAB1[ ].

 

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

     EXPORTING

      FORMNAME = 'ZCCSFFPP020'    "SMARTFORMS名

     IMPORTING

       FM_NAME = LW_FNAME             "通用名

      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.

     LEAVE TO LIST-PROCESSING.

  ENDIF.

 

  CALL FUNCTION  'SSF_OPEN'

    EXPORTING

      USER_SETTINGS = SPACE

      CONTROL_PARAMETERS = CONTROL

      OUTPUT_OPTIONS = LST_OPTIONS.

    EXCEPTIONS

      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.

       LEAVE TO LIST-PROCESSING.

    ENDIF.

 

  CALL FUNCTION  LW_FMNAME

    EXPORTING

      CONTROL_PARAMETERS = CONTROL

      OUTPUT_OPTIONS = LST_OPTIONS

      USER_SETTINGS = SPACE

    TABLES

      TD_DATA = LTD_DATA   "输出数据

    EXCEPTIONS

      FORMATTING_ERROR = 1

      INTERNAL_ERROR  = 2

      SEND_ERROR  = 3

      USER_CANCELED = 4

      OTHERS = 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 TO LIST-PROCESSING.

    ENDIF.

 

    CALL  FUNCTION  'SSF_CLOSE'.

 

ENDFORM.

                                 

转载于:https://www.cnblogs.com/mmm-iwtb/p/9002319.html

你可能感兴趣的文章
django简介
查看>>
继承与多态
查看>>
图片压缩工具之grunt-contrib-imagemin
查看>>
自定义 Core Data 迁移
查看>>
tcl的第二个脚本
查看>>
SDUT 1269 走迷宫(BFS)
查看>>
POJ1269(直线之间的关系)
查看>>
[C++面试]单例模式-设计模式
查看>>
Spring.Net学习笔记(5)-集合注入
查看>>
[zz]EI/SCI 检索信息
查看>>
java进阶的书籍
查看>>
11算法策略之动态规划
查看>>
window安装elasticsearch和kibana
查看>>
局部变量与全局变量
查看>>
LoadRunner对移动互联网后端服务器压力测试
查看>>
hibernate 的POJO状态
查看>>
ORM
查看>>
大话数据结构 -07-2 图的遍历
查看>>
HDU3729--I'm Telling the Truth
查看>>
使用handler时的warning:This Handler class should be static or leaks might occur
查看>>