惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

Recent Announcements
Recent Announcements
博客园 - Franky
博客园 - 三生石上(FineUI控件)
H
Hackread – Cybersecurity News, Data Breaches, AI and More
Apple Machine Learning Research
Apple Machine Learning Research
云风的 BLOG
云风的 BLOG
人人都是产品经理
人人都是产品经理
博客园 - 【当耐特】
L
LangChain Blog
Stack Overflow Blog
Stack Overflow Blog
H
Help Net Security
爱范儿
爱范儿
罗磊的独立博客
博客园_首页
美团技术团队
让小产品的独立变现更简单 - ezindie.com
让小产品的独立变现更简单 - ezindie.com
月光博客
月光博客
freeCodeCamp Programming Tutorials: Python, JavaScript, Git & More
量子位
OSCHINA 社区最新新闻
OSCHINA 社区最新新闻
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
博客园 - 叶小钗
V
Visual Studio Blog
T
Tailwind CSS Blog

博客园 - 魏绰

冲销会计凭证:FBRP与FB08的区别 xk01创建供应商保存的时候,提示错误“科目800001已经存在” SAP如何使用关于序列号的表 解决:“凭证编号 ******** 已分配!”的错误 Payment Terms 收付款条件和分期付款设置 bw R/3端配置 (转) SAP WM 层面仓位调整 在ABAP中用事务更新数据(转) ABAP设置JOB 专家例程 SMARTFORMS 分页函数显示 '*" asp.net 发送邮件 [转]SAP ABAP中使用Read_Text函数读取项目文本的方法 ABAP生成随机数 BW知识点总结及面试要点(转) se93 为自建表分配维护事物码 F4搜索帮助 F4IF_INT_TABLE_VALUE_REQUEST SAP系统中设定流水号 SAP 调用外部程序 .转
SMARTFORM 点击打印后,将打印次数或者是最后的打印时间添加...
魏绰 · 2012-08-27 · via 博客园 - 魏绰

   REFRESH gtd_out,gtd_prps.
      gtd_prps gtd_list.
      LOOP AT gtd_list INTO gth_list WHERE flag 'X'.
        MOVE-CORRESPONDING gth_list TO gth_header.
        SELECT SINGLE PRINTDATE INTO gth_header-PRINTDATE  FROM  ZTZRPS002_N1
                          WHERE RSNUM gth_header-RSNUM AND AUFNR gth_header-AUFNR AND VORNR gth_header-VORNR AND PSPID gth_header-PSPID AND POSID =  gth_header-POSID .  

 "自定义表ZTZRPS002_N1读取是否上次存储过打印之后的数据
        IF SY-SUBRC <> 0.
          gth_header-PRINTDATE SY-DATUM."没有被打印过,设置为当前日期
        ENDIF.

     

   DATA:v_output_info TYPE ssfcrescl,
        v_output_options TYPE ssfcompop,
        v_PRINT_COUNT(3TYPE c.
        v_output_options-tdiexit 'X'."(这个参数一定要传,这样在smartform预览界面点后退按钮后,下面的传出参数v_output_info-outputdone不会被赋值)

        CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
          EXPORTING
            FORMNAME 'ZPSF002_N1'
          IMPORTING
            FM_NAME  GWK_FNAME.

        CALL FUNCTION GWK_FNAME
          EXPORTING
            OUTPUT_OPTIONS   v_output_options
          IMPORTING
            JOB_OUTPUT_INFO  v_output_info
          EXCEPTIONS
            FORMATTING_ERROR 1
            INTERNAL_ERROR   2
            SEND_ERROR       3
            USER_CANCELED    4
            OTHERS           5.

        IF SY-SUBRC 0.  "SMARTFORM执行之后,执行此处代码
          IF v_output_info-outputdone 'X'.“判断是否是真正的进行过打印,是的话将数据存储到数据表中
            LOOP AT   gtd_header INTO gth_header .
              SELECT SINGLE PRINTDATE INTO gth_header-PRINTDATE  FROM  ZTZRPS002_N1
             WHERE RSNUM gth_header-RSNUM AND AUFNR gth_header-AUFNR AND VORNR gth_header-VORNR AND PSPID gth_header-PSPID AND POSID =  gth_header-POSID .
              IF SY-SUBRC <> 0.
                ITAB_WA-RSNUM gth_header-RSNUM.
                ITAB_WA-AUFNR gth_header-AUFNR.
                ITAB_WA-VORNR gth_header-VORNR.
                ITAB_WA-PSPID gth_header-PSPID.
                ITAB_WA-POSID gth_header-POSID.
                ITAB_WA-PRINTDATE SY-DATUM.
                MODIFY ZTZRPS002_N1  FROM ITAB_WA.
              ENDIF.
            ENDLOOP.