LicenceManager/Utility/Map.vb

Imports EgtWPFLib5

Module Map

   Private m_refMainWindowVM As MainWindowVM
   Private m_refNewClientPageVM As NewClientPageVM
   Private m_refNewKeyPageVM As NewKeyPageVM
   Private m_refNewLicencePageVM As NewLicencePageVM
   Private m_refNewProductPageVM As NewProductPageVM
   Private m_refNewVersionPageVM As NewVersionPageVM
   Private m_refNewResellerPageVM As NewResellerPageVM
   Private m_refSearchClientPageVM As SearchClientPageVM
   Private m_refSearchKeyPageVM As SearchKeyPageVM
   Private m_refSearchLicencePageVM As SearchLicencePageVM
   Private m_refSearchProductPageVM As SearchProductPageVM
   Private m_refSearchVersionPageVM As SearchVersionPageVM
   Private m_refSearchResellerPageVM As SearchResellerPageVM
   Private m_refUpdateClientPageVM As UpdateClientPageVM
   Private m_refUpdateKeyPageVM As UpdateKeyPageVM
   Private m_refUpdateLicencePageVM As UpdateLicencePageVM
   Private m_refUpdateProductPageVM As UpdateProductPageVM
   Private m_refUpdateVersionPageVM As UpdateVersionPageVM
   Private m_refUpdateResellerPageVM As UpdateResellerPageVM

#Region "Get"

   Public ReadOnly Property refMainWindowVM As MainWindowVM
      Get
         Return m_refMainWindowVM
      End Get
   End Property

   Public ReadOnly Property refNewClientPageVM As NewClientPageVM
      Get
         Return m_refNewClientPageVM
      End Get
   End Property

   Public ReadOnly Property refNewKeyPageVM As NewKeyPageVM
      Get
         Return m_refNewKeyPageVM
      End Get
   End Property

   Public ReadOnly Property refNewLicencePageVM As NewLicencePageVM
      Get
         Return m_refNewLicencePageVM
      End Get
   End Property

   Public ReadOnly Property refNewProductPageVM As NewProductPageVM
      Get
         Return m_refNewProductPageVM
      End Get
   End Property

   Public ReadOnly Property refNewVersionPageVM As NewVersionPageVM
      Get
         Return m_refNewVersionPageVM
      End Get
   End Property

   Public ReadOnly Property refNewResellerPageVM As NewResellerPageVM
      Get
         Return m_refNewResellerPageVM
      End Get
   End Property

   Public ReadOnly Property refSearchClientPageVM As SearchClientPageVM
      Get
         Return m_refSearchClientPageVM
      End Get
   End Property

   Public ReadOnly Property refSearchKeyPageVM As SearchKeyPageVM
      Get
         Return m_refSearchKeyPageVM
      End Get
   End Property

   Public ReadOnly Property refSearchLicencePageVM As SearchLicencePageVM
      Get
         Return m_refSearchLicencePageVM
      End Get
   End Property

   Public ReadOnly Property refSearchProductPageVM As SearchProductPageVM
      Get
         Return m_refSearchProductPageVM
      End Get
   End Property

   Public ReadOnly Property refSearchVersionPageVM As SearchVersionPageVM
      Get
         Return m_refSearchVersionPageVM
      End Get
   End Property

   Public ReadOnly Property refSearchResellerPageVM As SearchResellerPageVM
      Get
         Return m_refSearchResellerPageVM
      End Get
   End Property

   Public ReadOnly Property refUpdateClientPageVM As UpdateClientPageVM
      Get
         Return m_refUpdateClientPageVM
      End Get
   End Property

   Public ReadOnly Property refUpdateKeyPageVM As UpdateKeyPageVM
      Get
         Return m_refUpdateKeyPageVM
      End Get
   End Property

   Public ReadOnly Property refUpdateLicencePageVM As UpdateLicencePageVM
      Get
         Return m_refUpdateLicencePageVM
      End Get
   End Property

   Public ReadOnly Property refUpdateProductPageVM As UpdateProductPageVM
      Get
         Return m_refUpdateProductPageVM
      End Get
   End Property

   Public ReadOnly Property refUpdateVersionPageVM As UpdateVersionPageVM
      Get
         Return m_refUpdateVersionPageVM
      End Get
   End Property

   Public ReadOnly Property refUpdateResellerPageVM As UpdateResellerPageVM
      Get
         Return m_refUpdateResellerPageVM
      End Get
   End Property


#End Region    ' Get

#Region "Set"

   Friend Function SetRefNewClientPageVM(NewClientPageVM As NewClientPageVM) As Boolean
      m_refNewClientPageVM = NewClientPageVM
      Return Not IsNothing(m_refNewClientPageVM)
   End Function

   Friend Function SetRefNewKeyPageVM(NewKeyPageVM As NewKeyPageVM) As Boolean
      m_refNewKeyPageVM = NewKeyPageVM
      Return Not IsNothing(m_refNewKeyPageVM)
   End Function

   Friend Function SetRefNewLicencePageVM(NewLicencePageVM As NewLicencePageVM) As Boolean
      m_refNewLicencePageVM = NewLicencePageVM
      Return Not IsNothing(m_refNewLicencePageVM)
   End Function

   Friend Function SetRefNewProductPageVM(NewProductPageVM As NewProductPageVM) As Boolean
      m_refNewProductPageVM = NewProductPageVM
      Return Not IsNothing(m_refNewProductPageVM)
   End Function

   Friend Function SetRefNewVersionPageVM(NewVersionPageVM As NewVersionPageVM) As Boolean
      m_refNewVersionPageVM = NewVersionPageVM
      Return Not IsNothing(m_refNewVersionPageVM)
   End Function

   Friend Function SetRefNewResellerPageVM(NewResellerPageVM As NewResellerPageVM) As Boolean
      m_refNewResellerPageVM = NewResellerPageVM
      Return Not IsNothing(m_refNewResellerPageVM)
   End Function

   Friend Function SetRefSearchClientPageVM(SearchClientPageVM As SearchClientPageVM) As Boolean
      m_refSearchClientPageVM = SearchClientPageVM
      Return Not IsNothing(m_refSearchClientPageVM)
   End Function

   Friend Function SetRefSearchKeyPageVM(SearchKeyPageVM As SearchKeyPageVM) As Boolean
      m_refSearchKeyPageVM = SearchKeyPageVM
      Return Not IsNothing(m_refSearchKeyPageVM)
   End Function

   Friend Function SetRefSearchLicencePageVM(SearchLicencePageVM As SearchLicencePageVM) As Boolean
      m_refSearchLicencePageVM = SearchLicencePageVM
      Return Not IsNothing(m_refSearchLicencePageVM)
   End Function

   Friend Function SetRefSearchProductPageVM(SearchProductPageVM As SearchProductPageVM) As Boolean
      m_refSearchProductPageVM = SearchProductPageVM
      Return Not IsNothing(m_refSearchProductPageVM)
   End Function

   Friend Function SetRefSearchVersionPageVM(SearchVersionPageVM As SearchVersionPageVM) As Boolean
      m_refSearchVersionPageVM = SearchVersionPageVM
      Return Not IsNothing(m_refSearchVersionPageVM)
   End Function

   Friend Function SetRefSearchResellerPageVM(SearchResellerPageVM As SearchResellerPageVM) As Boolean
      m_refSearchResellerPageVM = SearchResellerPageVM
      Return Not IsNothing(m_refSearchResellerPageVM)
   End Function

   Friend Function SetRefUpdateClientPageVM(UpdateClientPageVM As UpdateClientPageVM) As Boolean
      m_refUpdateClientPageVM = UpdateClientPageVM
      Return Not IsNothing(m_refUpdateClientPageVM)
   End Function

   Friend Function SetRefUpdateKeyPageVM(UpdateKeyPageVM As UpdateKeyPageVM) As Boolean
      m_refUpdateKeyPageVM = UpdateKeyPageVM
      Return Not IsNothing(m_refUpdateKeyPageVM)
   End Function

   Friend Function SetRefUpdateLicencePageVM(UpdateLicencePageVM As UpdateLicencePageVM) As Boolean
      m_refUpdateLicencePageVM = UpdateLicencePageVM
      Return Not IsNothing(m_refUpdateLicencePageVM)
   End Function

   Friend Function SetRefUpdateProductPageVM(UpdateProductPageVM As UpdateProductPageVM) As Boolean
      m_refUpdateProductPageVM = UpdateProductPageVM
      Return Not IsNothing(m_refUpdateProductPageVM)
   End Function

   Friend Function SetRefUpdateVersionPageVM(UpdateVersionPageVM As UpdateVersionPageVM) As Boolean
      m_refUpdateVersionPageVM = UpdateVersionPageVM
      Return Not IsNothing(m_refUpdateVersionPageVM)
   End Function

   Friend Function SetRefUpdateResellerPageVM(UpdateResellerPageVM As UpdateResellerPageVM) As Boolean
      m_refUpdateResellerPageVM = UpdateResellerPageVM
      Return Not IsNothing(m_refUpdateResellerPageVM)
   End Function

#End Region    ' Set

#Region "Init"

   Friend Function BeginInit(MainWindowVM As MainWindowVM) As Boolean
      m_refMainWindowVM = MainWindowVM
      Return Not IsNothing(m_refMainWindowVM)
   End Function

   Friend Function EndInit() As Boolean
      ' Verifico se tutti i pezzi necessari sono stati caricati
      Return Not IsNothing(m_refMainWindowVM) AndAlso LibMap.EndInit 'AndAlso Not IsNothing(m_refProjectVM)
   End Function

#End Region    ' Init

End Module