Files
DP44/DataPRO_sql/dbo.sp_TestObjectsUpdate.StoredProcedure.sql
2026-04-17 14:55:32 -04:00

98 lines
4.2 KiB
Transact-SQL
Raw Permalink 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.
IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[sp_TestObjectsUpdate]') AND type in (N'P', N'PC'))
DROP PROCEDURE [dbo].[sp_TestObjectsUpdate]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[sp_TestObjectsUpdate]') AND type in (N'P', N'PC'))
BEGIN
EXEC dbo.sp_executesql @statement = N'CREATE PROCEDURE [dbo].[sp_TestObjectsUpdate] AS'
END
GO
ALTER PROCEDURE [dbo].[sp_TestObjectsUpdate]
@TestObjectName nvarchar(255) = null
,@LastModifiedBy nvarchar(50)
,@LastModified datetime
,@TemplateId int
,@Template nvarchar(255)
,@LocalOnly bit
,@ParentObject nvarchar(255)
,@SysBuilt bit
,@OrigSerialNumber nvarchar(255)
,@OrigTemplate nvarchar(255)
,@Embedded bit
,@errorNumber int output
,@errorMessage nvarchar(250) output
AS
BEGIN
begin try
set @errorNumber = 0; set @errorMessage = space(0);
if(@TestObjectName is null)
begin
set @errorMessage = 'An invalid parameter or option was specified for procedure'
set @errorNumber = 15600
end
else
begin
declare @TestObjectId int
if(@TestObjectId=0)
begin
set @TestObjectId = dbo.foo_IdGetTestObject(@TestObjectName)
end
if(@TemplateId =0)
begin
set @TemplateId = dbo.foo_IdGetTemplate(@Template)
end
UPDATE [dbo].[TestObjects]
SET [LastModifiedBy] = @LastModifiedBy
,[LastModified] = @LastModified
,[TemplateId] = @TemplateId
,[LocalOnly] = @LocalOnly
,[ParentObject] = @ParentObject
,[SysBuilt] = @SysBuilt
,[OrigSerialNumber] = @OrigSerialNumber
,[OrigTemplate] = @OrigTemplate
,[Embedded] = @Embedded
WHERE [TestObjectId] = @TestObjectId
end
end try
begin catch
set @errorMessage = error_message()
set @errorNumber = error_number()
end catch;
END
GO