• submit 后台运行代码


     if EX_TABLE-matnr is not initial and EX_TABLE-KUNDE is not initial.
          wa_rspar-selname 'MATNR'.
          wa_rspar-kind 'S'.
          wa_rspar-sign 'I'.
          wa_rspar-option 'EQ'.
          wa_rspar-low  = EX_TABLE-matnr.
          APPEND wa_rspar TO rspar.
          clear wa_rspar.
          wa_rspar-selname 'KUNNR'.
          wa_rspar-kind 'S'.
          wa_rspar-sign 'I'.
          wa_rspar-option 'EQ'.
          wa_rspar-low  = EX_TABLE-KUNDE.
          APPEND wa_rspar TO rspar.
          clear wa_rspar.

          wa_rspar-selname 'ERDAT'.
          wa_rspar-kind 'S'.
          wa_rspar-sign 'I'.
          wa_rspar-option 'EQ'.
          wa_rspar-low  ''.
          APPEND wa_rspar TO rspar.
          clear wa_rspar.

          CALL FUNCTION 'JOB_OPEN'
            EXPORTING
              jobname          = name
            IMPORTING
              jobcount         number
            EXCEPTIONS
              cant_create_job  1
              invalid_job_data 2
              jobname_missing  3
              OTHERS           4.
          IF sy-subrc 0.
            EXPORT ITAB TO MEMORY ID 'itab'.
            SUBMIT ZSDR0011 TO SAP-SPOOL
                              SPOOL PARAMETERS print_parameters
                              WITHOUT SPOOL DYNPRO
                              VIA JOB name NUMBER number
                              with SELECTION-TABLE rspar
                              AND RETURN.
            IMPORT ITAB FROM MEMORY ID 'itab'.
            IF sy-subrc 0.
              CALL FUNCTION 'JOB_CLOSE'
                EXPORTING
                  jobcount             number
                  jobname              = name
                  strtimmed            'X'
                EXCEPTIONS
                  cant_start_immediate 1
                  invalid_startdate    2
                  jobname_missing      3
                  job_close_failed     4
                  job_nosteps          5
                  job_notex            6
                  lock_failed          7
                  OTHERS               8.

            endif.
             endif.

  • 相关阅读:
    chpa02_用分治法构造二叉树
    通过Wubi来安装Ubuntu 10.04详细(图文版)
    NHibernate 数据库支持分类配置
    flash或是Flex客户端调用服务器端的方法
    Windows 7使用wubi硬盘安装Ubuntu (文字版)
    使用PropertyInfo类反射获取类 的类型
    转换json格式的日期
    原创新闻 并非愚人节玩笑,Oracle挥舞法律大棒,JavaEye被逼改名ItEye
    DataTable或DataSet转JSON
    NHibernate + AspNetPager 实现分页
  • 原文地址:https://www.cnblogs.com/QIANQIANHAPPY/p/5887987.html
Copyright © 2020-2023  润新知