SD BAPI 留存

*&---------------------------------------------------------------------*
*&  Include           ZINCL_BAPI_SO
*&---------------------------------------------------------------------*
*1.销售订单：
*
*BAPI_SALESORDER_CREATEFROMDAT2 普通销售订单
*SD_SALESDOCUMENT_CREATE 销售订单
*SD_SALESDOCUMENT_CREATE 退货订单
*BAPI_SALESORDER_CHANGE 修改或者删除销售订单
*BAPI_PRICES_CONDITIONS 创建销售价格
*注意：退货订单、借项凭证及贷项凭证（VA01）均不能用BAPI_SALESORDER_CREATEFROMDAT2创建、系统会报错(不允许业务对象 BUS2032 和销售凭证类别 H 的组合)，需使用函数SD_SALESDOCUMENT_CREATE
*
*2.交货单：
*
*BAPI_OUTB_DLVVERY_CREATE_SLS 根据销售订单创建交货单
*BAPI_DLVVERYPROCESSING_EXEC 创建内向交货单
*BAPI_OUTB_DLVVERY_READ_SLS 根据销售订单创建交货单,得到交货单创建初始页面所需数据
*BAPI_OUTB_DLVVERY_CHANGE 执行拆分、拣配、交货单修改操作
*BAPI_OUTB_DLVVERY_GETDETAIL 根据交货单号获取单据详细内容
*SD_DLVVERY_UPDATE_PICKING 更改拣配数量
*3.发票：
*
*BAPI_BILLINGDOC_CREATEMULTIPLE 创建发票，注意参数ref_doc_ca
*MB_CANCEL_GOODS_MOVEMENT 冲销交货单的过账发货
*BAPI_BILLINGDOC_CANCEL 发票的冲销
*WS_DLVVERY_UPDATE 交货单发货过账
*注意，每次调用WS_DLVVERY_UPDATE前需要执行以下代码段，否则会出现莫名奇妙的错误。
*CALL FUNCTION ‘RV_DLVVERY_INIT’.
*
*4.客户：
*
*SD_CUSTOMER_MAINTAIN_ALL 创建客户
*table参数中有很多表，其中X打头代表要插入的数据，Y打头代表要删除的数据.
*
*CALL METHOD cl_md_bp_maintain=>maintain 创建、修改、扩充客户主数据

TYPES : BEGIN OF TY_SALE,
          VBELN         TYPE  BAPIVBELN-VBELN , "
          HEADER        TYPE  BAPISDHD1 , "
          HEADERX       TYPE  BAPISDHD1X  , "
*         SENDER  TYPE  BDI_LOGSYS  ,"
*         BINARY_RELATIONSHIPTYPE TYPE  BRELTYP-RELTYPE ,"
*         INT_NUMBER_ASSIGNMENT TYPE  BAPIFLAG-BAPIFLAG ,"
*         BEHAVE_WHEN_ERROR TYPE  BAPIFLAG-BAPIFLAG ,"
*         LOGIC_SWITCH  TYPE  BAPISDLS  ,"
*         BUSINESS_OBJECT TYPE  BAPIUSW01-OBJTYPE ,"
          TESTRUN       TYPE  BAPIFLAG-BAPIFLAG , "
*         CONVERT_PARVW_AUART TYPE  BAPIFLAG-BAPIFLAG ,"
*         STATUS_BUFFER_REFRESH TYPE  BAPIFLAG-BAPIFLAG ,"

          EXVBELN       TYPE  BAPIVBELN-VBELN , "
          HEADER_OUT    TYPE  BAPISDHD  , "
          HEADER_STATUS TYPE  BAPISDHDST  , "

          ITEM          TYPE TABLE OF BAPISDITM WITH DEFAULT KEY,
          ITEMX         TYPE TABLE OF BAPISDITMX  WITH DEFAULT KEY,
          PARTNERS      TYPE TABLE OF BAPIPARNR WITH DEFAULT KEY,
          SCHEDULES     TYPE TABLE OF BAPISCHDL WITH DEFAULT KEY,
          SCHEDULESX    TYPE TABLE OF BAPISCHDLX  WITH DEFAULT KEY,
          COND          TYPE TABLE OF BAPICOND  WITH DEFAULT KEY,
          CONDX         TYPE TABLE OF BAPICONDX WITH DEFAULT KEY,
*         CFGS_REF  TYPE TABLE OF BAPICUCFG WITH DEFAULT KEY  ,
*         CFGS_INST  TYPE TABLE OF BAPICUINS WITH DEFAULT KEY  ,
*         CFGS_PART_OF  TYPE TABLE OF BAPICUPRT WITH DEFAULT KEY  ,
*         CFGS_VALUE  TYPE TABLE OF BAPICUVAL WITH DEFAULT KEY  ,
*         CFGS_BLOB  TYPE TABLE OF BAPICUBLB WITH DEFAULT KEY  ,
*         CFGS_VK TYPE TABLE OF BAPICUVK  WITH DEFAULT KEY  ,
*         CFGS_REFINST  TYPE TABLE OF BAPICUREF WITH DEFAULT KEY  ,
*         CCARD  TYPE TABLE OF BAPICCARD WITH DEFAULT KEY  ,
*         TEXT  TYPE TABLE OF BAPISDTEXT  WITH DEFAULT KEY  ,
*         KEYS  TYPE TABLE OF BAPISDKEY WITH DEFAULT KEY  ,
*         CONTRACT_IN  TYPE TABLE OF BAPICTR WITH DEFAULT KEY  ,
*         CONTRACT_INX  TYPE TABLE OF BAPICTRX  WITH DEFAULT KEY  ,
          EXTENSION     TYPE TABLE OF BAPIPAREX WITH DEFAULT KEY,
*         PARTNERADDRESSES  TYPE TABLE OF BAPIADDR1 WITH DEFAULT KEY  ,
*         SCHED_CONF_IN TYPE TABLE OF BAPISCHDL2  WITH DEFAULT KEY  ,
*         ITEMS_EX  TYPE TABLE OF BAPISDIT  WITH DEFAULT KEY  ,
*         SCHEDULE_EX TYPE TABLE OF BAPISDHEDU  WITH DEFAULT KEY  ,
*         BUSINESS_EX TYPE TABLE OF BAPISDBUSI  WITH DEFAULT KEY  ,
*         INCOMPLETE_LOG  TYPE TABLE OF BAPIINCOMP  WITH DEFAULT KEY  ,
*         EXTENSIONEX  TYPE TABLE OF BAPIPAREX WITH DEFAULT KEY  ,
*         CONDITIONS_EX TYPE TABLE OF BAPICOND  WITH DEFAULT KEY  ,
*         PARTNERS_EX TYPE TABLE OF BAPISDPART  WITH DEFAULT KEY  ,
*         TEXTHEADERS_EX  TYPE TABLE OF BAPISDTEHD  WITH DEFAULT KEY  ,
*         TEXTLINES_EX  TYPE TABLE OF BAPITEXTLI  WITH DEFAULT KEY  ,
*         BATCH_CHARC  TYPE TABLE OF BAPIBTSEL WITH DEFAULT KEY  ,
*         CAMPAIGN_ASGN TYPE TABLE OF BAPISDCA  WITH DEFAULT KEY  ,
*         CONDITIONS_KONV_EX  TYPE TABLE OF KONV  WITH DEFAULT KEY  ,
*         ETAX  TYPE TABLE OF OI0BAPISDETAX WITH DEFAULT KEY  ,
*         ETAXX TYPE TABLE OF OI0BAPISDETAXX  WITH DEFAULT KEY  ,
*         TRANSP  TYPE TABLE OF OI0BAPISDTRANSP WITH DEFAULT KEY  ,
*         TRANSPX TYPE TABLE OF OI0BAPISDTRANSPX  WITH DEFAULT KEY  ,
        END OF TY_SALE .

TYPES : BEGIN OF TY_DLV,
          VBELN      TYPE  BAPISHPDELIVNUMB-DELIV_NUMB,
          VSTEL      TYPE  BAPIDLVCREATEHEADER-SHIP_POINT,
          LEDAT      TYPE  BAPIDLVCREATEHEADER-DUE_DATE,
*        DEBUG_FLG TYPE  BAPIDLVCONTROL-DEBUG_FLG  ,
*        NO_DEQUEUE  TYPE  BAPIFLAG-BAPIFLAG ,

          HEADER     TYPE  BAPIOBDLVHDRCHG,
          HCONTROL   TYPE  BAPIOBDLVHDRCTRLCHG,
          TCONTROL   TYPE  BAPIDLVCONTROL,
*        HEADER_DATA_SPL TYPE  /SPE/BAPIOBDLVHDRCHG,
*        HEADER_CONTROL_SPL  TYPE   /SPE/BAPIOBDLVHDRCTRLCHG,
*        SENDER_SYSTEM TYPE  TBDLS-LOGSYS,

          EXVBELN    TYPE  BAPISHPDELIVNUMB-DELIV_NUMB,
*        NUM_DELIVERIES  TYPE  BAPIDLVCREATEHEADER-NUM_DELIVERIES  ,

          ITEM       TYPE TABLE OF   BAPIDLVREFTOSALESORDER  WITH DEFAULT KEY,
          SERIAL     TYPE TABLE OF   BAPIDLVSERIALNUMBER WITH DEFAULT KEY,
          EXTENSION  TYPE TABLE OF   BAPIPAREX WITH DEFAULT KEY,
*        DELIVERIES  TYPE TABLE OF   BAPISHPDELIVNUMB  WITH DEFAULT KEY  ,
*        CREATED_ITEMS TYPE TABLE OF   BAPIDLVITEMCREATED  WITH DEFAULT KEY  ,
*        EXTENSION_OUT TYPE TABLE OF   BAPIPAREX WITH DEFAULT KEY  ,

*        HEADER_PARTNER  TYPE TABLE OF BAPIDLVPARTNERCHG  WITH DEFAULT KEY  ,
*        HEADER_PARTNER_ADDR  TYPE TABLE OF BAPIDLVPARTNADDRCHG  WITH DEFAULT KEY  ,
*        HEADER_DEADLINES  TYPE TABLE OF BAPIDLVDEADLN  WITH DEFAULT KEY  ,
          ITEMC      TYPE TABLE OF BAPIOBDLVITEMCHG  WITH DEFAULT KEY,
          ICONTROL   TYPE TABLE OF BAPIOBDLVITEMCTRLCHG  WITH DEFAULT KEY,
          SERIALC    TYPE TABLE OF BAPIDLVITMSERNO  WITH DEFAULT KEY,
*        SUPPLIER_CONS_DATA  TYPE TABLE OF BAPIOBDLVITEMSUPCON  WITH DEFAULT KEY  ,
*        EXTENSION1  TYPE TABLE OF BAPIEXTC  WITH DEFAULT KEY  ,
          EXTENSION2 TYPE TABLE OF BAPIEXT  WITH DEFAULT KEY,
*        TOKENREFERENCE  TYPE TABLE OF BAPITOKENREFERENCE  WITH DEFAULT KEY  ,
          ITEMSPL    TYPE TABLE OF /SPE/BAPIOBDLVITEMCHG  WITH DEFAULT KEY,
*        COLLECTIVE_CHANGE_ITEMS  TYPE TABLE OF /SPE/BAPIOBDLVCOLLCHGIR  WITH DEFAULT KEY  ,
*        NEW_ITEM_DATA  TYPE TABLE OF BAPIOBDLVITEM  WITH DEFAULT KEY  ,
*        NEW_ITEM_DATA_SPL  TYPE TABLE OF /SPE/BAPIOBDLVITM  WITH DEFAULT KEY  ,
*        NEW_ITEM_ORG  TYPE TABLE OF BAPIOBDLVITEMORG  WITH DEFAULT KEY  ,
*        ITEM_DATA_DOCU_BATCH  TYPE TABLE OF /SPE/DOCUBATCH_DLV_ITEM_STY  WITH DEFAULT KEY  ,
*        CWM_ITEM_DATA  TYPE TABLE OF /CWM/BAPIOBDLVITEM  WITH DEFAULT KEY  ,
          """"""""""""""""""""""""""""""""""''
          VBKOK      TYPE VBKOK,
          PICKING    TYPE CHAR01,
          VBPOK      TYPE TABLE OF VBPOK  WITH DEFAULT KEY,

          """""""""""""""""""""""""
          LIKP       TYPE LIKP,
          MKPF       TYPE EMKPF,
          MESG       TYPE TABLE OF MESG WITH DEFAULT KEY,

        END OF TY_DLV.
TYPES : BEGIN OF TY_BILL,
*        CREATORDATAIN TYPE  BAPICREATORDATA ,
          TESTRUN TYPE  BAPIVBRKTESTRUN-TESTRUN,
*        POSTING TYPE  POSTING_TYPE_CT,
          VBELN   TYPE VBELN_VF,

*        EXT_REF_DOC TYPE  BAPIVBRK-REF_DOC ,

          ITEM    TYPE TABLE OF BAPIVBRK  WITH DEFAULT KEY,
*        CONDITIONDATAIN TYPE TABLE OF BAPIKOMV  WITH DEFAULT KEY  ,
*        CCARDDATAIN TYPE TABLE OF BAPICCARD_VF  WITH DEFAULT KEY  ,
*        TEXTDATAIN  TYPE TABLE OF BAPIKOMFKTX WITH DEFAULT KEY  ,
*        ERRORS  TYPE TABLE OF BAPIVBRKERRORS  WITH DEFAULT KEY  ,
*        RETURN  TYPE TABLE OF BAPIRET1  WITH DEFAULT KEY  ,
          SUCCESS TYPE TABLE OF BAPIVBRKSUCCESS WITH DEFAULT KEY,
*        NFMETALLITMS  TYPE TABLE OF /NFM/BAPIDOCITM WITH DEFAULT KEY  ,
        END OF TY_BILL.
TYPES : BEGIN OF TY_SOEXTENSION,
          VALUEPART1 TYPE  VALUEPART,
          VALUEPART2 TYPE  VALUEPART,
          VALUEPART3 TYPE  VALUEPART,
          VALUEPART4 TYPE  VALUEPART,
        END OF TY_SOEXTENSION .

DATA GS_SALE TYPE TY_SALE .
DATA GS_DLV TYPE TY_DLV .
DATA GS_BILL TYPE TY_BILL .

*DATA LT_RETURN TYPE BAPIRET2_TAB.
*PERFORM FRM_INITIAL_SALES .
*PERFORM FRM_SALESORDER_CREATE USING LT_RETURN .
*PERFORM FRM_SALESORDER_CHANGE USING LT_RETURN .
*PERFORM FRM_DLVVERY_CREATE    USING LT_RETURN .
*PERFORM FRM_DLVVERY_CHANGE    USING LT_RETURN .
*PERFORM FRM_DLVVERY_POST      USING LT_RETURN .
*PERFORM FRM_BILLINGDOC_CREATE USING LT_RETURN .
*PERFORM FRM_BILLINGDOC_CANCEL USING LT_RETURN .
*&---------------------------------------------------------------------*
*&      Form  FRM_INITIAL_SALES
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_INITIAL_SALES .
  FREE GS_SALE .
  FREE GS_DLV  .
  FREE GS_BILL .
ENDFORM.                    " FRM_INITIAL_SALES

*&---------------------------------------------------------------------*
*&      创建销售订单
*&---------------------------------------------------------------------*
*      perform frm_SALESORDER_create USING lt_return ."va01
*----------------------------------------------------------------------*
*      -->P_LT_RETURN  text
*----------------------------------------------------------------------*
FORM FRM_SALESORDER_CREATE  USING  IT_RETURN TYPE BAPIRET2_TAB.
  FREE IT_RETURN .
*  增强字段
*  更新抬头：VBAK, BAPE_VBAK, BAPE_VBAKX, VBAKKOZ and VBAKKOZX.
*
*更新行项目：VBAP, BAPE_VBAP, BAPE_VBAPX, VBAPKOZ and VBAPKOZX.