修改专项检查

2023-09-05 14:45:18 +08:00
parent 02e9796323
commit f7e17a792a
13 changed files with 440 additions and 43 deletions
@@ -0,0 +1,108 @@
+--安全的施工方案，url改成质量的施工方案
+update sys_menu set url='CQMS/Solution/ConstructSolution.aspx' 
+where url='HSSE/Solution/ConstructSolution.aspx' and menuname='施工方案' and MenuType='Menu_HSSE'
+
+--创建游标将安全施工方案的数据插入质量的施工方案表
+DECLARE @ConstructSolutionId nvarchar(50),
+@ProjectId nvarchar(50),
+@ConstructSolutionName nvarchar(50),--方案名称
+@UnitId nvarchar(50),--施工单位
+@SolutinType nvarchar(50),--方案类别
+@ConstructSolutionCode nvarchar(50),--编号
+@CompileDate datetime,--审批时间
+@CompileMan nvarchar(50),--审批人
+@States nvarchar(20),	--安全状态
+@State nvarchar(20)--质量状态
+
+
+DECLARE My_Cursor CURSOR --定义游标
+FOR ( SELECT ConstructSolutionId, ProjectId,UnitId,SolutinType,ConstructSolutionCode
+,ConstructSolutionName,CompileDate,CompileMan,States FROM Solution_ConstructSolution ) 
+OPEN My_Cursor;--打开游标 
+FETCH NEXT  FROM My_Cursor INTO @ConstructSolutionId,@ProjectId,@UnitId,@SolutinType,@ConstructSolutionCode,
+@ConstructSolutionName,
+@CompileDate,@CompileMan,@States;--读取第一行数据
+WHILE @@FETCH_STATUS=0
+ --这里对游标的状态进行判断，如果为0，证明游标中有值
+		BEGIN
+		--状态已完成
+		if(@States='2')
+		begin
+			set @State='3'--状态已闭合
+		end
+		else
+		begin
+			set @State='1'--未闭合
+		end
+
+		--基础数据插入质量的施工方案主表
+		INSERT INTO Solution_CQMSConstructSolution(ConstructSolutionId,ProjectId,Code
+		,SolutionName,UnitId,SolutionType,CompileDate,CompileMan,State)
+		values(@ConstructSolutionId,@ProjectId,@ConstructSolutionCode,
+		@ConstructSolutionName,@UnitId,@SolutinType,
+		@CompileDate,@CompileMan,@State);
+		--插入附件表
+		insert into AttachFile(AttachFileId,ToKeyId,AttachSource,AttachUrl,menuid,AttachPath,ImageByte)
+		select newid(),ToKeyId,AttachSource,AttachUrl,'91C4BFDB-0A51-4992-99CC-EB4EC185593D',AttachPath,ImageByte from AttachFile
+		where ToKeyId=@ConstructSolutionId 
+		
+
+		FETCH NEXT 
+		FROM
+			My_Cursor INTO @ConstructSolutionId,@ProjectId,@UnitId,@SolutinType,@ConstructSolutionCode,
+		@ConstructSolutionName,
+		@CompileDate,@CompileMan,@States;
+		
+	END CLOSE My_Cursor;--关闭游标
+DEALLOCATE My_Cursor;--释放游标
+GO
+
+--insert into Technique_CheckItemSet(CheckItemSetId,CheckItemName,SupCheckItem,CheckType,MapCode,IsEndLever,SortIndex)
+--values('43594e1e-66e2-4664-bad7-feb12ea4844a','综合类','0','2','10','0','4')
+--删除专项检查类别 -综合类型 -新型肺炎防控
+delete from Check_CheckSpecial  where CheckItemSetId='43594e1e-66e2-4664-bad7-feb12ea4844a'
+delete from Technique_CheckItemSet where CheckItemSetId='43594e1e-66e2-4664-bad7-feb12ea4844a'
+go
+delete from Check_CheckSpecial  where CheckItemSetId='4324d0f5-cf7b-4e89-be56-45ba131f5f2f'
+delete from Technique_CheckItemSet where CheckItemSetId='4324d0f5-cf7b-4e89-be56-45ba131f5f2f'
+go
+
+--增加专项检查明细项字段-检查项内容、整改期限
+alter table Check_CheckSpecialDetail add CheckItemSetId nvarchar(50)  null;
+alter table Check_CheckSpecialDetail add CheckItemSetContent nvarchar(3000)  null;
+alter table Check_CheckSpecialDetail add Rectification_Date datetime  null;
+go
+
+--为视图增加列
+/*LEFT JOIN Sys_Const AS const ON const.ConstValue = detail.HandleStep and const.GroupId='HandleStep'*/
+ALTER VIEW [dbo].[View_CheckSpecialDetail]
+AS
+SELECT  detail.CheckSpecialDetailId, detail.CheckSpecialId, detail.CheckItem, checkItemSet.CheckItemName, detail.Unqualified, 
+                   detail.SortIndex, detail.UnitId, detail.HandleStep, detail.CompleteStatus, 
+                   (CASE WHEN detail.CompleteStatus = 1 THEN '已整改' ELSE '待整改' END) AS CompleteStatusName, detail.LimitedDate, 
+                   detail.CompletedDate, detail.CheckContent, detail.CheckArea, 
+                   workArea.UnitWorkName + (CASE WHEN workArea.ProjectType = '1' THEN '(建筑)' WHEN workArea.ProjectType = '2' THEN '(安装)'
+                    ELSE '' END) AS CheckAreaName, detail.DataId, detail.DataType, unit.UnitName, 
+                   dbo.GetConstTextByIds(detail.HandleStep) AS HandleStepStr, 
+                   (CASE WHEN detail.DataType LIKE '%1%' THEN '下发整改单:' +
+                       (SELECT  RectifyNoticesCode
+                        FROM       Check_RectifyNotices
+                        WHERE    detail.DataId LIKE '%' + RectifyNoticesId + '%') ELSE '' END) 
+                   + (CASE WHEN detail.DataType LIKE '%2%' THEN '下发处罚单:' +
+                       (SELECT  PunishNoticeCode
+                        FROM       Check_PunishNotice
+                        WHERE    detail.DataId LIKE '%' + PunishNoticeId + '%') ELSE '' END) 
+                   + (CASE WHEN detail.DataType = '3' THEN '下发暂停令:' +
+                       (SELECT  PauseNoticeCode
+                        FROM       Check_PauseNotice
+                        WHERE    detail.DataId LIKE '%' + PauseNoticeId + '%') ELSE '' END) AS HandleStepLink, detail.HiddenHazardType, 
+                   (CASE WHEN detail.HiddenHazardType = '3' THEN '重大' WHEN detail.HiddenHazardType = '2' THEN '较大' WHEN detail.HiddenHazardType
+                    = '1' THEN '一般' ELSE '' END) AS HiddenHazardTypeName, detail.CheckItemSetId, detail.CheckItemSetContent, 
+                   detail.Rectification_Date
+FROM      dbo.Check_CheckSpecialDetail AS detail LEFT OUTER JOIN
+                   dbo.Technique_CheckItemSet AS checkItemSet ON checkItemSet.CheckItemSetId = detail.CheckItem LEFT OUTER JOIN
+                   dbo.Base_Unit AS unit ON unit.UnitId = detail.UnitId LEFT OUTER JOIN
+                   dbo.WBS_UnitWork AS workArea ON detail.CheckArea = workArea.UnitWorkId
+
+GO
+