dbo.QBM_PDatabasePrepare

1     create   procedure QBM_PDatabasePrepare (@ConnectionProvider nvarchar(255) = '' , @ConnectionString nvarchar(max) = '' ) as begin declare @DebugLevel
2 char(1) = 'W' declare @DebugMessage nvarchar(2000) declare @UID_NewObject varchar(38) declare @ModuleOwner varchar(3)  declare @xdate datetime = getutcdate
3() declare @XUser nvarchar(64) = object_name(@@procid) declare @server nvarchar(64) SET XACT_ABORT OFF BEGIN TRY set nocount on   exec QBM_PDialogDatabaseInitialInfo
4 if not exists (select top 1 1 from dialogdatabase ) begin  update DialogConfigParm set Value = '5'  , XDateUpdated = @Xdate , XUserUpdated = @XUser where
5 FullPath = 'QBM\DBQueue\CountSlotsMax' update DialogConfigParm set Value = '20'  , XDateUpdated = @Xdate , XUserUpdated = @XUser where FullPath = 'QBM\DBQueue\KeepAlive'
6 end update dialogdatabase set DataOrigin = dbo.QBM_FGIDBDataOrigin() , XDateUpdated = @xdate , XUserUpdated = @XUser where IsMainDatabase = 1 and isnull
7(DataOrigin,0) <> dbo.QBM_FGIDBDataOrigin() update dialogdatabase set ConnectionString = case  when @ConnectionString > ' ' then @ConnectionString else
8 'User ID=<sql-user>;initial Catalog=<database>;Data Source=<DB-Server>;Password=<sql-user-password>;pooling= ''false''' end , XDateUpdated = @xdate , 
9XUserUpdated = @XUser from DialogDatabase d where d.IsMainDatabase = 1 and (isnull(d.ConnectionString,N'') = N'' or @ConnectionString > ' ' and d.ConnectionString
10 like '%ID=<sql-user>%'  or (@ConnectionString > ' ' and d.ConnectionString not like '%ID=<sql-user>%' and d.ConnectionString <> @ConnectionString  and
11 @Connectionstring like '%Password=[^;<]%'  ) ) update dialogdatabase set ConnectionProvider = case  when @ConnectionProvider > ' ' then @ConnectionProvider
12 else 'VI.DB.ViSqlFactory,VI.DB' end , XDateUpdated = @xdate , XUserUpdated = @XUser where IsMainDatabase = 1 and isnull(ConnectionProvider,N'') = N'' 
13update DialogDatabase set ModuleOwner = 'CCC' , XDateUpdated = @xdate , XUserUpdated = @XUser where IsMainDatabase = 1 and ISNULL(ModuleOwner, '') = ''
14 update DialogDatabase set UID_DialogCultureDefault = 'QBM-CULT-en-US' , XDateUpdated = @xdate , XUserUpdated = @XUser where ISNULL(UID_DialogCultureDefault
15, '') = '' and IsMainDatabase = 1  select @ModuleOwner = null select top 1 @ModuleOwner = d.ModuleOwner from DialogDatabase d with (readpast) where d.IsMainDatabase
16 = 1 if @ModuleOwner is null begin select @ModuleOwner = 'CCC' end exec QBM_PDatabasePrepareCheck1  if not exists ( select top 1 1 from QBMServerTag t 
17where t.UID_QBMServerTag = 'QBM-ST-Is07' ) begin insert into QBMServerTag (UID_QBMServerTag, Ident_QBMServerTag, Description, XObjectKey , XUserInserted
18, XUserUpdated, XDateInserted, XDateUpdated ) select 'QBM-ST-Is07', 'IsMasterSQL', 'aka is07', dbo.QBM_FCVElementToObjectKey1('QBMServerTag', 'UID_QBMServerTag'
19, 'QBM-ST-Is07') , @XUser, @XUser, @xdate, @xdate end if exists (select top 1 1 from QBMModuleDef d where d.ModuleName = 'SIM' ) begin select @server =
20 'cloudserver-0' select @UID_NewObject = '5DC98AAD-A7F7-4BA9-B66C-5C0B1DF641F2' end else begin select @UID_NewObject = NEWID() select @server = left(trim
21(@@servername), 64)  end if charindex(N'\' , @server) > 0 begin select @server = substring(@server, 1, charindex(N'\' , @server)-1) end  if not exists 
22(select top 1 1 from QBMServerHasServerTag ht where ht.UID_QBMServerTag = 'QBM-ST-Is07'  ) begin  if exists (select top 1 1 from QBMServer where ident_server
23 = @server ) begin insert into QBMServerHasServerTag (UID_QBMServer, UID_QBMServerTag, XObjectKey , XUserInserted, XUserUpdated, XDateInserted, XDateUpdated
24 ) select s.uid_QBMServer, t.UID_QBMServerTag, dbo.QBM_FCVElementToObjectKey2('QBMServerHasServerTag', 'UID_QBMServer', s.UID_QBMServer, 'UID_QBMServerTag'
25, t.UID_QBMServerTag) , @XUser, @XUser, @xdate, @xdate from QBMServer s, QBMServerTag t where t.UID_QBMServerTag = 'QBM-ST-Is07'  and s.Ident_Server = 
26@server select @DebugMessage = 'server "' + @server + '" updated as MasterSQL (Is07)' exec QBM_PJournal @DebugMessage, @@PROCID, 'D', @DebugLevel end else
27 begin  insert into QBMServer (UID_QBMServer, Ident_Server, QueueName, XObjectKey , XUserInserted, XUserUpdated, XDateInserted, XDateUpdated  ) values 
28(@UID_NewObject, @server , N'\' + @server , dbo.QBM_FCVElementToObjectKey1('QBMServer', 'UID_QBMServer', @UID_NewObject) , @XUser, @XUser, @xdate, @xdate
29 ) insert into QBMServerHasServerTag (UID_QBMServer, UID_QBMServerTag, XObjectKey , XUserInserted, XUserUpdated, XDateInserted, XDateUpdated ) select @UID_NewObject
30, t.UID_QBMServerTag, dbo.QBM_FCVElementToObjectKey2('QBMServerHasServerTag', 'UID_QBMServer', @UID_NewObject, 'UID_QBMServerTag', t.UID_QBMServerTag) 
31, @XUser, @XUser, @xdate, @xdate from QBMServerTag t where t.UID_QBMServerTag = 'QBM-ST-Is07'  select @DebugMessage = 'server "' + @server + '" created as MasterSQL (Is07)'
32 exec QBM_PJournal @DebugMessage, @@PROCID, 'D', @DebugLevel end   delete QBMServerHasServerTag where UID_QBMServerTag = 'QBM-ST-Is07' and UID_QBMServer
33 not in (select UID_QBMServer from QBMServer where ident_server = @server ) end   if not exists (select top 1 1 from QBMServerHasServerTag ht where ht.UID_QBMServerTag
34 = 'QBM-ST-Is12'  ) begin  select @server = N'' select top 1 @server = ident_server from QBMServer s join QBMServerHasServerTag sht on s.UID_QBMServer 
35= sht.UID_QBMServer where sht.UID_QBMServerTag = 'QBM-ST-Is07'  insert into QBMServerHasServerTag (UID_QBMServer, UID_QBMServerTag, XObjectKey , XUserInserted
36, XUserUpdated, XDateInserted, XDateUpdated ) select s.uid_QBMServer, t.UID_QBMServerTag, dbo.QBM_FCVElementToObjectKey2('QBMServerHasServerTag', 'UID_QBMServer'
37, s.UID_QBMServer, 'UID_QBMServerTag', t.UID_QBMServerTag) , @XUser, @XUser, @xdate, @xdate from QBMServer s, QBMServerTag t where t.UID_QBMServerTag =
38 'QBM-ST-Is12'  and s.Ident_Server = @server select @DebugMessage = 'server "' + @server + '" updated as Mailserver (is12)' exec QBM_PJournal @DebugMessage
39, @@PROCID, 'D', @DebugLevel end   insert into QBMServerHasServerTag(UID_QBMServer, UID_QBMServerTag , XUserInserted, XUserUpdated, XDateInserted, XDateUpdated
40 , XObjectKey ) select sht.UID_QBMServer, 'QBM-ST-SQLProcessingEnabled' , 'DBMigration', 'DBMigration', GETUTCDATE(), GETUTCDATE() , dbo.QBM_FCVElementToObjectKey2
41('QBMServerHasServerTag', 'UID_QBMServer', sht.UID_QBMServer, 'UID_QBMServerTag', 'QBM-ST-SQLProcessingEnabled') from QBMServerHasServerTag sht where sht.UID_QBMServerTag
42 = 'QBM-ST-Is07' and not exists (select top 1 1 from QBMServerHasServerTag sht2 where sht2.UID_QBMServer = sht.UID_QBMServer and sht2.UID_QBMServerTag 
43= 'QBM-ST-SQLProcessingEnabled' )  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow
44() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH ende: return end 
45