ISProviderGroup.ContainsPPPUOnDate

Description

This function checks if the provider group contains PPPU with the specified ID on the specified date.

Syntax

object.ContainsPPPUOnDate(aPPPUID, aDate)

Part	Attribute	Type	Description
`object`	Required	ISProviderGroup	The `object` always implements the ISProviderGroup interface
`aPPPUID`	In, Required	int	ID of the PPPU
`aDate`	In, Required	DateTime	The date when the PPPU is the member of the group

Return Value

bool

Returns True if the provider group contains PPPU with the specified ID on the specified date.

Example

Display the number of the provider groups loaded on the basis of the selected filter and check if the provider group contains PPPU with the specified ID on the specified date.

Dim aFilter
Dim aProviderGroups
Dim aProviderGroup
Dim aMessage
Dim i 
Dim aProvider

Set aFilter = Profile.CreateProviderGroupFilter
aFilter.ID = 154
set aProviderGroups = Profile.LoadProviderGroups(aFilter)

aMessage = "Provider Groups Count = " & aProviderGroups.Count

for i = 0 to aProviderGroups.Count - 1
  set aProviderGroup = aProviderGroups.Items(i)
  aMessage = aMessage & vbNewLine & aProviderGroup.Name 

  set aProvider = Profile.LoadProvider ("MM")
  if aProviderGroup.ContainsPPPUOnDate(aProvider.Id, #09/09/2017#) then
    aMessage = aMessage & vbNewLine & "The Provider Group '" &_ 
      aProviderGroup.Name & "' contains " & aProvider.FullName 
  else  
    aMessage = aMessage & vbNewLine & "The Provider Group '" &_
      aProviderGroup.Name & "' does not contain " & aProvider.FullName
  end if 
next
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Contains PPPU On Date cannot be found, but PPPU can be found in Organisation > People & Places > People and Places > Edit > Members.

Version information

Added in v8.2.0