zyr/FT546MWS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: prepare warehouse 01 floor 1 inbound pilot

Browse Source
This commit is contained in:
zgw
2026-09-16 14:12:12 +08:00
parent 2632a57d73
commit 1225cf7287
25 changed files with 1465 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
scripts/layer1-inbound-pilot/README.md Normal file
View File

@@ -0,0 +1,31 @@
# Warehouse 01 Floor 1 Inbound Pilot
This directory is a preparation package. Do not enable the pilot during preparation.
## Prepared state
- `FORTUCKY_INBOUND_PILOT_ENABLED=false`
- Legacy remains the only inbound writer.
- The pilot scope is fixed to warehouse `01`, floor `1`. A different configured warehouse or floor disables pilot routing.
- No database script in this directory is run automatically.
- Outbound, relocation, other floors, and other warehouses are unchanged.
## Later maintenance-window order
1. Confirm the current WMS is stopped and retain its known-good IDEA configuration.
2. Run `install-layer1-inbound-pilot.cmd "lpc:." "FT546-wms"`.
3. Run `check-layer1-inbound-pilot.cmd "lpc:." "FT546-wms"` and retain the output.
4. Start the candidate with `FORTUCKY_INBOUND_PILOT_ENABLED=false` and verify normal Legacy operation.
5. Only after a separate approval, restart with `FORTUCKY_INBOUND_PILOT_ENABLED=true`.
## Immediate application rollback
Stop the candidate and restart it with `FORTUCKY_INBOUND_PILOT_ENABLED=false`. This restores Legacy-only routing. The procedure can remain installed because the disabled application never calls it.
After the pilot is disabled, optional database cleanup is:
```cmd
rollback-layer1-inbound-pilot.cmd "lpc:." "FT546-wms" CONFIRM_LAYER1_PILOT_ROLLBACK
```
The rollback SQL rejects every database except `FT546-wms` and drops only the procedure carrying the package ownership marker.

11
scripts/layer1-inbound-pilot/check-layer1-inbound-pilot.cmd Normal file
View File

@@ -0,0 +1,11 @@
@echo off
setlocal
if "%~2"=="" (
echo Usage: %~nx0 SQL_SERVER DATABASE
exit /b 2
)
set "SCRIPT_DIR=%~dp0"
sqlcmd -S "%~1" -d "%~2" -E -b -r1 -i "%SCRIPT_DIR%check-layer1-inbound-pilot.sql"
if errorlevel 1 exit /b 1
echo LAYER1_INBOUND_PILOT_CHECK_OK
exit /b 0

31
scripts/layer1-inbound-pilot/check-layer1-inbound-pilot.sql Normal file
View File

@@ -0,0 +1,31 @@
SET NOCOUNT ON;
SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED;
IF DB_NAME() <> N'FT546-wms'
THROW 51130, 'Layer1 pilot check requires FT546-wms', 1;
IF OBJECT_ID(N'dbo.proc_allot_layer1_inbound_pilot', N'P') IS NULL
THROW 51131, 'Layer1 pilot procedure is missing', 1;
DECLARE @definition nvarchar(max) =
OBJECT_DEFINITION(OBJECT_ID(N'dbo.proc_allot_layer1_inbound_pilot'));
IF CHARINDEX(N'LAYER1_INBOUND_PILOT_V1', @definition) = 0
THROW 51132, 'Layer1 pilot procedure has unknown ownership', 1;
IF CHARINDEX(N'LAYER1_INBOUND_PILOT_STUB', @definition) > 0
THROW 51133, 'Layer1 pilot procedure is an incomplete installation stub', 1;
IF OBJECT_ID(N'alg.shadow_snapshot_state', N'U') IS NULL
OR OBJECT_ID(N'alg.cargo_space_snapshot', N'U') IS NULL
OR OBJECT_ID(N'alg.decision_log', N'U') IS NULL
THROW 51134, 'Required shadow objects are missing', 1;
SELECT DB_NAME() AS database_name, 'READY' AS procedure_state;
SELECT warehouse_id, snapshot_generation, snapshot_status, synchronized_at,
DATEDIFF(SECOND, synchronized_at, SYSUTCDATETIME()) AS snapshot_age_seconds
FROM alg.shadow_snapshot_state
WHERE warehouse_id = '01';
SELECT COUNT(*) AS floor1_total,
SUM(CASE WHEN status = '1' AND locked = 'N'
AND NULLIF(LTRIM(RTRIM(tray_code)), '') IS NULL THEN 1 ELSE 0 END) AS floor1_live_available
FROM dbo.bas_cargo_space
WHERE warehouse_id = '01' AND TRY_CONVERT(int, the_floor) = 1;

17
scripts/layer1-inbound-pilot/idea-template/FT546WMS-LAYER1-PILOT-DISABLED.run.xml.disabled Normal file
View File

@@ -0,0 +1,17 @@
<component name="ProjectRunConfigurationManager">
<configuration default="false" name="FT546WMS-LAYER1-PILOT-DISABLED" type="Application" factoryName="Application">
<envs>
<env name="FORTUCKY_SHADOW_ENABLED" value="true" />
<env name="FORTUCKY_ALGORITHM_MODE" value="SHADOW" />
<env name="FORTUCKY_ALGORITHM_WAREHOUSE_ID" value="01" />
<env name="FORTUCKY_INBOUND_PILOT_ENABLED" value="false" />
<env name="FORTUCKY_INBOUND_PILOT_WAREHOUSE_ID" value="01" />
<env name="FORTUCKY_INBOUND_PILOT_FLOOR" value="1" />
</envs>
<option name="MAIN_CLASS_NAME" value="com.ruoyi.RuoYiApplication" />
<module name="ruoyi-admin" />
<method v="2">
<option name="Make" enabled="true" />
</method>
</configuration>
</component>

14
scripts/layer1-inbound-pilot/install-layer1-inbound-pilot.cmd Normal file
View File

@@ -0,0 +1,14 @@
@echo off
setlocal
if "%~2"=="" (
echo Usage: %~nx0 SQL_SERVER DATABASE
exit /b 2
)
set "SCRIPT_DIR=%~dp0"
echo Installing disabled-by-default floor 1 pilot database procedure...
sqlcmd -S "%~1" -d "%~2" -E -b -r1 -i "%SCRIPT_DIR%install-layer1-inbound-pilot.sql"
if errorlevel 1 exit /b 1
call "%SCRIPT_DIR%check-layer1-inbound-pilot.cmd" "%~1" "%~2"
if errorlevel 1 exit /b 1
echo LAYER1_INBOUND_PILOT_INSTALL_OK
exit /b 0

316
scripts/layer1-inbound-pilot/install-layer1-inbound-pilot.sql Normal file
View File

@@ -0,0 +1,316 @@
/* LAYER1_INBOUND_PILOT_V1 - SQL Server 2016 RTM compatible. */
SET NOCOUNT ON;
SET XACT_ABORT ON;
IF DB_NAME() <> N'FT546-wms'
THROW 51100, 'Layer1 pilot installer requires FT546-wms', 1;
IF SCHEMA_ID(N'alg') IS NULL
OR OBJECT_ID(N'alg.shadow_snapshot_state', N'U') IS NULL
OR OBJECT_ID(N'alg.cargo_space_snapshot', N'U') IS NULL
OR OBJECT_ID(N'alg.decision_log', N'U') IS NULL
THROW 51101, 'Shadow v3 snapshot objects are required', 1;
IF OBJECT_ID(N'dbo.mydo_job', N'U') IS NULL
OR OBJECT_ID(N'dbo.mydo_job_detail', N'U') IS NULL
OR OBJECT_ID(N'dbo.bas_cargo_space', N'U') IS NULL
OR OBJECT_ID(N'dbo.bas_stock', N'U') IS NULL
OR OBJECT_ID(N'dbo.bas_led', N'U') IS NULL
THROW 51102, 'Required Legacy WMS objects are missing', 1;
IF OBJECT_ID(N'dbo.proc_allot_layer1_inbound_pilot', N'P') IS NULL
BEGIN
EXEC(N'CREATE PROCEDURE dbo.proc_allot_layer1_inbound_pilot AS
BEGIN
SET NOCOUNT ON;
/* LAYER1_INBOUND_PILOT_V1 LAYER1_INBOUND_PILOT_STUB */
THROW 51103, ''Layer1 pilot installation did not complete'', 1;
END;');
END
ELSE IF CHARINDEX(N'LAYER1_INBOUND_PILOT_V1',
OBJECT_DEFINITION(OBJECT_ID(N'dbo.proc_allot_layer1_inbound_pilot'))) = 0
THROW 51104, 'Refusing to replace an unowned procedure', 1;
GO
/* LAYER1_INBOUND_PILOT_V1 */
ALTER PROCEDURE dbo.proc_allot_layer1_inbound_pilot
@v_task_no varchar(80),
@v_tray_code varchar(80),
@v_code varchar(80),
@v_space_id varchar(80),
@v_warehouse_id varchar(80),
@v_floor int,
@v_snapshot_generation bigint,
@v_snapshot_max_age_seconds int,
@v_result int OUTPUT,
@v_resultmsg varchar(255) OUTPUT,
@v_final_space_id varchar(80) OUTPUT
AS
BEGIN
SET NOCOUNT ON;
SET XACT_ABORT ON;
SET @v_result = 90;
SET @v_resultmsg = 'PILOT_NOT_COMPLETED';
SET @v_final_space_id = NULL;
IF @v_warehouse_id <> '01' OR @v_floor <> 1
BEGIN
SET @v_result = 30;
SET @v_resultmsg = 'PILOT_SCOPE_REJECTED';
RETURN;
END;
IF @v_snapshot_generation <= 0 OR @v_snapshot_max_age_seconds NOT BETWEEN 5 AND 300
BEGIN
SET @v_result = 31;
SET @v_resultmsg = 'PILOT_CONFIGURATION_REJECTED';
RETURN;
END;
DECLARE @current_generation bigint;
DECLARE @snapshot_status varchar(20);
DECLARE @snapshot_time datetime2;
DECLARE @job_count int;
DECLARE @tray_job_count int;
DECLARE @job_id varchar(80);
DECLARE @existing_space_id varchar(80);
DECLARE @lane_code varchar(80);
DECLARE @actual_floor int;
DECLARE @depth int;
DECLARE @lane_row_count int;
DECLARE @start_time varchar(80) = CONVERT(varchar, GETDATE(), 120);
DECLARE @product_id nvarchar(max);
DECLARE @product_name nvarchar(max);
DECLARE @quantity nvarchar(max);
DECLARE @spec nvarchar(max);
BEGIN TRY
BEGIN TRANSACTION;
SELECT @current_generation = snapshot_generation,
@snapshot_status = snapshot_status,
@snapshot_time = synchronized_at
FROM alg.shadow_snapshot_state WITH (UPDLOCK, HOLDLOCK)
WHERE warehouse_id = @v_warehouse_id;
IF @current_generation IS NULL
OR @current_generation <> @v_snapshot_generation
OR @snapshot_status <> 'PUBLISHED'
OR @snapshot_time IS NULL
OR DATEDIFF(SECOND, @snapshot_time, SYSUTCDATETIME()) NOT BETWEEN 0 AND @v_snapshot_max_age_seconds
BEGIN
ROLLBACK TRANSACTION;
SET @v_result = 21;
SET @v_resultmsg = 'SNAPSHOT_STALE_OR_CHANGED';
RETURN;
END;
SELECT @job_count = COUNT(*),
@job_id = MAX(job_id),
@existing_space_id = MAX(NULLIF(LTRIM(RTRIM(cargo_space_id)), ''))
FROM dbo.mydo_job WITH (UPDLOCK, HOLDLOCK)
WHERE task_no = @v_task_no
AND tray_code = @v_tray_code
AND warehouse_id = @v_warehouse_id
AND TRY_CONVERT(int, in_or_out) < 20;
SELECT @tray_job_count = COUNT(*)
FROM dbo.mydo_job WITH (UPDLOCK, HOLDLOCK)
WHERE tray_code = @v_tray_code
AND TRY_CONVERT(int, in_or_out) < 20;
IF @job_count <> 1 OR @tray_job_count <> 1
BEGIN
ROLLBACK TRANSACTION;
SET @v_result = 20;
SET @v_resultmsg = 'JOB_OR_TRAY_SCOPE_CHANGED';
RETURN;
END;
IF @existing_space_id IS NOT NULL
BEGIN
ROLLBACK TRANSACTION;
SET @v_final_space_id = @existing_space_id;
SET @v_result = CASE WHEN @existing_space_id = @v_space_id THEN 11 ELSE 12 END;
SET @v_resultmsg = 'JOB_ALREADY_ALLOCATED';
RETURN;
END;
SELECT @lane_code = group_coding_no,
@actual_floor = TRY_CONVERT(int, the_floor),
@depth = TRY_CONVERT(int, group_coding)
FROM dbo.bas_cargo_space WITH (UPDLOCK, HOLDLOCK)
WHERE cargo_space_id = @v_space_id
AND warehouse_id = @v_warehouse_id
AND TRY_CONVERT(int, the_floor) = @v_floor
AND status = '1'
AND locked = 'N'
AND NULLIF(LTRIM(RTRIM(tray_code)), '') IS NULL
AND this_cargo_area IN ('A', 'C');
IF @lane_code IS NULL OR @depth IS NULL OR @actual_floor <> @v_floor
BEGIN
ROLLBACK TRANSACTION;
SET @v_result = 22;
SET @v_resultmsg = 'SPACE_CONFLICT';
RETURN;
END;
IF NOT EXISTS (
SELECT 1
FROM alg.cargo_space_snapshot WITH (READCOMMITTEDLOCK)
WHERE warehouse_id = @v_warehouse_id
AND snapshot_generation = @v_snapshot_generation
AND space_id = @v_space_id
AND lane_code = @lane_code
AND TRY_CONVERT(int, floor_no) = @v_floor
AND space_status = '1'
AND locked = 'N'
AND NULLIF(LTRIM(RTRIM(tray_code)), '') IS NULL)
BEGIN
ROLLBACK TRANSACTION;
SET @v_result = 22;
SET @v_resultmsg = 'SPACE_NOT_IN_PLANNED_SNAPSHOT';
RETURN;
END;
/* Lock the complete live lane before checking continuity and obstruction. */
SELECT @lane_row_count = COUNT(*)
FROM dbo.bas_cargo_space WITH (UPDLOCK, HOLDLOCK)
WHERE warehouse_id = @v_warehouse_id AND group_coding_no = @lane_code;
IF @lane_row_count = 0
BEGIN
ROLLBACK TRANSACTION;
SET @v_result = 23;
SET @v_resultmsg = 'LANE_NOT_FOUND';
RETURN;
END;
IF EXISTS (
SELECT 1 FROM dbo.bas_stock WITH (UPDLOCK, HOLDLOCK)
WHERE cargo_space_id = @v_space_id)
OR EXISTS (
SELECT 1 FROM dbo.mydo_job WITH (UPDLOCK, HOLDLOCK)
WHERE job_id <> @job_id
AND (cargo_space_id = @v_space_id OR target_cargo_space_id = @v_space_id))
BEGIN
ROLLBACK TRANSACTION;
SET @v_result = 22;
SET @v_resultmsg = 'SPACE_ALREADY_OWNED';
RETURN;
END;
IF EXISTS (
SELECT 1
FROM dbo.bas_cargo_space WITH (UPDLOCK, HOLDLOCK)
WHERE warehouse_id = @v_warehouse_id
AND TRY_CONVERT(int, the_floor) = @v_floor
AND status = '3')
OR EXISTS (
SELECT 1
FROM dbo.bas_cargo_space WITH (UPDLOCK, HOLDLOCK)
WHERE warehouse_id = @v_warehouse_id
AND group_coding_no = @lane_code
AND (status IN ('3', '4') OR locked = 'Y'))
OR EXISTS (
SELECT 1
FROM dbo.mydo_job outbound_job WITH (UPDLOCK, HOLDLOCK)
JOIN dbo.bas_cargo_space source_space WITH (UPDLOCK, HOLDLOCK)
ON source_space.cargo_space_id = outbound_job.cargo_space_id
WHERE source_space.warehouse_id = @v_warehouse_id
AND source_space.group_coding_no = @lane_code
AND TRY_CONVERT(int, outbound_job.in_or_out) >= 20)
BEGIN
ROLLBACK TRANSACTION;
SET @v_result = 23;
SET @v_resultmsg = 'LANE_OBSTRUCTED_OR_ACTIVE';
RETURN;
END;
IF EXISTS (
SELECT 1
FROM dbo.bas_cargo_space inner_space WITH (UPDLOCK, HOLDLOCK)
WHERE inner_space.warehouse_id = @v_warehouse_id
AND inner_space.group_coding_no = @lane_code
AND TRY_CONVERT(int, inner_space.group_coding) < @depth
AND inner_space.status = '1'
AND inner_space.locked = 'N'
AND NULLIF(LTRIM(RTRIM(inner_space.tray_code)), '') IS NULL
AND NOT EXISTS (
SELECT 1 FROM dbo.bas_stock inner_stock WITH (UPDLOCK, HOLDLOCK)
WHERE inner_stock.cargo_space_id = inner_space.cargo_space_id))
BEGIN
ROLLBACK TRANSACTION;
SET @v_result = 23;
SET @v_resultmsg = 'LANE_INNER_SPACE_STILL_FREE';
RETURN;
END;
UPDATE dbo.mydo_job
SET cargo_space_id = @v_space_id,
status = '3',
start_time = @start_time,
class_id = CONVERT(varchar(5), @actual_floor)
WHERE job_id = @job_id
AND task_no = @v_task_no
AND tray_code = @v_tray_code
AND warehouse_id = @v_warehouse_id
AND TRY_CONVERT(int, in_or_out) < 20
AND NULLIF(LTRIM(RTRIM(cargo_space_id)), '') IS NULL;
IF @@ROWCOUNT <> 1
THROW 51110, 'PILOT_JOB_UPDATE_CONFLICT', 1;
UPDATE dbo.bas_cargo_space
SET status = '3'
WHERE cargo_space_id = @v_space_id
AND warehouse_id = @v_warehouse_id
AND status = '1'
AND locked = 'N'
AND NULLIF(LTRIM(RTRIM(tray_code)), '') IS NULL;
IF @@ROWCOUNT <> 1
THROW 51111, 'PILOT_SPACE_UPDATE_CONFLICT', 1;
IF @v_code IN ('L1004', 'L1005')
BEGIN
;WITH detail_summary AS (
SELECT product_id,
CAST(SUM(in_quantity) AS varchar) AS sum_quantity,
spec,
product_name
FROM dbo.mydo_job_detail
WHERE job_id = @job_id
GROUP BY product_id, spec, product_name
)
SELECT @product_id = STUFF((SELECT ',' + product_id FROM detail_summary FOR XML PATH(''), TYPE).value('.', 'nvarchar(max)'), 1, 1, ''),
@product_name = STUFF((SELECT ',' + product_name FROM detail_summary FOR XML PATH(''), TYPE).value('.', 'nvarchar(max)'), 1, 1, ''),
@quantity = STUFF((SELECT ',' + sum_quantity FROM detail_summary FOR XML PATH(''), TYPE).value('.', 'nvarchar(max)'), 1, 1, ''),
@spec = STUFF((SELECT ',' + spec FROM detail_summary FOR XML PATH(''), TYPE).value('.', 'nvarchar(max)'), 1, 1, '');
UPDATE dbo.bas_led
SET tray_code = @v_tray_code,
product_id = @product_id,
quantity = @quantity,
spec = @spec,
send_flag = 0,
model = 1,
product_name = @product_name
WHERE id = CASE WHEN @v_code = 'L1004' THEN 1 ELSE 2 END;
IF @@ROWCOUNT <> 1
THROW 51112, 'PILOT_LED_UPDATE_CONFLICT', 1;
END;
SET @v_final_space_id = @v_space_id;
SET @v_result = 10;
SET @v_resultmsg = 'SUCCESS';
COMMIT TRANSACTION;
END TRY
BEGIN CATCH
IF XACT_STATE() <> 0
ROLLBACK TRANSACTION;
THROW;
END CATCH;
END;
GO
SELECT 'LAYER1_INBOUND_PILOT_INSTALL_OK' AS result;
GO

16
scripts/layer1-inbound-pilot/rollback-layer1-inbound-pilot.cmd Normal file
View File

@@ -0,0 +1,16 @@
@echo off
setlocal
if "%~1"=="" goto :usage
if "%~2"=="" goto :usage
if /I not "%~3"=="CONFIRM_LAYER1_PILOT_ROLLBACK" (
goto :usage
)
set "SCRIPT_DIR=%~dp0"
sqlcmd -S "%~1" -d "%~2" -E -b -r1 -i "%SCRIPT_DIR%rollback-layer1-inbound-pilot.sql"
if errorlevel 1 exit /b 1
echo LAYER1_INBOUND_PILOT_ROLLBACK_OK
exit /b 0
:usage
echo Usage: %~nx0 SQL_SERVER DATABASE CONFIRM_LAYER1_PILOT_ROLLBACK
exit /b 2

16
scripts/layer1-inbound-pilot/rollback-layer1-inbound-pilot.sql Normal file
View File

@@ -0,0 +1,16 @@
/* LAYER1_INBOUND_PILOT_V1 rollback removes only the owned procedure. */
SET NOCOUNT ON;
SET XACT_ABORT ON;
IF DB_NAME() <> N'FT546-wms'
THROW 51119, 'Run this script only in FT546-wms', 1;
IF OBJECT_ID(N'dbo.proc_allot_layer1_inbound_pilot', N'P') IS NOT NULL
BEGIN
IF CHARINDEX(N'LAYER1_INBOUND_PILOT_V1',
OBJECT_DEFINITION(OBJECT_ID(N'dbo.proc_allot_layer1_inbound_pilot'))) = 0
THROW 51120, 'Refusing to drop an unowned procedure', 1;
DROP PROCEDURE dbo.proc_allot_layer1_inbound_pilot;
END;
SELECT 'LAYER1_INBOUND_PILOT_ROLLBACK_OK' AS result;