UB单修改详解编程语言

FUNCTION Z_SD_UB_CHANGE. 
*"---------------------------------------------------------------------- 
*"*"Local Interface: 
*"  IMPORTING 
*"     REFERENCE(IM_EBELN) TYPE  EBELN 
*"     REFERENCE(IM_TYPE) TYPE  CHAR4 
*"     REFERENCE(IM_BUDAT) TYPE  BUDAT DEFAULT SY-DATUM 
*"  TABLES 
*"      IT_ITEM STRUCTURE  ZSDS0025 
*"      IT_RETURN STRUCTURE  BAPIRET2 OPTIONAL 
*"---------------------------------------------------------------------- 
*********************************************************************** 
*  Function <Z_SD_UB_CHANGE> 
************************************************************************ 
* 
*  作者:            DZHANGHUI 
*  完成日期:        2014/12/31 
*  描述:            UB单返写 发货 
************************************************************************ 
*  版本号 日期   作者   修改描述 功能更改说明书 
************************************************************************ 
*  1.  YYYY/MM/DD author  Read dataset from app. Server @001 
************************************************************************ 
  DATA : LV_EBELN    TYPE BAPIMEPOHEADER-PO_NUMBER, 
         LV_ITEM     LIKE GS_POITEM-PO_ITEM, 
         LV_WERKS    LIKE GS_POITEM-PLANT, 
         LV_SUPPL    LIKE GS_POITEM-SUPPL_STLOC, 
         LV_CAT      LIKE GS_POITEM-ITEM_CAT, 
         LV_VAL_TYPE LIKE GS_POITEM-VAL_TYPE, 
         LV_BWTTY    LIKE MARC-BWTTY.         "评估类别 
 
  DATA : LS_ITEM TYPE ZSDS0025. 
 
  LV_EBELN = IM_EBELN. 
 
  REFRESH : GT_POITEM,GT_POITEMX, 
            GT_POSCHEDULE,GT_POSCHEDULEX. 
 
* 获取PO的Detail 
  CALL FUNCTION 'BAPI_PO_GETDETAIL1' 
    EXPORTING 
      PURCHASEORDER = LV_EBELN 
    TABLES 
      POITEM        = GT_POITEM. 
 
 
*  IF IM_TYPE = 'SJ'."素金 
*   删除原来的行项目 
  LOOP AT GT_POITEM INTO GS_POITEM. 
    IF ( GS_POITEM-BATCH IS INITIAL OR GS_POITEM-BATCH  EQ GS_POITEM-MATERIAL ) AND 
        GS_POITEM-DELETE_IND IS INITIAL. 
      GS_POITEM-DELETE_IND = 'D'. 
      MODIFY GT_POITEM FROM GS_POITEM INDEX SY-TABIX TRANSPORTING DELETE_IND. 
 
      GS_POITEMX-PO_ITEM = GS_POITEM-PO_ITEM. 
      GS_POITEMX-DELETE_IND = 'X'. 
      APPEND GS_POITEMX TO GT_POITEMX. 
    ENDIF. 
 
    LV_ITEM = GS_POITEM-PO_ITEM. 
    LV_WERKS = GS_POITEM-PLANT. 
    LV_SUPPL = GS_POITEM-SUPPL_STLOC. 
    LV_CAT   = GS_POITEM-ITEM_CAT. 
    LV_VAL_TYPE   = GS_POITEM-VAL_TYPE. 
  ENDLOOP. 
 
*   获取工厂 项目类型 
  IF SY-SUBRC NE 0. 
    READ TABLE GT_POITEM INTO GS_POITEM INDEX 1. 
    LV_ITEM = GS_POITEM-PO_ITEM. 
    LV_WERKS = GS_POITEM-PLANT. 
    LV_SUPPL = GS_POITEM-SUPPL_STLOC. 
    LV_CAT   = GS_POITEM-ITEM_CAT. 
    LV_VAL_TYPE   = GS_POITEM-VAL_TYPE. 
  ENDIF. 
 
*   新增需要发货的行项目 
  LOOP AT IT_ITEM INTO LS_ITEM. 
*   检查不存在相同物料和批次的行项目 
    READ TABLE GT_POITEM INTO GS_POITEM WITH KEY MATERIAL = LS_ITEM-ZSPKH BATCH = LS_ITEM-ZSPPC DELETE_IND = ''. 
    CHECK SY-SUBRC NE 0. 
 
    ADD 10 TO LV_ITEM. 
 
    CLEAR GS_POITEM. 
    GS_POITEM-PO_ITEM     = LV_ITEM. 
    GS_POITEM-MATERIAL    = LS_ITEM-ZSPKH. 
    GS_POITEM-PLANT       = LV_WERKS. 
    GS_POITEM-BATCH       = LS_ITEM-ZSPPC. 
    GS_POITEM-SUPPL_STLOC = LV_SUPPL. 
    GS_POITEM-QUANTITY    = LS_ITEM-ZSPJH. 
    GS_POITEM-ITEM_CAT    = LV_CAT. 
*     检查物料是否启用评估类别 
    PERFORM FRM_CHECK_VALUE_TYPE USING    LV_WERKS LS_ITEM-ZSPKH 
                                 CHANGING LV_BWTTY. 
*     评估类型 
    IF LV_BWTTY EQ 'X'. 
      GS_POITEM-VAL_TYPE    = LS_ITEM-ZSPPC. 
    ENDIF. 
 
    APPEND GS_POITEM TO GT_POITEM. 
 
    CLEAR GS_POITEMX. 
    GS_POITEMX-PO_ITEM     = LV_ITEM. 
    GS_POITEMX-MATERIAL    = 'X'. 
    GS_POITEMX-PLANT       = 'X'. 
    GS_POITEMX-BATCH       = 'X'. 
    GS_POITEMX-SUPPL_STLOC = 'X'. 
    GS_POITEMX-QUANTITY    = 'X'. 
    GS_POITEMX-ITEM_CAT    = 'X'. 
    IF LV_BWTTY EQ 'X'. 
      GS_POITEMX-VAL_TYPE    = 'X'. 
    ENDIF. 
    APPEND GS_POITEMX TO GT_POITEMX. 
 
*   更新计划行 
    CLEAR GS_POSCHEDULE. 
    GS_POSCHEDULE-PO_ITEM = LV_ITEM. 
    GS_POSCHEDULE-SCHED_LINE = 1. 
    GS_POSCHEDULE-DELIVERY_DATE = IM_BUDAT. 
    APPEND GS_POSCHEDULE TO GT_POSCHEDULE. 
 
    CLEAR GS_POSCHEDULEX. 
    GS_POSCHEDULEX-PO_ITEM = LV_ITEM. 
    GS_POSCHEDULEX-SCHED_LINE = 1. 
    GS_POSCHEDULEX-DELIVERY_DATE = 'X'. 
    APPEND GS_POSCHEDULEX TO GT_POSCHEDULEX. 
  ENDLOOP. 
*  ELSEIF IM_TYPE = 'XQ'."镶嵌 
*    LOOP AT IT_ITEM INTO LS_ITEM. 
**     检查是否存在相同的物料和批次，若存在则不需返写 
*      READ TABLE GT_POITEM INTO GS_POITEM WITH KEY MATERIAL = LS_ITEM-ZSPKH 
*                                                   BATCH    = LS_ITEM-ZSPPC. 
*      CHECK SY-SUBRC NE 0. 
* 
**     查找无批次的行项目 - 返写批次信息 
*      READ TABLE GT_POITEM INTO GS_POITEM WITH KEY MATERIAL = LS_ITEM-ZSPKH 
*                                                   BATCH    = ''. 
*      IF SY-SUBRC EQ 0. 
*        GS_POITEM-BATCH = LS_ITEM-ZSPPC. 
*        GS_POITEM-QUANTITY = LS_ITEM-ZSPJH. 
*        MODIFY GT_POITEM FROM GS_POITEM INDEX SY-TABIX TRANSPORTING BATCH. 
* 
*        GS_POITEMX-PO_ITEM = GS_POITEM-PO_ITEM. 
*        GS_POITEMX-BATCH = 'X'. 
*        GS_POITEMX-QUANTITY = 'X'. 
*        APPEND GS_POITEMX TO GT_POITEMX. 
*      ENDIF. 
*    ENDLOOP. 
*  ENDIF. 
  CHECK GT_POITEM IS NOT INITIAL. 
 
* 修改订单 
  CALL FUNCTION 'BAPI_PO_CHANGE' 
    EXPORTING 
      PURCHASEORDER = LV_EBELN 
    TABLES 
      RETURN        = GT_RETURN 
      POITEM        = GT_POITEM 
      POITEMX       = GT_POITEMX 
      POSCHEDULE    = GT_POSCHEDULE 
      POSCHEDULEX   = GT_POSCHEDULEX. 
 
  LOOP AT GT_RETURN INTO GS_RETURN WHERE TYPE = 'X' OR 
                                         TYPE = 'A' OR 
                                         TYPE = 'E'. 
    EXIT. 
  ENDLOOP. 
 
  IF SY-SUBRC EQ 0. 
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. 
  ELSE. 
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' 
      EXPORTING 
        WAIT = 'X'. 
  ENDIF. 
 
  IT_RETURN[] = GT_RETURN. 
ENDFUNCTION.

FORM FRM_CHECK_VALUE_TYPE  USING    P_WERKS 
                                    P_MATNR 
                           CHANGING P_BWTTY. 
  CLEAR P_BWTTY. 
 
  SELECT SINGLE BWTTY INTO P_BWTTY 
    FROM MARC 
    WHERE WERKS = P_WERKS 
      AND MATNR = P_MATNR. 
ENDFORM.                    " FRM_CHECK_VALUE_TYPE