Basf_TCC7/HJGL/DataBase/版本日志/BSFDB_2019.09.26.sql

197 lines
8.1 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 TABLE dbo.Pipeline_WeldJoint ADD IsCancel BIT NULL
GO
EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'是否取消' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Pipeline_WeldJoint', @level2type=N'COLUMN',@level2name=N'IsCancel'
GO
ALTER VIEW [dbo].[View_Pipeline_WeldJoint]
AS
/************焊口信息视图*****************/
SELECT WeldJoint.WeldJointId,
WeldJoint.ProjectId,
WeldJoint.PipelineId,
WeldJoint.WeldJointCode,
WeldJoint.WeldTypeId,
WeldJoint.Material1Id,
WeldJoint.Material2Id,
WeldJoint.Thickness,
WeldJoint.Dia,
WeldJoint.Size,
WeldJoint.JointAttribute,
WeldJoint.JointArea,
WeldJoint.WeldingMethodId,
WeldJoint.IsHotProess,
WeldJoint.WeldingLocationId,
WeldJoint.WeldMatId,
WeldJoint.WeldSilkId,
WeldJoint.GrooveTypeId,
WeldJoint.PipeSegment,
WeldJoint.PipeAssembly1Id,
WeldJoint.PipeAssembly2Id,
WeldJoint.PipeAssemblyCount,
WeldJoint.HeartNo1,
WeldJoint.HeartNo2,
WeldJoint.LastTemp,
WeldJoint.CellTemp,
WeldJoint.PrepareTemp,
WeldJoint.Electricity,
WeldJoint.SystemNumber,
WeldJoint.Remark,
WeldJoint.DoneDin,
WeldJoint.Voltage,
WeldJoint.TestPackageNo,
WeldJoint.WeldingDailyCode,
WeldJoint.WeldingDailyId,
WeldJoint.BackingWelderId,
WeldJoint.CoverWelderId,
WeldJoint.PipingClassId,
WeldJoint.Specification,
Project.ProjectCode,
Project.ProjectName,
Pipeline.PipelineCode,
Pipeline.InstallationId,
Pipeline.UnitId,
Pipeline.SingleNumber,
Pipeline.WorkAreaId,
WeldType.WeldTypeCode,
Material1.MaterialCode AS Material1Code,
Material2.MaterialCode AS Material2Code,
WeldingMethod.WeldingMethodCode,
WeldingLocation.WeldingLocationCode,
WeldMat.ConsumablesCode AS WeldMatCode,
WeldSilk.ConsumablesCode AS WeldSilkCode,
GrooveType.GrooveTypeCode,
CASE WHEN WeldJoint.WeldingDailyId IS NULL THEN '' ELSE '' END AS Is_hjName,
CASE WHEN WeldJoint.IsHotProess=1 THEN '' ELSE '' END AS IsHotProessStr,
Components1.ComponentsCode AS ComponentsCode1,
Components2.ComponentsCode AS ComponentsCode2,
BackingWelder.WelderCode AS BackingWelderCode,
BackingWelder.WelderName AS BackingWelderName,
CoverWelder.WelderCode AS CoverWelderCode,
CoverWelder.WelderName AS CoverWelderName,
(CASE WHEN CoverWelder.WelderCode IS NOT NULL AND BackingWelder.WelderCode IS NOT NULL
THEN CoverWelder.WelderCode + '/' + BackingWelder.WelderCode
ELSE (ISNULL(CoverWelder.WelderCode,'') + ISNULL(BackingWelder.WelderCode,'')) END) AS WelderCode, --焊工
(CASE WHEN Material1.MaterialCode IS NOT NULL AND Material2.MaterialCode IS NOT NULL
THEN Material1.MaterialCode + '/' + Material2.MaterialCode
ELSE (ISNULL(Material1.MaterialCode,'') + ISNULL(Material2.MaterialCode,'')) END) AS MaterialCode, --材质
pipingClass.PipingClassCode,
CONVERT(VARCHAR(100), WeldingDaily.WeldingDate, 23) AS WeldingDate,
WeldJoint.IsCancel
FROM Pipeline_WeldJoint AS WeldJoint
LEFT JOIN Base_Project AS Project ON Project.ProjectId=WeldJoint.ProjectId
LEFT JOIN Pipeline_Pipeline AS Pipeline ON Pipeline.PipelineId = WeldJoint.PipelineId
LEFT JOIN Base_WeldType AS WeldType ON WeldType.WeldTypeId=WeldJoint.WeldTypeId
LEFT JOIN Base_Material AS Material1 ON Material1.MaterialId = WeldJoint.Material1Id
LEFT JOIN Base_Material AS Material2 ON Material2.MaterialId = WeldJoint.Material2Id
LEFT JOIN Base_WeldingMethod AS WeldingMethod ON WeldingMethod.WeldingMethodId=WeldJoint.WeldingMethodId
LEFT JOIN Base_WeldingLocation AS WeldingLocation ON WeldingLocation.WeldingLocationId=WeldJoint.WeldingLocationId
LEFT JOIN Base_Consumables AS WeldMat ON WeldMat.ConsumablesId=WeldJoint.WeldMatId
LEFT JOIN Base_Consumables AS WeldSilk ON WeldSilk.ConsumablesId=WeldJoint.WeldSilkId
LEFT JOIN Base_GrooveType AS GrooveType ON GrooveType.GrooveTypeId=WeldJoint.GrooveTypeId
LEFT JOIN Base_Components AS Components1 ON Components1.ComponentsId = WeldJoint.PipeAssembly1Id
LEFT JOIN Base_Components AS Components2 ON Components2.ComponentsId = WeldJoint.PipeAssembly2Id
LEFT JOIN Welder_Welder AS BackingWelder ON BackingWelder.WelderId=WeldJoint.BackingWelderId
LEFT JOIN Welder_Welder AS CoverWelder ON CoverWelder.WelderId=WeldJoint.CoverWelderId
LEFT JOIN Pipeline_WeldingDaily AS WeldingDaily ON WeldingDaily.WeldingDailyId=WeldJoint.WeldingDailyId
LEFT JOIN Base_PipingClass AS pipingClass ON pipingClass.PipingClassId=WeldJoint.PipingClassId
GO
ALTER PROC [dbo].[sp_rpt_OutstandingWelds]
@projectId NVARCHAR(50) = NULL,
@unitId NVARCHAR(50) = NULL,
@installationId NVARCHAR(50) = NULL,
@workAreaId NVARCHAR(50) = NULL,
@pipingClassId NVARCHAR(50) = NULL,
@weldTypeId NVARCHAR(50) = NULL,
@pipelineCode VARCHAR(50) = NULL
AS
/*未焊焊口清单*/
SELECT
weldJoint.ProjectId
,weldJoint.WeldJointId
,pipeline.PipelineId
,pipeline.WorkAreaId
,pipeline.UnitId
,workArea.InstallationId
,workArea.WorkAreaCode
,weldType.WeldTypeCode
,pipingClass.PipingClassCode
,pipeline.PipelineCode
,weldJoint.WeldJointCode
,weldJoint.WeldingDailyId
,weldJoint.Size
,weldJoint.Thickness
,weldJoint.PipingClassId
,weldJoint.WeldTypeId
,weldJoint.JointArea
FROM Pipeline_WeldJoint AS weldJoint
LEFT JOIN Pipeline_Pipeline AS pipeline ON weldJoint.PipelineId = pipeline.PipelineId
LEFT JOIN Project_WorkArea AS workArea ON workArea.WorkAreaId = pipeline.WorkAreaId
LEFT JOIN Base_WeldType AS weldType ON weldType.WeldTypeId = weldJoint.WeldTypeId
LEFT JOIN Base_PipingClass AS pipingClass ON pipingClass.PipingClassId = weldJoint.PipingClassId
WHERE (weldJoint.ProjectId=@projectId OR @projectId IS NULL)
AND (pipeline.UnitId=@unitId OR @unitId IS NULL)
AND (workArea.InstallationId=@installationId OR @installationId IS NULL)
AND (pipeline.WorkAreaId=@workAreaId OR @workAreaId IS NULL)
AND (weldJoint.PipingClassId=@pipingClassId OR @pipingClassId IS NULL)
AND (weldJoint.WeldTypeId=@weldTypeId OR @weldTypeId IS NULL)
AND ((pipeline.PipelineCode LIKE '%'+@pipelineCode+'%') OR @pipelineCode IS NULL)
AND (weldJoint.IsCancel=0 OR weldJoint.IsCancel IS NULL)
GO
ALTER VIEW [dbo].[View_NDTBacklogList]
/**********NDE积压焊口一览表***************/
AS
SELECT
PointBatch.ProjectId,
PointBatch.InstallationId,
PointBatch.UnitId,
BatchTrustItem.TrustBatchItemId
,(WorkArea.WorkAreaCode + '-' + Pipeline.PipelineCode + '-' + Medium.MediumCode) AS ISO_IsoNo --施工区域+管线号+介质
,PipingClass.PipingClassName --管线等级
,WeldJoint.WeldJointCode --焊口号
,WeldJoint.JointArea --焊接区域
,Welder.WelderCode --焊工号
,WeldType.WeldTypeName --焊缝类型
,CAST(WeldJoint.Size AS NVARCHAR(100)) AS JOT_Dia--外径
,CAST(WeldJoint.Thickness AS NVARCHAR(100)) AS JOT_Sch --壁厚
,CONVERT(VARCHAR(100), PointBatchItem.PointDate, 1) AS PointDate --点口日期
--,(case when NDTType.SysType ='1' then NDTRate.AcceptGrade else '' end) as AcceptGrade --'1'为RT类型
,DetectionType.DetectionTypeId
,DetectionType.DetectionTypeName --检测方法
,PipingClass.PNO
,BatchTrust.TrustBatchCode
FROM Batch_BatchTrustItem AS BatchTrustItem
LEFT JOIN Batch_BatchTrust AS BatchTrust ON BatchTrust.TrustBatchId =BatchTrustItem.TrustBatchId
LEFT JOIN Batch_PointBatchItem AS PointBatchItem ON PointBatchItem.PointBatchItemId =BatchTrustItem.PointBatchItemId
LEFT JOIN Batch_PointBatch AS PointBatch ON PointBatchItem.PointBatchId =PointBatch.PointBatchId
LEFT JOIN Batch_NDEItem ON Batch_NDEItem.TrustBatchItemId = BatchTrustItem.TrustBatchItemId
LEFT JOIN Pipeline_WeldJoint AS WeldJoint ON WeldJoint.WeldJointId =PointBatchItem.WeldJointId
LEFT JOIN Pipeline_Pipeline AS Pipeline ON Pipeline.PipelineId =WeldJoint.PipelineId
LEFT JOIN Base_PipingClass AS PipingClass ON PipingClass.PipingClassId =Pipeline.PipingClassId
LEFT JOIN Project_WorkArea AS WorkArea ON WorkArea.WorkAreaId =Pipeline.WorkAreaId
LEFT JOIN Base_Medium AS Medium ON Medium.MediumId =Pipeline.MediumId
LEFT JOIN Welder_Welder AS Welder ON Welder.WelderId =WeldJoint.CoverWelderId
LEFT JOIN Base_WeldType AS WeldType ON WeldType.WeldTypeId =PointBatch.WeldTypeId
LEFT JOIN Base_DetectionType AS DetectionType ON DetectionType.DetectionTypeId =PointBatch.DetectionTypeId
LEFT JOIN Base_DetectionRate AS DetectionRate ON DetectionRate.DetectionRateId =PointBatch.DetectionRateId
WHERE NDEItemID IS NULL OR(NDEItemID IS NOT NULL AND Batch_NDEItem.SubmitDate IS NULL)
GO