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].

comments powered by Disqus

Featured

  • Clustering Non-Numeric Data Using C#

    Clustering non-numeric -- or categorial -- data is surprisingly difficult, but it's explained here by resident data scientist Dr. James McCaffrey of Microsoft Research, who provides all the code you need for a complete system using an algorithm based on a metric called category utility (CU), a measure how much information you gain by clustering.

  • So What's Up with Microsoft's (and Everyone Else's) Love of Rust?

    Microsoft already stewards several popular programming languages -- C#, TypeScript, F# -- so what's up with its love of Rust, along with the rest of the world?

  • C# Steps Up Programming Language Popularity Ladder

    Microsoft's C# programming language climbed a year-over-year notch on the TIOBE Index, which measures popularity among developers.

  • VS Code Java Tool Updates Debugging, Refactoring

    The monthly update to the tooling that boosts Java development in the open source, cross-platform Visual Studio Code editor highlights debugging, refactoring and more.

  • Microsoft Plugs Away at Blazor for Mobile in Preview 3

    Microsoft is furthering its work to target mobile app development with Blazor, the ASP.NET Core offering that originally was developed to allow for C#-based web development instead of JavaScript through the use of WebAssembly for the client side.

.NET Insight

Sign up for our newsletter.

Terms and Privacy Policy consent

I agree to this site's Privacy Policy.

Upcoming Events