[Home] [Help]
194: raise process_error;
195: end if;
196: /* Some transactions do not need to be cost processed and only need cost
197: distribution!
198: 1) The intransit shipment from standard to average with fob receipt
199: 2) The intransit receipt to standard from average with fob shipment
200: 3) The direct interorg shipment from standard to average/FIFO/LIFO
201: 4) The direct interorg receipt from average/FIFO/LIFO to standard. */
202:
195: end if;
196: /* Some transactions do not need to be cost processed and only need cost
197: distribution!
198: 1) The intransit shipment from standard to average with fob receipt
199: 2) The intransit receipt to standard from average with fob shipment
200: 3) The direct interorg shipment from standard to average/FIFO/LIFO
201: 4) The direct interorg receipt from average/FIFO/LIFO to standard. */
202:
203: l_stmt_num := 20;
196: /* Some transactions do not need to be cost processed and only need cost
197: distribution!
198: 1) The intransit shipment from standard to average with fob receipt
199: 2) The intransit receipt to standard from average with fob shipment
200: 3) The direct interorg shipment from standard to average/FIFO/LIFO
201: 4) The direct interorg receipt from average/FIFO/LIFO to standard. */
202:
203: l_stmt_num := 20;
204:
197: distribution!
198: 1) The intransit shipment from standard to average with fob receipt
199: 2) The intransit receipt to standard from average with fob shipment
200: 3) The direct interorg shipment from standard to average/FIFO/LIFO
201: 4) The direct interorg receipt from average/FIFO/LIFO to standard. */
202:
203: l_stmt_num := 20;
204:
205: if ((i_txn_action_id = 21 and i_fob_point = 2 and i_txfr_org_id = i_org_id)
586:
587: /* begin fix for bug 3679625 */
588: if (i_txn_action_id = 3 and i_org_id <> i_txn_org_id) then
589: -- for the receiving transaction of a direct interorg transfer,
590: -- if the receiving org is standard and item or sub is expense in the std org,
591: -- do not call calc_layer_average_cost
592: select primary_cost_method
593: into l_to_method
594: from mtl_parameters
1054: l_std_to_org := 0;
1055: end if;
1056:
1057:
1058: FND_FILE.PUT_LINE(FND_FILE.LOG,'Standard costing org : ' || to_char(l_std_org));
1059:
1060: if(l_debug = 'Y') then
1061: fnd_file.put_line(fnd_file.log, 'In interorg(..)');
1062: fnd_file.put_line(fnd_file.log, 'l_std_org' || l_std_org);
1321: end if;
1322:
1323: /***********************************************************************
1324: ** In the following conditions we will be doing distribution for the **
1325: ** standard org, so need populate mtl_cst_actual_cost_details with **
1326: ** the standard costs. **
1327: ** 1. intransit interorg and one of the orgs is standard. **
1328: ** 2. direct interorg and the txn_org_id is standard. **
1329: ***********************************************************************/
1322:
1323: /***********************************************************************
1324: ** In the following conditions we will be doing distribution for the **
1325: ** standard org, so need populate mtl_cst_actual_cost_details with **
1326: ** the standard costs. **
1327: ** 1. intransit interorg and one of the orgs is standard. **
1328: ** 2. direct interorg and the txn_org_id is standard. **
1329: ***********************************************************************/
1330: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
1323: /***********************************************************************
1324: ** In the following conditions we will be doing distribution for the **
1325: ** standard org, so need populate mtl_cst_actual_cost_details with **
1326: ** the standard costs. **
1327: ** 1. intransit interorg and one of the orgs is standard. **
1328: ** 2. direct interorg and the txn_org_id is standard. **
1329: ***********************************************************************/
1330: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
1331: (i_txn_action_id in (12,21) and
1324: ** In the following conditions we will be doing distribution for the **
1325: ** standard org, so need populate mtl_cst_actual_cost_details with **
1326: ** the standard costs. **
1327: ** 1. intransit interorg and one of the orgs is standard. **
1328: ** 2. direct interorg and the txn_org_id is standard. **
1329: ***********************************************************************/
1330: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
1331: (i_txn_action_id in (12,21) and
1332: (l_std_from_org = 1 or l_std_to_org = 1))) then
1333:
1334: /* for bug 3761538 */
1335: if (i_txn_action_id in (12,21) and i_fob_point = 1 and l_std_to_org = 1) then
1336: -- for the receiving transaction of a intransit fob shipment interorg transfer,
1337: -- if the receiving org is standard and item is expense in the std org, set l_to_std_exp
1338: -- = 1 to later insert into mcacd from mcacd.
1339: l_stmt_num := 102;
1340: select decode(inventory_asset_flag, 'Y', 0, 1)
1341: into l_to_std_exp
1350: ((l_std_exp <> 1) or (l_std_from_org = 1) or
1351: (l_std_to_org = 1 and i_txn_action_id = 12 and i_fob_point = 1))
1352: then
1353:
1354: /* Use standard costs only for non-expense or not interorg shipements*/
1355: /* Need to use sending org cost for expense interorg receipts */
1356: l_stmt_num := 60;
1357:
1358: l_count := 0;
1469: 0,
1470: 'N');
1471: end if;
1472:
1473: -- Need to apply material overheads if standard org is receiving
1474: if (l_std_to_org =1) then
1475: l_stmt_num := 80;
1476: /* Changes for MOH Absorption */
1477: cst_mohRules_pub.apply_moh(
1589: else
1590: l_txn_update_id := i_txn_id;
1591: end if;
1592:
1593: -- If we are shipping from a standard cost org to an average cost org, the
1594: -- transaction cost must be computed at the time of the average cost worker
1595: -- for the receiving organization. This is an exception to the general case
1596: -- where the shipping organization always figures out the transaction cost
1597: -- and populate the details rows for the receiving org.
1800: 0,
1801: 0);
1802: END IF;
1803:
1804: /* If sending org is a standard costign org, then create layers in the receiving org, only
1805: after MCTCD is populated */
1806: if ((l_to_method IN (5,6)) and (l_from_method = 1)) then
1807: /* Bug #2352604, 2362306.
1808: Call create_layers when :
1891:
1892: /* End changes for bug 2827548 */
1893:
1894: if (l_update_std = 1) then
1895: /* the receiving org is standard exp. */
1896: l_stmt_num := 210;
1897: -- if the receiving org is std exp, copy the txn info
1898: -- into MCACD from MCTCD.
1899:
1974: and cacd.layer_id = -1)
1975: where mmt.transaction_id = l_txn_update_id;
1976: end if;
1977: /* begin: fix for bug 3679625 for DIRECT TRANSFERS - on the sending transaction
1978: * of a direct transfer where receiving org is standard costing org and item/sub
1979: * is expense in receiving org, we need to insert into MCACD from MCTCD and update MMT.
1980: */
1981: elsif (i_txn_action_id = 3 and l_std_org = i_txfr_org_id) then
1982:
2085: end if;
2086: end if;
2087:
2088: /* begin bug 3761538
2089: * for intransit interorg transfers where receiving org is standard costing org
2090: * and item is expense in receiving org, insert into MCACD from MCTCD on both the
2091: * sending and receiving transactions and update MMT on the receiving transaction.
2092: */
2093: if (l_to_std_exp = 1) then
2373: || substr(SQLERRM, 1,200);
2374:
2375: END get_snd_rcv_uom;
2376:
2377: FUNCTION standard_cost_org(
2378: I_ORG_ID IN NUMBER
2379: ) RETURN INTEGER IS
2380: l_ret_val NUMBER;
2381: BEGIN
2384: from mtl_parameters
2385: where organization_id = i_org_id;
2386:
2387: return l_ret_val;
2388: END standard_cost_org;
2389:
2390: PROCEDURE interorg_elemental_detail(
2391: i_org_id IN NUMBER,
2392: i_txn_id IN NUMBER,
2426: BEGIN
2427:
2428: -- Insert detail elemental cost into mctcd.
2429: -- Based on the from_org :
2430: -- * If from_org is a standard org (l_compute_txn_cost=1),
2431: -- insert detail cost from cicd
2432: -- * If from_org is an avg org (l_compute_txn_cost=2),
2433: -- insert detail cost from clcd
2434: -- Need to convert the cost into the receiving org cost in receiving org
4417: end if;
4418: -- End of item cost history
4419:
4420: --
4421: -- Got rid of big chunck of code for standard costing org.
4422: -- For p-d xfers, in Avg Cost processor Org will always be Average Costin Org.
4423: -- Shipment to Std Orgs are being processed by Std Cost processor.
4424: --
4425: