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

  • AI for GitHub Collaboration? Maybe Not So Much

    No doubt GitHub Copilot has been a boon for developers, but AI might not be the best tool for collaboration, according to developers weighing in on a recent social media post from the GitHub team.

  • Visual Studio 2022 Getting VS Code 'Command Palette' Equivalent

    As any Visual Studio Code user knows, the editor's command palette is a powerful tool for getting things done quickly, without having to navigate through menus and dialogs. Now, we learn how an equivalent is coming for Microsoft's flagship Visual Studio IDE, invoked by the same familiar Ctrl+Shift+P keyboard shortcut.

  • .NET 9 Preview 3: 'I've Been Waiting 9 Years for This API!'

    Microsoft's third preview of .NET 9 sees a lot of minor tweaks and fixes with no earth-shaking new functionality, but little things can be important to individual developers.

  • Data Anomaly Detection Using a Neural Autoencoder with C#

    Dr. James McCaffrey of Microsoft Research tackles the process of examining a set of source data to find data items that are different in some way from the majority of the source items.

  • What's New for Python, Java in Visual Studio Code

    Microsoft announced March 2024 updates to its Python and Java extensions for Visual Studio Code, the open source-based, cross-platform code editor that has repeatedly been named the No. 1 tool in major development surveys.

Subscribe on YouTube