feat: 更新装配任务和质量报表

This commit is contained in:
meswork764
2026-06-18 17:48:36 +08:00
parent 1a781b02c2
commit ab508369c9
54 changed files with 10788 additions and 102 deletions

View File

@@ -0,0 +1,102 @@
ALTER PROCEDURE [dbo].[_阀类任务查询]
@ int=0,
@ nvarchar(50)='', --
@ nvarchar(50)='',
@ nvarchar(50)='',
@ nvarchar(50)='',
@ nvarchar(50)='',
@1 nvarchar(50)='',
@2 nvarchar(50)='',
@ nvarchar(50)='',
@ nvarchar(50)='',
@ nvarchar(50)='全部' , --
@ nvarchar(50)='全部',
@ nvarchar(50)='不含'
AS
BEGIN
declare @selectStr nvarchar(max)
declare @selectStrWhere nvarchar(max)=' where [物料类型]=''pit_Resource'' and [自制件属性] like ''%装配%'' and 物料描述 not like ''%系统%'' and isnull(任务状态,0)<4'
if(@='自制件') --
set @selectStr='
SELECT [计划数量订单],isnull(开工时间,0) as 开工时间,isnull(进度,0) as 进度,[TaskAID],v.[合同号],v.[订单编号] as 订单号,
[订单行号],[订单拆分内码] as 拆分内码,[物料编号] as 产品编码,[物料描述] as 产品名称,TRIM(''.'' FROM TRIM(''0'' FROM CAST(v.[计划数量] AS VARCHAR(30)))) AS 计划数量,
[计划完成] as 要求完工日期,[工序名称],完成数量,v.计划号,收料数量,外协分组,v.任务状态,v.齐套时间,v.派工时间,v.齐套,v.要求发货日期,
case when [加急状态]=1 then ''加急'' else '''' end as 加急状态,性质,isnull(总工时,0) as 总工时,[占用情况]
,[排产状态],[工序计划数量],指派对象编号,指派对象,TRIM(''.'' FROM TRIM(''0'' FROM CAST([指派数量] AS VARCHAR(30)))) AS 指派数量,计划开始时间,计划完成时间,最晚开始时间,
[派工状态],[外协通知],[优先级],[未完成说明],[派工特殊说明],[最后编辑人],[最后编辑时间],[二次派工],s.交货日期理论齐套日期 as 交货日期,
case when zj.计划号 is not null then '''' else '''' end as 终检,ISNULL(g.标准工时, 0) as 标准工时,
ISNULL(zp.装配工时, 0) as 任务装配工时,
ISNULL(zj1.质检工时, 0) as 任务质检工时,
ISNULL(htzp.合同装配工时, 0) as 合同装配工时,
ISNULL(htzj.合同质检工时, 0) as 合同质检工时,
ISNULL(zp.装配工序说明, '''') as 装配工序说明,
ISNULL(zj1.质检工序说明, '''') as 质检工序说明,
ISNULL((
SELECT STRING_AGG(CONVERT(nvarchar(max), lc.流程描述), N'','') WITHIN GROUP (ORDER BY lc.流程ID)
FROM [YL_MESDB].[dbo].[流程表] lc
WHERE lc.已关联计划号 = v.[订单编号]
), '''') as 异常报警信息
FROM [View_生产订单_MES] v
LEFT JOIN (
SELECT DISTINCT 计划号
FROM dbo.YL_质量检验_质检记录
WHERE 质检类型 = ''终检''
) zj ON v.[订单编号] = zj.计划号
LEFT JOIN [dbo].[车间生产管理工艺_零件生产工艺_工艺库] g -- 新增LEFT JOIN
ON v.[订单编号] = g.订单编号
AND v.[订单行号] = g.工艺顺序
LEFT JOIN (
SELECT gs.订单号, SUM(gs.总时长) as 装配工时,max(gs.工序说明) as 装配工序说明
FROM [dbo].[View_生产工时视图] gs
INNER JOIN [dbo].[登录基础数据_人员信息] ry ON gs.操作人 = ry.Personnel_Name
WHERE ry.班组 = ''装配''
GROUP BY gs.订单号
) zp ON v.[订单编号] = zp.订单号
LEFT JOIN (
SELECT gs.订单号, SUM(gs.总时长) as 质检工时,max(gs.工序说明) as 质检工序说明
FROM [dbo].[View_生产工时视图] gs
INNER JOIN [dbo].[登录基础数据_人员信息] ry ON gs.操作人 = ry.Personnel_Name
WHERE ry.班组 = ''质检''
GROUP BY gs.订单号
) zj1 ON v.[订单编号] = zj1.订单号
LEFT JOIN (
SELECT gs.合同号, SUM(gs.总时长) as 合同装配工时
FROM [dbo].[View_生产工时视图] gs
INNER JOIN [dbo].[登录基础数据_人员信息] ry ON gs.操作人 = ry.Personnel_Name
WHERE ry.班组 = ''装配''
GROUP BY gs.合同号
) htzp ON v.[合同号] = htzp.合同号
LEFT JOIN (
SELECT gs.合同号, SUM(gs.总时长) as 合同质检工时
FROM [dbo].[View_生产工时视图] gs
INNER JOIN [dbo].[登录基础数据_人员信息] ry ON gs.操作人 = ry.Personnel_Name
WHERE ry.班组 = ''质检''
GROUP BY gs.合同号
) htzj ON v.[合同号] = htzj.合同号
left join SAP.SBO_YL.dbo.UBT_MES_ORDROPEN2 s
on v.合同号 = s.项目号 and v.物料编号 = s.物料号'
if(@>0)set @selectStrWhere=@selectStrWhere + ' and v.[订单编号]='+Convert(VARCHAR(10),@)
if(@<>'')set @selectStrWhere=@selectStrWhere + ' and [合同号] like ''%'+@+'%'''
if(@<>'')set @selectStrWhere=@selectStrWhere + ' and [物料编号] like ''%'+@+'%'''
if(@<>'')set @selectStrWhere=@selectStrWhere + ' and [物料描述] like ''%'+@+'%'''
if(@ = '不含')set @selectStrWhere=@selectStrWhere + ' and [物料描述] not like ''%软管总成%'' and [物料描述] not like ''%发货部件%'''
if(@<>'')set @selectStrWhere=@selectStrWhere + ' and [工序名称] = '''+@+''''
if(@1 <>'')set @selectStrWhere=@selectStrWhere + ' and [计划完成] >= '''+@1+''''
if(@2 <>'')set @selectStrWhere=@selectStrWhere + ' and [计划完成] <= '''+@2+''''
if(@ <>'')set @selectStrWhere=@selectStrWhere + ' and [计划开始时间] >= '''+@+''''
if(@ <>'')set @selectStrWhere=@selectStrWhere + ' and [计划完成时间] <= '''+@+''''
if(@='未完成')set @selectStrWhere=@selectStrWhere + ' and isnull([排产状态],0) = 0'
else if(@='已完成')set @selectStrWhere=@selectStrWhere + ' and [排产状态] = 1'
if(@='自制件') set @selectStrWhere=@selectStrWhere + ' and [不装配] <> '''''
if(@='装配件') set @selectStrWhere=@selectStrWhere + ' and [不装配] = '''''
if(@<>'全部') set @selectStrWhere=@selectStrWhere + ' and [指派对象] in (SELECT value FROM STRING_SPLIT('''+@+''', '',''))'
set @selectStrWhere = @selectStrWhere+ 'ORDER BY
CASE WHEN 齐套时间 IS NULL THEN 1 ELSE 0 END,
齐套时间,计划开始时间 '
set @selectStr=@selectStr+@selectStrWhere
print @selectStr
EXEC sp_executesql @selectStr
END