You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
4.5 KiB
77 lines
4.5 KiB
USE [Vertragsverwaltung_20160404]
|
|
GO
|
|
/****** Object: StoredProcedure [dbo].[dt_whocheckedout] Script Date: 02.12.2016 09:08:54 ******/
|
|
DROP PROCEDURE [dbo].[dt_whocheckedout]
|
|
GO
|
|
/****** Object: StoredProcedure [dbo].[dt_whocheckedout] Script Date: 02.12.2016 09:08:54 ******/
|
|
SET ANSI_NULLS ON
|
|
GO
|
|
SET QUOTED_IDENTIFIER OFF
|
|
GO
|
|
create proc [dbo].[dt_whocheckedout]
|
|
@chObjectType char(4),
|
|
@vchObjectName varchar(255),
|
|
@vchLoginName varchar(255),
|
|
@vchPassword varchar(255)
|
|
|
|
as
|
|
|
|
set nocount on
|
|
|
|
declare @iReturn int
|
|
declare @iObjectId int
|
|
select @iObjectId =0
|
|
|
|
declare @VSSGUID varchar(100)
|
|
select @VSSGUID = 'SQLVersionControl.VCS_SQL'
|
|
|
|
declare @iPropertyObjectId int
|
|
|
|
select @iPropertyObjectId = (select objectid from dbo.dtproperties where property = 'VCSProjectID')
|
|
|
|
declare @vchProjectName varchar(255)
|
|
declare @vchSourceSafeINI varchar(255)
|
|
declare @vchServerName varchar(255)
|
|
declare @vchDatabaseName varchar(255)
|
|
exec dbo.dt_getpropertiesbyid_vcs @iPropertyObjectId, 'VCSProject', @vchProjectName OUT
|
|
exec dbo.dt_getpropertiesbyid_vcs @iPropertyObjectId, 'VCSSourceSafeINI', @vchSourceSafeINI OUT
|
|
exec dbo.dt_getpropertiesbyid_vcs @iPropertyObjectId, 'VCSSQLServer', @vchServerName OUT
|
|
exec dbo.dt_getpropertiesbyid_vcs @iPropertyObjectId, 'VCSSQLDatabase', @vchDatabaseName OUT
|
|
|
|
if @chObjectType = 'PROC'
|
|
begin
|
|
exec @iReturn = master.dbo.sp_OACreate @VSSGUID, @iObjectId OUT
|
|
|
|
if @iReturn <> 0 GOTO E_OAError
|
|
|
|
declare @vchReturnValue varchar(255)
|
|
select @vchReturnValue = ''
|
|
|
|
exec @iReturn = master.dbo.sp_OAMethod @iObjectId,
|
|
'WhoCheckedOut',
|
|
@vchReturnValue OUT,
|
|
@sProjectName = @vchProjectName,
|
|
@sSourceSafeINI = @vchSourceSafeINI,
|
|
@sObjectName = @vchObjectName,
|
|
@sServerName = @vchServerName,
|
|
@sDatabaseName = @vchDatabaseName,
|
|
@sLoginName = @vchLoginName,
|
|
@sPassword = @vchPassword
|
|
|
|
if @iReturn <> 0 GOTO E_OAError
|
|
|
|
select @vchReturnValue
|
|
|
|
end
|
|
|
|
CleanUp:
|
|
return
|
|
|
|
E_OAError:
|
|
exec dbo.dt_displayoaerror @iObjectId, @iReturn
|
|
GOTO CleanUp
|
|
|
|
|
|
|
|
GO
|