FORM FRM_CREATE_PO USING P_POSNRCHANGING P_EBELN.DATA: LV_VENDOR TYPE LIFNR,LV_ITEM TYPE EBELP,LV_CONDTYPE(4).DATA: LV_AMOUNT TYPE P DECIMALS 2,LV_TAX TYPE P DECIMALS 2 VALUE '1.17',LV_RATIO TYPE P DECIMALS 2."公司間加價系數CHECK P_EBELN IS INITIAL.CLEAR: GS_POHEADER,GS_POHEADERX.PERFORM FRM_GET_COMPANY_RATIO(ZSDS0002) USING IT_ZSDT0018-BUKRS CHANGING LV_RATIO.PERFORM FRM_CONVERT_VENDOR USING '1001' CHANGING LV_VENDOR.GS_POHEADER-VENDOR = LV_VENDOR.GS_POHEADER-SUPPL_PLNT = '1001'.GS_POHEADER-DOC_TYPE = 'ZRTO'.GS_POHEADER-DOC_DATE = IT_ZSDT0018-DATUM.GS_POHEADER-CREAT_DATE = SY-DATUM.GS_POHEADER-CREATED_BY = SY-UNAME.GS_POHEADER-PURCH_ORG = '8000'.GS_POHEADER-PUR_GROUP = 'A15'.GS_POHEADER-COMP_CODE = IT_ZSDT0018-BUKRS.GS_POHEADER-SALES_PERS = P_POSNR.GS_POHEADERX-DOC_TYPE = 'X'.GS_POHEADERX-DOC_DATE = 'X'.GS_POHEADERX-CREAT_DATE = 'X'.GS_POHEADERX-CREATED_BY = 'X'.GS_POHEADERX-VENDOR = 'X'.GS_POHEADERX-PURCH_ORG = 'X'.GS_POHEADERX-PUR_GROUP = 'X'.GS_POHEADERX-COMP_CODE = 'X'.GS_POHEADERX-SALES_PERS = 'X'.GS_POHEADERX-OUR_REF = 'X'.GS_POHEADERX-SUPPL_PLNT = 'X'.CLEAR LV_ITEM.REFRESH: GT_POITEM,GT_POITEMX,GT_POCOND,GT_POCONDX.REFRESH: GT_POSCHEDULE,GT_POSCHEDULEX.LOOP AT ITAB WHERE POSNR = P_POSNR.ADD 10 TO LV_ITEM.CLEAR GS_POITEM.GS_POITEM-PO_ITEM = LV_ITEM.GS_POITEM-MATERIAL = ITAB-MATNR."Article (商品款號)GS_POITEM-PLANT = ITAB-WERKS.GS_POITEM-BATCH = ITAB-CHARG.GS_POITEM-QUANTITY = ITAB-MENGE.GS_POITEM-STGE_LOC = '0001'.GS_POITEM-RET_ITEM = 'X'.GS_POITEM-VAL_TYPE = ITAB-CHARG.GS_POITEM-TAX_CODE = 'J1'.APPEND GS_POITEM TO GT_POITEM.CLEAR GS_POITEMX.GS_POITEMX-PO_ITEM = LV_ITEM.GS_POITEMX-MATERIAL = 'X'.GS_POITEMX-BATCH = 'X'.GS_POITEMX-STGE_LOC = 'X'.GS_POITEMX-PLANT = 'X'.GS_POITEMX-QUANTITY = 'X'.GS_POITEMX-STGE_LOC = 'X'.GS_POITEMX-RET_ITEM = 'X'.GS_POITEMX-VAL_TYPE = 'X'.GS_POITEMX-TAX_CODE = 'X'.APPEND GS_POITEMX TO GT_POITEMX.CLEAR GS_POSCHEDULE.GS_POSCHEDULE-PO_ITEM = LV_ITEM.GS_POSCHEDULE-SCHED_LINE = 1.GS_POSCHEDULE-DELIVERY_DATE = IT_ZSDT0018-DATUM.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.* 獲取物料的成本價 * 加價系數 * 1.17PERFORM FRM_GET_MAT_VALUE(ZSDS0002) USING ITAB-MATNR ITAB-CHARG '1001' LV_RATIO CHANGING LV_AMOUNT. ** 根據是否有采購信息記錄 判斷凈價的條件類型 * PERFORM FRM_CHECK_CONDITION_TYPE(ZSDS0002) USING LV_VENDOR '8000' ITAB-WERKS ITAB-MATNR CHANGING LV_CONDTYPE.IF ITAB-CHARG+0(1) = 'W' AND LV_AMOUNT IS INITIAL.SELECT SINGLE ZJE FROM ZMMT0121INTO LV_AMOUNTWHERE MATNR = ITAB-MATNRAND CHARG = ITAB-CHARGAND WERKS = ITAB-WERKS.IF SY-SUBRC EQ 0. * ---> 定價過程取消稅率 1.17 20150426 start * LV_AMOUNT = LV_AMOUNT * LV_TAX. * <--- 定價過程取消稅率 1.17 20150426 endENDIF.ENDIF.CLEAR GS_POCOND.GS_POCOND-ITM_NUMBER = LV_ITEM.GS_POCOND-COND_TYPE = 'PB00'.GS_POCOND-COND_VALUE = LV_AMOUNT.GS_POCOND-CURRENCY = 'CNY'.GS_POCOND-CHANGE_ID = 'U'.GS_POCOND-COND_UPDAT = 'X'.APPEND GS_POCOND TO GT_POCOND.CLEAR GS_POCONDX.GS_POCONDX-ITM_NUMBER = LV_ITEM.GS_POCONDX-COND_TYPE = 'X'.GS_POCONDX-COND_VALUE = 'X'.GS_POCONDX-CURRENCY = 'X'.GS_POCONDX-CHANGE_ID = 'X'.GS_POCONDX-COND_UPDAT = 'X'.APPEND GS_POCONDX TO GT_POCONDX.CLEAR GS_POCOND.GS_POCOND-ITM_NUMBER = LV_ITEM.GS_POCOND-COND_TYPE = 'PBXX'.GS_POCOND-COND_VALUE = LV_AMOUNT.GS_POCOND-CURRENCY = 'CNY'.GS_POCOND-CHANGE_ID = 'U'.GS_POCOND-COND_UPDAT = 'X'.APPEND GS_POCOND TO GT_POCOND.CLEAR GS_POCONDX.GS_POCONDX-ITM_NUMBER = LV_ITEM.GS_POCONDX-COND_TYPE = 'X'.GS_POCONDX-COND_VALUE = 'X'.GS_POCONDX-CURRENCY = 'X'.GS_POCONDX-CHANGE_ID = 'X'.GS_POCONDX-COND_UPDAT = 'X'.APPEND GS_POCONDX TO GT_POCONDX.ENDLOOP.CALL FUNCTION 'BAPI_PO_CREATE1'EXPORTINGPOHEADER = GS_POHEADERPOHEADERX = GS_POHEADERXIMPORTINGEXPPURCHASEORDER = GV_EXPPURCHASEORDERTABLESRETURN = IT_RETURNPOITEM = GT_POITEMPOITEMX = GT_POITEMXPOCOND = GT_POCONDPOCONDX = GT_POCONDXPOSCHEDULE = GT_POSCHEDULEPOSCHEDULEX = GT_POSCHEDULEX.LOOP AT IT_RETURN WHERE TYPE = 'E' OR TYPE = 'A' OR TYPE = 'X'.ENDLOOP.IF SY-SUBRC EQ 0.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.CLEAR P_EBELN.APPEND_MSG_LIST 'E' 'ZSD002' '048' P_POSNR IT_RETURN-MESSAGE '' ''.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.P_EBELN = GV_EXPPURCHASEORDER.APPEND_MSG_LIST 'S' 'ZSD002' '047' P_POSNR P_EBELN '' ''.ENDIF. ENDFORM. " FRM_CREATE_PO

?

?

FORM frm_get_mat_value USING p_matnrp_chargp_werksp_ratioCHANGING p_value.DATA : lv_ratio TYPE p DECIMALS 2,"公司間加價系數lv_value TYPE p DECIMALS 2,"物料成品價lv_amount TYPE p DECIMALS 5,lv_matnr TYPE matnr,lv_mtart TYPE mtart,lv_tax TYPE p DECIMALS 2 VALUE '1.17'.SELECT SINGLE *FROM mbewWHERE matnr = p_matnrAND bwkey = p_werksAND bwtar = p_charg.IF mbew-vprsv EQ 'S'.lv_value = mbew-stprs / mbew-peinh.ELSE.lv_value = mbew-verpr / mbew-peinh.ENDIF.SELECT SINGLE mtart INTO lv_mtart FROM mara WHERE matnr = p_matnr.* IF LV_MTART EQ 'Z006'."輔料. * P_VALUE = LV_VALUE * LV_TAX. * ELSE. * P_VALUE = LV_VALUE * P_RATIO * LV_TAX. * ENDIF.* ---> 定價過程取消稅率 1.17 20150426 startIF lv_mtart EQ 'Z006'."輔料.p_value = lv_value.ELSE.p_value = lv_value * p_ratio.ENDIF. * <--- 定價過程取消稅率 1.17 20150426 end ENDFORM. " FRM_GET_MAT_VALUE

?

轉載于:https://www.cnblogs.com/sapSB/p/5771701.html

總結

以上是生活随笔為你收集整理的创建PO的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。