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