oracle 存儲過程
PROCEDURE Create_Pick_Task(info_ OUT VARCHAR2,
move_no_ IN OUT VARCHAR2,
order_no_ IN VARCHAR2,
line_no_ IN VARCHAR2,
release_no_ IN VARCHAR2,
line_item_no_ IN VARCHAR2,
user_id_ IN VARCHAR2,
order_type_ IN NUMBER) -- -- 一、庫內移庫 二、倉庫間調撥 三、揀貨
IS
qty_to_move_ NUMBER;
max_line_no_ NUMBER := 0;
contract_ VARCHAR2(5);
component_part_ VARCHAR(25);
backflush_loc_ VARCHAR2(35);
warehouse_ VARCHAR2(15);
ean_no_ VARCHAR2(35);
lot_batch_no_ VARCHAR2(20);
serial_no_ VARCHAR2(50);
qty_onhand_ NUMBER;
sum_qty_onhand_ NUMBER;
--
CURSOR get_purchase_order_line_comp IS
SELECT (nvl(qty_required,0) - nvl(qty_issued,0)) ,contract,component_part,backflush_loc
FROM purchase_order_line_comp_tab
WHERE order_no = order_no_
AND line_no = line_no_
AND release_no = release_no_
AND line_item_no = line_item_no_;
--
CURSOR get_line_no IS
SELECT MAX(line_no)
FROM m_move_order_line_tab
WHERE move_no = move_no_;
--
CURSOR get_inventory_locaiton IS
SELECT warehouse
FROM inventory_location_tab
WHERE contract = contract_
AND location_no = backflush_loc_ ;
--
CURSOR get_inventory_part IS
SELECT ean_no
FROM inventory_part_tab
WHERE part_no = component_part_
AND contract = contract_;
--
CURSOR get_inventory_part_in_stock IS
SELECT lot_batch_no , serial_no , qty_onhand
FROM inventory_part_in_stock_tab
WHERE contract = contract_
AND part_no = component_part_
AND warehouse = warehouse_ ;
--
CURSOR get_sum_stock IS
SELECT SUM(qty_onhand)
FROM inventory_part_in_stock_tab
WHERE contract = contract_
AND part_no = component_part_
AND warehouse = warehouse_ ;
BEGIN
OPEN get_purchase_order_line_comp ;
FETCH get_purchase_order_line_comp INTO qty_to_move_ ,contract_ , component_part_ , backflush_loc_;
CLOSE get_purchase_order_line_comp;
OPEN get_inventory_locaiton ;
FETCH get_inventory_locaiton INTO warehouse_;
CLOSE get_inventory_locaiton;
OPEN get_inventory_part ;
FETCH get_inventory_part INTO ean_no_;
CLOSE get_inventory_part;
OPEN get_sum_stock ;
FETCH get_sum_stock INTO sum_qty_onhand_;
CLOSE get_sum_stock;
-- 揀貨數量大於在庫存
IF sum_qty_onhand_ < qty_to_move_ THEN
Error_Sys.Record_General(lu_name_, 'QTYNOTALLOW: 揀貨數量 :P1 大於在庫庫存 :P2 建立委外出庫揀貨任務失敗 !',
qty_to_move_,
sum_qty_onhand_);
END IF;
IF qty_to_move_ >0 THEN
-- 建立移庫單頭
IF nvl(move_no_ ,'') = '' THEN
move_no_ := M_Move_Order_Api.Get_Move_No( SYSDATE );
INSERT
INTO m_move_order_tab (
move_no,
moved_date,
warehouse,
moved_user,
order_type,
to_warehouse,
rowstate,
created_date,
created_user,
updated_date,
updated_user,
rowversion)
VALUES (
move_no_,
SYSDATE,
warehouse_,
NULL,
order_type_, -- 一、庫內移庫 二、倉庫間調撥 三、揀貨
warehouse_,
1, -- 一、已建立 二、揀貨中 三、已揀貨 四、已完成
SYSDATE,
user_id_,
SYSDATE,
user_id_,
SYSDATE);
END IF;
--Fetch 循環 獲取庫存批次
OPEN get_inventory_part_in_stock;--必需要明確的打開和關閉遊標
LOOP
FETCH get_inventory_part_in_stock INTO lot_batch_no_ ,serial_no_ , qty_onhand_ ;
EXIT WHEN get_inventory_part_in_stock%NOTFOUND;
IF qty_onhand_ >= qty_to_move_ THEN
-- 建立明細行
OPEN get_line_no;
FETCH get_line_no INTO max_line_no_;
CLOSE get_line_no;
INSERT
INTO m_move_order_line_tab (
move_no,
line_no,
warehouse,
part_no,
ean_no,
qty_to_move,
qty_moved,
from_loca_no,
to_loca_no,
lot_batch_no,
barcode_no,
created_date,
created_user,
updated_date,
updated_user,
rowversion)
VALUES (
move_no_,
max_line_no_ + 1,
warehouse_,
component_part_,
ean_no_,
qty_to_move_,
0,
backflush_loc_,
'*',
lot_batch_no_,
'*',
sysdate,
user_id_,
sysdate,
user_id_,
sysdate) ;
EXIT;
ELSE
-- 建立明細行
OPEN get_line_no;
FETCH get_line_no INTO max_line_no_;
CLOSE get_line_no;
INSERT
INTO m_move_order_line_tab (
move_no,
line_no,
warehouse,
part_no,
ean_no,
qty_to_move,
qty_moved,
from_loca_no,
to_loca_no,
lot_batch_no,
barcode_no,
created_date,
created_user,
updated_date,
updated_user,
rowversion)
VALUES (
move_no_,
max_line_no_ + 1,
warehouse_,
component_part_,
ean_no_,
qty_onhand_,
0,
backflush_loc_,
'*',
lot_batch_no_,
'*',
sysdate,
user_id_,
sysdate,
user_id_,
sysdate) ;
qty_to_move_ :=( qty_to_move_ - qty_onhand_ );
END IF;
END LOOP;
CLOSE get_inventory_part_in_stock;
END IF;
END Create_Pick_Task;
-- 完成委外叫料揀貨
PROCEDURE Finished_Call_Out_Material(info_ OUT VARCHAR2,
move_no_ IN VARCHAR2,
department_id_ IN VARCHAR2,
user_id_ IN VARCHAR2)
IS
max_line_no_ NUMBER;
barcode_rec_ m_barcode_status_tab%ROWTYPE;
sum_barcode_qty_ NUMBER;
qty_issue_ NUMBER := 0;
qty_remain_ NUMBER := 0;
contract_ VARCHAR2(5) := User_Allowed_Site_Api.Get_Default_Site;
CURSOR get_m_move_order_line IS
SELECT *
FROM M_MOVE_ORDER_LINE_TAB m
WHERE m.move_no = move_no_
AND m.qty_to_move > m.qty_moved ;
CURSOR get_max_line_no IS
SELECT MAX(m.line_no)
FROM M_MOVE_ORDER_LINE_TAB m
WHERE m.move_no = move_no_ ;
BEGIN
-- 獲取移庫明細行
FOR move_line_rec_ IN get_m_move_order_line LOOP
qty_remain_ := (move_line_rec_.qty_to_move - move_line_rec_.qty_moved) ;
-- 判斷標籤庫存是否足夠
DECLARE
CURSOR get_sum_barcode_qty IS
SELECT SUM(m.qty)
FROM m_location_no_barcode_tab m
WHERE m.part_no = move_line_rec_.part_no
AND m.location_no = move_line_rec_.from_loca_no
AND m.contract = contract_;
BEGIN
OPEN get_sum_barcode_qty ;
FETCH get_sum_barcode_qty INTO sum_barcode_qty_ ;
CLOSE get_sum_barcode_qty ;
IF (move_line_rec_.qty_to_move - move_line_rec_.qty_moved) > sum_barcode_qty_ THEN
Error_Sys.Record_General(lu_name_, 'NOTENOUGHTBARCODESTOCK: 標籤庫存 :P1 在庫數量 :P2 小於移庫數量 :P3 !',
move_line_rec_.part_no||'-'||move_line_rec_.from_loca_no,
sum_barcode_qty_,
move_line_rec_.move_no||'-'||move_line_rec_.line_no||'-'||move_line_rec_.qty_to_move - move_line_rec_.qty_moved);
END IF ;
END;
DECLARE
CURSOR get_m_location_barcode_tab IS
SELECT *
FROM m_location_no_barcode_tab m
WHERE m.part_no = move_line_rec_.part_no
AND m.location_no = move_line_rec_.from_loca_no
AND m.contract = contract_ ;
BEGIN
-- 獲取標籤庫存行執行移庫
FOR loca_barcode_rec_ IN get_m_location_barcode_tab LOOP
qty_issue_ := least(loca_barcode_rec_.qty , qty_remain_);
qty_remain_ := qty_remain_ - qty_issue_ ;
-- 庫存下架
m_inv_part_in_stock_util_api.Issue_Part(part_no_ => move_line_rec_.part_no,
location_no_ => move_line_rec_.from_loca_no,
qty_issued_ => qty_issue_,
user_id_ => user_id_) ;
-- 庫存上架
m_inv_part_in_stock_util_api.Receive_Part(part_no_ => move_line_rec_.part_no,
location_no_ => move_line_rec_.to_loca_no,
qty_received_ => qty_issue_,
user_id_ => user_id_);
-- barcode 庫存下架
m_location_no_barcode_api.Issue_Barcode(barcode_no_ => loca_barcode_rec_.barcode_no,
from_loca_no_ => move_line_rec_.from_loca_no,
qty_issue_ => qty_issue_,
transaction_code_ => 'INVM-ISS',
user_id_ => user_id_ );
-- barcode 庫存上架
m_location_no_barcode_api.Receive_Barcode(barcode_no_ => loca_barcode_rec_.barcode_no,
to_loca_no_ => move_line_rec_.to_loca_no,
qty_received_ => qty_issue_,
transaction_code_ => 'INVM-IN',
user_id_ => user_id_);
OPEN get_max_line_no ;
FETCH get_max_line_no INTO max_line_no_ ;
CLOSE get_max_line_no;
max_line_no_ := nvl(max_line_no_ , 0);
DECLARE
CURSOR get_m_barcode_status IS
SELECT *
FROM m_barcode_status_tab m
WHERE m.barcode_no = loca_barcode_rec_.barcode_no
AND m.contract = contract_;
BEGIN
OPEN get_m_barcode_status ;
FETCH get_m_barcode_status INTO barcode_rec_ ;
CLOSE get_m_barcode_status ;
-- 插入新的移庫行
INSERT
INTO m_move_order_line_tab (
move_no,
line_no,
warehouse,
part_no,
ean_no,
qty_to_move,
qty_moved,
from_loca_no,
to_loca_no,
to_warehouse,
lot_batch_no,
barcode_no,
created_date,
created_user,
updated_date,
updated_user,
rowversion,
co_order_no,
co_line_no,
co_release_no,
co_line_item_no
)
VALUES (
move_no_,
max_line_no_ + 1,
move_line_rec_.warehouse,
move_line_rec_.part_no,
move_line_rec_.ean_no,
qty_issue_,
qty_issue_,
move_line_rec_.from_loca_no,
move_line_rec_.to_loca_no,
move_line_rec_.to_warehouse,
barcode_rec_.lot_batch_no,
barcode_rec_.barcode_no,
sysdate,
user_id_,
sysdate,
user_id_,
sysdate,
move_line_rec_.co_order_no,
move_line_rec_.co_line_no,
move_line_rec_.co_release_no,
move_line_rec_.co_line_item_no);
-- 完成後,刪除原來的行
IF qty_remain_ = 0 THEN
DELETE FROM m_move_order_line_tab
WHERE move_no = move_no_
AND line_no = move_line_rec_.line_no ;
EXIT ;
END IF ;
END;
END LOOP ;
END;
END LOOP ;
-- 跟新移庫單狀態
UPDATE m_move_order_tab m SET m.rowstate=4 WHERE m.move_no = move_no_ ;
END Finished_Call_Out_Material;
相關文章
- 1. oracle 存儲過程
- 2. Oracle存儲過程
- 3. oracle存儲過程
- 4. Oracle 儲存過程
- 5. oracle 存儲過程教程
- 6. 存儲過程，存儲函數(Oracle)
- 7. java調用Oracle存儲存儲過程
- 8. Oracle 存儲過程、存儲函數
- 9. Oracle存儲過程、存儲函數
- 10. Oracle --存儲函數和存儲過程
- 更多相關文章...
- • MySQL存儲過程簡介 - MySQL教程
- • MySQL刪除存儲過程（DROP PROCEDURE） - MySQL教程
- • 三篇文章瞭解 TiDB 技術內幕——說存儲
- • Java 8 Stream 教程
相關標籤/搜索
每日一句
-
每一个你不满意的现在，都有一个你没有努力的曾经。
最新文章
- 1. Duang!超快Wi-Fi來襲
- 2. 機器學習-補充03 神經網絡之**函數(Activation Function)
- 3. git上開源maven項目部署 多module maven項目（多module maven+redis+tomcat+mysql）後臺部署流程學習記錄
- 4. ecliple-tomcat部署maven項目方式之一
- 5. eclipse新導入的項目經常可以看到「XX cannot be resolved to a type」的報錯信息
- 6. Spark RDD的依賴於DAG的工作原理
- 7. VMware安裝CentOS-8教程詳解
- 8. YDOOK：Java 項目 Spring 項目導入基本四大 jar 包 導入依賴，怎樣在 IDEA 的項目結構中導入 jar 包 導入依賴
- 9. 簡單方法使得putty（windows10上）可以免密登錄樹莓派
- 10. idea怎麼用本地maven
歡迎關注本站公眾號,獲取更多信息
相關文章
- 1. oracle 存儲過程
- 2. Oracle存儲過程
- 3. oracle存儲過程
- 4. Oracle 儲存過程
- 5. oracle 存儲過程教程
- 6. 存儲過程，存儲函數(Oracle)
- 7. java調用Oracle存儲存儲過程
- 8. Oracle 存儲過程、存儲函數
- 9. Oracle存儲過程、存儲函數
- 10. Oracle --存儲函數和存儲過程