SAP 销售订单创建BAPI

正常销售订单    BAPI_SALESORDER_CREATEFROMDAT2

退货订单     BAPI：BAPI_CUSTOMERRETURN_CREATE / SD_SALESDOCUMENT_CREATE

借贷项订单  SD_SALESDOCUMENT_CREATE

其他：  

交货单： BAPI_OUTB_DELIVERY_CREATE_SLS / BAPI_OUTB_DELIVERY_CHANGE

外向交货单的发货过账   WS_DELIVERY_UPDATE

发票   BAPI_BILLINGDOC_CREATEMULTIPLE

用BAPI创建创建SO

form frm_va01_bapi.
  data:l_order_header_in      like bapisdhd1, "销售订单抬头
       l_order_header_inx     like bapisdhd1x, "销售订单抬头更新
       gt_return              like table of bapiret2 with header line, "返回参数
       gt_order_items_in      like table of bapisditm with header line, "销售订单项目
       gt_order_items_inx     like table of bapisditmx with header line, "销售订单项目更新
       gt_order_partners      like table of bapiparnr with header line, "销售订单合作伙伴
       l_sender               like bapi_sender, "发送人逻辑系统
       l_salesdocumentin      like bapivbeln-vbeln, "销售订单
       l_logic_switch         like bapisdls, "逻辑切换的 SD 复选框
       l_order_conditions_in  like table of bapicond with header line, "条件类型
       l_order_conditions_inx like table of bapicondx with header line, "条件类型更新
       l_salesdocument        like bapivbeln-vbeln, "BAPI 销售订单
       gt_order_schedules_in  like table of bapischdl with header line, "计划行
       gt_order_schedules_inx like table of bapischdlx with header line, "计划行更新。
       GT_ORDER_TEXT LIKE TABLE OF BAPISDTEXT WITH HEADER LINE."文本
  data:cp_eind type string,
       l_w     type string,
       i_mes   type char200.

  "记录销售订单抬头，用作循环使用
  data:begin of gt_head occurs 0,
         index type string, "销售订单
         auart type string, "销售凭证类型
         vkorg type string, "销售组织
         vtweg type string, "分销渠道
         spart type string, "产品组
         vkbur type string, "销售办事处
         bstnk type string, "客户参考
         augru type string, "订货原因
         kunnr type string, "售达方
         kunag type string, "送达方
          Remarks TYPE STRING,
       end of gt_head.

  "获取到选中的订单
  loop at gt_out where box = 'X'.
    gt_head-index = gt_out-index.
    gt_head-auart = gt_out-auart.
    gt_head-vkorg = gt_out-vkorg.
    gt_head-vtweg = gt_out-vtweg.
    gt_head-spart = gt_out-spart.
    gt_head-vkbur = gt_out-vkbur.
    gt_head-bstnk = gt_out-bstnk.
    gt_head-augru = gt_out-augru.
    gt_head-kunnr = gt_out-kunnr .
    gt_head-kunag = gt_out-kunag.
    GT_HEAD-Remarks = GT_OUT-Remarks.
    append gt_head.
  endloop.
  "删除重复项
  delete adjacent duplicates from gt_head comparing all fields.
  sort gt_head.
*  break k99997.

  "进行数据处理
  loop at gt_head.
    "销售订单