[Home] [Help]
4: FUNCTION Get_Available_Lots (V_session_id NUMBER, V_alloc_mode VARCHAR2, V_line_id NUMBER, V_item_id NUMBER, V_shipcust_id NUMBER,
5: V_whse_code VARCHAR2, V_qty NUMBER, V_order_um1 VARCHAR2, V_qty2 NUMBER,
6: V_grade_wanted VARCHAR2, V_sched_shipdate DATE) RETURN NUMBER IS
7: CURSOR Cur_get_item_details IS
8: SELECT item_no, lot_ctl, loct_ctl, grade_ctl, alloc_class, item_um, item_um2, dualum_ind,
9: lot_indivisible
10: FROM ic_item_mst
11: WHERE item_id = V_item_id;
12: ItemDetailsRec Cur_get_item_details%ROWTYPE;
17: WHERE whse_code = V_whse_code;
18: WhseDetailsRec Cur_get_whse_details%ROWTYPE;
19: CURSOR Cur_check_alloc IS
20: SELECT 1
21: FROM sys.dual
22: WHERE EXISTS (SELECT 1
23: FROM ic_tran_pnd
24: WHERE line_id = V_line_id
25: AND (lot_id > 0 OR location <> P_default_loct)
122: IF (X_PROCEED_ALLOC = TRUE) THEN
123: X_Return_Val := fetch_lots(V_item_id, V_whse_code, X_prefqc_grade,
124: X_trans_date, X_alloc_type, X_plan_qty, V_qty2,
125: ItemDetailsRec.lot_ctl, WhseDetailsRec.loct_ctl, ItemDetailsRec.lot_indivisible,
126: X_lot_qty, V_order_um1, ItemDetailsRec.item_um, ItemDetailsRec.item_um2, ItemDetailsRec.dualum_ind);
127: IF X_return_val = 0 THEN
128: IF X_partial_ind = 0 THEN
129: clear_table;
130: X_return_val := -1;
234:
235: FUNCTION fetch_lots (V_item_id NUMBER, V_whse_code VARCHAR2, V_qc_grade VARCHAR2,
236: V_trans_date DATE, V_alloc_method NUMBER, V_qty NUMBER, V_qty2 NUMBER,
237: V_lot_ctl NUMBER, V_loct_ctl NUMBER, V_lot_indivisible NUMBER, V_lot_alloc NUMBER,
238: V_order_um1 VARCHAR2, V_item_um VARCHAR2, V_item_um2 VARCHAR2, V_dualum_ind NUMBER) RETURN NUMBER IS
239: CURSOR Cur_get_lots IS
240: SELECT lot_no, sublot_no, lot_id, lot_created ,
241: expire_date, qc_grade, location,
242: sum(loct_onhand) onhand_qty, sum(loct_onhand2) onhand_qty2,
303: X_alloc_qty2:= LotDetailsRec.avail_qty2;
304: END IF;
305: END IF;
306: IF X_alloc_qty > 0 THEN
307: IF (V_dualum_ind = 1) THEN
308: X_alloc_qty2 := GMICUOM.uom_conversion(V_item_id, LotDetailsRec.lot_id, X_alloc_qty, V_item_um, V_item_um2, 0);
309: IF X_alloc_qty2 < 0 THEN
310: RAISE UOM_CONVERSION_ERROR;
311: END IF;
308: X_alloc_qty2 := GMICUOM.uom_conversion(V_item_id, LotDetailsRec.lot_id, X_alloc_qty, V_item_um, V_item_um2, 0);
309: IF X_alloc_qty2 < 0 THEN
310: RAISE UOM_CONVERSION_ERROR;
311: END IF;
312: ELSIF V_dualum_ind = 0 THEN
313: X_alloc_qty2 := NULL;
314: END IF;
315: X_unalloc_qty := X_unalloc_qty - X_alloc_qty;
316: X_unalloc_qty2 := X_unalloc_qty2 - X_alloc_qty2;