2023-02-20 001 焊接修改

This commit is contained in:
2023-02-20 10:49:51 +08:00
parent 7e66339f48
commit ef6bbc170e
37 changed files with 1649 additions and 306 deletions
@@ -0,0 +1,136 @@
alter table HJGL_Pipeline_Component add ProductionState int
Go
update HJGL_WeldJoint set WeldingMode=task.WeldingMode
from HJGL_WeldJoint as joint ,HJGL_WeldTask as task
where task.WeldJointId =joint.WeldJointId and task.WeldingMode !=''
Go
update Sys_Menu set SortIndex='105' where MenuId='7FE911EF-616A-4F04-AACD-E53E633A9E86'
Go
/****** Object: Table [dbo].[HJGL_Pipeline_ComponentJoint] Script Date: 2023/2/18 16:21:52 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[HJGL_Pipeline_ComponentJoint](
[Id] [varchar](50) NOT NULL,
[PipelineComponentId] [varchar](50) NULL,
[PipelineComponentCode] [varchar](50) NULL,
[WeldJointId] [varchar](50) NULL,
[WeldJointCode] [varchar](50) NULL,
[State] [int] NULL,
CONSTRAINT [PK_HJGL_Pipeline_ComponentJoint] PRIMARY KEY CLUSTERED
(
[Id] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
/*
create by shuke.li 2020-9-15
*/
create function [dbo].[SplitString]
(
@Input nvarchar(max), --input string to be separated
@Separator nvarchar(max)=',', --a string that delimit the substrings in the input string
@RemoveEmptyEntries bit=1 --the return value does not include array elements that contain an empty string
)
returns @TABLE table
(
[Id] int identity(1,1),
[Value] nvarchar(max)
)
as
begin
declare @Index int, @Entry nvarchar(max)
set @Index = charindex(@Separator,@Input)
while (@Index>0)
begin
set @Entry=ltrim(rtrim(substring(@Input, 1, @Index-1)))
if (@RemoveEmptyEntries=0) or (@RemoveEmptyEntries=1 and @Entry<>'')
begin
insert into @TABLE([Value]) Values(@Entry)
end
set @Input = substring(@Input, @Index+datalength(@Separator)/2, len(@Input))
set @Index = charindex(@Separator, @Input)
end
set @Entry=ltrim(rtrim(@Input))
if (@RemoveEmptyEntries=0) or (@RemoveEmptyEntries=1 and @Entry<>'')
begin
insert into @TABLE([Value]) Values(@Entry)
end
return
end
GO
DECLARE
@PipelineComponentId varchar( 50 ),
@PipelineComponentCode varchar( 100 ),
@PipelineId varchar( 100 ),
@QRCode varchar( max ),
@QRCodeItem varchar( 100 )
DECLARE cursor_name CURSOR FOR -- 定义游标
select PipelineComponentId ,PipelineComponentCode,PipelineId, QRCode from HJGL_Pipeline_Component where QRCode !=''
OPEN cursor_name -- 打开游标
FETCH NEXT FROM cursor_name INTO @PipelineComponentId,@PipelineComponentCode,@PipelineId ,@QRCode -- 抓取下一行游标数据
WHILE @@FETCH_STATUS = 0 --(-1 语句失败, -2 被提取行不存在)
BEGIN
DECLARE QRCodeList CURSOR FOR -- 定义游标
select value from [dbo].[SplitString](@QRCode, ';', 0)
OPEN QRCodeList -- 打开游标
FETCH NEXT FROM QRCodeList INTO @QRCodeItem -- 抓取下一行游标数据
WHILE @@FETCH_STATUS = 0 --(-1 语句失败, -2 被提取行不存在)
BEGIN
DECLARE @jointcount int;
DECLARE @WeldJointId varchar( 100 ) ;
DECLARE @WeldJointCode varchar( 100 )
set @jointcount= (select COUNT (*) from HJGL_WeldJoint where PipelineId =@PipelineId and WeldJointCode = SUBSTRING(@QRCodeItem,2,LEN(@QRCodeItem)-1) )
set @WeldJointId= (select WeldJointId from HJGL_WeldJoint where PipelineId =@PipelineId and WeldJointCode =SUBSTRING(@QRCodeItem,2,LEN(@QRCodeItem)-1))
set @WeldJointCode= (select WeldJointCode from HJGL_WeldJoint where PipelineId =@PipelineId and WeldJointCode =SUBSTRING(@QRCodeItem,2,LEN(@QRCodeItem)-1))
--print @QRCodeItem
if @jointcount>0
begin
DECLARE @ComponentJointcount int;
set @ComponentJointcount=(select COUNT (*) from HJGL_Pipeline_ComponentJoint where WeldJointId= @WeldJointId)
if @ComponentJointcount>0
begin
print '更新焊口'+@WeldJointCode
update HJGL_Pipeline_ComponentJoint set PipelineComponentId=@PipelineComponentId,PipelineComponentCode =@PipelineComponentCode where Id in (select Id from HJGL_Pipeline_ComponentJoint where WeldJointId= @WeldJointId );
end
else
begin
print '插入焊口'+@WeldJointCode
insert into HJGL_Pipeline_ComponentJoint values(NEWID(),@PipelineComponentId,@PipelineComponentCode,@WeldJointId,@WeldJointCode,0)
end
end
FETCH NEXT FROM QRCodeList INTO @QRCodeItem
END
CLOSE QRCodeList -- 关闭游标
DEALLOCATE QRCodeList -- 释放游标
FETCH NEXT FROM cursor_name INTO @PipelineComponentId,@PipelineComponentCode,@PipelineId ,@QRCode
END
CLOSE cursor_name -- 关闭游标
DEALLOCATE cursor_name -- 释放游标
@@ -252,7 +252,7 @@ GO
--------------------------------------------------------------------------------------------------------------------------------
--6.热处理/硬度管理
INSERT INTO dbo.Sys_Menu(MenuId,MenuName,Url,SortIndex,SuperMenu,MenuType,IsOffice,IsEnd,IsUsed)
VALUES('7FE911EF-616A-4F04-AACD-E53E633A9E86','热处理/硬度管理','',60,'0','Menu_HJGL',0,0,1)
VALUES('7FE911EF-616A-4F04-AACD-E53E633A9E86','热处理/硬度管理','',105,'0','Menu_HJGL',0,0,1)
GO
INSERT INTO dbo.Sys_Menu(MenuId,MenuName,Url,SortIndex,SuperMenu,MenuType,IsOffice,IsEnd,IsUsed)