一個PS報表中的需求,要求求銷售訂單的計劃成本,其中就包括計劃物料成本,比較確準的計算主法就是遍歷BOM,求出物料成本. 如果在創建銷售訂單時項目BOM可以產生,且用戶進行了成本估算,則完全可以從系統表中取出系統計算的計劃成本,此法簡單且快,但可惜不是所有的銷售訂單都能滿足. 代碼如下:???

DATA: v_vbeln LIKE vbap-vbeln,v_posnr LIKE vbap-posnr,v_matnr LIKE vbap-matnr,v_plcst LIKE vbap-netwr,v_plcst2 LIKE vbap-netwr,v_menge LIKE stpo-menge. " 數量初始變量v_vbeln = '0002000008'. v_posnr = '000010'. v_matnr = 'FT820'. "v_menge = 1. PERFORM calc_plncst_b USING v_vbelnv_posnrv_matnrv_mengeCHANGING v_plcst.* 總成本 固定成本 可變成本 * 貨物制造成本 133,680.99 32,756.59 100,924.40 CNYWRITE: 'BOM成本:' ,v_plcst.*&---------------------------------------------------------------------* *& Form calc_plncst_b *&---------------------------------------------------------------------* * 遍歷BOM計算計劃物料成本,因為在生產本報表時基本上已經都存在項目BOM了, * 故此法雖慢,卻可滿足所有情況. *----------------------------------------------------------------------* FORM calc_plncst_b USING p_vbelnp_posnrp_matnrp_mengeCHANGING p_plcst." 訂議BOM展開的結構DATA: BEGIN OF wa_bom,idnrk LIKE stpo-idnrk, " 物料號menge LIKE stpo-menge, " 用量END OF wa_bom.DATA: it_bom_fst LIKE TABLE OF wa_bom,it_bom_temp LIKE TABLE OF wa_bom.DATA: v_stlnr LIKE kdst-stlnr, * v_cst_tmp LIKE vbap-netwr, " 臨時成本變量v_stprs LIKE mbew-stprs. " 物料標準價格SELECT SINGLE stlnr INTO v_stlnrFROM kdstWHERE vbeln = p_vbelnAND vbpos = p_posnrAND matnr = p_matnr.IF sy-subrc <> 0. "沒找到記錄,說明是葉子節點SELECT SINGLE stprs INTO v_stprsFROM mbewWHERE matnr = p_matnr.p_plcst = p_plcst + p_menge * v_stprs.ELSE. "找到了,接著走(遞歸)SELECT idnrk menge INTO CORRESPONDING FIELDS OF TABLE it_bom_fstFROM stpoWHERE stlnr = v_stlnr.FIELD-SYMBOLS: <wa> LIKE wa_bom.LOOP AT it_bom_fst ASSIGNING <wa>.PERFORM calc_plncst_b USING p_vbelnp_posnr<wa>-idnrk<wa>-mengeCHANGING p_plcst.ENDLOOP.ENDIF. ENDFORM. " calc_plncst_b

總結

以上是生活随笔為你收集整理的递归方法计划销售订单的计划物料成本的全部內容，希望文章能夠幫你解決所遇到的問題。

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