zoukankan      html  css  js  c++  java
  • 判断有没有真正点击打印

    DATABEGIN OF lt_dycs OCCURS 0,"关联单号和打印次数存储表
              refid TYPE ztjsd_confirm_dy-refid,
               dycs TYPE ztjsd_confirm_dy-dycs,
          END OF lt_dycs.
    DATA: lt_dycs1 LIKE TABLE OF ztjsd_confirm_dy WITH HEADER LINE.
    DATA: ls_output_info TYPE ssfcrescl."Smart Forms: 表格打印结束时返回值

    DATA: lv_dycs TYPE ztjsd_confirm_dy-dycs.
     
    CALL FUNCTION 'SSF_CLOSE'
        IMPORTING
          job_output_info  = ls_output_info
        EXCEPTIONS
          formatting_error = 1
          internal_error   = 2
          send_error       = 3
          OTHERS           = 4.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ELSE.
        IF ls_output_info-spoolids IS NOT INITIAL.
          LOOP AT gt_data_print.
            READ TABLE lt_dycs WITH KEY refid = gt_data_print-refid.
            IF sy-subrc = 0.
              CLEAR: lv_dycs.
              lv_dycs = lt_dycs-dycs + 1.
              UPDATE ztjsd_confirm_dy SET dycs = lv_dycs WHERE refid = gt_data_print-refid.
            ELSE.
              CLEAR: lt_dycs1,lt_dycs1[].
              lt_dycs1-refid = gt_data_print-refid.
              lt_dycs1-dycs = 1.
              APPEND lt_dycs1.
              INSERT ztjsd_confirm_dy FROM lt_dycs1.
            ENDIF.
          ENDLOOP.
      ENDIF.
  • 相关阅读:
    linux文件编辑VI命令详解
    超级方便的linux命令手册
    查看两个集合中有没有相同的元素的方法。Collections disjoint
    list集合的遍历3种方法
    优秀的linux学习网站
    Linix CentOS6.5 下载安装图解(转)
    创建本地yum软件源,为本地Package安装Cloudera Manager、Cloudera Hadoop及Impala做准备
    VBA小记
    JSON FILE NOT FOUND?
    WPF之Binding【转】
  • 原文地址:https://www.cnblogs.com/springzt/p/5625670.html
Copyright © 2011-2022 走看看