[Home] [Help]
4635: l_serial_index NUMBER;
4636: l_lot_divisible_flag VARCHAR2(1);
4637: l_lot_control_code NUMBER;
4638: l_to_locator_id NUMBER;
4639: l_dual_uom_ctl NUMBER;
4640: l_rsv_id NUMBER;
4641: -- Added for bug 8665496
4642: l_rsv_lot_number VARCHAR2(80);
4643: l_rsv_qty NUMBER;
4685: l_orig_needed_quantity NUMBER := p_orig_needed_quantity; -- Added for 14699845 (Flexible lot allocation)
4686: l_orig_needed_sec_qty NUMBER := p_orig_needed_sec_qty; -- Added for 14699845 (Flexible lot allocation)
4687:
4688: CURSOR check_if_lot_conv_exists IS
4689: SELECT 1 FROM dual
4690: WHERE EXISTS
4691: ( SELECT 1
4692: FROM mtl_lot_uom_class_conversions
4693: WHERE lot_number = g_locs(p_record_id).lot_number
4842: l_to_locator_id := p_to_locator_id;
4843:
4844: l_lot_divisible_flag := inv_cache.item_rec.lot_divisible_flag;
4845: l_lot_control_code := inv_cache.item_rec.lot_control_code;
4846: l_dual_uom_ctl := inv_cache.item_rec.dual_uom_control;
4847: l_rsv_id := 0;
4848:
4849: IF g_locs(p_record_id).lpn_id IS NOT NULL THEN
4850: IF l_debug = 1 THEN
4950: , l_sec_dtl_qty;
4951: CLOSE c_detailed_reservation;
4952: IF NVL(l_rsv_id,0) > 0 THEN --{
4953: IF l_debug = 1 THEN
4954: log_statement(l_api_name,'reservation exists for dual UOM item.','');
4955: log_statement(l_api_name,'l_rsv_id ', l_rsv_id);
4956: log_statement(l_api_name,'l_rsv_lot_number', l_rsv_lot_number);
4957: log_statement(l_api_name,'l_rsv_qty ', l_rsv_qty);
4958: log_statement(l_api_name,'l_pri_res_qty ', l_pri_res_qty);
5139: --}
5140: ELSE --{
5141: -- fulfillment based on primary
5142: /* lot specific conversion 3986955*/
5143: IF (l_dual_uom_ctl > 1 AND inv_cache.item_rec.tracking_quantity_ind = 'PS') --{
5144: -- Bug 7587155 - item could be PS but not lot controlled!
5145: -- and nvl(g_locs(p_record_id).lot_number,'-9999') <> '-9999'
5146: THEN
5147: IF wms_engine_pvt.g_sec_qty_round_mode IS NOT NULL THEN --{
5245: , l_sec_dtl_qty;
5246: CLOSE c_detailed_reservation;
5247: IF NVL(l_rsv_id,0) > 0 THEN --{
5248: IF l_debug = 1 THEN
5249: log_statement(l_api_name,'reservation exists for dual UOM item.','');
5250: log_statement(l_api_name,'l_rsv_id ', l_rsv_id);
5251: log_statement(l_api_name,'l_rsv_lot_number', l_rsv_lot_number);
5252: log_statement(l_api_name,'l_rsv_qty ', l_rsv_qty);
5253: log_statement(l_api_name,'l_pri_res_qty ', l_pri_res_qty);
5427: l_sallocation_quantity := l_needed_sec_quantity;
5428: END IF;
5429: END IF;
5430: END IF; --} end ELSE g_sec_qty_round_mode is not null
5431: END IF; --} l_dual_uom_ctl > 1
5432: -- bug 8638386 - end
5433: END IF; --} g_fulfillment_base
5434:
5435: IF l_dual_uom_ctl = 1 THEN
5431: END IF; --} l_dual_uom_ctl > 1
5432: -- bug 8638386 - end
5433: END IF; --} g_fulfillment_base
5434:
5435: IF l_dual_uom_ctl = 1 THEN
5436: l_sallocation_quantity := NULL;
5437: l_orig_needed_sec_qty := NULL; -- Added for 14699845 (Flexible lot allocation)
5438: END IF;
5439:
15371:
15372: ELSE
15373: --if not pick, we don't need these cursors, so we set them to
15374: -- dummy values. Used only so package will compile.
15375: g_stmt_serial := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15376: g_stmt_serial_validate := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15377: g_stmt_serial_detail := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15378: g_stmt_serial_detail_new := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15379: END IF;
15372: ELSE
15373: --if not pick, we don't need these cursors, so we set them to
15374: -- dummy values. Used only so package will compile.
15375: g_stmt_serial := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15376: g_stmt_serial_validate := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15377: g_stmt_serial_detail := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15378: g_stmt_serial_detail_new := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15379: END IF;
15380:
15373: --if not pick, we don't need these cursors, so we set them to
15374: -- dummy values. Used only so package will compile.
15375: g_stmt_serial := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15376: g_stmt_serial_validate := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15377: g_stmt_serial_detail := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15378: g_stmt_serial_detail_new := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15379: END IF;
15380:
15381: --get the package name
15374: -- dummy values. Used only so package will compile.
15375: g_stmt_serial := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15376: g_stmt_serial_validate := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15377: g_stmt_serial_detail := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15378: g_stmt_serial_detail_new := 'select 1,1,sysdate,1,1,1,1,1,1,1,1,1 from dual';
15379: END IF;
15380:
15381: --get the package name
15382: getpackagename(p_rule_id, l_package_name);
16461: -- See if there are any enabled rules for Operation Plan Selection.
16462: l_count := 0;
16463: BEGIN
16464: SELECT 1 INTO l_count
16465: FROM dual
16466: WHERE EXISTS (SELECT 1 FROM wms_rules_b rules
16467: WHERE rules.type_code = 7
16468: AND rules.enabled_flag = 'Y'
16469: AND (organization_id = -1
16803: -- all orgs or for the orgs in the set of MMTT records for the given move order header.
16804: l_count := 0;
16805: BEGIN
16806: SELECT 1 INTO l_count
16807: FROM dual
16808: WHERE EXISTS (SELECT 1 FROM wms_rules_b rules
16809: WHERE rules.type_code = 3
16810: AND rules.enabled_flag = 'Y'
16811: AND (organization_id = -1