[Home] [Help]
102: END IF;
103: FOR Ser_rec IN Sertbl LOOP
104: l_service_count := l_service_count + 1;
105: l_ser_line_tbl(l_service_count).line_id := ser_rec.line_id;
106: oe_line_util.query_row(ser_rec.line_id,x_line_rec => l_ser_line_rec);
107: l_ser_line_tbl(l_service_count) := l_ser_line_rec;
108: IF p_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
109: l_ser_line_tbl(l_service_count).line_id := fnd_api.g_miss_num;
110: l_ser_line_tbl(l_service_count).split_from_line_id := l_ser_line_rec.line_id; --9111247
342: END IF;
343: x_line_tbl := p_line_tbl;
344: l_line_id := g_split_line_tbl(1).line_id;
345: FOR Ser_rec IN Sertbl LOOP
346: oe_line_util.query_row(ser_rec.line_id,x_line_rec => l_ser_rec);
347: -- for bug 2035100
348: IF p_line_tbl(1).split_by IS NOT NULL THEN
349: l_ser_rec.split_by := p_line_tbl(1).split_by;
350: END IF;
486: END IF;
487: END LOOP;
488: x_line_tbl := p_line_tbl;
489: l_line_id := p_line_tbl(1).top_model_line_id;
490: oe_line_util.query_row(p_line_id => l_line_id,x_line_rec => l_line_rec);
491: l_parent_quantity := l_line_rec.ordered_quantity - p_line_tbl(1).ordered_quantity;
492: l_parent_line := l_line_rec;
493: -- Get Complete shipped Model if any
494: -- Form Complete Shipped Model if g_max_model > 0
509: l_set_id := l_parent_line.line_set_id;
510: l_option_count := l_option_count + 1;
511: l_option_line_tbl(l_option_count) := l_parent_line;
512: FOR optionrec in optiontbl LOOP
513: oe_line_util.query_row(p_line_id => optionrec.line_id, x_line_rec => l_option_line);
514: l_model_ratio := l_option_line.ordered_quantity/l_line_rec.ordered_quantity;
515: option_updated := FALSE;
516: FOR I in 1..P_line_tbl.count LOOP
517: IF p_line_tbl(I).line_id = optionrec.line_id THEN
580: END IF;
581: l_option_count := l_option_count + 1;
582: l_option_line_tbl(l_option_count) := l_parent_line;
583: FOR optionrec in optiontbl LOOP
584: oe_line_util.query_row(p_line_id => optionrec.line_id, x_line_rec => l_option_line);
585: l_model_ratio := l_option_line.ordered_quantity /l_line_rec.ordered_quantity;
586: l_option_count := l_option_count + 1;
587: l_option_line_tbl(l_option_count) := l_option_line;
588: l_option_line_tbl(l_option_count).split_from_line_id := optionrec.line_id;
675: l_option_count := l_option_count + 1;
676: l_option_line_tbl(l_option_count) := l_parent_line;
677: END IF;
678: FOR optionrec in optiontbl LOOP
679: oe_line_util.query_row(p_line_id => optionrec.line_id,x_line_rec => l_option_line);
680: l_model_ratio := l_option_line.ordered_quantity /l_line_rec.ordered_quantity;
681: FOR I in 1..P_line_tbl.count LOOP
682: l_actual_shipment_date := p_line_tbl(i).actual_shipment_date;
683: IF p_line_tbl(I).line_id = optionrec.line_id THEN
752:
753: l_config_ato_line_id:= p_line_tbl(I).ato_line_id;
754:
755: FOR configrec in CONFIGTBL LOOP
756: oe_line_util.query_row(p_line_id => configrec.line_id,x_line_rec => l_option_line);
757: l_model_ratio := l_option_line.ordered_quantity /l_line_rec.ordered_quantity;
758:
759: l_option_line.ordered_quantity :=
760: p_line_tbl(I).shipped_quantity - g_max_model * l_model_ratio;
842: l_option_line_tbl(l_option_count) := l_parent_line;
843: l_option_line_tbl(l_option_count).model_remnant_flag := 'Y';
844: END IF;*/
845: FOR optionrec in optiontbl LOOP
846: oe_line_util.query_row(p_line_id => optionrec.line_id, x_line_rec => l_option_line);
847: l_model_ratio := l_option_line.ordered_quantity / l_line_rec.ordered_quantity;
848: option_updated := FALSE;
849: l_insert_quantity := 0;
850: FOR I in 1..P_line_tbl.count LOOP
1028: --
1029: BEGIN
1030: x_line_tbl := p_line_tbl;
1031: l_line_id := p_line_tbl(1).line_id;
1032: oe_line_util.query_row(p_line_id => l_line_id, x_line_rec => l_line_rec);
1033: l_parent_quantity := l_line_rec.ordered_quantity - p_line_tbl(1).ordered_quantity;
1034: l_parent_line := l_line_rec;
1035: -- Get Complete shipped Model if any
1036: -- Form Complete Shipped Model if g_max_model > 0
1051: l_set_id := l_parent_line.line_set_id;
1052: x_line_tbl(1) := l_parent_line;
1053: --l_option_line_tbl(l_option_count) := l_parent_line;
1054: FOR optionrec IN optiontbl LOOP
1055: oe_line_util.query_row(p_line_id => optionrec.line_id,
1056: x_line_rec => l_option_line);
1057: l_model_ratio := l_option_line.ordered_quantity / l_line_rec.ordered_quantity;
1058: option_updated := FALSE;
1059: FOR I in 1..P_line_tbl.count LOOP
1114: END IF;
1115: l_option_count := l_option_count + 1;
1116: l_option_line_tbl(l_option_count) := l_parent_line;
1117: FOR optionrec in optiontbl LOOP
1118: oe_line_util.query_row(p_line_id => optionrec.line_id,
1119: x_line_rec => l_option_line);
1120: l_model_ratio :=l_option_line.ordered_quantity / l_line_rec.ordered_quantity;
1121: l_option_count := l_option_count + 1;
1122: l_option_line_tbl(l_option_count) := l_option_line;
1228: l_top_model_line_id := l_rem_top_model_line_id ;
1229: END IF;
1230: -- Get remanat shipped options
1231: FOR optionrec in optiontbl LOOP
1232: oe_line_util.query_row(p_line_id => optionrec.line_id,
1233: x_line_rec => l_option_line);
1234: l_model_ratio := l_option_line.ordered_quantity / l_line_rec.ordered_quantity;
1235: FOR I in 1..P_line_tbl.count LOOP
1236: IF p_line_tbl(I).line_id = optionrec.line_id THEN
1288: ELSE
1289: l_top_model_line_id := l_rem_shp_top_model_line_id ;
1290: END IF;
1291: FOR optionrec in optiontbl LOOP
1292: oe_line_util.query_row(p_line_id => optionrec.line_id,
1293: x_line_rec => l_option_line);
1294: l_model_ratio := l_option_line.ordered_quantity / l_line_rec.ordered_quantity;
1295: option_updated := FALSE;
1296: l_insert_quantity := 0;
1456: END IF;
1457: IF l_debug_level > 0 THEN
1458: oe_debug_pub.add( 'ORDERED QUANTITY RATIO : ' || OPTIONREC.ORDERED_QUANTITY , 1 ) ;
1459: END IF;
1460: oe_line_util.query_row(p_line_id => optionrec.line_id, x_line_rec => l_option_line);
1461: --bug 13954474
1462: l_option_line.REQUEST_DATE := P_LINE_TBL ( P_INDEX ) .REQUEST_DATE;
1463: l_option_line.SHIP_FROM_ORG_ID := P_LINE_TBL ( P_INDEX ) .SHIP_FROM_ORG_ID;
1464: l_option_line.SHIP_TO_ORG_ID := P_LINE_TBL ( P_INDEX ) .SHIP_TO_ORG_ID;
1703: p_x_line_rec.line_id = FND_API.G_MISS_NUM)) THEN
1704: IF l_debug_level > 0 THEN
1705: oe_debug_pub.add( 'ENTER INTO DEFAULTING SPLITS' ) ;
1706: END IF;
1707: oe_line_util.query_row(p_line_id => p_x_line_rec.split_from_line_id,
1708: x_line_rec => l_line_rec);
1709: l_line_rec.line_id := OE_Default_Line.get_Line;
1710: IF (P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID IS NOT NULL
1711: AND P_X_LINE_REC.SERVICE_REFERENCE_LINE_ID <> FND_API.G_MISS_NUM) THEN --9111247
1844: /* IF l_line_rec.schedule_status_code IS NOT NULL THEN
1845: l_line_rec.schedule_action_code := OE_ORDER_SCH_UTIL.OESCH_ACT_DEMAND;
1846: l_line_rec.schedule_status_code := NULL;
1847: END IF;*/
1848: oe_line_util.convert_miss_to_null(p_x_line_rec => l_line_rec);
1849: l_line_rec.operation := oe_globals.g_opr_create;
1850: p_x_line_rec := l_line_rec;
1851: ELSIF (l_line_rec.line_id IS NOT NULL AND
1852: l_line_rec.line_id <> FND_API.G_MISS_NUM AND
1998: oe_debug_pub.add( 'SPLIT- NOT ALLOWED TO UPDATE WITH QUANTITY ZERO' ) ;
1999: END IF;
2000: RAISE FND_API.G_EXC_ERROR;
2001: END IF;
2002: oe_line_util.query_row(p_line_id => l_line_tbl(I).line_id,
2003: x_line_rec => l_line_rec);
2004: IF l_debug_level > 0
2005: THEN
2006: oe_debug_pub.add( 'ITEM TYPE CODE : '|| L_LINE_REC.ITEM_TYPE_CODE ) ;
2023: END IF;
2024: RAISE FND_API.G_EXC_ERROR;
2025: END IF;
2026: END IF;
2027: oe_line_util.query_row(p_line_id => l_line_tbl(I).line_id,
2028: x_line_rec => l_line_rec);
2029: l_parent_ordered_quantity := l_line_rec.ordered_quantity;
2030: l_split_count := l_split_count + 1;
2031: g_split_line_tbl(l_split_count).line_id := l_line_tbl(I).line_id;
2050: IF NOT OE_GLOBALS.EQUAL(l_line_rec.ship_from_org_id, l_line_tbl(I).ship_from_org_id) AND
2051: l_line_rec.schedule_ship_date is NOT NULL AND
2052: NVL(l_line_tbl(I).SPLIT_SHIP_FROM,'N') ='Y' THEN -- 10338643
2053: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id(l_line_rec.HEADER_ID);
2054: OE_LINE_UTIL.Get_Reserved_Quantities(p_header_id => l_sales_order_id
2055: ,p_line_id => l_line_rec.line_id
2056: ,p_org_id => l_line_rec.ship_from_org_id
2057: ,p_order_quantity_uom => l_line_rec.order_quantity_uom
2058: ,p_inventory_item_id => l_line_rec.inventory_item_id --bug 16434168/16480604
2336: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
2337: END IF;
2338: END LOOP;
2339:
2340: oe_line_util.query_row(p_line_id => l_line_tbl(1).line_id, x_line_rec => l_line_rec);
2341:
2342: IF (l_line_rec.item_type_code = 'MODEL' OR
2343: l_line_rec.item_type_code = 'KIT') THEN
2344: IF l_line_rec.shippable_flag = 'Y' THEN
2346: ELSE
2347: l_tbl_count := 2;
2348: END IF;
2349: ELSE
2350: oe_line_util.query_row(p_line_id => l_line_tbl(1).top_model_line_id, x_line_rec => l_line_rec);
2351: l_model_flag := 'N';
2352: l_tbl_count := 1;
2353: END IF;
2354:
2367: l_complete_shipment := 'N';
2368: end if;
2369: --End of the bug fix 3474977
2370: FOR I in l_tbl_count .. L_Line_tbl.count LOOP
2371: oe_line_util.query_row(p_line_id => l_line_tbl(I).line_id, x_line_rec => l_option_line);
2372: l_model_ratio := l_option_line.ordered_quantity/l_line_rec.ordered_quantity;
2373: l_temp_min_model := Floor(l_line_tbl(I).ordered_quantity/l_model_ratio);
2374: IF l_complete_shipment = 'Y' THEN
2375: l_temp_max_model := Floor(l_line_tbl(I).shipped_quantity/l_model_ratio);
2754: IF l_debug_level > 0 THEN
2755: oe_debug_pub.add(' Query Line for Split'||l_line_conc_tbl(i).LINE_ID,3) ;
2756: END IF;
2757: l_x_line_tbl(i).line_id := l_line_conc_tbl(i).line_id;
2758: OE_Line_Util.Lock_Row
2759: ( x_return_status => l_return_status
2760: , p_x_line_rec => l_x_line_tbl(i)
2761: , p_line_id => l_line_conc_tbl(i).line_id);
2762: