96 lines
3.8 KiB
Transact-SQL
96 lines
3.8 KiB
Transact-SQL
-- 现场总装数据库：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
|