Imports System.ComponentModel
Imports FixTrack.Business
Namespace UI.Windows.Forms
     Public Class QBCustomerInfo
#Region " Constructors "
     Public Sub New()
          Me.InitializeComponent()
     End Sub
#End Region
 
#Region " Private Fields "
     Private _BusinessObject As MicroFour.StrataFrame.Business.BusinessLayer
     Private _CustomerNameText As String
#End Region
 
#Region " Public Properties "
     ''' <summary>
     ''' Define the base business object.
     ''' </summary>
     ''' <value></value>
     ''' <returns></returns>
     ''' <remarks></remarks> 
     <Category("StrataFrame: Framework")> _
     <Description("Set the BusinessObject that will supply the name data.")> _
     Public Property BusinessObject() As MicroFour.StrataFrame.Business.BusinessLayer
          Get
               Return _BusinessObject
          End Get
          Set(ByVal value As MicroFour.StrataFrame.Business.BusinessLayer)
               _BusinessObject = value
               '-- Bind to our user controls to this BO
               If value IsNot Nothing Then
                    If value.GetType Is GetType(bizCustomers) Then
                         Me.tgbGeneralInfo.Title = "FixTrack Customer record information"
                         Me.txtCustomerName.Enabled = True
                         Me.txtCustomerName.BusinessObject = value
                         Me.txtCustomerFax.BusinessObject = value
                    Else
                         Me.tgbGeneralInfo.Title = "FixTrack Building Address record information"
                         Me.txtCustomerPhone.BindingField = "SuperPhoneNumber"
                    End If
                    Me.txtCustomerName.Enabled = False
                    Me.txtCustomerStreet.BusinessObject = value
                    Me.txtCustomerCity.BusinessObject = value
                    Me.txtCustomerZip.BusinessObject = value
                    Me.txtCustomerPhone.BusinessObject = value
                    Me.txtQB_RefID.BusinessObject = value
                    Me.txtCustomereMail.BusinessObject = value
               End If
     End Set
End Property
 
''' <summary>
''' This property is used to update the Customer Name textbox
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property CustomerNameText() As String
     Get
          Return _CustomerNameText
     End Get
     Set(ByVal value As String)
          _CustomerNameText = value
          Me.txtCustomerName.Text = _CustomerNameText
      End Set
End Property
#End Region
     End Class
End Namespace