试压管理修改。增加试压看板，和试压包打印绑值

2025-09-27 00:35:29 +08:00
parent b41ed9caef
commit 9e84ef4a3c
16 changed files with 1028 additions and 792 deletions
@@ -0,0 +1,96 @@
+CREATE VIEW dbo.View_HJGL_WeldJointDetectionType AS
+    WITH BaseData AS (
+        SELECT
+            jot.[ProjectId]                                         --项目Id
+            , jot.[PipelineCode]                                      --管线号
+            , pipe.DetectionType                                      --探伤类型Id(可能多个，中间用|分隔)
+            , pipe.PipelineId                                         --管线Id
+            , STUFF((SELECT ',' + DetectionTypeCode
+                     FROM Base_DetectionType
+                     WHERE CHARINDEX('|' + LTRIM(DetectionTypeId) + '|', '|' + pipe.DetectionType + '|') > 0
+                     FOR XML PATH('')), 1, 1, '') AS DetectionTypeStr --探伤类型（可能多个，中间用,分隔）
+            , (case when charindex('/', jot.WeldJointCode) > 0
+                then RIGHT(jot.WeldJointCode, CHARINDEX('/', REVERSE(jot.WeldJointCode)) - 1)
+                else jot.WeldJointCode end) as WeldJointNumStr
+            , jot.[WeldJointId]                                       --焊口Id
+            , jot.[WeldJointCode]                                     --焊口号
+        FROM [dbo].[HJGL_WeldJoint] jot
+        LEFT JOIN dbo.HJGL_Pipeline pipe ON pipe.PipelineId = jot.PipelineId
+    )
+    SELECT
+        ProjectId,
+        PipelineCode,
+        DetectionType,
+        DetectionTypeStr,
+        -- 修改后的JointDetectionTypeStr计算
+        (CASE
+            -- 当DetectionTypeStr仅为'/'时，返回'/'
+            WHEN DetectionTypeStr = '/' THEN '/'
+            -- 当WeldJointNumStr第一个字符是字母时
+            WHEN WeldJointNumStr LIKE '[A-Za-z]%' THEN
+                CASE
+                    -- 如果DetectionTypeStr包含'/'，则返回'/'后面的字符串
+                    WHEN CHARINDEX('/', DetectionTypeStr) > 0 THEN
+                        SUBSTRING(DetectionTypeStr, CHARINDEX('/', DetectionTypeStr) + 1, LEN(DetectionTypeStr))
+                    -- 如果不包含'/'，则返回整个DetectionTypeStr
+                    ELSE DetectionTypeStr
+                END
+            -- 当WeldJointNumStr第一个字符不是字母时，返回'/'前面的字符串
+            ELSE
+                CASE
+                    -- 如果DetectionTypeStr包含'/'，则返回'/'前面的字符串
+                    WHEN CHARINDEX('/', DetectionTypeStr) > 0 THEN
+                        LEFT(DetectionTypeStr, CHARINDEX('/', DetectionTypeStr) - 1)
+                    -- 如果不包含'/'，则返回整个DetectionTypeStr
+                    ELSE DetectionTypeStr
+                END
+        END) AS JointDetectionTypeStr,
+        -- 继续选择其他所有字段
+        WeldJointId,
+        WeldJointCode,
+        WeldJointNumStr
+    FROM BaseData
+
+GO
+
+CREATE TABLE [dbo].[Base_MaterialColor] (
+    [MaterialColorId] nvarchar(50) NOT NULL DEFAULT(NEWID()) PRIMARY KEY,
+    [UnitId] nvarchar(50),
+    [ProjectId] nvarchar(50),
+    [MaterialId] nvarchar(50) ,
+    [ColorName] NVARCHAR(50) ,
+    [ColorCardNo] NVARCHAR(50),
+    [RGB] NVARCHAR(20),
+    [Remark] NVARCHAR(200)
+);
+
+go
+exec sp_addextendedproperty 'MS_Description', N'单位id', 'SCHEMA', 'dbo', 'TABLE', 'Base_MaterialColor', 'COLUMN',
+     'UnitId'
+go
+
+exec sp_addextendedproperty 'MS_Description', N'材质id', 'SCHEMA', 'dbo', 'TABLE', 'Base_MaterialColor', 'COLUMN',
+     'MaterialId'
+go
+
+
+exec sp_addextendedproperty 'MS_Description', N'颜色名称', 'SCHEMA', 'dbo', 'TABLE', 'Base_MaterialColor', 'COLUMN',
+     'ColorName'
+go
+
+exec sp_addextendedproperty 'MS_Description', N'色卡号', 'SCHEMA', 'dbo', 'TABLE', 'Base_MaterialColor', 'COLUMN',
+     'ColorCardNo'
+go
+
+exec sp_addextendedproperty 'MS_Description', N'备注', 'SCHEMA', 'dbo', 'TABLE', 'Base_MaterialColor', 'COLUMN',
+     'Remark'
+go
+
+alter table dbo.HJGL_PackagingManageDetail
+    add TwOutputDetailId nvarchar(50)
+go
+
+exec sp_addextendedproperty 'MS_Description', N'出库明细表主键', 'SCHEMA', 'dbo', 'TABLE', 'HJGL_PackagingManageDetail',
+     'COLUMN', 'TwOutputDetailId'
+go
+