dbo.QER_PBasetreeHasObjectPostProc

1   create   procedure QER_PBasetreeHasObjectPostProc ( @CountDeltaOrigin int , @CountDeltaQantity int ) as begin declare @ElementCount int declare
2 @ElementIndex int declare @ElementLast int declare @GenProcID varchar(38) declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') SET XACT_ABORT
3 OFF BEGIN TRY if @CountDeltaOrigin > 0 begin declare @GenProcIDs_CountDeltaOrigin QBM_YCursorBuffer insert into @GenProcIDs_CountDeltaOrigin (UID1) select
4 distinct de.GenProcID from #QBMDeltaOrigin de select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount +1 select @ElementLast
5 = @@IDENTITY while @ElementIndex <= @ElementLast begin select top 1 @GenProcID = bu.UID1 from @GenProcIDs_CountDeltaOrigin bu where bu.ElementIndex = 
6@ElementIndex exec QBM_PSessionContextSet 'GenProcID', @GenProcID update BaseTreeHasObject set InheritInfo = di.XOrigin from BaseTreeHasObject bho join
7 #QBMDeltaOrigin di on bho.uid_Org = di.Element and bho.Objectkey = di.AssignedElement where di.GenProcID = @GenProcID select @ElementIndex += 1 end  end
8  if @CountDeltaQantity > 0 begin  update #QBMDeltaInsert  set NewPK = dbo.QBM_FCVStringToGUIDMAll(null, Element, AssignedElement)  declare @GenProcIDs_CountDeltaQuantity
9 QBM_YCursorBuffer insert into @GenProcIDs_CountDeltaQuantity (UID1) select de.GenProcID from #QBMDeltaDelete de union select de.GenProcID from #QBMDeltaInsert
10 de select @ElementCount = @@ROWCOUNT select @ElementIndex = @@IDENTITY - @ElementCount +1 select @ElementLast = @@IDENTITY while @ElementIndex <= @ElementLast
11 begin select top 1 @GenProcID = bu.UID1 from @GenProcIDs_CountDeltaQuantity bu where bu.ElementIndex = @ElementIndex if exists (select top 1 1 from #QBMDeltaDelete
12 x where x.GenProcID = @GenProcID ) begin exec QBM_PSessionContextSet 'GenProcID', @GenProcID delete from BaseTreeHasObject where exists (select top 1 
131 from #QBMDeltaDelete where Element = BaseTreeHasObject.uid_Org and AssignedElement = BaseTreeHasObject.ObjectKey and GenProcID = @GenProcID ) end  if
14 exists (select top 1 1 from #QBMDeltaInsert x where x.GenProcID = @GenProcID ) begin exec QBM_PSessionContextSet 'GenProcID', @GenProcID  insert into 
15BaseTreeHasObject (UID_BaseTreeHasObject, UID_Org ,ObjectKey , XObjectKey, InheritInfo) select di.NewPK, di.Element, di.AssignedElement, dbo.QBM_FCVElementToObjectKey1
16('BaseTreeHasObject', 'UID_BaseTreeHasObject', di.NewPK), XOrigin from #QBMDeltaInsert di where di.GenProcID = @GenProcID  and not exists (select top 1
17 1 from BasetreeHasObject where UID_BaseTreeHasObject = di.NewPK) end  select @ElementIndex += 1 end  end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
18 default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH ende: exec QBM_PSessionContextSet
19 'GenProcID', @GenProcID_R return end 
20