--安全的施工方案，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