zoukankan      html  css  js  c++  java
  • 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.

                                     

  • 相关阅读:
    十分钟内学会:将HTML格式化为合法的XML
    十分钟内学会:根据数据库生成站点导航
    Adobe Apollo vs Joyeur Slingshot
    英语阅读推荐:你真的懂UPDATE语句吗 & 当有layout之时
    欲练 CSS ,必先宫 IE
    英语阅读推荐:海明威写作技巧 & UpdatePanel为何失灵
    英语阅读推荐:在AJAX中制作自定义验证服务 & 优秀网站的5个因素
    Code is Configuration
    十分钟内学会:自动识别GB2312与UTF8编码的文件
    学习 Ruby on Rails 真的很爽!
  • 原文地址:https://www.cnblogs.com/mmm-iwtb/p/9002319.html
Copyright © 2011-2022 走看看