*数据声明
   数据：V_VBELN像BAPIVBELN-VBELN，
          HEADER LIKE BAPISDHD1，
          HEADERX LIKE BAPISDHD1X，
          带有标题行的ITEM LIKE BAPISDITM占位0，
          像ITEMX这样的BAPISDITMX OCCURS 0，带有标题行，
         PARTNER1像带有标题行的BAPIPARNR出现0，
          使用标题行返回类似BAPIRET2的事件，发生次数为0。
   数据：ORDER_SCHEDULE_IN像是带有标题行的BAPISCHDL OCCURS 0，
          与标题行类似的ORDER_SCHEDULE_INX与BAPISCHDLX一起发生。
   HEADER-DOC_TYPE = AUART。
   HEADERX-DOC_TYPE ='X'。
   HEADER-SALES_ORG = VKORG。
   HEADERX-SALES_ORG ='X'。
   HEADER-DISTR_CHAN = VTWEG。
   HEADERX-DISTR_CHAN ='X'。
   HEADER-DIVISION = SPART。
   HEADERX-DIVISION ='X'。
   HEADER-SALES_OFF = VKBUR。
   HEADERX-SALES_OFF ='X'。
   HEADER-PURCH_DATE = SY-DATUM。  " PO_DAT
   HEADERX-PURCH_DATE ='X'。
   HEADER-PURCH_NO_C = PO_NO。
   HEADERX-PURCH_NO_C ='X'。
   HEADERX-UPDATEFLAG ='I'。
   "顾客
   PARTNER1-PARTN_ROLE ='AG'。
   PARTNER1-PARTN_NUMB = KUNNR。
   PARTNER1-PARTN_ROLE ='WE'。
   PARTNER1-PARTN_NUMB = KUNNR1。
   追加合作伙伴1。
   在IT_FINAL处进入WA_FINAL。
     ITEM-ITM_NUMBER = WA_FINAL-POSNR。
     ITEMX-ITM_NUMBER ='X'。
     项目工厂= WA_FINAL-WERKS。
     ITEMX-PLANT ='X'。
     物料= WA_FINAL-MATNR。
     ITEMX-MATERIAL ='X'。
     ITEM-TARGET_QTY = WA_FINAL-KWMENG。
     ITEMX-TARGET_QTY ='X'。
     附录项目。
     附加ITEMX。
     时间表行
     ORDER_SCHEDULE_IN-ITM_NUMBER = WA_FINAL-POSNR。
     ORDER_SCHEDULE_IN-SCHED_LINE ='X'。
     ORDER_SCHEDULE_IN-REQ_QTY = WA_FINAL-KWMENG。
     APPEND ORDER_SCHEDULE_IN。
     ORDER_SCHEDULE_INX-ITM_NUMBER = WA_FINAL-POSNR。
     ORDER_SCHEDULE_INX-SCHED_LINE ='X'。
     ORDER_SCHEDULE_INX-UPDATEFLAG ='X'。
     ORDER_SCHEDULE_INX-REQ_QTY ='X'。
     APPEND ORDER_SCHEDULE_INX。
     清除：WA_FINAL。
   结局。
   通话功能'BAPI_SALESORDER_CREATEFROMDAT2'
     出口
       ORDER_HEADER_IN = HEADER
       ORDER_HEADER_INX = HEADERX
     输入
       SALESDOCUMENT = V_VBELN
     桌子
       RETURN = RETURN []
       ORDER_ITEMS_IN = ITEM []
       ORDER_ITEMS_INX = ITEMX []
       ORDER_PARTNERS = PARTNER1 []
       ORDER_SCHEDULES_IN = ORDER_SCHEDULE_IN []
       ORDER_SCHEDULES_INX = ORDER_SCHEDULE_INX []。
   如果V_VBELN不是INITIAL。
     通话功能'BAPI_TRANSACTION_COMMIT'
  出口
    等待='X'
 *重要
 *返回=。
   endif。