取实际成本值
"按訂單庫存取實際成本
????IF?WA_TAB-AUTYP?=?'C'.
??????SELECT?SINGLE?*
????????FROM?EBEW?"銷售訂單庫存評估
????????WHERE?MATNR?=?WA_TAB-MATNR?AND
??????????????BWKEY?=?WA_TAB-WERKS?AND
??????????????VBELN?=?WA_TAB-AUBEL?AND
??????????????POSNR?=?WA_TAB-AUPOS.
??????SELECT?SINGLE?*
????????FROM?CKMLCR?"物料分類帳:期間匯總記錄值
????????WHERE?KALNR?=?EBEW-KALN1??AND
??????????????BDATJ?=?P_MJAHR?AND
??????????????POPER?=?WA_TAB-MONAT?."AND?VPRSV?=?'V'.
??????WA_TAB-WAVWR2?=?CKMLCR-PVPRS?/?CKMLCR-PEINH?*?WA_TAB-MENGE?."實際成本值
??????"周期單位價格?*?價格單位
??????WA_TAB-PVPRS??=?CKMLCR-PVPRS?/?CKMLCR-PEINH?."實際成本價格
????ENDIF.
????IF?WA_TAB-PVPRS?<=?0?OR?WA_TAB-WAVWR2?<=?0?OR?WA_TAB-AUTYP?<>?'C'.
??????"根據PO號取SO,訂單庫存取實際成本
??????IF?WA_TAB-AUTYP?=?'V'.
????????CLEAR:EKKN.
????????SELECT?SINGLE?*
??????????FROM?EKKN?"采購憑證中的帳戶設置
??????????WHERE?EBELN?=?WA_TAB-AUBEL?AND
????????????????EBELP?=?WA_TAB-AUPOS.
????????IF?EKKN?IS?NOT?INITIAL.
??????????"銷售單
??????????WA_TAB-SONO?=?EKKN-VBELN.
??????????"銷售行
??????????WA_TAB-SOIT?=?EKKN-VBELP.
??????????SELECT?SINGLE?*
????????????FROM?EBEW?"銷售訂單庫存評估
????????????WHERE?MATNR?=?WA_TAB-MATNR?AND
??????????????????BWKEY?=?WA_TAB-WERKS?AND
??????????????????VBELN?=?WA_TAB-SONO?AND
??????????????????POSNR?=?WA_TAB-SOIT.
??????????SELECT?SINGLE?*
????????????FROM?CKMLCR?"物料分類帳:期間匯總記錄值
????????????WHERE?KALNR?=?EBEW-KALN1??AND
??????????????????BDATJ?=?P_MJAHR?AND
??????????????????POPER?=?WA_TAB-MONAT?."AND?VPRSV?=?'V'.
??????????WA_TAB-WAVWR2?=?CKMLCR-PVPRS?/?CKMLCR-PEINH?*?WA_TAB-MENGE?."實際成本值
??????????WA_TAB-PVPRS??=?CKMLCR-PVPRS?/?CKMLCR-PEINH?."實際成本價格
????????ENDIF.
*??????ENDIF.
??????ELSE.
????????SELECT?SINGLE?*
??????????FROM?MBEW?"物料評估
??????????WHERE?MATNR?=?WA_TAB-MATNR?AND
????????????????BWKEY?=?WA_TAB-WERKS?.
????????SELECT?SINGLE?*
??????????FROM?CKMLCR?"物料分類帳:期間匯總記錄值
??????????WHERE?KALNR?=?MBEW-KALN1??AND
????????????????BDATJ?=?P_MJAHR?AND
????????????????POPER?=?WA_TAB-MONAT?."AND?VPRSV?=?'V'.
????????WA_TAB-WAVWR2?=?CKMLCR-PVPRS?/?CKMLCR-PEINH?*?WA_TAB-MENGE?."實際成本值
????????WA_TAB-PVPRS??=?CKMLCR-PVPRS?/?CKMLCR-PEINH?."實際成本價格
??????ENDIF.
????ENDIF.
????IF?WA_TAB-AUTYP?=?'C'.
??????SELECT?SINGLE?*
????????FROM?EBEW?"銷售訂單庫存評估
????????WHERE?MATNR?=?WA_TAB-MATNR?AND
??????????????BWKEY?=?WA_TAB-WERKS?AND
??????????????VBELN?=?WA_TAB-AUBEL?AND
??????????????POSNR?=?WA_TAB-AUPOS.
??????SELECT?SINGLE?*
????????FROM?CKMLCR?"物料分類帳:期間匯總記錄值
????????WHERE?KALNR?=?EBEW-KALN1??AND
??????????????BDATJ?=?P_MJAHR?AND
??????????????POPER?=?WA_TAB-MONAT?."AND?VPRSV?=?'V'.
??????WA_TAB-WAVWR2?=?CKMLCR-PVPRS?/?CKMLCR-PEINH?*?WA_TAB-MENGE?."實際成本值
??????"周期單位價格?*?價格單位
??????WA_TAB-PVPRS??=?CKMLCR-PVPRS?/?CKMLCR-PEINH?."實際成本價格
????ENDIF.
????IF?WA_TAB-PVPRS?<=?0?OR?WA_TAB-WAVWR2?<=?0?OR?WA_TAB-AUTYP?<>?'C'.
??????"根據PO號取SO,訂單庫存取實際成本
??????IF?WA_TAB-AUTYP?=?'V'.
????????CLEAR:EKKN.
????????SELECT?SINGLE?*
??????????FROM?EKKN?"采購憑證中的帳戶設置
??????????WHERE?EBELN?=?WA_TAB-AUBEL?AND
????????????????EBELP?=?WA_TAB-AUPOS.
????????IF?EKKN?IS?NOT?INITIAL.
??????????"銷售單
??????????WA_TAB-SONO?=?EKKN-VBELN.
??????????"銷售行
??????????WA_TAB-SOIT?=?EKKN-VBELP.
??????????SELECT?SINGLE?*
????????????FROM?EBEW?"銷售訂單庫存評估
????????????WHERE?MATNR?=?WA_TAB-MATNR?AND
??????????????????BWKEY?=?WA_TAB-WERKS?AND
??????????????????VBELN?=?WA_TAB-SONO?AND
??????????????????POSNR?=?WA_TAB-SOIT.
??????????SELECT?SINGLE?*
????????????FROM?CKMLCR?"物料分類帳:期間匯總記錄值
????????????WHERE?KALNR?=?EBEW-KALN1??AND
??????????????????BDATJ?=?P_MJAHR?AND
??????????????????POPER?=?WA_TAB-MONAT?."AND?VPRSV?=?'V'.
??????????WA_TAB-WAVWR2?=?CKMLCR-PVPRS?/?CKMLCR-PEINH?*?WA_TAB-MENGE?."實際成本值
??????????WA_TAB-PVPRS??=?CKMLCR-PVPRS?/?CKMLCR-PEINH?."實際成本價格
????????ENDIF.
*??????ENDIF.
??????ELSE.
????????SELECT?SINGLE?*
??????????FROM?MBEW?"物料評估
??????????WHERE?MATNR?=?WA_TAB-MATNR?AND
????????????????BWKEY?=?WA_TAB-WERKS?.
????????SELECT?SINGLE?*
??????????FROM?CKMLCR?"物料分類帳:期間匯總記錄值
??????????WHERE?KALNR?=?MBEW-KALN1??AND
????????????????BDATJ?=?P_MJAHR?AND
????????????????POPER?=?WA_TAB-MONAT?."AND?VPRSV?=?'V'.
????????WA_TAB-WAVWR2?=?CKMLCR-PVPRS?/?CKMLCR-PEINH?*?WA_TAB-MENGE?."實際成本值
????????WA_TAB-PVPRS??=?CKMLCR-PVPRS?/?CKMLCR-PEINH?."實際成本價格
??????ENDIF.
????ENDIF.
總結
- 上一篇: excel宏病毒专杀方法
- 下一篇: SAP中关于物料主数据里物料类型的修改