[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)
652:
653: /* begin fix for bug 3679625 */
654: if (i_txn_action_id = 3 and i_org_id <> i_txn_org_id) then
655: -- for the receiving transaction of a direct interorg transfer,
656: -- if the receiving org is standard and item or sub is expense in the std org,
657: -- do not call calc_layer_average_cost
658: select primary_cost_method
659: into l_to_method
660: from mtl_parameters
1120: l_std_to_org := 0;
1121: end if;
1122:
1123:
1124: FND_FILE.PUT_LINE(FND_FILE.LOG,'Standard costing org : ' || to_char(l_std_org));
1125:
1126: if(l_debug = 'Y') then
1127: fnd_file.put_line(fnd_file.log, 'In interorg(..)');
1128: fnd_file.put_line(fnd_file.log, 'l_std_org' || l_std_org);
1387: end if;
1388:
1389: /***********************************************************************
1390: ** In the following conditions we will be doing distribution for the **
1391: ** standard org, so need populate mtl_cst_actual_cost_details with **
1392: ** the standard costs. **
1393: ** 1. intransit interorg and one of the orgs is standard. **
1394: ** 2. direct interorg and the txn_org_id is standard. **
1395: ***********************************************************************/
1388:
1389: /***********************************************************************
1390: ** In the following conditions we will be doing distribution for the **
1391: ** standard org, so need populate mtl_cst_actual_cost_details with **
1392: ** the standard costs. **
1393: ** 1. intransit interorg and one of the orgs is standard. **
1394: ** 2. direct interorg and the txn_org_id is standard. **
1395: ***********************************************************************/
1396: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
1389: /***********************************************************************
1390: ** In the following conditions we will be doing distribution for the **
1391: ** standard org, so need populate mtl_cst_actual_cost_details with **
1392: ** the standard costs. **
1393: ** 1. intransit interorg and one of the orgs is standard. **
1394: ** 2. direct interorg and the txn_org_id is standard. **
1395: ***********************************************************************/
1396: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
1397: (i_txn_action_id in (12,21) and
1390: ** In the following conditions we will be doing distribution for the **
1391: ** standard org, so need populate mtl_cst_actual_cost_details with **
1392: ** the standard costs. **
1393: ** 1. intransit interorg and one of the orgs is standard. **
1394: ** 2. direct interorg and the txn_org_id is standard. **
1395: ***********************************************************************/
1396: if ((i_txn_action_id = 3 and l_std_org = i_txn_org_id) OR
1397: (i_txn_action_id in (12,21) and
1398: (l_std_from_org = 1 or l_std_to_org = 1))) then
1399:
1400: /* for bug 3761538 */
1401: if (i_txn_action_id in (12,21) and i_fob_point = 1 and l_std_to_org = 1) then
1402: -- for the receiving transaction of a intransit fob shipment interorg transfer,
1403: -- if the receiving org is standard and item is expense in the std org, set l_to_std_exp
1404: -- = 1 to later insert into mcacd from mcacd.
1405: l_stmt_num := 102;
1406: select decode(inventory_asset_flag, 'Y', 0, 1)
1407: into l_to_std_exp
1416: ((l_std_exp <> 1) or (l_std_from_org = 1) or
1417: (l_std_to_org = 1 and i_txn_action_id = 12 and i_fob_point = 1))
1418: then
1419:
1420: /* Use standard costs only for non-expense or not interorg shipements*/
1421: /* Need to use sending org cost for expense interorg receipts */
1422: l_stmt_num := 60;
1423:
1424: l_count := 0;
1535: 0,
1536: 'N');
1537: end if;
1538:
1539: -- Need to apply material overheads if standard org is receiving
1540: if (l_std_to_org =1) then
1541: l_stmt_num := 80;
1542: /* Changes for MOH Absorption */
1543: cst_mohRules_pub.apply_moh(
1655: else
1656: l_txn_update_id := i_txn_id;
1657: end if;
1658:
1659: -- If we are shipping from a standard cost org to an average cost org, the
1660: -- transaction cost must be computed at the time of the average cost worker
1661: -- for the receiving organization. This is an exception to the general case
1662: -- where the shipping organization always figures out the transaction cost
1663: -- and populate the details rows for the receiving org.
1866: 0,
1867: 0);
1868: END IF;
1869:
1870: /* If sending org is a standard costign org, then create layers in the receiving org, only
1871: after MCTCD is populated */
1872: if ((l_to_method IN (5,6)) and (l_from_method = 1)) then
1873: /* Bug #2352604, 2362306.
1874: Call create_layers when :
1957:
1958: /* End changes for bug 2827548 */
1959:
1960: if (l_update_std = 1) then
1961: /* the receiving org is standard exp. */
1962: l_stmt_num := 210;
1963: -- if the receiving org is std exp, copy the txn info
1964: -- into MCACD from MCTCD.
1965:
2040: and cacd.layer_id = -1)
2041: where mmt.transaction_id = l_txn_update_id;
2042: end if;
2043: /* begin: fix for bug 3679625 for DIRECT TRANSFERS - on the sending transaction
2044: * of a direct transfer where receiving org is standard costing org and item/sub
2045: * is expense in receiving org, we need to insert into MCACD from MCTCD and update MMT.
2046: */
2047: elsif (i_txn_action_id = 3 and l_std_org = i_txfr_org_id) then
2048:
2151: end if;
2152: end if;
2153:
2154: /* begin bug 3761538
2155: * for intransit interorg transfers where receiving org is standard costing org
2156: * and item is expense in receiving org, insert into MCACD from MCTCD on both the
2157: * sending and receiving transactions and update MMT on the receiving transaction.
2158: */
2159: if (l_to_std_exp = 1) then
2439: || substr(SQLERRM, 1,200);
2440:
2441: END get_snd_rcv_uom;
2442:
2443: FUNCTION standard_cost_org(
2444: I_ORG_ID IN NUMBER
2445: ) RETURN INTEGER IS
2446: l_ret_val NUMBER;
2447: BEGIN
2450: from mtl_parameters
2451: where organization_id = i_org_id;
2452:
2453: return l_ret_val;
2454: END standard_cost_org;
2455:
2456: PROCEDURE interorg_elemental_detail(
2457: i_org_id IN NUMBER,
2458: i_txn_id IN NUMBER,
2492: BEGIN
2493:
2494: -- Insert detail elemental cost into mctcd.
2495: -- Based on the from_org :
2496: -- * If from_org is a standard org (l_compute_txn_cost=1),
2497: -- insert detail cost from cicd
2498: -- * If from_org is an avg org (l_compute_txn_cost=2),
2499: -- insert detail cost from clcd
2500: -- Need to convert the cost into the receiving org cost in receiving org
4484: end if;
4485: -- End of item cost history
4486:
4487: --
4488: -- Got rid of big chunck of code for standard costing org.
4489: -- For p-d xfers, in Avg Cost processor Org will always be Average Costin Org.
4490: -- Shipment to Std Orgs are being processed by Std Cost processor.
4491: --
4492: