[Home] [Help]
101: --* in 'final' mode. *
102: --* *
103: --* 12-Feb-2004 PJS Various changes for bugs 3399618, 3401451, 3397388 and 3397408. These *
104: --* reported different manifestations of the same problem of either adding *
105: --* a duplicate row to the gmf_lot_cost_details table (the duplicate was a *
106: --* burden row that shared the same keys) or a division by zero if there *
107: --* was no onhand quantity. *
108: --* *
109: --* 12-Feb-2004 PJS Changes to prevent multiple updates to a cost header flagged as 'Final'. *
1346: glcd.cost_level,
1347: glcd.component_cost,
1348: 0 -- B9131983 Burden_ind
1349: )
1350: FROM gmf_lot_cost_details glcd
1351: WHERE glcd.header_id = p_header_id;
1352:
1353: --**********************************************************************************************
1354: --* *
2359:
2360:
2361: --**********************************************************************************************
2362: --* *
2363: --* Procedure to create a new lot cost detail row in gmf_lot_cost_details *
2364: --* *
2365: --**********************************************************************************************
2366:
2367:
2391: fnd_file.put_line(fnd_file.log,'Burden Ind = '||p_burden_ind);
2392: fnd_file.put_line(fnd_file.log,'Cost = '||p_component_cost);
2393: END IF;
2394:
2395: INSERT INTO gmf_lot_cost_details
2396: ( header_id
2397: , detail_id
2398: , cost_cmpntcls_id
2399: , cost_analysis_code
2947: --*
2948: --* Dinesh -No Bug# - Earlier new_cost_ind was not set up properly.Now corrected along with 4053149
2949: --* NEW_COST_IND in gmf_material_lot_cost_txns is used in the Subledger Posting.
2950: --* If this indicator is set to 1 then that means whatever cost pointed by
2951: --* header_id in gmf_lot_cost_details is the AVERAGE COST and not the actual
2952: --* TRANSACTION COST. The Actual Transaction cost is under the negative of header_id.
2953: --* So, depending on this NEW_COST_IND, the SL will decide on posting at the cost of
2954: --* header_id or negative of header_id (i.e., -header_id)
2955: --*
3002: component_cost,
3003: burden_ind,
3004: cost_origin,
3005: frozen_ind
3006: FROM gmf_lot_cost_details
3007: WHERE header_id = p_header_id
3008: ;
3009:
3010: /* Bug 4227784 - Dinesh Added this as we removed txns table from above query */
3024:
3025: l_onhand_qty gmf_lot_costs.onhand_qty%TYPE;
3026: l_header_id gmf_lot_costs.header_id%TYPE;
3027: l_unit_cost gmf_lot_costs.unit_cost%TYPE;
3028: l_prev_trans_unit_cost gmf_lot_cost_details.component_cost%TYPE;
3029: l_cmpnt_cost gmf_lot_cost_details.component_cost%TYPE;
3030: l_prev_new_cost_ind gmf_material_lot_cost_txns.new_cost_ind%TYPE; /* Dinesh No Bug# */
3031: procedure_name VARCHAR2(100);
3032:
3025: l_onhand_qty gmf_lot_costs.onhand_qty%TYPE;
3026: l_header_id gmf_lot_costs.header_id%TYPE;
3027: l_unit_cost gmf_lot_costs.unit_cost%TYPE;
3028: l_prev_trans_unit_cost gmf_lot_cost_details.component_cost%TYPE;
3029: l_cmpnt_cost gmf_lot_cost_details.component_cost%TYPE;
3030: l_prev_new_cost_ind gmf_material_lot_cost_txns.new_cost_ind%TYPE; /* Dinesh No Bug# */
3031: procedure_name VARCHAR2(100);
3032:
3033: BEGIN
3185: END IF;
3186:
3187: SELECT NVL(SUM(component_cost),0)
3188: INTO l_prev_trans_unit_cost
3189: FROM gmf_lot_cost_details
3190: WHERE header_id = DECODE(NVL(l_prev_prev_header_id, 0), 0, l_cost_header_id, -l_cost_header_id);
3191:
3192: create_material_transaction
3193: ( l_cost_header_id
3297:
3298: l_onhand_qty gmf_lot_costs.onhand_qty%TYPE;
3299: l_header_id gmf_lot_costs.header_id%TYPE;
3300: l_unit_cost gmf_lot_costs.unit_cost%TYPE;
3301: l_cmpnt_cost gmf_lot_cost_details.component_cost%TYPE;
3302: i NUMBER;
3303: procedure_name VARCHAR2(100);
3304: orig_completion_transid NUMBER; -- Bug 9239944
3305:
8164: l_matl_rows_deleted := l_matl_rows_deleted + SQL%ROWCOUNT;
8165:
8166: -- Delete all cost details
8167: FORALL indx IN l_indx_from..l_indx_to
8168: DELETE FROM gmf_lot_cost_details
8169: WHERE abs(header_id) in l_header_ids_tab(indx);
8170:
8171: l_cdtl_rows_deleted := l_cdtl_rows_deleted + SQL%ROWCOUNT;
8172:
8194: DELETE FROM gmf_lot_costs
8195: WHERE rowid in l_rowids_tab(indx);
8196:
8197: fnd_file.put_line(fnd_File.LOG, ' ' || l_matl_rows_deleted || ' rows deleted from gmf_material_lot_cost_txns.');
8198: fnd_file.put_line(fnd_File.LOG, ' ' || l_cdtl_rows_deleted || ' rows deleted from gmf_lot_cost_details.');
8199: fnd_file.put_line(fnd_File.LOG, ' ' || SQL%ROWCOUNT || ' rows deleted from gmf_lot_costs.');
8200:
8201: COMMIT;
8202:
10235: -- a wrong answer.
10236:
10237: -- For each replenishment we must add a new row to (or update the existing
10238: -- row in) GMF_LOT_COSTS, add new rows to (or update the existing rows in)
10239: -- GMF_LOT_COST_DETAILS and finally create a row in GMF_LOT_COST_TRANSACTIONS
10240: -- that links the inventory transaction to the row in GMF_LOT_COSTS.
10241:
10242: -- For each consumption we leave the GMF_LOT_COSTS and GMF_LOT_COST_DETAILS
10243: -- rows alone and just create the GMF_LOT_COST_TRANSACTIONS row.
10238: -- row in) GMF_LOT_COSTS, add new rows to (or update the existing rows in)
10239: -- GMF_LOT_COST_DETAILS and finally create a row in GMF_LOT_COST_TRANSACTIONS
10240: -- that links the inventory transaction to the row in GMF_LOT_COSTS.
10241:
10242: -- For each consumption we leave the GMF_LOT_COSTS and GMF_LOT_COST_DETAILS
10243: -- rows alone and just create the GMF_LOT_COST_TRANSACTIONS row.
10244:
10245: --
10246: -- umoogala 21-Nov-2003