在 Oracle E-Business Suite (EBS) 中，銷售訂單的發放是倉儲管理與出貨流程的關鍵環節。本文將詳細介紹發放銷售訂單的操作介面，並深度解析核心 PL/SQL 程式碼邏輯，幫助開發人員與功能顧問理解底層實作機制。
系統提供模擬發放銷售訂單介面，使用者可透過圖形化介面設定發放參數並執行操作。介面包含揀貨規則、出貨優先級、倉庫、客戶、訂單類型、項目、出貨方式等豐富的篩選條件，支援依據排程出貨日期、需求日期、訂單號、項目編號等多維度查詢待發放明細。
insert_row 程序以下 PL/SQL 程式碼展示了發放邏輯的核心實作，主要包含資料查詢、參數判斷、批次建立與並行請求提交等步驟：
PROCEDURE insert_row(x_batch_id OUT NUMBER) IS
l_autopack_flag VARCHAR2(1);
l_autopack_level NUMBER;
l_release_method VARCHAR2(1);
l_release_online VARCHAR2(240) := fnd_profile.value('SHP_PICK_RELEASE_ONLINE');
-- 專案參數檢查游標
CURSOR enable_prop(org_id NUMBER) IS
SELECT nvl(MAX(project_reference_enabled), 'N')
FROM pjm_org_parameters
WHERE organization_id = org_id;
l_enable_flag VARCHAR2(1) := 'N';
l_return_code BOOLEAN DEFAULT TRUE;
-- 主資料查詢游標，關聯多張標準表
CURSOR cur_data(p_organization_id IN NUMBER) IS
SELECT wsh.picking_rule_name, wsh.backorders_only_flag, wsh.backorders,
wsh.shipment_priority, wsh.shipment_priority_code, wsh.organization_id,
wsh.org_id, wsh.warehouse_id_lov, wsh.warehouse, wsh.warehouse_code,
wsh.reservation_star, wsh.existing_rsvs_only_flag, wsh.ship_method_code,
wsh.from_scheduled_ship_date, wsh.to_scheduled_ship_date,
wsh.from_requested_date, wsh.to_requested_date,
wsh.order_type, wsh.order_type_id, wsh.order_number, wsh.order_header_id,
wsh.ship_set_number, wsh.inventory_item_id, wsh.item_description,
wsh.customer_name, wsh.old_customer_name, wsh.customer_id,
wsh.ship_to_location, wsh.ship_to_location_id,
wsh.include_planned_lines, wsh.autocreate_delivery_flag,
wsh.pick_grouping_rule_name, wsh.pick_seq_rule_name, wsh.task_id,
wsh.project_id, wsh.autodetail_pr_flag, wsh.auto_pick_confirm_flag,
wsh.ship_set_number ship_set_id, wsh.ship_from_location,
wsh.ship_from_location_id, wsh.document_set_id, wsh.doc_name,
wsh.pick_from_subinventory, wsh.pick_from_locator_id,
wsh.pick_from_locator, wsh.default_stage_subinventory,
wsh.default_stage_locator_id, wsh.default_stage_locator,
wsh.ship_method_meaning, wsh.autopack_flag, wsh.autopack_level,
wsh.ship_confirm_rule_id, wsh.ship_confirm_rule_name,
wsh.task_planning_flag, wsh.region_id, wsh.zone_id,
wsh.ac_delivery_criteria, wsh.rel_subinventory,
wsh.category_set_id, wsh.category_id,
wsh.sch_start_days, wsh.sch_end_days, wsh.sch_start_hours, wsh.sch_end_hours,
wsh.req_start_days, wsh.req_end_days, wsh.req_start_hours, wsh.req_end_hours,
wsh.append_flag, wsh.task_priority, wsh.allocation_method,
wsh.crossdock_criteria_id, wsh.dynamic_replenishment_flag,
wsh.client_id, wsh.client_name
FROM ( ... 複雜多表聯查，涉及 wsh_picking_rules, mtl_parameters, hr_all_organization_units_tl,
hz_parties, hz_cust_accounts, fnd_lookup_values, oe_sets,
wsh_pick_grouping_rules, wsh_pick_sequence_rules, oe_transaction_types_tl,
oe_transaction_types_all, oe_order_headers_all, wsh_locations,
wsh_report_sets, wsh_ship_confirm_rules, mtl_system_items_b,
fnd_lookup_values, mtl_client_parameters_v ) wsh
WHERE picking_rule_name = :control.pick_rule
ORDER BY wsh.picking_rule_name;
-- 區域變數宣告
l_document_set_id NUMBER;
l_append_flag VARCHAR2(1);
l_row_id VARCHAR2(50);
l_order_header_id NUMBER;
l_order_type VARCHAR2(240);
l_customer_name VARCHAR2(240);
l_order_type_id NUMBER;
l_customer_id NUMBER;
l_batch_name VARCHAR2(240);
l_organization_id NUMBER;
l_request_id NUMBER;
l_org_id NUMBER;
BEGIN
-- 1. 取得訂單頭資訊
BEGIN
SELECT DISTINCT otl.name, substrb(party.party_name, 1, 50) customer_name,
wdd.source_header_type_id, cust_acct.cust_account_id customer_id,
wdd.organization_id, wdd.org_id
INTO l_order_type, l_customer_name, l_order_type_id, l_customer_id,
l_organization_id, l_org_id
FROM wsh_delivery_details wdd, hz_parties party, hz_cust_accounts cust_acct,
oe_transaction_types_tl otl
WHERE wdd.customer_id = cust_acct.cust_account_id
AND cust_acct.party_id = party.party_id
AND otl.language = userenv('LANG')
AND otl.transaction_type_id = wdd.source_header_type_id
AND wdd.source_header_id = :query_find.header_id
AND wdd.source_code = 'OE'
AND wdd.released_status IN ('B', 'R', 'X');
EXCEPTION WHEN OTHERS THEN NULL;
END;
-- 2. 迴圈處理每筆符合條件的揀貨規則資料
FOR rec_data IN cur_data(l_organization_id) LOOP
-- 判斷發放模式：線上或並行
IF l_release_method IS NULL THEN
IF (nvl(l_release_online, 'N') = 'Y') AND (:query_find.header_id IS NOT NULL) THEN
l_release_method := 'O';
ELSE
l_release_method := 'C';
END IF;
END IF;
-- 文件集合預設值處理
IF l_release_method = 'O' THEN
NULL;
ELSE
IF rec_data.document_set_id IS NULL AND rec_data.doc_name IS NOT NULL THEN
l_document_set_id := fnd_profile.value('OE_PICKING_DOCUMENT_SET_DEFAULT');
END IF;
END IF;
-- 專案參考檢查
IF rec_data.organization_id IS NULL THEN
l_append_flag := 'N';
ELSE
OPEN enable_prop(rec_data.organization_id);
FETCH enable_prop INTO l_enable_flag;
CLOSE enable_prop;
END IF;
IF l_enable_flag = 'Y' THEN
l_return_code := pjm_project_locator.check_project_references(
p_organization_id => rec_data.organization_id,
p_locator_id => rec_data.default_stage_locator_id,
p_validation_mode => 'SPECIFIC',
p_required_flag => 'N',
p_project_id => rec_data.project_id,
p_task_id => rec_data.task_id);
IF l_return_code = FALSE THEN
fnd_message.retrieve;
fnd_message.error;
RAISE form_trigger_failure;
END IF;
END IF;
-- 3. 建立揀貨批次
IF l_return_code = TRUE THEN
wsh_picking_batches_pkg.insert_row(
x_rowid => l_row_id,
x_batch_id => x_batch_id,
p_creation_date => SYSDATE,
p_created_by => fnd_global.user_id,
p_last_update_date => SYSDATE,
p_last_updated_by => fnd_global.user_id,
p_last_update_login => fnd_global.login_id,
x_name => l_batch_name,
p_backorders_only_flag => rec_data.backorders_only_flag,
p_document_set_id => l_document_set_id,
p_existing_rsvs_only_flag => rec_data.existing_rsvs_only_flag,
p_shipment_priority_code => rec_data.shipment_priority_code,
p_ship_method_code => rec_data.ship_method_code,
p_customer_id => l_customer_id,
p_order_header_id => :query_find.header_id,
p_ship_set_number => rec_data.ship_set_id,
p_inventory_item_id => rec_data.inventory_item_id,
p_order_type_id => l_order_type_id,
p_from_requested_date => to_date(to_char(rec_data.from_requested_date, 'DD-MON-YYYY HH24:MI:SS'), 'DD-MON-YYYY HH24:MI:SS'),
p_to_requested_date => to_date(to_char(rec_data.to_requested_date, 'DD-MON-YYYY HH24:MI:SS'), 'DD-MON-YYYY HH24:MI:SS'),
p_from_scheduled_ship_date => to_date(to_char(rec_data.from_scheduled_ship_date, 'DD-MON-YYYY HH24:MI:SS'), 'DD-MON-YYYY HH24:MI:SS'),
p_to_scheduled_ship_date => to_date(to_char(rec_data.to_scheduled_ship_date, 'DD-MON-YYYY HH24:MI:SS'), 'DD-MON-YYYY HH24:MI:SS'),
p_ship_to_location_id => rec_data.ship_to_location_id,
p_ship_from_location_id => rec_data.ship_from_location_id,
p_trip_id => NULL,
p_delivery_id => NULL,
p_include_planned_lines => rec_data.include_planned_lines,
p_pick_grouping_rule_id => NULL,
p_pick_sequence_rule_id => NULL,
p_autocreate_delivery_flag => rec_data.autocreate_delivery_flag,
p_attribute_category => NULL,
p_attribute1 => NULL,
p_attribute2 => NULL,
p_attribute3 => NULL,
p_attribute4 => NULL,
p_attribute5 => NULL,
p_attribute6 => NULL,
p_attribute7 => NULL,
p_attribute8 => NULL,
p_attribute9 => NULL,
p_attribute10 => NULL,
p_attribute11 => NULL,
p_attribute12 => NULL,
p_attribute13 => NULL,
p_attribute14 => NULL,
p_attribute15 => NULL,
p_autodetail_pr_flag => rec_data.autodetail_pr_flag,
p_carrier_id => NULL,
p_trip_stop_id => NULL,
p_default_stage_subinventory => rec_data.default_stage_subinventory,
p_default_stage_locator_id => rec_data.default_stage_locator_id,
p_pick_from_subinventory => rec_data.pick_from_subinventory,
p_pick_from_locator_id => rec_data.pick_from_locator_id,
p_auto_pick_confirm_flag => rec_data.auto_pick_confirm_flag,
p_delivery_detail_id => NULL,
p_project_id => rec_data.project_id,
p_task_id => rec_data.task_id,
p_organization_id => rec_data.organization_id,
p_ship_confirm_rule_id => rec_data.ship_confirm_rule_id,
p_autopack_flag => rec_data.autopack_flag,
p_autopack_level => rec_data.autopack_level,
p_task_planning_flag => rec_data.task_planning_flag,
p_dynamic_replenishment_flag => rec_data.dynamic_replenishment_flag,
p_regionid => rec_data.region_id,
p_zoneid => rec_data.zone_id,
p_categoryid => rec_data.category_id,
p_categorysetid => rec_data.category_set_id,
p_acdelivcriteria => rec_data.ac_delivery_criteria,
p_relsubinventory => rec_data.rel_subinventory,
p_append_flag => l_append_flag,
p_task_priority => rec_data.task_priority,
p_actual_departure_date => NULL,
p_allocation_method => rec_data.allocation_method,
p_crossdock_criteria_id => rec_data.crossdock_criteria_id,
p_client_id => rec_data.client_id
);
END IF;
END LOOP;
-- 4. 提交並行請求執行揀單釋放
l_request_id := fnd_request.submit_request(
application => 'CUX',
program => 'CUXOMLPKP',
description => NULL,
start_time => SYSDATE,
sub_request => FALSE,
argument1 => x_batch_id,
argument2 => l_org_id,
argument3 => :query_find.header_id);
IF l_request_id IS NULL OR l_request_id = 0 THEN
fnd_message.set_string('提交挑庫選擇列表生成請求出錯.');
fnd_message.error;
RAISE form_trigger_failure;
ELSE
forms_ddl('COMMIT');
fnd_message.debug('挑庫發放成功,請查看請求.');
END IF;
END insert_row;
CUXOMLPKP 呼叫方式發放批次建立完成後，系統會呼叫標準 API wsh_picking_batches_pkg.submit_release_request 提交揀單生成請求：
l_request_id := wsh_picking_batches_pkg.submit_release_request(
p_batch_id => p_batch_id,
p_log_level => 0,
p_num_workers => nvl(fnd_profile.value('WSH_PR_NUM_WORKERS'), 1));
IF l_request_id IS NULL OR l_request_id = 0 THEN
errbuf := '提交挑庫選擇列表生成請求出錯.';
retcode := '2';
RETURN;
END IF;
SHP_PICK_RELEASE_ONLINE 決定。pjm_project_locator.check_project_references 驗證專案/任務參考有效性。wsh_picking_batches_pkg.insert_row 建立揀貨批次記錄，參數高達 60+ 個。fnd_request.submit_request 提交並行程式，實現大量訂單的背景發放處理。理解上述流程與程式碼結構，有助於在客製化開發、效能調優或問題排查時快速定位關鍵邏輯點。
