[Home] [Help]
516: -- create two new cursors for retreiving lot information.
517: l_validation_flag rcv_transactions_interface.validation_flag%TYPE ;
518:
519:
520: CURSOR cr_rcv_lots_interface IS
521: SELECT primary_quantity,
522: quantity,
523: secondary_quantity,
524: lot_num,
523: secondary_quantity,
524: lot_num,
525: sublot_num,
526: reason_code
527: FROM rcv_lots_interface
528: WHERE interface_transaction_id = p_interface_trx_id ;
529:
530: CURSOR cr_mtl_transaction_lots_temp IS
531: SELECT primary_quantity,
537: FROM mtl_transaction_lots_temp
538: WHERE product_transaction_id = p_interface_trx_id
539: AND product_code = 'RCV' ;
540:
541: l_lot_attributes_rec cr_rcv_lots_interface%ROWTYPE ;
542:
543: -- Bug 3876496
544: l_line_num NUMBER := 0;
545:
683: IF (l_trx_type = 'RETURN TO VENDOR' or l_trx_type = 'RETURN TO RECEIVING')
684:
685: Check Profile OPtion GML Validate return
686: Check Receipt_qty = Return qty in same UM's in rcv_transactions
687: Check if rcv_Lots_interface records for return match with rcv_lot_transactions for receipt
688: then find ic_tran_pnd record for rcv_lots_interface for receipt and copy the quantitiy.
689:
690: If anything does not match do Nothing */
691:
684:
685: Check Profile OPtion GML Validate return
686: Check Receipt_qty = Return qty in same UM's in rcv_transactions
687: Check if rcv_Lots_interface records for return match with rcv_lot_transactions for receipt
688: then find ic_tran_pnd record for rcv_lots_interface for receipt and copy the quantitiy.
689:
690: If anything does not match do Nothing */
691:
692: IF (NVL(fnd_profile.value('GML_VAL_RET_CORR_LOT_QTY'), 'Y') = 'N') AND
697: CLOSE Cur_Receipt_qty;
698:
699: IF (l_recv_qty = l_receipt_qty) AND (l_receipt_um = l_receipt_unit_of_measure) THEN
700: -- Compare current txn qty with rcv_lot_transaction Should loop through all lot txn
701: FOR rliret in (select * from rcv_lots_interface where interface_transaction_id = p_interface_trx_id)
702: LOOP
703: OPEN Cur_rcv_lot_txn(l_parent_transaction_id, rliret.lot_num, rliret.sublot_num);
704: FETCH Cur_rcv_lot_txn INTO l_lot_txn_qty;
705: CLOSE Cur_rcv_lot_txn;
1094: l_negate_lot_qty := 1;
1095: END IF;
1096:
1097: -- ROI enhancements bug# 3061052
1098: -- use mtl_transaction_lots_temp instead of rcv_lots_interface for the ROI.
1099: -- From the applications(forms) lot data goes into rcv_lots_interface and mtl_transaction_lots_temp.
1100: -- From the ROI(starting from 11.5.10) lot data goes only into mtl_transaction_lots_temp.
1101: -- validation_flag is used to check the source of the data into rcv_transactions_interface
1102: -- if it is 'Y' it is coming from ROI(third party) else it is coming from the Receiving forms.
1095: END IF;
1096:
1097: -- ROI enhancements bug# 3061052
1098: -- use mtl_transaction_lots_temp instead of rcv_lots_interface for the ROI.
1099: -- From the applications(forms) lot data goes into rcv_lots_interface and mtl_transaction_lots_temp.
1100: -- From the ROI(starting from 11.5.10) lot data goes only into mtl_transaction_lots_temp.
1101: -- validation_flag is used to check the source of the data into rcv_transactions_interface
1102: -- if it is 'Y' it is coming from ROI(third party) else it is coming from the Receiving forms.
1103:
1103:
1104: IF l_validation_flag = 'Y' THEN
1105: OPEN cr_mtl_transaction_lots_temp ;
1106: ELSE
1107: OPEN cr_rcv_lots_interface ;
1108: END IF;
1109:
1110: LOOP
1111: IF l_validation_flag = 'Y' THEN
1114: CLOSE cr_mtl_transaction_lots_temp;
1115: EXIT ;
1116: END IF;
1117: ELSE
1118: FETCH cr_rcv_lots_interface INTO l_lot_attributes_rec;
1119: IF cr_rcv_lots_interface%NOTFOUND THEN
1120: CLOSE cr_rcv_lots_interface;
1121: EXIT ;
1122: END IF;
1115: EXIT ;
1116: END IF;
1117: ELSE
1118: FETCH cr_rcv_lots_interface INTO l_lot_attributes_rec;
1119: IF cr_rcv_lots_interface%NOTFOUND THEN
1120: CLOSE cr_rcv_lots_interface;
1121: EXIT ;
1122: END IF;
1123:
1116: END IF;
1117: ELSE
1118: FETCH cr_rcv_lots_interface INTO l_lot_attributes_rec;
1119: IF cr_rcv_lots_interface%NOTFOUND THEN
1120: CLOSE cr_rcv_lots_interface;
1121: EXIT ;
1122: END IF;
1123:
1124: END IF;
1423: IF cr_mtl_transaction_lots_temp%ISOPEN THEN
1424: CLOSE cr_mtl_transaction_lots_temp;
1425: END IF;
1426:
1427: IF cr_rcv_lots_interface%ISOPEN THEN
1428: CLOSE cr_rcv_lots_interface;
1429: END IF;
1430:
1431: IF x_return_status = '-5' THEN
1424: CLOSE cr_mtl_transaction_lots_temp;
1425: END IF;
1426:
1427: IF cr_rcv_lots_interface%ISOPEN THEN
1428: CLOSE cr_rcv_lots_interface;
1429: END IF;
1430:
1431: IF x_return_status = '-5' THEN
1432: l_error_message := x_return_Status||' No data found in RCV_TRANSACTIONS_INTERFACE';
1576: IF cr_mtl_transaction_lots_temp%ISOPEN THEN
1577: CLOSE cr_mtl_transaction_lots_temp;
1578: END IF;
1579:
1580: IF cr_rcv_lots_interface%ISOPEN THEN
1581: CLOSE cr_rcv_lots_interface;
1582: END IF;
1583:
1584: INSERT_PO_ERRORS( 'RECEIVING',
1577: CLOSE cr_mtl_transaction_lots_temp;
1578: END IF;
1579:
1580: IF cr_rcv_lots_interface%ISOPEN THEN
1581: CLOSE cr_rcv_lots_interface;
1582: END IF;
1583:
1584: INSERT_PO_ERRORS( 'RECEIVING',
1585: p_interface_trx_id,