chore: initial commit

DatabaseScripts/AGV举升回调_现场总装.sql

@@ -0,0 +1,95 @@
+-- 现场总装数据库：MESBasicDB_XD_ZZ
+-- 用途：支持 AGV lower/raise 回调与 PLC 允许下降/举升放行查询。
+-- 说明：请在目标库手工执行。本脚本不直接修改 AGV_光栅请求记录 表结构。
+
+SET NOCOUNT ON;
+GO
+
+-- 1. 增加变量类型代码。500/501 是 MES 写 PLC 请求位，550/551 是 PLC 允许位。
+IF NOT EXISTS (SELECT 1 FROM [dbo].[MES_基本变量变量类型代码] WHERE [变量类型代码] = 500)
+BEGIN
+    INSERT INTO [dbo].[MES_基本变量变量类型代码]
+        ([变量类型], [TagTypeDataType], [TagName], [变量类型代码], [TagTypeChange], [MesTagTypeChange], [WebTagTypeChange], [信号点名称], [变量类型名称])
+    VALUES
+        (N'X', 11, N'AGV请求下降', 500, 1, 0, 1, N'AGV请求下降', N'AGV请求下降');
+END
+
+IF NOT EXISTS (SELECT 1 FROM [dbo].[MES_基本变量变量类型代码] WHERE [变量类型代码] = 501)
+BEGIN
+    INSERT INTO [dbo].[MES_基本变量变量类型代码]
+        ([变量类型], [TagTypeDataType], [TagName], [变量类型代码], [TagTypeChange], [MesTagTypeChange], [WebTagTypeChange], [信号点名称], [变量类型名称])
+    VALUES
+        (N'X', 11, N'AGV请求举升', 501, 1, 0, 1, N'AGV请求举升', N'AGV请求举升');
+END
+
+IF NOT EXISTS (SELECT 1 FROM [dbo].[MES_基本变量变量类型代码] WHERE [变量类型代码] = 550)
+BEGIN
+    INSERT INTO [dbo].[MES_基本变量变量类型代码]
+        ([变量类型], [TagTypeDataType], [TagName], [变量类型代码], [TagTypeChange], [MesTagTypeChange], [WebTagTypeChange], [信号点名称], [变量类型名称])
+    VALUES
+        (N'X', 11, N'允许AGV下降', 550, 1, 0, 1, N'允许AGV下降', N'允许AGV下降');
+END
+
+IF NOT EXISTS (SELECT 1 FROM [dbo].[MES_基本变量变量类型代码] WHERE [变量类型代码] = 551)
+BEGIN
+    INSERT INTO [dbo].[MES_基本变量变量类型代码]
+        ([变量类型], [TagTypeDataType], [TagName], [变量类型代码], [TagTypeChange], [MesTagTypeChange], [WebTagTypeChange], [信号点名称], [变量类型名称])
+    VALUES
+        (N'X', 11, N'允许AGV举升', 551, 1, 0, 1, N'允许AGV举升', N'允许AGV举升');
+END
+GO
+
+-- 2. 扩展 AGV continueTask 放行查询。
+-- apply/release 保持原有 XD_库位Moby 查询。
+-- lower/raise 从 AGV_光栅请求记录 取最新未允许或最近请求，避免改动 XD_库位Moby 与历史表列顺序。
+ALTER PROCEDURE [dbo].[AGV_允许进入离开_查询]
+    @opName nvarchar(50) = 'AC0901-02',
+    @engineID nvarchar(50) = '0',
+    @type nvarchar(50) = 'apply'
+AS
+BEGIN
+    SET NOCOUNT ON;
+
+    IF (@type = 'apply')
+    BEGIN
+        SELECT [进入req] AS reqCode, [进入task] AS taskCode
+        FROM [dbo].[XD_库位Moby]
+        WHERE [库位号] = @opName
+          AND [AGV请求进入时间] IS NOT NULL;
+    END
+
+    IF (@type = 'release')
+    BEGIN
+        SELECT [离开req] AS reqCode, [离开task] AS taskCode
+        FROM [dbo].[XD_库位Moby]
+        WHERE [库位号] = @opName
+          AND [AGV请求离开时间] IS NOT NULL;
+    END
+
+    IF (@type = 'lower')
+    BEGIN
+        SELECT TOP 1 [reqCode], [taskCode]
+        FROM [dbo].[AGV_光栅请求记录]
+        WHERE [method] = 'lower'
+          AND (
+                [currentPositionCode] = @opName
+                OR [currentPositionCode] LIKE @opName + N'[_]%'
+                OR [wbCode] = @opName
+              )
+        ORDER BY ISNULL([是否允许], 0) ASC, [创建时间] DESC, [ID] DESC;
+    END
+
+    IF (@type = 'raise')
+    BEGIN
+        SELECT TOP 1 [reqCode], [taskCode]
+        FROM [dbo].[AGV_光栅请求记录]
+        WHERE [method] = 'raise'
+          AND (
+                [currentPositionCode] = @opName
+                OR [currentPositionCode] LIKE @opName + N'[_]%'
+                OR [wbCode] = @opName
+              )
+        ORDER BY ISNULL([是否允许], 0) ASC, [创建时间] DESC, [ID] DESC;
+    END
+END
+GO