feat(hjgl):新增防腐管理

2026-06-15 18:06:19 +08:00
parent 74ce2df18a
commit bd1033ee27
32 changed files with 3866 additions and 454 deletions
@@ -0,0 +1,119 @@
+/*
+防腐委托单建表脚本
+执行后请手动重新生成 LINQ to SQL 模型。
+*/
+
+IF OBJECT_ID(N'dbo.Tw_AntiCorrosionTrust', N'U') IS NULL
+BEGIN
+    CREATE TABLE dbo.Tw_AntiCorrosionTrust
+    (
+        Id NVARCHAR(50) NOT NULL CONSTRAINT PK_Tw_AntiCorrosionTrust PRIMARY KEY,
+        ProjectId NVARCHAR(50) NOT NULL,
+        UnitWorkId NVARCHAR(50) NOT NULL,
+        ConstructionPart NVARCHAR(200) NULL,
+        ConstructionProfessional NVARCHAR(100) NULL,
+        TrustCode NVARCHAR(200) NOT NULL,
+        OutputMasterId NVARCHAR(50) NOT NULL,
+        DemandDate DATETIME NULL,
+        CompleteDate DATETIME NULL,
+        CreateMan NVARCHAR(50) NULL,
+        CreateDate DATETIME NULL,
+        Remark NVARCHAR(500) NULL
+    );
+END;
+GO
+
+IF OBJECT_ID(N'dbo.Tw_AntiCorrosionTrustDetail', N'U') IS NULL
+BEGIN
+    CREATE TABLE dbo.Tw_AntiCorrosionTrustDetail
+    (
+        Id NVARCHAR(50) NOT NULL CONSTRAINT PK_Tw_AntiCorrosionTrustDetail PRIMARY KEY,
+        TrustId NVARCHAR(50) NOT NULL,
+        SortIndex INT NULL,
+        MaterialCode NVARCHAR(50) NOT NULL,
+        Quantity DECIMAL(18, 4) NULL,
+        PaintCode NVARCHAR(50) NULL,
+        Primer NVARCHAR(300) NULL,
+        IntermediatePaint NVARCHAR(300) NULL,
+        Topcoat NVARCHAR(300) NULL,
+        ColorCode NVARCHAR(100) NULL,
+        Remark NVARCHAR(500) NULL
+    );
+END;
+GO
+
+IF OBJECT_ID(N'dbo.Tw_PaintCodeDict', N'U') IS NULL
+BEGIN
+    CREATE TABLE dbo.Tw_PaintCodeDict
+    (
+        Id NVARCHAR(50) NOT NULL CONSTRAINT PK_Tw_PaintCodeDict PRIMARY KEY,
+        PaintCode NVARCHAR(50) NOT NULL,
+        Primer NVARCHAR(300) NULL,
+        IntermediatePaint NVARCHAR(300) NULL,
+        Topcoat NVARCHAR(300) NULL,
+        ColorCode NVARCHAR(100) NULL,
+        SortIndex INT NULL,
+        IsUsed BIT NOT NULL CONSTRAINT DF_Tw_PaintCodeDict_IsUsed DEFAULT(1)
+    );
+END;
+GO
+
+IF NOT EXISTS (SELECT 1 FROM sys.indexes WHERE name = N'UX_Tw_AntiCorrosionTrust_Project_TrustCode' AND object_id = OBJECT_ID(N'dbo.Tw_AntiCorrosionTrust'))
+BEGIN
+    CREATE UNIQUE INDEX UX_Tw_AntiCorrosionTrust_Project_TrustCode
+    ON dbo.Tw_AntiCorrosionTrust(ProjectId, TrustCode);
+END;
+GO
+
+IF NOT EXISTS (SELECT 1 FROM sys.indexes WHERE name = N'UX_Tw_AntiCorrosionTrust_OutputMasterId' AND object_id = OBJECT_ID(N'dbo.Tw_AntiCorrosionTrust'))
+BEGIN
+    CREATE UNIQUE INDEX UX_Tw_AntiCorrosionTrust_OutputMasterId
+    ON dbo.Tw_AntiCorrosionTrust(OutputMasterId);
+END;
+GO
+
+IF NOT EXISTS (SELECT 1 FROM sys.indexes WHERE name = N'IX_Tw_AntiCorrosionTrust_Project_UnitWork' AND object_id = OBJECT_ID(N'dbo.Tw_AntiCorrosionTrust'))
+BEGIN
+    CREATE INDEX IX_Tw_AntiCorrosionTrust_Project_UnitWork
+    ON dbo.Tw_AntiCorrosionTrust(ProjectId, UnitWorkId);
+END;
+GO
+
+IF NOT EXISTS (SELECT 1 FROM sys.indexes WHERE name = N'IX_Tw_AntiCorrosionTrustDetail_TrustId' AND object_id = OBJECT_ID(N'dbo.Tw_AntiCorrosionTrustDetail'))
+BEGIN
+    CREATE INDEX IX_Tw_AntiCorrosionTrustDetail_TrustId
+    ON dbo.Tw_AntiCorrosionTrustDetail(TrustId, SortIndex);
+END;
+GO
+
+IF NOT EXISTS (SELECT 1 FROM sys.indexes WHERE name = N'UX_Tw_PaintCodeDict_PaintCode' AND object_id = OBJECT_ID(N'dbo.Tw_PaintCodeDict'))
+BEGIN
+    CREATE UNIQUE INDEX UX_Tw_PaintCodeDict_PaintCode
+    ON dbo.Tw_PaintCodeDict(PaintCode);
+END;
+GO
+
+IF NOT EXISTS (SELECT 1 FROM dbo.Tw_PaintCodeDict WHERE PaintCode = N'A.1')
+BEGIN
+    INSERT INTO dbo.Tw_PaintCodeDict (Id, PaintCode, Primer, IntermediatePaint, Topcoat, ColorCode, SortIndex)
+    VALUES (CONVERT(NVARCHAR(50), NEWID()), N'A.1', N'无机富锌硅酸盐涂层(60μm)', N'聚酰胺环氧树脂涂层(125μm)', N'/', N'无', 1);
+END;
+
+IF NOT EXISTS (SELECT 1 FROM dbo.Tw_PaintCodeDict WHERE PaintCode = N'A.2')
+BEGIN
+    INSERT INTO dbo.Tw_PaintCodeDict (Id, PaintCode, Primer, IntermediatePaint, Topcoat, ColorCode, SortIndex)
+    VALUES (CONVERT(NVARCHAR(50), NEWID()), N'A.2', N'环氧酚醛树脂涂层(100μm)', N'/', N'/', N'无', 2);
+END;
+
+IF NOT EXISTS (SELECT 1 FROM dbo.Tw_PaintCodeDict WHERE PaintCode = N'B.1')
+BEGIN
+    INSERT INTO dbo.Tw_PaintCodeDict (Id, PaintCode, Primer, IntermediatePaint, Topcoat, ColorCode, SortIndex)
+    VALUES (CONVERT(NVARCHAR(50), NEWID()), N'B.1', N'无机富锌硅酸盐涂层(60μm)', N'铝硅涂层(25μm)', N'/', N'无', 3);
+END;
+
+IF NOT EXISTS (SELECT 1 FROM dbo.Tw_PaintCodeDict WHERE PaintCode = N'B.2')
+BEGIN
+    INSERT INTO dbo.Tw_PaintCodeDict (Id, PaintCode, Primer, IntermediatePaint, Topcoat, ColorCode, SortIndex)
+    VALUES (CONVERT(NVARCHAR(50), NEWID()), N'B.2', N'无机富锌硅酸盐涂层(60μm)', N'铝硅涂层(25μm)', N'/', N'无', 4);
+END;
+GO