OpenEdge.DataAdmin.Binding.TenantGroupContext

/*** 11.0 September 20, 2011 - remove ... /* Called from merge with the changes returned from server to keep track of which partitions that will need to be refreshed. */ method private logical CreatePartionRefreshIds (pdsChanged as handle): define variable hQuery as handle no-undo. define variable hBuffer as handle no-undo. define variable hBefore as handle no-undo. define variable lok as logical no-undo. define variable lRefresh as logical no-undo. define variable hPartition as handle no-undo. hbuffer = pdsChanged:get-buffer-handle ("ttTenantGroup"). create query hQuery. hquery:add-buffer (hbuffer). hQuery:query-prepare ("for each ttTenantGroup"). hquery:query-open(). hquery:get-first. loop: do while hbuffer:avail: if hbuffer:row-state = row-created then do transaction on error undo, leave loop: create ttGroupNameRequest. assign ttGroupNameRequest.Id = hBuffer::Id ttGroupNameRequest.ObjectType = hBuffer::ObjectType ttGroupNameRequest.ObjectNumber = hBuffer::ObjectNumber ttGroupNameRequest.Name = hBuffer::name. end. hQuery:get-next. lok = true. end. end method. method public logical HasPartitionChanges(): define variable hBuffer as handle no-undo. hbuffer = GetChild("partitions"):Tablehandle:default-buffer-handle. return hBuffer:before-buffer:table-handle:has-records. end method. method public logical NeedPartitionRefresh(): define variable lok as logical no-undo. return can-find(first ttGroupNameRequest). end method. method private logical EmptyPartitionRefresh(): empty temp-table ttGroupNameRequest. end method. method private void DeletePartitionsBeforeRequest (): define variable hQuery as handle no-undo. define variable hBuffer as handle no-undo. create query hQuery. /* now workaround the fact that fill cannot replace (even if it should? ) */ hbuffer = GetChild("partitions"):Tablehandle:default-buffer-handle. hquery:set-buffers (buffer ttGroupNameRequest:handle). hquery:add-buffer (hbuffer). hQuery:query-prepare ("for each ttGroupNameRequest, each ttPartition where ttGroupNameRequest.name = ttPartition.TenantGroupname"). hquery:query-open(). hquery:get-first. /* hBuffer:table-handle:tracking-changes = false.*/ do while hbuffer:avail: hBuffer:buffer-delete (). hQuery:get-next. end. /* hBuffer:table-handle:tracking-changes = true.*/ delete object hQuery. end method. method private IFetchRequest CreatePartitionRefreshRequest (): define variable tree as IContextTree no-undo. define variable msg as IFetchRequest no-undo. tree = new ContextTree(). tree:Parse = true. tree:SetHandle("requests",buffer ttGroupNameRequest:handle). GetChild("partitions"):AddTableTo(tree). msg = new FetchRequest("Partition",Id,tree:GetReadHandle()). return msg. end method. method override public void MergeChanges( pResponse as ISaveRequest ): define variable lok as logical no-undo. define variable msg as IFetchRequest no-undo. if not NeedPartitionRefresh() then do: CreatePartionRefreshIds(pResponse:DataHandle). end. super:MergeChanges(pResponse). if (not HasPartitionChanges()) and NeedPartitionRefresh() then do: DeletePartitionsBeforeRequest(). msg = CreatePartitionRefreshRequest(). msg:UseReplaceOnClient = false. FetchData(msg). EmptyPartitionRefresh(). end. end method. */

CHARACTER GetChildQuery (IRow)

CHARACTER GetCreateError (ITenantGroup)

CHARACTER GetJoinFields (character)

OpenEdge.DataAdmin.Binding.IDataAdminModel GetNamedChild (character)

/* support many-to-many to tenants (tenants as child) */

OpenEdge.DataAdmin.Binding.PartitionContext GetPartitionContext ()

HANDLE GetQueryHandles (character)

OpenEdge.DataAdmin.Message.IFetchRequest GetRequest ()

/* method public ISaveRequest GetCreateRequest(): define variable hchanges as handle no-undo. define variable savemsg as ISaveRequest no-undo. SaveDataset = CreateDataset("tenantGroupMembers"). hchanges = GetChanges(SaveDataset). savemsg = new SaveRequest(Name,Id,hchanges). /* mCreate = true.*/ return savemsg. end method. */

CHARACTER GetServerChildQuery (IRow)

initChildren ()

initChildren (IContextScope)

initChildren (IMultiTenantScope)

HANDLE InitDataset ()

/* temporary until all sub classes are using createDataset */

MergeChanges (ISaveRequest)

/** override to refresh partitions for create */

LOGICAL PartitionsNeedRefresh (character)

/** called from merge to check if allocationstate of a table changed */

LOGICAL RefreshPartitions (handle)

SerializeRow (handle)

ValidateGroup (ITenantGroup)

ValueChanged (character, character, character)

Options

Name

Purpose

TenantGroupContext ()

TenantGroupContext (IMultiTenantScope)

Options

Name

Purpose

INTEGER Count

CHARACTER KeyFields

HANDLE TableHandle

	/* Called from merge with the changes returned from server to keep track of
	which partitions that will need to be refreshed.
	method private logical CreatePartionRefreshIds (pdsChanged as handle):
	define variable hQuery as handle no-undo.
	define variable hBuffer as handle no-undo.
	define variable hBefore as handle no-undo.
	define variable lok as logical no-undo.
	define variable lRefresh as logical no-undo.
	define variable hPartition as handle no-undo.
	hbuffer = pdsChanged:get-buffer-handle ("ttTenantGroup").
	create query hQuery.
hquery:add-buffer	add-buffer (hbuffer).
hQuery:query-prepare	query-prepare ("for each ttTenantGroup").
hquery:query-open().	query-open().
hquery:get-first.	get-first.
loop:
	do while hbuffer:avail:
	if hbuffer:row-state = row-created then
	do transaction on error undo, leave loop:
	create ttGroupNameRequest.
	assign
	ttGroupNameRequest.Id = hBuffer::Id
	ttGroupNameRequest.ObjectType = hBuffer::ObjectType
	ttGroupNameRequest.ObjectNumber = hBuffer::ObjectNumber
	ttGroupNameRequest.Name = hBuffer::name.
	end.
hQuery:get-next.	get-next.
	lok = true.
	end.
	end method.
	method public logical HasPartitionChanges():
	define variable hBuffer as handle no-undo.
	hbuffer = GetChild("partitions"):Tablehandle:default-buffer-handle.
	return hBuffer:before-buffer:table-handle:has-records.
	end method.
	method public logical NeedPartitionRefresh():
	define variable lok as logical no-undo.
	return can-find(first ttGroupNameRequest).
	end method.
	method private logical EmptyPartitionRefresh():
	empty temp-table ttGroupNameRequest.
	end method.
	method private void DeletePartitionsBeforeRequest ():
	define variable hQuery as handle no-undo.
	define variable hBuffer as handle no-undo.
	create query hQuery.
	/* now workaround the fact that fill cannot replace (even if it should? )
	hbuffer = GetChild("partitions"):Tablehandle:default-buffer-handle.
hquery:set-buffers	set-buffers (buffer ttGroupNameRequest:handle).
hquery:add-buffer	add-buffer (hbuffer).
hQuery:query-prepare	query-prepare ("for each ttGroupNameRequest, each ttPartition where ttGroupNameRequest.name = ttPartition.TenantGroupname").
hquery:query-open().	query-open().
hquery:get-first.	get-first.
	/* hBuffer:table-handle:tracking-changes = false.
	do while hbuffer:avail:
hBuffer:buffer-delete	buffer-delete ().
hQuery:get-next.	get-next.
	end.
	/* hBuffer:table-handle:tracking-changes = true.
	delete object hQuery.
	end method.
	method private IFetchRequest CreatePartitionRefreshRequest ():
	define variable tree as IContextTree no-undo.
	define variable msg as IFetchRequest no-undo.
	tree = new ContextTree().
tree:Parse	Parse = true.
tree:SetHandle("requests",buffer	SetHandle("requests",buffer ttGroupNameRequest:handle).
GetChild("partitions"):AddTableTo(tree).	AddTableTo(tree).
	msg = new FetchRequest("Partition",Id,tree:GetReadHandle()).
	return msg.
	end method.
	method override public void MergeChanges( pResponse as ISaveRequest ):
	define variable lok as logical no-undo.
	define variable msg as IFetchRequest no-undo.
	if not NeedPartitionRefresh() then
do:
CreatePartionRefreshIds(pResponse:DataHandle).	DataHandle).
	end.
super:MergeChanges(pResponse).	MergeChanges(pResponse).
	if (not HasPartitionChanges()) and NeedPartitionRefresh() then
do:
	DeletePartitionsBeforeRequest().
	msg = CreatePartitionRefreshRequest().
msg:UseReplaceOnClient	UseReplaceOnClient = false.
	FetchData(msg).
	EmptyPartitionRefresh().
	end.
	end method.

Parameters:
i	INTEGER

Returns	CHARACTER