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.

comments powered by Disqus

Featured

  • How to Create a Machine Learning Decision Tree Classifier Using C#

    After earlier explaining how to compute disorder and split data in his exploration of machine learning decision tree classifiers, resident data scientist Dr. James McCaffrey of Microsoft Research now shows how to use the splitting and disorder code to create a working decision tree classifier.

  • Microsoft: Move from Traditional ASP.NET to 'Core' Requires 'Heavy Lifting'

    There are plenty of reasons to move traditional ASP.NET web apps -- part of the old .NET Framework -- to the new cross-platform direction, ASP.NET Core, but beware it will require some "heavy lifting," Microsoft says.

  • Purple Blue Nebula Graphic

    How to Compute Disorder for Machine Learning Decision Trees Using C#

    Using a decision tree classifier from a machine learning library is often awkward because it usually must be customized and library decision trees have many complex supporting functions, says resident data scientist Dr. James McCaffrey, so when he needs a decision tree classifier, he always creates one from scratch. Here's how.

  • Blazor's Future: gRPC Is Key

    Blazor guru Steve Sanderson detailed what Microsoft is thinking about the future of the revolutionary project that enables .NET-based web development using C# instead of JavaScript, explaining how gRPC is key, along with a new way of testing and a scheme for installable desktop apps.

  • Don't Do It All Yourself: Exploiting gRPC Well Known Types in .NET Core

    If you're creating business services that send dates and decimal data then you may be concerned that gRPC services don't support the relevant data types. Don't Panic! There are solutions. Here's how to use them.

.NET Insight

Sign up for our newsletter.

Terms and Privacy Policy consent

I agree to this site's Privacy Policy.

Upcoming Events