FORM FRM_CREATE_PO USING P_POSNR
CHANGING P_EBELN. DATA: LV_VENDOR TYPE LIFNR,
LV_ITEM TYPE EBELP,
LV_CONDTYPE(). DATA: LV_AMOUNT TYPE P DECIMALS ,
LV_TAX TYPE P DECIMALS VALUE '1.17',
LV_RATIO TYPE P DECIMALS ."公司间加价系数 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 '' CHANGING LV_VENDOR. GS_POHEADER-VENDOR = LV_VENDOR.
GS_POHEADER-SUPPL_PLNT = ''.
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 = ''.
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 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 = ''.
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 = .
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 = .
GS_POSCHEDULEX-DELIVERY_DATE = 'X'.
APPEND GS_POSCHEDULEX TO GT_POSCHEDULEX. * 获取物料的成本价 * 加价系数 * 1.17
PERFORM FRM_GET_MAT_VALUE(ZSDS0002) USING ITAB-MATNR ITAB-CHARG '' 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+() = 'W' AND LV_AMOUNT IS INITIAL.
SELECT SINGLE ZJE FROM ZMMT0121
INTO LV_AMOUNT
WHERE MATNR = ITAB-MATNR
AND CHARG = ITAB-CHARG
AND WERKS = ITAB-WERKS. IF SY-SUBRC EQ .
* ---> 定价过程取消税率 1.17 20150426 start
* LV_AMOUNT = LV_AMOUNT * LV_TAX.
* <--- 定价过程取消税率 1.17 20150426 end
ENDIF.
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'
EXPORTING
POHEADER = GS_POHEADER
POHEADERX = GS_POHEADERX
IMPORTING
EXPPURCHASEORDER = GV_EXPPURCHASEORDER
TABLES
RETURN = IT_RETURN
POITEM = GT_POITEM
POITEMX = GT_POITEMX
POCOND = GT_POCOND
POCONDX = GT_POCONDX
POSCHEDULE = GT_POSCHEDULE
POSCHEDULEX = GT_POSCHEDULEX. LOOP AT IT_RETURN WHERE TYPE = 'E' OR TYPE = 'A' OR TYPE = 'X'. ENDLOOP. IF SY-SUBRC EQ .
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. CLEAR P_EBELN. APPEND_MSG_LIST 'E' 'ZSD002' '' P_POSNR IT_RETURN-MESSAGE '' ''.
ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'. P_EBELN = GV_EXPPURCHASEORDER. APPEND_MSG_LIST 'S' 'ZSD002' '' P_POSNR P_EBELN '' ''.
ENDIF.
ENDFORM. " FRM_CREATE_PO
FORM frm_get_mat_value USING p_matnr
p_charg
p_werks
p_ratio
CHANGING p_value. DATA : lv_ratio TYPE p DECIMALS ,"公司间加价系数
lv_value TYPE p DECIMALS ,"物料成品价
lv_amount TYPE p DECIMALS ,
lv_matnr TYPE matnr,
lv_mtart TYPE mtart,
lv_tax TYPE p DECIMALS VALUE '1.17'. SELECT SINGLE *
FROM mbew
WHERE matnr = p_matnr
AND bwkey = p_werks
AND 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 start
IF 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