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

推荐订阅源

D
DataBreaches.Net
B
Blog
博客园_首页
C
Check Point Blog
Microsoft Security Blog
Microsoft Security Blog
MyScale Blog
MyScale Blog
P
Proofpoint News Feed
Engineering at Meta
Engineering at Meta
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
B
Blog RSS Feed
M
MIT News - Artificial intelligence
freeCodeCamp Programming Tutorials: Python, JavaScript, Git & More
WordPress大学
WordPress大学
宝玉的分享
宝玉的分享
OSCHINA 社区最新新闻
OSCHINA 社区最新新闻
The Cloudflare Blog
量子位
V
V2EX
Y
Y Combinator Blog
Hugging Face - Blog
Hugging Face - Blog
Martin Fowler
Martin Fowler
Recent Announcements
Recent Announcements
I
InfoQ
博客园 - 【当耐特】

博客园 - 魏绰

冲销会计凭证: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.