创建交货单/外向交货BAPI_OUTB_DELIVERY_CREATE_SLS/STO

FUNCTION Z_SD_CREATE_DN.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IM_SHIP_TYPE) TYPE  LIKP-VSART DEFAULT '01'
*"     VALUE(IM_DUE_DATE) TYPE  DATUM DEFAULT '99991231'
*"  EXPORTING
*"     VALUE(E_DN) TYPE  CHAR10
*"     VALUE(E_STATUS) TYPE  CHAR1
*"     VALUE(E_MESSAGE) TYPE  CHAR40
*"  TABLES
*"      T_DATA STRUCTURE  ZSDS0008
*"      IT_RETURN STRUCTURE  BAPIRET2 OPTIONAL
*"      IT_DN STRUCTURE  VBAK OPTIONAL
*"----------------------------------------------------------------------
  DATA : LV_SHIP_POINT TYPE          BAPIDLVCREATEHEADER-SHIP_POINT,
         LV_DUE_DATE   TYPE          BAPIDLVCREATEHEADER-DUE_DATE,
         LV_DELIVERY   TYPE          BAPISHPDELIVNUMB-DELIV_NUMB,
         LT_SO_ITEMS   LIKE TABLE OF BAPIDLVREFTOSALESORDER,
         LS_SO_ITEM       LIKE          BAPIDLVREFTOSALESORDER,
         LT_STO_ITEMS  LIKE TABLE OF BAPIDLVREFTOSTO,
         LS_STO_ITEM   LIKE          BAPIDLVREFTOSTO,
         LT_RETURN     LIKE TABLE OF BAPIRET2,
         LS_RETURN     LIKE          BAPIRET2.

  DATA : LV_TYPE(2). "PO / SO
  DATA : LV_SUCCESS.
  DATA : LV_MATNR TYPE VBAP-MATNR.
  DATA : LV_VBELN TYPE VBELN.
  DATA : LV_TABIX TYPE SY-TABIX.
  DATA : LV_CONTINUE.

  DATA : LT_LIPS TYPE TABLE OF LIPS,
         LS_LIPS TYPE          LIPS.

  DATA : BEGIN OF LS_DATA,
           DEL.
          INCLUDE STRUCTURE ZSDS0008.
  DATA : END OF LS_DATA.

  DATA : LT_DATA LIKE TABLE OF LS_DATA.

  DATA : BEGIN OF LT_VBFA OCCURS 0,
           VBELV TYPE VBFA-VBELV,   "先前凭证
           POSNV TYPE VBFA-POSNV,
           VBELN TYPE VBFA-VBELN,   "后续凭证
           POSNR TYPE VBFA-POSNN,
         END OF LT_VBFA.

  DATA : LV_MAX   TYPE I VALUE '333',
         LV_COUNT TYPE I.

  LOOP AT T_DATA.
    MOVE-CORRESPONDING T_DATA TO LS_DATA.
    APPEND LS_DATA TO LT_DATA.
  ENDLOOP.

  PERFORM FRM_DATA_CHECK TABLES LT_DATA CHANGING E_MESSAGE.

  IF E_MESSAGE IS NOT INITIAL.
    E_STATUS = 'E'.
    EXIT.
  ENDIF.

  REFRESH : LT_STO_ITEMS,
            LT_SO_ITEMS,
            IT_RETURN.

  SORT LT_DATA BY VBELN POSNR.

  LV_DUE_DATE = IM_DUE_DATE.

  CLEAR LS_DATA.
  READ TABLE LT_DATA INTO LS_DATA INDEX 1.
  SELECT SINGLE * FROM EKKO WHERE EBELN = LS_DATA-VBELN.
  IF SY-SUBRC EQ 0."PO - STO.
    LV_TYPE = 'PO'.
    LV_SHIP_POINT = '8001'.
*    LV_DUE_DATE = '99991230'.
  ELSE.
    LV_TYPE = 'SO'.
    LV_SHIP_POINT = '8001'.
*    LV_DUE_DATE = '99991230'.
  ENDIF.

* 判断行项目是否产生过交货单
  SELECT VGBEL AS VBELV VGPOS AS POSNV VBELN POSNR
    FROM LIPS
    INTO TABLE LT_VBFA
    WHERE VGBEL = LS_DATA-VBELN.

* 控制交货单最大的项目数
  DO.

    CLEAR LV_CONTINUE.

    LOOP AT LT_DATA INTO LS_DATA WHERE DEL EQ ''.

*      IF LV_MAX = LV_COUNT.
*        CLEAR LV_COUNT.
*        EXIT.
*      ENDIF.
*     排除掉已经创建过交货单的行项目
      READ TABLE LT_VBFA WITH KEY VBELV = LS_DATA-VBELN POSNV = LS_DATA-POSNR.
      IF SY-SUBRC EQ 0.
        E_DN = LT_VBFA-VBELN.
        IT_DN-VBELN = E_DN.
        COLLECT IT_DN.
        CONTINUE.
      ENDIF.

      CLEAR E_DN.

      ADD 1 TO LV_COUNT.

      IF LV_TYPE = 'PO'.
        CLEAR LS_STO_ITEM.
        LS_STO_ITEM-REF_DOC = LS_DATA-VBELN.
        LS_STO_ITEM-REF_ITEM = LS_DATA-POSNR.
        APPEND LS_STO_ITEM TO LT_STO_ITEMS.
      ELSE.
        CLEAR LS_SO_ITEM.
        LS_SO_ITEM-REF_DOC = LS_DATA-VBELN.
        LS_SO_ITEM-REF_ITEM = LS_DATA-POSNR.
        APPEND LS_SO_ITEM TO LT_SO_ITEMS.
      ENDIF.

      LV_CONTINUE = 'X'.

      LS_DATA-DEL = 'X'.
      MODIFY LT_DATA FROM LS_DATA TRANSPORTING DEL.
    ENDLOOP.

    IF LV_CONTINUE EQ ''.
      EXIT.
    ENDIF.

    IF LV_DUE_DATE NE '99991231'.
      FREE MEMORY ID 'DUE_DATE'.
      EXPORT LV_DUE_DATE TO MEMORY ID 'DUE_DATE'.
    ENDIF.


    IF LT_SO_ITEMS IS NOT INITIAL.
* Call BAPI to Create DN
      CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'
        EXPORTING
          SHIP_POINT        = LV_SHIP_POINT
          DUE_DATE          = LV_DUE_DATE
        IMPORTING
          DELIVERY          = LV_DELIVERY
        TABLES
          SALES_ORDER_ITEMS = LT_SO_ITEMS
          RETURN            = LT_RETURN.

    ELSEIF LT_STO_ITEMS IS NOT INITIAL.
* Call BAPI to Create DN
      CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_STO'
        EXPORTING
          SHIP_POINT        = LV_SHIP_POINT
          DUE_DATE          = LV_DUE_DATE
        IMPORTING
          DELIVERY          = LV_DELIVERY
        TABLES
          STOCK_TRANS_ITEMS = LT_STO_ITEMS
          RETURN            = LT_RETURN.

    ENDIF.

    APPEND LINES OF LT_RETURN TO IT_RETURN.

    LOOP AT LT_RETURN TRANSPORTING NO FIELDS WHERE TYPE = 'A' OR
                                                   TYPE = 'E' OR
                                                   TYPE = 'X'.
      EXIT.
    ENDLOOP.

    IF SY-SUBRC EQ 0.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

      PERFORM FRM_CONVERT_MESSAGE TABLES LT_RETURN CHANGING E_MESSAGE.

      E_STATUS = 'E'.
      EXIT.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          WAIT = 'X'.

      E_STATUS = 'S'.
      E_DN = LV_DELIVERY.
    ENDIF.

    DO 100 TIMES.
      SELECT *
        FROM LIPS
        INTO TABLE LT_LIPS
        WHERE VBELN = LV_DELIVERY.

      IF SY-SUBRC EQ 0.
        EXIT.
      ENDIF.
    ENDDO.


*   --->请求交货数量 与交货数量不一致 20152417
    IF LT_STO_ITEMS IS NOT INITIAL AND LINES( LT_STO_ITEMS ) NE LINES( LT_LIPS ).
*      WAIT UP TO 1 SECONDS.
      PERFORM FRM_DELETE_DELIVERY TABLES IT_RETURN USING LV_DELIVERY.
      CLEAR IT_RETURN.
      IT_RETURN-ID         = '00'.
      IT_RETURN-NUMBER     = '000'.
      IT_RETURN-TYPE       = 'E'.
      IT_RETURN-MESSAGE    = '交货数量与请求交货数量不一致，停止交货'.
      IT_RETURN-MESSAGE_V1 = '交货数量与请求交货数量不一致'.
      IT_RETURN-MESSAGE_V2 = '，停止交货'.
      IT_RETURN-MESSAGE_V3 = LV_DELIVERY.
      IT_RETURN-MESSAGE_V4 = ''.
      APPEND IT_RETURN.

      CLEAR: E_STATUS,E_DN.
      EXIT.
    ELSEIF LT_SO_ITEMS IS NOT INITIAL AND LINES( LT_SO_ITEMS ) NE LINES( LT_LIPS ).
*      WAIT UP TO 1 SECONDS.
      PERFORM FRM_DELETE_DELIVERY TABLES IT_RETURN USING LV_DELIVERY.
      CLEAR IT_RETURN.
      IT_RETURN-ID         = '00'.
      IT_RETURN-NUMBER     = '000'.
      IT_RETURN-TYPE       = 'E'.
      IT_RETURN-MESSAGE    = '交货数量与请求交货数量不一致，停止交货'.
      IT_RETURN-MESSAGE_V1 = '交货数量与请求交货数量不一致'.
      IT_RETURN-MESSAGE_V2 = '，停止交货'.
      IT_RETURN-MESSAGE_V3 = LV_DELIVERY.
      IT_RETURN-MESSAGE_V4 = ''.
      APPEND IT_RETURN.

      CLEAR: E_STATUS,E_DN.
      EXIT.
    ENDIF.
*   <---请求交货数量 与交货数量不一致 20150427

    IT_DN-VBELN = LV_DELIVERY.
    APPEND IT_DN.

*    REFRESH :  GT_DN_ITEM.
*
*    LOOP AT LT_LIPS INTO LS_LIPS.
*      LV_TABIX = SY-TABIX.
*
*      CLEAR GS_DN_ITEM.
*      GS_DN_ITEM-DELIV_NUMB = LS_LIPS-VBELN.
*      GS_DN_ITEM-DELIV_ITEM = LS_LIPS-POSNR.
*      GS_DN_ITEM-MATERIAL = LS_LIPS-MATNR.
*      GS_DN_ITEM-DLV_QTY = LS_LIPS-LGMNG.
*      GS_DN_ITEM-FACT_UNIT_NOM = LS_LIPS-UMVKZ.
*      GS_DN_ITEM-FACT_UNIT_DENOM = LS_LIPS-UMVKN.
*
*      READ TABLE LT_DATA INTO LS_DATA WITH KEY VBELN = LS_LIPS-VGBEL POSNR = LS_LIPS-VGPOS.
*      IF SY-SUBRC EQ 0 AND LS_DATA-CHARG IS NOT INITIAL AND LS_LIPS-CHARG NE LS_DATA-CHARG.
*        GS_DN_ITEM-BATCH = LS_DATA-CHARG.
*        APPEND GS_DN_ITEM TO GT_DN_ITEM.
*
*        LS_LIPS-CHARG = LS_DATA-CHARG.
*      ELSE.
*        DELETE LT_LIPS INDEX LV_TABIX.
*        CONTINUE.
*      ENDIF.
*
*      CLEAR GS_DN_ITEM_CTR.
*      GS_DN_ITEM_CTR-DELIV_NUMB = LS_LIPS-VBELN.
*      GS_DN_ITEM_CTR-DELIV_ITEM = LS_LIPS-POSNR.
*      GS_DN_ITEM_CTR-CHG_DELQTY = 'X'.
*      APPEND GS_DN_ITEM_CTR TO GT_DN_ITEM_CTR.
*
*      MODIFY LT_LIPS FROM LS_LIPS TRANSPORTING CHARG.
*    ENDLOOP.

*    CHECK GT_DN_ITEM IS NOT INITIAL.

*    GS_DN_HEADER-DELIV_NUMB = LV_DELIVERY.
*    GS_DN_HEADER_CTR-DELIV_NUMB = LV_DELIVERY.
*    GS_DN_HEADER-SHIP_COND = IM_SHIP_COND."Ship condition
*    GS_DN_HEADER_CTR-SHIP_COND_FLG = 'X'."Ship condition
*    GV_DN_NUMBER = LV_DELIVERY.


*  Update Batch to DN
*  CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
*    EXPORTING
*      HEADER_DATA    = GS_DN_HEADER
*      HEADER_CONTROL = GS_DN_HEADER_CTR
*      DELIVERY       = GV_DN_NUMBER
*    TABLES
*      ITEM_DATA      = GT_DN_ITEM
*      ITEM_CONTROL   = GT_DN_ITEM_CTR
*      RETURN         = GT_RETURN.

*    LV_VBELN = LV_DELIVERY.
*    CALL FUNCTION 'Z_SD_CHANGE_DN'
*      EXPORTING
*        IM_DELIVERY  = LV_VBELN
*        IM_SHIP_TYPE = IM_SHIP_TYPE
*      TABLES
*        IT_ITEM      = LT_LIPS
*        IT_RETURN    = GT_RETURN.
*
*
*    LOOP AT GT_RETURN TRANSPORTING NO FIELDS WHERE TYPE = 'A' OR
*                                                   TYPE = 'E' OR
*                                                   TYPE = 'X'.
*      EXIT.
*    ENDLOOP.
*
*    IF SY-SUBRC EQ 0.
*      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
*
*      APPEND LINES OF GT_RETURN TO IT_RETURN.
*
*      PERFORM FRM_CONVERT_MESSAGE TABLES GT_RETURN CHANGING E_MESSAGE.
**   Delete Delivery Note
*      PERFORM FRM_DELETE_DELIVERY USING LV_VBELN.
*
*      E_STATUS = 'E'.
*    ELSE.
*      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*        EXPORTING
*          WAIT = 'X'.
*
*      E_STATUS = 'S'.
*      E_DN = LV_DELIVERY.
*    ENDIF.
*
*    REFRESH: LT_SO_ITEMS,
*             LT_STO_ITEMS,
*             LT_LIPS.
*
*    APPEND LINES OF GT_RETURN TO IT_RETURN.
*
*    IT_DN-VBELN = LV_DELIVERY.
*    APPEND IT_DN.
  ENDDO.



ENDFUNCTION.



ZSDS0008结构：
KUNNR    1 类型    KUNNR
VBELN    1 类型    VBELN
POSNR    1 类型    POSNR
CHARG    1 类型    CHARG_D