提交代码

This commit is contained in:
2025-05-12 15:06:52 +08:00
21 changed files with 2958 additions and 2132 deletions
@@ -0,0 +1,63 @@
ALTER PROCEDURE [dbo].[HJGL_sp_rpt_Repair]
(
@CH_RepairID NVARCHAR(50)
)
AS
/******项目管理部返修焊缝检测委托单主表*******/
SELECT Repair.CH_RepairID,
Repair.ProjectId,
Repair.CH_RepairNo as CH_TrustCode,
--记录编号
Unit.UnitName, --使用单位
Project.ProjectCode, --项目号
Project.ProjectName, --项目名称
Project.ShortName,
Repair.CH_RepairNo,--委托单号
Installation.InstallationCode, --区域号
Installation.InstallationName,
--分项工程
--检测时机
--检件编号
Repair.CH_ItemName,--检件名称
(CASE IsoInfo.IsHot WHEN '1' THEN '' ELSE '' END) AS IsHot,--热处理状态
IsoInfo.ISO_IsoNo,--检件名称
NDTType.NDT_Code,--检测方法
WeldMethod.WME_Code,--焊接方法
SlopeType.JST_Code,--坡口形式
NDTRate.NDTR_Name,--检测比例
NDTRate.NDTR_Rate,
Repair.CH_NDTCriteria,--检测标准
(CASE Repair.CH_AcceptGrade
WHEN '1' THEN ''
WHEN '2' THEN ''
WHEN '3' THEN ''
WHEN '4' THEN ''
WHEN '5' THEN ''
END) AS AcceptGrade,--合格级别
User1.UserName AS TrustManName,--委托人
User2.UserName AS AuditManName,--审核人
CONVERT(VARCHAR(100), Repair.RepairTrustDate, 111) AS RepairTrustDate, --日期
(User1.UserName+'/'+CONVERT(VARCHAR(100), Repair.RepairTrustDate, 111)) as ManAndTrustDate,
Repair.CH_CheckUnit,
checkUnit.UnitName AS CheckUnitName
FROM HJGL_CH_Repair AS Repair
LEFT JOIN dbo.Base_Unit AS Unit ON Unit.UnitId = Repair.CH_TrustUnit
LEFT JOIN dbo.Base_Project AS Project ON Project.ProjectId = Repair.ProjectId
LEFT JOIN dbo.HJGL_PW_IsoInfo AS IsoInfo ON IsoInfo.ISO_ID = Repair.ISO_ID
LEFT JOIN dbo.Project_Installation AS Installation ON Installation.InstallationId = Repair.InstallationId
LEFT JOIN dbo.Sys_User AS User1 ON User1.UserId = Repair.CH_Tabler
LEFT JOIN dbo.Sys_User AS User2 ON User2.UserId = Repair.CH_AuditMan
LEFT JOIN dbo.HJGL_BO_Batch AS Batch ON Batch.BatchId = Repair.BatchId
LEFT JOIN dbo.HJGL_BS_NDTRate AS NDTRate ON NDTRate.NDTR_ID = Batch.NDTR_ID
LEFT JOIN dbo.HJGL_BS_SlopeType AS SlopeType ON SlopeType.JST_ID = Repair.CH_SlopeType
LEFT JOIN dbo.HJGL_BS_WeldMethod AS WeldMethod ON WeldMethod.WME_ID = Repair.CH_WeldMethod
LEFT JOIN dbo.HJGL_BS_NDTType AS NDTType ON NDTType.NDT_ID = Repair.NDT_ID
LEFT JOIN Base_Unit as checkUnit ON checkUnit.UnitId = Repair.CH_CheckUnit
WHERE Repair.CH_RepairID=@CH_RepairID
GO