Build a More Powerful CRM System with Visual Basic .NET Extensions: Listing 2.

Contact Lookup with Updates.

• By Joe Kunk
• 07/01/2012

  framework.LogOn(PADFile, ACTUserName, ACTUserPassword)
  Dim columnState As Act.Framework.Lookups.CriteriaColumn =
      framework.Lookups.GetCriteriaColumn("TBL_CONTACT", "BUSINESS_STATE", isReal:=True)
  Dim equalOperator As Act.Framework.Lookups.OperatorEnum = 
	Act.Framework.Lookups.OperatorEnum.EqualTo
  Dim valueState = "CA"
  Dim criteriaState As Act.Framework.Lookups.Criteria() = New 
	Act.Framework.Lookups.Criteria() {
          New Act.Framework.Lookups.Criteria(
    Act.Framework.Lookups.LogicalOperator.End, leftParen:=CByte(0), rightParen:=CByte(0),
    col:=columnState, opEnum:=equalOperator, Val:=valueState)}
  Dim lookupState As Act.Framework.Lookups.ContactLookup =
      	framework.Lookups.LookupContactsReplace(criteriaState, includePrivate:=True, 	includeUsers:=True)
  Dim contactsState = lookupState.GetContacts(SortCriteria:=Nothing)

  'We have the list of Contacts for CA, now narrow it those living in Los Angeles

  'You can then narrow the lookup by city, sorted by Last Name as follows:
  Dim columnCity = framework.Lookups.GetCriteriaColumn("TBL_CONTACT", 
	"BUSINESS_CITY", isReal:=True)
  Dim valueCity = "Los Angeles"
  Dim lookupCity = framework.Lookups.LookupContactsNarrow(
      	contactsState, valueCity, Act.Framework.Lookups.OperatorEnum.EqualTo, columnCity)
  Dim lastNameField = framework.Contacts.GetFieldDescriptor( 	name:="TBL_CONTACT.LASTNAME", isReal:=True)
  Dim firstNameField = framework.Contacts.GetFieldDescriptor( 	name:="TBL_CONTACT.FIRSTNAME", isReal:=True)
  Dim User10Field = framework.Contacts.GetFieldDescriptor( 
	name:="TBL_CONTACT.USER10", isReal:=True)
  Dim sortByLastFirstNameAscending() As SortCriteria = {
      New SortCriteria(lastNameField, 
		System.ComponentModel.ListSortDirection.Ascending),
      New SortCriteria(firstNameField, 
		System.ComponentModel.ListSortDirection.Ascending)}
  Dim contactsStateCity = lookupCity.GetContacts(sortByLastFirstNameAscending)


  Dim displayList As New List(Of ContactIdentity)
  For i = 0 To contactsStateCity.Count - 1
      displayList.Add(
          New ContactIdentity With {
		.CompanyName = contactsStateCity(i).Company,
		.LastName = contactsStateCity.Item(i).LastName,
		.FirstName = contactsStateCity.Item(i).FirstName,
		.City = contactsStateCity(i).Fields("CITY",
		        Act.Framework.MutableEntities.FieldNameType.Alias),
		.State = contactsStateCity(i).Fields("STATE",
		        Act.Framework.MutableEntities.FieldNameType.Alias),
	          .Phone = contactsStateCity(i).Fields("PHONE",
			 Act.Framework.MutableEntities.FieldNameType.Alias),
	          .MobilePhone = contactsStateCity(i).Fields("MOBILE_PHONE",
		        Act.Framework.MutableEntities.FieldNameType.Alias)
          })

      'For illustration purposes, 
	‘change the User10 field to the current date/time if blank
      If contactsStateCity(i).Fields("USER10",
	   Act.Framework.MutableEntities.FieldNameType.Alias) =
          String.Empty AndAlso contactsStateCity(i).IsRequestingUserRecordManager Then
       	User10Field.SetValue(contactsStateCity(i), Now.ToString)
	       contactsStateCity(i).Update()
      End If
  Next
  Me.DataGridView1.DataSource = displayList
  framework.LogOff()