dbo.QBM_PDatabasePrepareCheck1

1  create   procedure QBM_PDatabasePrepareCheck1 (@WithoutPKCorrection bit = 0 ) as begin declare @XUser nvarchar(64) = object_name(@@procid) declare
2 @Xdate datetime = getutcdate() SET XACT_ABORT OFF BEGIN TRY set nocount on update DialogTable set XObjectKey = dbo.QBM_FCVElementToObjectKey1('DialogTable'
3, 'uid_Dialogtable', uid_Dialogtable)  , XDateUpdated = @Xdate , XUserUpdated = @XUser where XObjectKey <> dbo.QBM_FCVElementToObjectKey1('DialogTable'
4, 'uid_Dialogtable', uid_Dialogtable)  exec QBM_PColumnSchemaDataTypeCorr '%'  update dialogcolumn set Datatype = dbo.QBM_FCVSchemaDatatypeToIntern(c.SchemaDataType
5, c.SchemaDatalen)  , XDateUpdated = @Xdate , XUserUpdated = @XUser from DialogColumn c join DialogTable t with (readpast) on c.UID_DialogTable = t.UID_DialogTable
6 where c.Datatype <> dbo.QBM_FCVSchemaDatatypeToIntern(c.SchemaDataType, c.SchemaDatalen) and t.TableType in ('B', 'T', 'M') update dialogcolumn set Datatype
7 = dbo.QBM_FCVSchemaDatatypeToIntern(c.SchemaDataType, c.SchemaDatalen)   , XDateUpdated = @Xdate , XUserUpdated = @XUser from DialogColumn c join DialogTable
8 t with (readpast) on c.UID_DialogTable = t.UID_DialogTable where c.Datatype <> dbo.QBM_FCVSchemaDatatypeToIntern(c.SchemaDataType, c.SchemaDatalen) and
9 t.TableType in ('R', 'U'  , 'P' ) update dialogcolumn set datatype = x.datatype   , XDateUpdated = @Xdate , XUserUpdated = @XUser from dialogcolumn , 
10dialogcolumn x, DialogTable t with (readpast) where dialogcolumn.UID_BaseColumn = x.uid_dialogcolumn and dialogColumn.UID_DialogTable = t.UID_DialogTable
11 and t.tabletype = 'V' and isnull(dialogcolumn.Datatype, -1) <> x.Datatype   update DialogColumn set IsUID = 1  , XDateUpdated = @Xdate , XUserUpdated 
12= @XUser where SchemaDataType = 'varchar' and SchemaDataLen = 38 and IsUID = 0 update DialogColumn set IsUID = 0  , XDateUpdated = @Xdate , XUserUpdated
13 = @XUser where (SchemaDataType <> 'varchar' or SchemaDataLen <> 38 ) and IsUID = 1 if @WithoutPKCorrection = 1 begin goto EndLabel end update DialogColumn
14 set IsPKMember = v.IsPKMember  , XDateUpdated = @Xdate , XUserUpdated = @XUser  from DialogColumn c join dbo.QBM_FTPrimaryKeyInfo_BTVP() v on c.UID_DialogColumn
15 = v.UID_DialogColumn where c.IsPKMember <> v.IsPKMember and v.TableType not in ('U', 'R')     exec QBM_PDialogTablePKNameCorrect '%'  update dialogcolumn
16 set XObjectKey = dbo.QBM_FCVElementToObjectKey1('DialogColumn', 'uid_dialogcolumn', uid_dialogcolumn)  , XDateUpdated = @Xdate , XUserUpdated = @XUser
17 where XObjectKey <> dbo.QBM_FCVElementToObjectKey1('DialogColumn', 'uid_dialogcolumn', uid_dialogcolumn) exec QBM_PTableRevisionFill END TRY BEGIN CATCH
18 exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH 
19endLabel: return end 
20