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 [email protected].