DATA: E_ORDER_HEADER_IN  LIKE  BAPISDHD1 OCCURS 0 WITH HEADER LINE,
          E_ORDER_PARTNERS   LIKE  BAPIPARNR OCCURS 0 WITH HEADER LINE,
          E_ORDER_ITEMS_IN   LIKE  BAPISDITM OCCURS 0 WITH HEADER LINE,
          E_ORDER_BAPISCHDL  LIKE BAPISCHDL OCCURS 0 WITH HEADER LINE,
          E_AUART            LIKE  VBAK-AUART ,
          E_KUNNR            LIKE  VBAK-KUNNR,
          CNT TYPE I,
          E_MENGE TYPE DZMENG.
  DATA: lt_order_text TYPE TABLE OF bapisdtext.
  DATA: ls_order_conditions_in  TYPE bapicond.
  DATA  lt_order_conditions_in  TYPE TABLE OF bapicond.
  DATA: e_order_text  TYPE bapisdtext.
  DATA : W_KNA1 LIKE KNA1 ,
         W_ADR6 LIKE ADR6 .
  data: ls_type type ZSCS004-PURAUDITFLAG.
  data: ls_knumv type vbak-knumv.
  DATA : W_NAME LIKE KNA1-NAME1.
  data: ls_inco1 type KNVV-INCO1,
      ls_zterm type KNVV-ZTERM.
  data: it_konv like KONV OCCURS 0 WITH HEADER LINE.  "选择条目
  data: ls_konv type KONV.
  DATA : I_BAPISDTEXT  TYPE STANDARD TABLE OF BAPISDTEXT.
  DATA : l_external TYPE BAPI2093_RES_KEY-RESERV_NO.
  DATA : WA_BAPISDTEXT LIKE LINE OF I_BAPISDTEXT.
  data:ls_sale type ZSD_SALE_TEST.
  data: ls_first type KUNNR,
        ls_last type KUNNR.

loop AT ZSD_SALE_TEST INTO ls_sale.

"add_text 抬头文本
    e_order_text-doc_number = SALESDOCUMENT.
    e_order_text-itm_number = '000000'.
    e_order_text-text_id = '0001'.
    e_order_text-langu = 1.
    e_order_text-langu_iso = 'ZH'.
    e_order_text-format_col = '*'.
    e_order_text-text_line = ls_sale-text_line.
    e_order_text-function = '005'.
    APPEND e_order_text TO lt_order_text.

"add_text:
    e_order_text-doc_number = SALESDOCUMENT.
    e_order_text-itm_number = ls_sale-POSNR.
    e_order_text-text_id = '0002'.
    e_order_text-langu = 1.
    e_order_text-langu_iso = 'ZH'.
    e_order_text-format_col = '*'.
    e_order_text-text_line = ls_sale-ARKTX.
    e_order_text-function = '005'.
    APPEND e_order_text TO lt_order_text.
    clear e_order_text.

"add_partners 抬头文本
*    "客户代码之前加1位
*    CONCATENATE '1' ls_sale-FIRST_NAME into ls_first.
*    CONCATENATE '1' ls_sale-LAST_NAME into ls_last.
    ls_first = ls_sale-FIRST_NAME.
    ls_last = ls_sale-LAST_NAME.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = ls_first
          IMPORTING
            OUTPUT = ls_first.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = ls_last
          IMPORTING
            OUTPUT = ls_last.

E_ORDER_PARTNERS-PARTN_ROLE = 'AG'.  "售达方
    E_ORDER_PARTNERS-PARTN_NUMB = ls_first.  "售达方代码
    APPEND E_ORDER_PARTNERS.

E_ORDER_PARTNERS-PARTN_ROLE = 'WE'.  "送达方
    E_ORDER_PARTNERS-PARTN_NUMB = ls_last.   "送达方代码
    APPEND E_ORDER_PARTNERS.

E_AUART = ls_sale-AUART.

E_ORDER_HEADER_IN-DOC_TYPE = E_AUART.              "订单类型
    E_ORDER_HEADER_IN-SALES_ORG = ls_sale-VKORG.               "销售组织
    E_ORDER_HEADER_IN-DISTR_CHAN = ls_sale-VTWEG.              "分销渠道
    E_ORDER_HEADER_IN-DIVISION = ls_sale-SPART.                "产品组
    E_ORDER_HEADER_IN-req_date_h = ls_sale-ETDAT.              "请求交货日期
    E_ORDER_HEADER_IN-ship_type = '01'.                 "装运类型
    E_ORDER_HEADER_IN-ship_cond = ls_sale-VSBED.                "装运条件
    E_ORDER_HEADER_IN-PURCH_NO_C  = ls_sale-BSTNK.       "客户采购订单编号

E_ORDER_ITEMS_IN-item_categ = ls_sale-PSTYV.               "项目类别
    E_ORDER_ITEMS_IN-plant = ls_sale-WERKS.                    "工厂
    E_ORDER_ITEMS_IN-store_loc = ls_sale-LGORT.                "库存地点

E_ORDER_ITEMS_IN-MATERIAL = ls_sale-MABNR.                 "物料
*    E_ORDER_ITEMS_IN-BATCH = ls_sale-CHARG.                     "批次
    E_ORDER_ITEMS_IN-TARGET_QTY = ls_sale-KWMENG.              "订单数量
    E_ORDER_ITEMS_IN-sales_unit = ls_sale-VRKME.               "单位
    E_ORDER_ITEMS_IN-ITM_NUMBER = ls_sale-POSNR.               "项目号
    E_ORDER_ITEMS_IN-DLV_PRIO = ls_sale-REQUESTYPE.            "交货优先权
*  E_ORDER_ITEMS_IN-PMNTTRMS = '0001'.
    select KNVV~INCO1 KNVV~ZTERM
    INTO (ls_inco1,ls_zterm)
    from KNVV
    where KUNNR = ls_first and
      VKORG = ls_sale-VKORG and
      VTWEG = ls_sale-VTWEG and
      SPART = ls_sale-SPART.
    endselect.

E_ORDER_ITEMS_IN-PMNTTRMS = ls_zterm.                          "付款条件
    E_ORDER_ITEMS_IN-INCOTERMS1 = ls_inco1.                         "国际贸易条件
    E_ORDER_BAPISCHDL-REQ_QTY = ls_sale-KWMENG.                "订单数量
    E_ORDER_BAPISCHDL-ITM_NUMBER = ls_sale-POSNR.              "项目号

*  **  add_conditions:
      ls_order_conditions_in-itm_number = ls_sale-POSNR.
      ls_order_conditions_in-cond_type  = 'ZPR2'.  "定价条件
      ls_order_conditions_in-cond_value = ls_sale-KBETR.  "价格
      ls_order_conditions_in-currency   = 'RMB'.  "货币或%
      ls_order_conditions_in-cond_unit  = ls_sale-VRKME.  "条件单位
    ls_order_conditions_in-cond_p_unt = ls_sale-KWMENG.  "条件定价单位

*     ls_order_conditions_in-cond_unit = 'Z37'.
*     ls_order_conditions_in-itm_number = POSNR.
*  **      IF ( t_create-auart = 'ZCR' ) OR ( t_create-auart = 'ZDR' ).
*  **        ls_order_conditions_in-cond_type = 'ZPR2'.
*  **      ELSE.
*  **        ls_order_conditions_in-cond_type = 'ZPR1'.
*  **      ENDIF.
*     ls_order_conditions_in-cond_value = 10.
      ls_order_conditions_in-cond_updat  = 'X'.  "价格更新标志
      APPEND ls_order_conditions_in TO lt_order_conditions_in.

CLEAR   WA_BAPISDTEXT.
    REFRESH I_BAPISDTEXT.

*  WA_BAPISDTEXT-TEXT_ID   = '0001'.
*  WA_BAPISDTEXT-LANGU     = SY-LANGU.
*  WA_BAPISDTEXT-TEXT_LINE = COMMENT.
*  APPEND WA_BAPISDTEXT TO I_BAPISDTEXT.
    APPEND E_ORDER_BAPISCHDL.
    APPEND E_ORDER_ITEMS_IN.
*    MODIFY zsd_sale_test from ls_sale.
    clear ls_sale.
  endloop.

****创建销售订单
*  CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
*    EXPORTING
*      ORDER_HEADER_IN     = E_ORDER_HEADER_IN
*    IMPORTING
*      SALESDOCUMENT       = SALESDOCUMENT
*    TABLES
*      RETURN              = RETURN
*      ORDER_SCHEDULES_IN  = E_ORDER_BAPISCHDL
*      ORDER_ITEMS_IN      = E_ORDER_ITEMS_IN
*      ORDER_PARTNERS      = E_ORDER_PARTNERS
*      ORDER_CONDITIONS_IN = lt_order_conditions_in
*      ORDER_TEXT          = lt_order_text.

CALL FUNCTION 'SD_SALESDOCUMENT_CREATE'
      EXPORTING
        SALESDOCUMENT     = SALESDOCUMENT
        sales_header_in     = E_ORDER_HEADER_IN
*        logic_switch        = lv_logic_switch
      IMPORTING
        SALESDOCUMENT_EX       = SALESDOCUMENT
      TABLES
        return              = RETURN
        sales_items_in      = E_ORDER_ITEMS_IN
        sales_partners      = E_ORDER_PARTNERS
        sales_schedules_in  = E_ORDER_BAPISCHDL
        sales_conditions_in = lt_order_conditions_in
        sales_text          = lt_order_text.

SO BAPI SD_SALESDOCUMENT_CREATE的更多相关文章

  1. 创建SO bapi

    转自http://blog.sina.com.cn/s/blog_1647b3eff0102wi32.html 1.创建销售订单使用的BAPI BAPI_SALESORDER_CREATEFROMDA ...

  2. BAPI

    MM模块 1. BAPI_MATERIAL_SAVEDATA 创建物料主数据 注意参数EXTENSIONIN的使用,可以创建自定义字段 例如:WA_BAPI_TE_MARA-MATERIAL = IT ...

  3. BAPI LIST

    [转自 http://blog.csdn.net/minsenwu/article/details/8432081] 库存管理BAPI 库存: 1. BAPI_MATERIAL_AVAILABILIT ...

  4. SAP 各模块常用的BAPI

    MM模块 1. BAPI_MATERIAL_SAVEDATA 创建物料主数据 注意参数EXTENSIONIN的使用,可以创建自定义字段 例如:WA_BAPI_TE_MARA-MATERIAL = IT ...

  5. PP常用bapi

    PPCO0012 co01/CO02/CO03屏幕bapi  生产订单:显示/更改订单抬头数据 PPCO0001 开发应用程序: PP订单 PPCO0007 保存生产订单时退出 PPCO0001  A ...

  6. BAPI 调用相当于BAPI_TRANSACTION_COMMIT 的方法

    为什么.net调用SAP的BAPI接口需要调用BAPI_TRANSACTION_COMMIT呢?首先得明白BAPI_TRANSACTION_COMMIT这个BAPI的作用.它功劳很大,在SAP里面很多 ...

  7. idoc 和 bapi 和 rfc 之间的区别

        se37 写出来的叫function,其中可以远程调用的叫rfc,remote-enabled function,abap语法和输入输出参数就会有一些限制.bapi是sap做好的实现特定业务操 ...

  8. 业务对象和BAPI

    声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...

  9. [SAP ABAP开发技术总结]BAPI调用

    声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...

随机推荐

  1. 第四章 生命周期函数--35 vue-resource发起get、post、jsonp请求

    vue-resource 官网 https://github.com/pagekit/vue-resource <!DOCTYPE html> <html lang="en ...

  2. MySQL更新字段来自另一个表的count()值

    假设有文章post和评论comment两个表,文章表记录有评论的数量,但是这个值我们要一次更新. 如下,现在post表的comment_count都是0,我们的目标是:执行一个SQL语句,让其把统计c ...

  3. Prometheus+Granfana

    二.虚机(服务器)方式prometheus在虚机(服务器)中安装运行. 命令行启动在安装完成以后,可以直接在命令行启动.启动方式通常是: ./prometheus --config.file=prom ...

  4. std::setw(size)与std::setfill(char)

    头文件:#include <iostream>#include <iomanip>using namespace std; 功能:  std::setw :需要填充多少个字符, ...

  5. Git 下拉项目

    1.[VCS]> [Checkout  from  Version  Control] >  [Git] 2.项目Git路径 > [Clone]

  6. Centos 下硬盘分区的最佳方案

    Centos7从零开始]Centos 下硬盘分区的最佳方案 2016年12月25日 10:09:02 浮華的滄桑 阅读数 41971   在对硬盘进行分区前,应该先弄清楚计算机担负的工作及硬盘的容量有 ...

  7. Angular 如何修改启动的端口

    在默认的情况下 Angular 启动使用的是端口 4200. 如果修改这个启动的端口,比如说我们希望再  4100 端口上启动? 可以在启动的时候添加端口参数 --port. 例如使用下面的启动命令: ...

  8. codevs 5969 [AK]刻录光盘x

                         题目描述 Description • 在FJOI2010夏令营快要结束的时候,很多营员提出来要把整个夏令营期间的资料刻录成一张光盘给大家,以便大家回去后继续学 ...

  9. 家谱(gen)x

      家谱(gen) 时间限制  2S [问题描述]     现代的人对于本家族血统越来越感兴趣,现在给出充足的父子关系,请你编写程序找到某个人的最早的祖先. [输入格式]gen.in 输入文件由多行组 ...

  10. linux环境下写C++操作mysql(一)

    /***************** connect.cpp g++ connect.cpp -o connect -I /usr/include/mysql/ -L /usr/lib/mysql/ ...