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

推荐订阅源

Google Online Security Blog
Google Online Security Blog
C
CXSECURITY Database RSS Feed - CXSecurity.com
C
CERT Recently Published Vulnerability Notes
C
Cybersecurity and Infrastructure Security Agency CISA
Cisco Talos Blog
Cisco Talos Blog
Hacker News - Newest:
Hacker News - Newest: "LLM"
Scott Helme
Scott Helme
Project Zero
Project Zero
E
Exploit-DB.com RSS Feed
S
Secure Thoughts
K
Kaspersky official blog
L
Lohrmann on Cybersecurity
NISL@THU
NISL@THU
WordPress大学
WordPress大学
N
News and Events Feed by Topic
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
L
LINUX DO - 热门话题
小众软件
小众软件
P
Privacy & Cybersecurity Law Blog
博客园 - 聂微东
Google DeepMind News
Google DeepMind News
H
Hackread – Cybersecurity News, Data Breaches, AI and More
A
About on SuperTechFans
Hacker News: Ask HN
Hacker News: Ask HN
AWS News Blog
AWS News Blog
Cyber Security Advisories - MS-ISAC
Cyber Security Advisories - MS-ISAC
H
Hacker News: Front Page
F
Full Disclosure
Latest news
Latest news
Schneier on Security
Schneier on Security
The Hacker News
The Hacker News
T
Troy Hunt's Blog
www.infosecurity-magazine.com
www.infosecurity-magazine.com
Jina AI
Jina AI
Martin Fowler
Martin Fowler
P
Proofpoint News Feed
TaoSecurity Blog
TaoSecurity Blog
G
GRAHAM CLULEY
Forbes - Security
Forbes - Security
V
V2EX - 技术
酷 壳 – CoolShell
酷 壳 – CoolShell
V
Vulnerabilities – Threatpost
C
Cyber Attacks, Cyber Crime and Cyber Security
MongoDB | Blog
MongoDB | Blog
博客园 - 三生石上(FineUI控件)
S
SegmentFault 最新的问题
Hugging Face - Blog
Hugging Face - Blog
P
Privacy International News Feed
C
Check Point Blog
N
News and Events Feed by Topic

博客园 - 魏绰

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