Basf_TCC7/DataBase/版本日志/已完成/HJGLDB_2024.01.15.sql

64 lines
3.9 KiB
Transact-SQL
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

ALTER PROCEDURE [dbo].[sp_TrustReport]
(
@TrustBatchId NVARCHAR(50)
)
AS
SELECT
('工程名称:'+pro.ProjectName) AS ProjectName,
('单元名称:'+ins.InstallationName+''+ins.InstallationCode+'') AS InstallationName,
(CASE WHEN trust.NDEUuit IS NOT NULL THEN unit.UnitName ELSE (SELECT UnitName FROM dbo.Base_Unit WHERE UnitId=(SELECT TOP 1 UnitId FROM dbo.Project_Unit WHERE ProjectId= trust.ProjectId AND UnitType='4')) END) AS NDEUnit,
trust.TrustBatchCode,nde.DetectionTypeCode,rate.DetectionRateCode,pipe.PipelineCode,
(CASE WHEN nde.SysType='射线检测' THEN 'NB/T47013.2' WHEN nde.SysType='超声波检测' THEN 'NB/T47013.3'
WHEN nde.SysType='磁粉检测' THEN 'NB/T47013.4' WHEN nde.SysType='渗透检测' THEN 'NB/T47013.5' END) AS ExecStandard,(CASE WHEN nde.SysType='渗透检测' THEN '' ELSE (CASE WHEN nde.SysType='超声波检测' THEN '' ELSE (CASE WHEN rate.DetectionRateCode='5%' OR rate.DetectionRateCode='10%' THEN '' ELSE '' END) END)END) AS QueClass,dbo.Fun_WeldingMethod(@TrustBatchId) AS WeldingMethodCode,
dbo.Fun_GrooveType(@TrustBatchId) AS GrooveTypeCode,
('申请单位:'+cunit.UnitName) AS CUnitName,
tunit.UnitName AS TrustUnit,
trust.QuaCertFile,--质量证明文件编号
trust.AcceptStandard--制造/验收标准
FROM dbo.Batch_BatchTrust trust
LEFT JOIN dbo.Base_Project pro ON pro.ProjectId = trust.ProjectId
LEFT JOIN dbo.Project_Installation ins ON ins.InstallationId = trust.InstallationId
LEFT JOIN dbo.Base_Unit unit ON unit.UnitId = trust.NDEUuit
LEFT JOIN dbo.Base_Unit cunit ON cunit.UnitId = trust.UnitId
LEFT JOIN dbo.Base_Unit tunit ON tunit.UnitId = ins.SupervisorUnitId
LEFT JOIN dbo.Base_DetectionType nde ON nde.DetectionTypeId = trust.DetectionTypeId
LEFT JOIN dbo.Pipeline_Pipeline pipe ON pipe.PipelineId = trust.PipelineId
LEFT JOIN dbo.Base_DetectionRate rate ON rate.DetectionRateId = pipe.DetectionRateId
WHERE trust.TrustBatchId=@TrustBatchId
GO
ALTER PROCEDURE [dbo].[TrustItemReport]
(
@TrustBatchId NVARCHAR(50)
)
AS
/******焊缝检测委托单明细表*******/
SELECT ROW_NUMBER() OVER(ORDER BY jot.WeldJointCode) AS Number,
BatchTrustItem.TrustBatchItemId,
BatchTrustItem.TrustBatchId,
pipe.PipelineCode, --管线号
pipe.SingleNumber, --单线号
(CASE WHEN PointBatchItem.PointState='2' then (CASE WHEN jot.JointAttribute='固定F' AND RIGHT(jot.WeldJointCode,1)<>'G' THEN jot.WeldJointCode+'G' ELSE jot.WeldJointCode END)+'K'
ELSE (CASE WHEN jot.JointAttribute='固定F' AND RIGHT(jot.WeldJointCode,1)<>'G' THEN jot.WeldJointCode+'G' ELSE jot.WeldJointCode END) END) AS WeldJointCode, --焊口号
jot.Specification, --焊缝规格
mat.MaterialCode, --材质
(CASE WHEN jot.BackingWelderId!=jot.CoverWelderId THEN backingWelder.WelderCode+'/'+coverWelder.WelderCode ELSE backingWelder.WelderCode END) AS WelderCode,--焊工号
rate.DetectionRateCode AS DetectionRateCode,--检测比例
PointBatchItem.AcceptLevel AS AcceptLevel, --验收等级
(case when PointBatchItem.IsWelderFirst=1 then '首三件' else '' end) as Remark,
jot.HeartNo1,--炉批1号
jot.HeartNo2,--炉批2号
(case jot.IsHotProess when 1 then '' else '' end) as IsHotProessName--是否热处理
FROM dbo.Batch_BatchTrustItem AS BatchTrustItem
LEFT JOIN Batch_PointBatchItem AS PointBatchItem ON PointBatchItem.PointBatchItemId=BatchTrustItem.PointBatchItemId
LEFT JOIN dbo.Batch_PointBatch point ON point.PointBatchId = PointBatchItem.PointBatchId
LEFT JOIN dbo.Base_DetectionRate rate ON rate.DetectionRateId = point.DetectionRateId
LEFT JOIN dbo.Pipeline_WeldJoint jot ON jot.WeldJointId = BatchTrustItem.WeldJointId
LEFT JOIN dbo.Pipeline_Pipeline pipe ON pipe.PipelineId = jot.PipelineId
LEFT JOIN dbo.Welder_Welder backingWelder ON backingWelder.WelderId = jot.BackingWelderId
LEFT JOIN dbo.Welder_Welder coverWelder ON coverWelder.WelderId = jot.CoverWelderId
LEFT JOIN dbo.Base_Material mat ON mat.MaterialId = jot.Material1Id
WHERE BatchTrustItem.TrustBatchId=@TrustBatchId and BatchTrustItem.IsCancelTrust is null
GO