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

Contact Lookup with Updates.

  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()

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at joekunk@gmail.com.