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.

                                     

  • 相关阅读:
    关于form表单的相同name问题
    MySQL数据库视图
    Blazor
    查看Oracle正在执行的任务
    比较不错的几款开源的WPF Charts报表控件
    Raft算法
    EntityFramework 使用Linq处理内连接(inner join)、外链接(left/right outer join)、多表查询
    systemd、upstart和system V 枯木
    MRTG生成首页报错解决方法 枯木
    dd备份和恢复 枯木
  • 原文地址:https://www.cnblogs.com/mmm-iwtb/p/9002319.html
Copyright © 2011-2022 走看看