Basf_TCC7/DataBase/版本日志/HJGLDB_2024.04.17.sql

94 lines
7.9 KiB
Transact-SQL
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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' THEN 'F'+jot.WeldJointCode ELSE 'S'+jot.WeldJointCode END)+'K'
ELSE (CASE WHEN jot.JointAttribute='固定F' THEN 'F'+jot.WeldJointCode ELSE 'S'+jot.WeldJointCode END) END) AS WeldJointCode, --焊口号
jot.Specification, --焊缝规格
(CASE WHEN mat1.MaterialCode IS NOT NULL AND mat2.MaterialCode IS NOT NULL
THEN mat1.MaterialCode + '+' + mat2.MaterialCode
ELSE (ISNULL(mat1.MaterialCode,'') + ISNULL(mat2.MaterialCode,'')) END) AS 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号
userJL.UserName AS JLAudit,
userGLGS.UserName AS GLGSAudit,
(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 Base_Material AS mat1 ON mat1.MaterialId = jot.Material1Id
LEFT JOIN Base_Material AS mat2 ON mat2.MaterialId = jot.Material2Id
LEFT JOIN dbo.Sys_User userJL ON userJL.UserId = PointBatchItem.JLAudit
LEFT JOIN dbo.Sys_User userGLGS ON userGLGS.UserId = PointBatchItem.GLGSAudit
WHERE BatchTrustItem.TrustBatchId=@TrustBatchId and BatchTrustItem.IsCancelTrust is NULL
GO
ALTER VIEW [dbo].[View_Batch_NDEItem]
AS
/********无损委托********/
SELECT NDEItem.NDEItemID,
NDEItem.NDEID,
NDEItem.TrustBatchItemId,
trust.TrustBatchCode,
ndt.ProjectId,
ndt.UnitId,
ndt.InstallationId,
NDEItem.DetectionTypeId,
NDEItem.RequestDate,
NDEItem.RepairLocation,
NDEItem.TotalFilm,
NDEItem.PassFilm,
NDEItem.CheckResult,
NDEItem.NDEReportNo,
NDEItem.FilmDate,
NDEItem.ReportDate,
NDEItem.SubmitDate,
NDEItem.CheckDefects,
--NDEItem.JudgeGrade,
pointItem.AcceptLevel AS JudgeGrade,
NDEItem.Remark,
CASE NDEItem.CheckResult WHEN '1' THEN '合格'
WHEN '2' THEN '不合格'
ELSE '' END AS CheckResultStr,
WeldJoint.PipelineCode, --管线编号
WeldJoint.WeldJointCode, --焊口号
WeldJoint.WeldJointId, --焊口ID
WeldJoint.WeldingDailyId, --日报ID
Pipeline.WorkAreaId, --工区ID
Pipeline.WorkAreaCode, --工区号
WeldJoint.BackingWelderCode AS WelderCode, --焊工号
WeldJoint.BackingWelderId
FROM Batch_NDEItem AS NDEItem
LEFT JOIN dbo.Batch_NDE ndt ON ndt.NDEID = NDEItem.NDEID
LEFT JOIN Batch_BatchTrustItem AS BatchTrustItem ON BatchTrustItem.TrustBatchItemId=NDEItem.TrustBatchItemId
LEFT JOIN dbo.Batch_PointBatchItem pointItem ON pointItem.PointBatchItemId = BatchTrustItem.PointBatchItemId
LEFT JOIN dbo.Batch_BatchTrust trust ON trust.TrustBatchId = BatchTrustItem.TrustBatchId
LEFT JOIN View_Pipeline_WeldJoint AS WeldJoint ON WeldJoint.WeldJointId=BatchTrustItem.WeldJointId
LEFT JOIN View_Pipeline_Pipeline AS Pipeline ON Pipeline.PipelineId=WeldJoint.PipelineId
GO