Page Sets; Ability to show Company Lookup form added

Public Sub txtCompany_ButtonClick(sender As Object, e As finPageObjectButtonClickEventArgs) Handles txtOrganisationName.ButtonClick, txtCompanyNumber.ButtonClick

  Dim ExistingDetails As ISKeyValueList
  Dim DetailsToUpdate As ISKeyValueList
  Dim Results As ISKeyValueList
  Dim SearchBy As isefinCompanyLookupSearchBy 
  Dim SearchQuery As String

  ExistingDetails = finBL.CreateKeyValueList()
  With ExistingDetails
    .SetString("CompanyName", txtOrganisationName.Text)
    .SetString("CompanyNumber", txtCompanyNumber.Text)
  End With
  
  If sender Is txtOrganisationName Then
    SearchBy = isefinCompanyLookupSearchBy.CompanyName
    SearchQuery = txtOrganisationName.Text
  Else
    SearchBy = isefinCompanyLookupSearchBy.CompanyNumber
    SearchQuery = txtCompanyNumber.Text
  End If

  If psh.FormShowCompanyLookup(SearchBy, SearchQuery, Results, ExistingDetails, DetailsToUpdate) Then
    If Results Is Nothing Then
      mUI.MsgBox("Cancelled by User.", MsgBoxStyle.Information)
    Else
      ' Update fields based on selected values (could use Results instead if we're not worried about what the User selected)
      If DetailsToUpdate.Exists("CompanyName") Then txtOrganisationName.Text = DetailsToUpdate.GetString("CompanyName")
        If DetailsToUpdate.Exists("CompanyNumber") Then txtCompanyNumber.Text = DetailsToUpdate.GetString("CompanyNumber")
    End If
  Else
    mUI.ErrorMessageShow()
  End If

End Sub