[Home] [Help]
2754: IF l_qoh = v1.primary_quantity THEN
2755: l_lpn_fully_allocated := 'Y';
2756: SELECT v1.transaction_temp_id, 'Y'
2757: INTO WMS_CARTNZN_PUB.t_lpn_alloc_flag_table(v1.transaction_temp_id)
2758: FROM DUAL;
2759: ELSE
2760: l_lpn_fully_allocated := 'N';
2761: SELECT v1.transaction_temp_id, 'N'
2762: INTO WMS_CARTNZN_PUB.t_lpn_alloc_flag_table(v1.transaction_temp_id)
2759: ELSE
2760: l_lpn_fully_allocated := 'N';
2761: SELECT v1.transaction_temp_id, 'N'
2762: INTO WMS_CARTNZN_PUB.t_lpn_alloc_flag_table(v1.transaction_temp_id)
2763: FROM DUAL;
2764: END IF;
2765: --}
2766: ELSE
2767: l_lpn_fully_allocated := 'Y';
2766: ELSE
2767: l_lpn_fully_allocated := 'Y';
2768: SELECT v1.transaction_temp_id, 'Y'
2769: INTO WMS_CARTNZN_PUB.t_lpn_alloc_flag_table(v1.transaction_temp_id)
2770: FROM DUAL;
2771: END IF ;
2772: --}
2773: ELSE
2774: error_code := 'CARTONIZE 130';
2791: ELSE --{
2792: --populate lpn_alloc_flag with null for loose item
2793: SELECT v1.transaction_temp_id, NULL
2794: INTO WMS_CARTNZN_PUB.t_lpn_alloc_flag_table(v1.transaction_temp_id)
2795: FROM DUAL;
2796:
2797: -- If the content_lpn_id is populated on the mmtt record
2798: -- could be two cases. Either we are trying to pack an LPN
2799: -- or a package. We will have packages poulated in this
4759: END;
4760:
4761: SELECT mtl_material_transactions_s.NEXTVAL
4762: INTO l_new_temp_id
4763: FROM DUAL;
4764:
4765: l_task_new_rec.transaction_temp_id := l_new_temp_id;
4766: l_task_new_rec.transaction_quantity := l_new_qty;
4767: l_task_new_rec.primary_quantity := l_new_qty * l_txn_pri_uom_ratio;
4819: WHERE transaction_temp_id = l_child_rec.transaction_temp_id;
4820:
4821: SELECT mtl_material_transactions_s.NEXTVAL
4822: INTO l_new_child_temp_id
4823: FROM DUAL;
4824:
4825: SELECT *
4826: INTO l_child_new_rec
4827: FROM mtl_material_transactions_temp
6696: -- Need to handle the case where pick slip numbering
6697: -- was already done for rulebased cartonization
6698: BEGIN
6699: SELECT 'x' INTO l_dummy
6700: FROM dual
6701: WHERE EXISTS
6702: ( SELECT 'x'
6703: FROM mtl_material_transactions_temp mmtt1
6704: WHERE mmtt1.move_order_header_id = p_mo_header_id
6980:
6981: -- Get the next pick slip number using the sequence
6982: SELECT wsh_pick_slip_numbers_s.NEXTVAL
6983: INTO l_pick_slip_number
6984: FROM DUAL;
6985:
6986: -- Open cursor to fetch matching MMTT rows based on number of Grouping attributes returned
6987: IF l_num_criteria = 1 THEN
6988: OPEN l_mmtt_cur FOR l_mmtt_sql USING p_mo_header_id