[Home] [Help]
3236: l_primary_quantity NUMBER;
3237: l_txn_source_line_id NUMBER;
3238: l_error_code NUMBER;
3239: l_trans_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3240: l_trans_row ic_tran_pnd%ROWTYPE;
3241:
3242: cursor c_line_info IS
3243: SELECT quantity
3244: , secondary_quantity
3259: AND released_status = 'S';
3260:
3261: cursor c_reservations IS
3262: SELECT trans_id
3263: FROM ic_tran_pnd
3264: WHERE line_id = l_txn_source_line_id
3265: AND line_detail_id = p_delivery_detail_id /* should have this filed populated since mo line*/
3266: AND staged_ind = 0
3267: AND delete_mark = 0
3339:
3340: l_trans_rec.trans_id := l_reservation_id;
3341: GMI_Reservation_Util.PrintLn('Rsv id = ' || l_reservation_id);
3342:
3343: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3344: (l_trans_rec, l_trans_rec )
3345: THEN
3346: GMI_Reservation_Util.PrintLn('trans_qty = ' || l_trans_rec.trans_qty);
3347: IF abs(l_trans_rec.trans_qty) <= l_quantity_to_delete THEN
3365: END IF;
3366: l_deleted_quantity := l_deleted_quantity + abs(l_trans_rec.trans_qty);
3367: l_deleted_quantity2 := l_deleted_quantity2 + abs(l_trans_rec.trans_qty2);
3368: ELSE
3369: GMI_Reservation_Util.PrintLn('update ic_tran_pnd ' );
3370: l_trans_rec.trans_qty := -1 * (abs(l_trans_rec.trans_qty) - l_quantity_to_delete);
3371: l_trans_rec.trans_qty2 := -1 * (abs(l_trans_rec.trans_qty2) - l_quantity2_to_delete);
3372: GMI_TRANS_ENGINE_PUB.UPDATE_PENDING_TRANSACTION
3373: ( 1
3403: );
3404:
3405: IF nvl(l_reservation_id,0) > 0 THEN -- no balancing if no default exist
3406: l_trans_rec.trans_id := l_reservation_id;
3407: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3408: (l_trans_rec, l_trans_rec )
3409: THEN
3410: Select ship_from_org_id
3411: Into l_ship_from_org_id
3477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3478: END IF;
3479: l_trans_rec.trans_id := l_trans_row.trans_id;
3480: GMI_Reservation_Util.PrintLn('created trans trans_id'||l_trans_rec.trans_id);
3481: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3482: (l_trans_rec, l_trans_rec )
3483: THEN
3484: GMI_RESERVATION_UTIL.balance_default_lot
3485: ( p_ic_default_rec => l_trans_rec
3628: l_inventory_Item_id NUMBER;
3629: l_prim_quantity_to_delete NUMBER;
3630: l_remaining_quantity NUMBER;
3631: l_trans_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
3632: l_trans_row ic_tran_pnd%ROWTYPE;
3633:
3634: cursor c_line_info IS
3635: SELECT quantity
3636: , secondary_quantity
3658: AND released_status = 'S';
3659:
3660: cursor c_reservations IS
3661: SELECT trans_id
3662: FROM ic_tran_pnd
3663: WHERE line_id = l_txn_source_line_id
3664: AND (line_detail_id = p_delivery_detail_id
3665: or nvl(line_detail_id, -1 ) = -1 )
3666: AND staged_ind = 0
3674: /* should we do it by the alloc rules? auto-fifo, fefo? */
3675:
3676: cursor find_default_lot IS
3677: SELECT trans_id
3678: FROM ic_tran_pnd
3679: WHERE line_id = l_txn_source_line_id
3680: AND doc_type = 'OMSO'
3681: AND delete_mark = 0
3682: AND (lot_id = 0 OR location <> GMI_RESERVATION_UTIL.G_DEFAULT_LOCT);
3791: EXIT WHEN c_reservations%NOTFOUND;
3792:
3793: l_trans_rec.trans_id := l_reservation_id;
3794: gmi_reservation_util.println('Going to fetch record from ic in reduce_move');
3795: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3796: (l_trans_rec, l_trans_rec )
3797: THEN
3798: GMI_Reservation_Util.PrintLn('trans_qty = ' || l_trans_rec.trans_qty);
3799: /* may have to consider indivisible */
3856: );
3857:
3858: IF nvl(l_reservation_id,0) > 0 THEN -- no balancing if no default exist
3859: l_trans_rec.trans_id := l_reservation_id;
3860: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
3861: (l_trans_rec, l_trans_rec )
3862: THEN
3863: GMI_RESERVATION_UTIL.balance_default_lot
3864: ( p_ic_default_rec => l_trans_rec