• smortform 创建


    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.

                                     

  • 相关阅读:
    洛谷P1328 生活大爆炸版石头剪刀布
    洛谷P1131 [ZJOI2007]时态同步
    洛谷P2585 [ZJOI2006]三色二叉树
    机器学习实战四(Logistic Regression)
    机器学习实战三(Naive Bayes)
    机器学习实战二 (Decision Tree)
    机器学习实战一(kNN)
    chapter9 拖放
    Stanford Algorithms(一): 大数相乘(c++版)
    读: 程序员之禅
  • 原文地址:https://www.cnblogs.com/mmm-iwtb/p/9002319.html
Copyright © 2020-2023  润新知