203 lines
7.6 KiB
Transact-SQL
203 lines
7.6 KiB
Transact-SQL
--INSERT INTO ReportServer select * from SUBHSSEDB_WH.dbo.ReportServer
|
||
--go
|
||
/************环境危险源辨识与评价主表*************/
|
||
CREATE PROCEDURE [dbo].[Sp_Hazard_EnvironmentalRiskListReport]
|
||
@EnvironmentalRiskListId nvarchar(50)
|
||
AS
|
||
SELECT EnvironmentalRiskList.EnvironmentalRiskListId,
|
||
EnvironmentalRiskList.ProjectId,
|
||
EnvironmentalRiskList.RiskCode,
|
||
EnvironmentalRiskList.CompileMan,
|
||
EnvironmentalRiskList.CompileDate,
|
||
EnvironmentalRiskList.AttachUrl,
|
||
EnvironmentalRiskList.States,
|
||
EnvironmentalRiskList.Contents,
|
||
EnvironmentalRiskList.WorkAreaName,
|
||
EnvironmentalRiskList.IdentificationDate,
|
||
EnvironmentalRiskList.ControllingPerson,
|
||
U1.UserName AS CompileManName,
|
||
U2.UserName AS ControllingPersonName,
|
||
Project.ProjectName
|
||
FROM dbo.Hazard_EnvironmentalRiskList AS EnvironmentalRiskList
|
||
LEFT JOIN Sys_User AS U1 ON U1.UserId = EnvironmentalRiskList.CompileMan
|
||
LEFT JOIN Sys_User AS U2 ON U2.UserId = EnvironmentalRiskList.ControllingPerson
|
||
LEFT JOIN Base_Project AS Project ON Project.ProjectId = EnvironmentalRiskList.ProjectId
|
||
WHERE EnvironmentalRiskList.EnvironmentalRiskListId = @EnvironmentalRiskListId
|
||
|
||
GO
|
||
|
||
/************环境危险源辨识与评价明细表*************/
|
||
CREATE PROCEDURE [dbo].[Sp_Hazard_EnvironmentalRiskListReportItem]
|
||
@EnvironmentalRiskListId nvarchar(50)
|
||
AS
|
||
SELECT ROW_NUMBER() OVER (ORDER BY Item.EnvironmentalRiskItemId) AS Number,
|
||
Item.EnvironmentalRiskItemId,
|
||
Item.EnvironmentalRiskListId,
|
||
Item.EnvironmentalId,
|
||
ConstEType.ConstText AS EType,
|
||
Item.ActivePoint,
|
||
Item.EnvironmentalFactors,
|
||
Item.AValue,
|
||
Item.BValue,
|
||
Item.CValue,
|
||
Item.DValue,
|
||
Item.EValue,
|
||
Item.ZValue,
|
||
Const.ConstText AS SmallType,
|
||
Item.IsImportant,
|
||
(CASE Item.IsImportant WHEN 'true' THEN '是' ELSE '否' END)AS IsImportantName,
|
||
Item.Code,
|
||
Item.GValue,
|
||
Item.ControlMeasures,
|
||
Item.Remark,
|
||
Item.FValue,
|
||
Item.EnvironmentEffect,
|
||
(ISNULL(Item.AValue,0) + ISNULL(Item.BValue,0)+ ISNULL(Item.CValue,0)+ ISNULL(Item.DValue,0)+ ISNULL(Item.EValue,0)) AS ZValue1,
|
||
(ISNULL(Item.FValue,0) + ISNULL(Item.GValue,0)) AS ZValue2
|
||
FROM dbo.Hazard_EnvironmentalRiskItem AS Item
|
||
LEFT JOIN dbo.Hazard_EnvironmentalRiskList AS EnvironmentalRiskList ON EnvironmentalRiskList.EnvironmentalRiskListId = Item.EnvironmentalRiskListId
|
||
LEFT JOIN Technique_Environmental AS Environmental ON Environmental.EnvironmentalId = Item.EnvironmentalId
|
||
LEFT JOIN dbo.Sys_Const AS Const ON Const.ConstValue = Item.SmallType AND Const.GroupId = 'EnvironmentalSmallType'
|
||
LEFT JOIN dbo.Sys_Const AS ConstEType ON Item.EType = ConstEType.ConstValue AND ConstEType.GroupId='EnvironmentalType'
|
||
WHERE Item.EnvironmentalRiskListId = @EnvironmentalRiskListId
|
||
GO
|
||
|
||
/************环境危险源辨识与评价明细表(重要环境因素)*************/
|
||
CREATE PROCEDURE [dbo].[Sp_Hazard_EnvironmentalRiskListReportImportantItem]
|
||
@EnvironmentalRiskListId nvarchar(50)
|
||
AS
|
||
SELECT ROW_NUMBER() OVER (ORDER BY Item.EnvironmentalRiskItemId) AS Number,
|
||
Item.EnvironmentalRiskItemId,
|
||
Item.EnvironmentalRiskListId,
|
||
Item.EnvironmentalId,
|
||
ConstEType.ConstText AS EType,
|
||
Item.ActivePoint,
|
||
Item.EnvironmentalFactors,
|
||
Item.AValue,
|
||
Item.BValue,
|
||
Item.CValue,
|
||
Item.DValue,
|
||
Item.EValue,
|
||
Item.ZValue,
|
||
Const.ConstText AS SmallType,
|
||
Item.IsImportant,
|
||
(CASE Item.IsImportant WHEN 'true' THEN '是' ELSE '否' END)AS IsImportantName,
|
||
Item.Code,
|
||
Item.GValue,
|
||
Item.ControlMeasures,
|
||
Item.Remark,
|
||
Item.FValue,
|
||
Item.EnvironmentEffect,
|
||
(ISNULL(Item.AValue,0) + ISNULL(Item.BValue,0)+ ISNULL(Item.CValue,0)+ ISNULL(Item.DValue,0)+ ISNULL(Item.EValue,0)) AS ZValue1,
|
||
(ISNULL(Item.FValue,0) + ISNULL(Item.GValue,0)) AS ZValue2
|
||
FROM dbo.Hazard_EnvironmentalRiskItem AS Item
|
||
LEFT JOIN dbo.Hazard_EnvironmentalRiskList AS EnvironmentalRiskList ON EnvironmentalRiskList.EnvironmentalRiskListId = Item.EnvironmentalRiskListId
|
||
LEFT JOIN Technique_Environmental AS Environmental ON Environmental.EnvironmentalId = Item.EnvironmentalId
|
||
LEFT JOIN dbo.Sys_Const AS Const ON Const.ConstValue = Item.SmallType AND Const.GroupId = 'EnvironmentalSmallType'
|
||
LEFT JOIN dbo.Sys_Const AS ConstEType ON Item.EType = ConstEType.ConstValue AND ConstEType.GroupId='EnvironmentalType'
|
||
WHERE Item.IsImportant ='true'
|
||
AND Item.EnvironmentalRiskListId = @EnvironmentalRiskListId
|
||
GO
|
||
|
||
/***********职业健康安全危险源辨识与评价主表************/
|
||
CREATE PROCEDURE [dbo].[Sp_Hazard_HazardListReport]
|
||
@HazardListId nvarchar(50)
|
||
AS
|
||
SELECT HazardList.HazardListId,
|
||
HazardList.HazardListCode,
|
||
HazardList.ProjectId,
|
||
HazardList.VersionNo,
|
||
HazardList.CompileMan,
|
||
HazardList.CompileDate,
|
||
HazardList.States,
|
||
HazardList.WorkStage,
|
||
HazardList.Contents,
|
||
HazardList.WorkAreaName,
|
||
HazardList.IdentificationDate,
|
||
HazardList.ControllingPerson,
|
||
Project.ProjectName,
|
||
U.UserName AS CompileManName,
|
||
U2.UserName AS ControllingPersonName
|
||
FROM dbo.Hazard_HazardList AS HazardList
|
||
LEFT JOIN Base_Project AS Project ON Project.ProjectId = HazardList.ProjectId
|
||
LEFT JOIN Sys_User AS U ON U.UserId = HazardList.CompileMan
|
||
LEFT JOIN Sys_User AS U2 ON U2.UserId = HazardList.ControllingPerson
|
||
WHERE HazardList.HazardListId = @HazardListId
|
||
GO
|
||
|
||
|
||
/***********职业健康安全危险源辨识与评价明细表************/
|
||
CREATE PROCEDURE [dbo].[Sp_Hazard_HazardSelectedItemReport]
|
||
@HazardListId nvarchar(50)
|
||
AS
|
||
SELECT ROW_NUMBER() OVER (ORDER BY HazardSelectedItem.HazardId) AS Number,
|
||
HazardSelectedItem.HazardId,
|
||
HazardSelectedItem.HazardListTypeId,
|
||
HazardSelectedItem.HazardListId,
|
||
HazardSelectedItem.HazardItems,
|
||
HazardSelectedItem.DefectsType,
|
||
HazardSelectedItem.MayLeadAccidents,
|
||
HazardSelectedItem.HelperMethod,
|
||
HazardSelectedItem.HazardJudge_L,
|
||
HazardSelectedItem.HazardJudge_E,
|
||
HazardSelectedItem.HazardJudge_C,
|
||
HazardSelectedItem.HazardJudge_D,
|
||
(CASE HazardSelectedItem.HazardLevel
|
||
WHEN '1' THEN 'Ⅰ'
|
||
WHEN '2' THEN 'Ⅱ'
|
||
WHEN '3' THEN 'Ⅲ'
|
||
WHEN '4' THEN 'Ⅳ'
|
||
WHEN '5' THEN 'Ⅴ' END) AS HazardLevel,
|
||
HazardSelectedItem.ControlMeasures,
|
||
HazardSelectedItem.IsResponse,
|
||
HazardSelectedItem.ResponseRecode,
|
||
HazardSelectedItem.PromptTime,
|
||
HazardSelectedItem.Remark,
|
||
HazardSelectedItem.WorkStage,
|
||
HazardListType2.HazardListTypeName
|
||
FROM dbo.Hazard_HazardSelectedItem AS HazardSelectedItem
|
||
LEFT JOIN dbo.Technique_HazardListType AS HazardListType ON HazardListType.HazardListTypeId = HazardSelectedItem.HazardListTypeId
|
||
lEFT JOIN dbo.Technique_HazardListType AS HazardListType2 ON HazardListType2.HazardListTypeId = HazardListType.SupHazardListTypeId
|
||
WHERE HazardSelectedItem.HazardListId = @HazardListId
|
||
GO
|
||
|
||
|
||
/***********职业健康安全危险源辨识与评价（重大危险源）明细表************/
|
||
CREATE PROCEDURE [dbo].[Sp_Hazard_HazardSelectedItemImportantReport]
|
||
@HazardListId nvarchar(50)
|
||
AS
|
||
SELECT ROW_NUMBER() OVER (ORDER BY HazardSelectedItem.HazardId) AS Number,
|
||
HazardSelectedItem.HazardId,
|
||
HazardSelectedItem.HazardListTypeId,
|
||
HazardSelectedItem.HazardListId,
|
||
HazardSelectedItem.HazardItems,
|
||
HazardSelectedItem.DefectsType,
|
||
HazardSelectedItem.MayLeadAccidents,
|
||
HazardSelectedItem.HelperMethod,
|
||
HazardSelectedItem.HazardJudge_L,
|
||
HazardSelectedItem.HazardJudge_E,
|
||
HazardSelectedItem.HazardJudge_C,
|
||
HazardSelectedItem.HazardJudge_D,
|
||
(CASE HazardSelectedItem.HazardLevel
|
||
WHEN '1' THEN 'Ⅰ'
|
||
WHEN '2' THEN 'Ⅱ'
|
||
WHEN '3' THEN 'Ⅲ'
|
||
WHEN '4' THEN 'Ⅳ'
|
||
WHEN '5' THEN 'Ⅴ' END) AS HazardLevel,
|
||
HazardSelectedItem.ControlMeasures,
|
||
HazardSelectedItem.IsResponse,
|
||
HazardSelectedItem.ResponseRecode,
|
||
HazardSelectedItem.PromptTime,
|
||
HazardSelectedItem.Remark,
|
||
HazardSelectedItem.WorkStage,
|
||
HazardListType2.HazardListTypeName
|
||
FROM dbo.Hazard_HazardSelectedItem AS HazardSelectedItem
|
||
LEFT JOIN dbo.Technique_HazardListType AS HazardListType ON HazardListType.HazardListTypeId = HazardSelectedItem.HazardListTypeId
|
||
LEFT JOIN dbo.Technique_HazardListType AS HazardListType2 ON HazardListType2.HazardListTypeId = HazardListType.SupHazardListTypeId
|
||
WHERE HazardSelectedItem.HazardJudge_D > 160
|
||
AND HazardSelectedItem.HazardListId = @HazardListId
|
||
|
||
GO
|
||
|
||
|