Demetrio Cassarino
1437 lines
45 KiB
VB.net
1437 lines
45 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports EgtWPFLib5
|
|
Imports Newtonsoft.Json
|
|
Imports System.IO
|
|
Imports EgtBEAMWALL.Core
|
|
Imports EgtUILib
|
|
Imports System.ComponentModel
|
|
Imports System.Globalization
|
|
|
|
Public Class StrategyManagerVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_StrategySetupList As New ObservableCollection(Of StrategySetup)
|
|
Public ReadOnly Property StrategySetupList As ObservableCollection(Of StrategySetup)
|
|
Get
|
|
Return m_StrategySetupList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SelStrategySetup As StrategySetup
|
|
Public Property SelStrategySetup As StrategySetup
|
|
Get
|
|
Return m_SelStrategySetup
|
|
End Get
|
|
Set(value As StrategySetup)
|
|
m_SelStrategySetup = value
|
|
m_SelStrategySetup.Read()
|
|
NotifyPropertyChanged(NameOf(SelStrategySetup))
|
|
End Set
|
|
End Property
|
|
|
|
' Permette di selezionare l'elemento dell'albero
|
|
Public m_SelTreeItem As Topology
|
|
Public Property SelTreeItem As Topology
|
|
Get
|
|
Return m_SelTreeItem
|
|
End Get
|
|
Set(value As Topology)
|
|
m_SelTreeItem = value
|
|
NotifyPropertyChanged(NameOf(SelTreeItem))
|
|
End Set
|
|
End Property
|
|
''' <summary>
|
|
''' Funzione che aggiorna la selezione dell'elemento dell'albero
|
|
''' </summary>
|
|
''' <param name="Item">Elemento dell'albero</param>
|
|
Friend Sub UpdateSelTreeItem(Item As Topology)
|
|
m_SelTreeItem = Item
|
|
NotifyPropertyChanged(NameOf(SelTreeItem))
|
|
End Sub
|
|
|
|
' Utilizzato per indicare che viene effettuata una modifica
|
|
Private m_bIsModifyStrategy As Boolean = False
|
|
Public ReadOnly Property bIsModifyStrategy As Boolean
|
|
Get
|
|
Return m_bIsModifyStrategy
|
|
End Get
|
|
End Property
|
|
Friend Sub SetbIsModifyStrategy(value As Boolean)
|
|
m_bIsModifyStrategy = value
|
|
If m_bIsModifyStrategy Then
|
|
SetSaveImage("pack://application:,,,/Resources/NewPage/SaveModify.png")
|
|
Else
|
|
SetSaveImage("pack://application:,,,/Resources/ProjectManager/Save.png")
|
|
End If
|
|
NotifyPropertyChanged(NameOf(bIsModifyStrategy))
|
|
End Sub
|
|
|
|
' Immagine SaveCommand
|
|
Private m_SaveImage As String = "pack://application:,,,/Resources/ProjectManager/Save.png"
|
|
Public ReadOnly Property SaveImage As String
|
|
Get
|
|
Return m_SaveImage
|
|
End Get
|
|
End Property
|
|
Friend Sub SetSaveImage(value As String)
|
|
m_SaveImage = value
|
|
NotifyPropertyChanged(NameOf(SaveImage))
|
|
End Sub
|
|
|
|
' Lista che contiene le strategie filtrate
|
|
Private m_StrategyProductionList As New ObservableCollection(Of Strategy)
|
|
Public Property StrategyProductionList As ObservableCollection(Of Strategy)
|
|
Get
|
|
Return m_StrategyProductionList
|
|
End Get
|
|
Set(value As ObservableCollection(Of Strategy))
|
|
m_StrategyProductionList = value
|
|
NotifyPropertyChanged(NameOf(StrategyProductionList))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_StrategyProductionPath As String = String.Empty
|
|
Public ReadOnly Property StrategyProductionPath As String
|
|
Get
|
|
Return m_StrategyProductionPath
|
|
End Get
|
|
End Property
|
|
Friend Sub SetStrategyProductionPath(value As String)
|
|
m_StrategyProductionPath = value
|
|
NotifyPropertyChanged(NameOf(StrategyProductionPath))
|
|
End Sub
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property SaveToolTip As String
|
|
Get
|
|
Return EgtMsg(62571)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property SaveAsToolTip As String
|
|
Get
|
|
Return EgtMsg(62572)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
' Definizione Comandi
|
|
Private m_AddSelectedStrategyCommand As ICommand
|
|
Private m_RemoveSelectedStrategyCommand As ICommand
|
|
Private m_OpenCommand As ICommand
|
|
Private m_SaveCommand As ICommand
|
|
Private m_OpenFileNameCustomConfigCommand As ICommand
|
|
Private m_MoveUpSelectedStrategyCommand As ICommand
|
|
Private m_MoveDownSelectedStrategyCommand As ICommand
|
|
Private m_cmdOk As ICommand
|
|
Private m_cmdCancel As ICommand
|
|
|
|
#End Region ' Field & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Setto riferimento
|
|
Map.SetRefStrategyManagerVM(Me)
|
|
' leggo cartella dei setup delle strategie
|
|
Dim AISetupDirPath As String = Map.refMainWindowVM.MainWindowM.GetAISetupDirPath()
|
|
Dim AISetupPaths As String() = Directory.GetFiles(AISetupDirPath)
|
|
For Each AiSetup In AISetupPaths
|
|
m_StrategySetupList.Add(New StrategySetup(Path.GetFileNameWithoutExtension(AiSetup)))
|
|
Next
|
|
If m_StrategySetupList.Count > 0 Then
|
|
SelStrategySetup = m_StrategySetupList(0)
|
|
End If
|
|
' Assegno riferimento funzione per aggiornare elemento selezionato dall'albero
|
|
Topology.refUpdateSelTreeItem = AddressOf UpdateSelTreeItem
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
''' <summary>
|
|
''' Funzione per creare file json
|
|
''' </summary>
|
|
Friend Sub CreateCustumerConfigJsonFile(fileCostumerConfig As String)
|
|
Try
|
|
Dim m_JsonStrategyFeatureList As New ObservableCollection(Of JsonStrategyFeature)(m_SelStrategySetup.StrategyFeatureList.Select(AddressOf ConvertToJsonStrategy))
|
|
' Serializzazione in JSON
|
|
Dim AvailableStrategyListjsonFile As String = JsonConvert.SerializeObject(m_JsonStrategyFeatureList, Formatting.Indented)
|
|
' Scrittura su file
|
|
File.WriteAllText(Map.refMainWindowVM.MainWindowM.GetAISetupDirPath() & "\" & fileCostumerConfig & ".json", AvailableStrategyListjsonFile)
|
|
Catch ex As Exception
|
|
EgtOutLog("Errore durante la creazione del file JSON: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Funzione per convertire da AvailableStrategy a JsonAvailableStrategy
|
|
''' </summary>
|
|
''' <param name="StrategyFeature"></param>
|
|
''' <returns></returns>
|
|
Private Function ConvertToJsonStrategy(StrategyFeature As StrategyFeature) As JsonStrategyFeature
|
|
Return New JsonStrategyFeature With {
|
|
.sName = StrategyFeature.sName,
|
|
.nPRC = StrategyFeature.nPRC,
|
|
.nGRP = StrategyFeature.nGRP,
|
|
.TopologyList = New ObservableCollection(Of JsonTopology)(StrategyFeature.TopologyList.Select(AddressOf ConvertToJsonTopology))}
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Funzione per convertire da Topology a JsonTopology
|
|
''' </summary>
|
|
''' <param name="topology"></param>
|
|
''' <returns></returns>
|
|
Private Function ConvertToJsonTopology(Topology As Topology) As JsonTopology
|
|
Return New JsonTopology With {
|
|
.sName = Topology.sName,
|
|
.StrategyList = New ObservableCollection(Of JsonStrategy)(Topology.StrategyList.Select(AddressOf ConvertToJsonStrategyConfiguration))
|
|
}
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Funzione per convertire da StrategyConfiguration a JsonStrategyConfiguration
|
|
''' </summary>
|
|
''' <param name="Strategy"></param>
|
|
''' <returns></returns>
|
|
Private Function ConvertToJsonStrategyConfiguration(Strategy As Strategy) As JsonStrategy
|
|
Return New JsonStrategy With {
|
|
.sStrategyID = Strategy.sStrategyID,
|
|
.nIndexInList = Strategy.nIndexInList,
|
|
.bActive = Strategy.bActive,
|
|
.ParameterList = New ObservableCollection(Of JsonGenericParameter)(Strategy.ParameterList.Select(AddressOf ConvertToJsonParameter))}
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Funzione per convertire da GenericParameter a JsonGenericParameter
|
|
''' </summary>
|
|
''' <param name="genericParameter"></param>
|
|
''' <returns></returns>
|
|
Private Function ConvertToJsonParameter(GenericParameter As GenericParameter) As JsonGenericParameter
|
|
Return New JsonGenericParameter With {
|
|
.sName = GenericParameter.sName,
|
|
.sNameNge = GenericParameter.sNameNge,
|
|
.sValue = GenericParameter.sValue,
|
|
.sDescriptionShort = GenericParameter.sDescriptionShort,
|
|
.sDescriptionLong = GenericParameter.sDescriptionLong,
|
|
.sType = GenericParameter.sType,
|
|
.sMessageId = GenericParameter.sMessageId,
|
|
.sMinUserLevel = GenericParameter.sMinUserLevel,
|
|
.Choices = New ObservableCollection(Of JsonChoiceParameter)(GenericParameter.Choices.Select(AddressOf ConvertToJsonChoiceParameter))}
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Funzione per convertire da ChoicesParameter a JsonChoicesParameter
|
|
''' </summary>
|
|
''' <param name="choiceParameter"></param>
|
|
''' <returns></returns>
|
|
Private Function ConvertToJsonChoiceParameter(ChoiceParameter As ChoiceParameter) As JsonChoiceParameter
|
|
Return New JsonChoiceParameter With {
|
|
.sValue = ChoiceParameter.sValue,
|
|
.sDescriptionShort = ChoiceParameter.sDescriptionShort,
|
|
.sDescriptionLong = ChoiceParameter.sDescriptionLong,
|
|
.sMessageId = ChoiceParameter.sMessageId}
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Funzione che salva il file CustomConfig Json
|
|
''' </summary>
|
|
Private Sub SaveJson()
|
|
' Determina il nome del file JSON
|
|
Dim fileCustomerConfigJson As String = If(Not IsNothing(m_SelStrategySetup), CUSTOMERCONFIG_FILE, m_SelStrategySetup.sName)
|
|
' Se l'elemento selezionato è vuoto assegno il default e lo aggiungo alla lista
|
|
If IsNothing(m_SelStrategySetup) Then
|
|
m_SelStrategySetup.sName = CUSTOMERCONFIG_FILE
|
|
m_StrategySetupList.Add(m_SelStrategySetup)
|
|
NotifyPropertyChanged(NameOf(SelStrategySetup.sName))
|
|
NotifyPropertyChanged(NameOf(StrategySetupList))
|
|
End If
|
|
' Crea il file JSON
|
|
CreateCustumerConfigJsonFile(fileCustomerConfigJson)
|
|
' Se un file è stato selezionato, resetta il flag di modifica
|
|
SetbIsModifyStrategy(False)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Funzione che salva il file customconfig se sono presenti modifiche
|
|
''' </summary>
|
|
Friend Sub SaveCustomConfigJson()
|
|
' Controlla se il file JSON è stato modificato
|
|
If Not m_bIsModifyStrategy Then Return
|
|
' Chiede conferma per il salvataggio
|
|
If MessageBox.Show("Il file Json è stato modificato. Vuoi salvarlo?", EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
|
|
SaveJson()
|
|
End If
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Funzione che recupera le strategie filtrate
|
|
''' </summary>
|
|
Friend Sub GetStrategyProduction()
|
|
' Pulisco la lista
|
|
m_StrategyProductionList.Clear()
|
|
' Recupero Feature selezionata
|
|
Dim selFeature As BTLFeatureVM = Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.SelFeatureVM
|
|
' Popolo la lista con le strategie
|
|
Dim AvailableStrategyItem As StrategyFeature = m_SelStrategySetup.StrategyFeatureList.FirstOrDefault(Function(AvailableStrategy) selFeature.nPRC = AvailableStrategy.nPRC AndAlso selFeature.nSelGRP = AvailableStrategy.nGRP)
|
|
' Controllo se AvailableStrategyItem non è nullo
|
|
If Not IsNothing(AvailableStrategyItem) Then
|
|
' Se esiste, popola la lista con le strategie
|
|
m_StrategyProductionList = New ObservableCollection(Of Strategy)(AvailableStrategyItem.TopologyList.SelectMany(Function(topology) topology.StrategyList))
|
|
End If
|
|
NotifyPropertyChanged(NameOf(StrategyProductionList))
|
|
End Sub
|
|
|
|
#End Region ' Methods
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "AddSelectedStrategyCommand"
|
|
|
|
Public ReadOnly Property AddSelectedStrategyCommand As ICommand
|
|
Get
|
|
If m_AddSelectedStrategyCommand Is Nothing Then
|
|
m_AddSelectedStrategyCommand = New Command(AddressOf AddSelectedStrategyToActiveStrategy)
|
|
End If
|
|
Return m_AddSelectedStrategyCommand
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Funzione che permette di aggiungere la strategia da StrategyList a ActiveStrategyList
|
|
''' </summary>
|
|
Public Sub AddSelectedStrategyToActiveStrategy()
|
|
' Controllo se SelectedStrategy se è nullo esco
|
|
If IsNothing(m_SelTreeItem.SelAvailableStrategy) Then Return
|
|
' Setto a true booleano per modifica
|
|
SetbIsModifyStrategy(True)
|
|
' Setto indice per capire che la strategia è stata spostata in ActiveStrategyList
|
|
m_SelTreeItem.SelAvailableStrategy.SetIndexList(m_SelTreeItem.StrategyList.Count - 1)
|
|
' Aggiorno le liste
|
|
m_SelTreeItem.AvailableStrategyList_View.Refresh()
|
|
m_SelTreeItem.ActiveStrategyList_View.Refresh()
|
|
End Sub
|
|
|
|
#End Region ' AddSelectedStrategyCommand
|
|
|
|
#Region "RemoveSelectedStrategyCommand"
|
|
|
|
Public ReadOnly Property RemoveSelectedStrategyCommand As ICommand
|
|
Get
|
|
If m_RemoveSelectedStrategyCommand Is Nothing Then
|
|
m_RemoveSelectedStrategyCommand = New Command(AddressOf RemoveSelectedStrategyToActiveStrategy)
|
|
End If
|
|
Return m_RemoveSelectedStrategyCommand
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Funzione che rimuove la strategia da ActiveStrategyList e la riaggiunge a StrategyList
|
|
''' </summary>
|
|
Public Sub RemoveSelectedStrategyToActiveStrategy()
|
|
' Controllo se SelectedActiveStrategy se è nullo esco
|
|
If IsNothing(m_SelTreeItem.SelActiveStrategy) Then Return
|
|
' Setto indice per capire che la strategia è stata spostata in StrategyList
|
|
m_SelTreeItem.SelActiveStrategy.SetIndexList(-1)
|
|
' Aggiorno le liste
|
|
m_SelTreeItem.AvailableStrategyList_View.Refresh()
|
|
m_SelTreeItem.ActiveStrategyList_View.Refresh()
|
|
End Sub
|
|
|
|
#End Region ' RemoveSelectedStrategyCommand
|
|
|
|
#Region "OpenFileNameCustomConfigCommand"
|
|
|
|
Public ReadOnly Property OpenFileNameCustomConfigCommand As ICommand
|
|
Get
|
|
If m_OpenFileNameCustomConfigCommand Is Nothing Then
|
|
m_OpenFileNameCustomConfigCommand = New Command(AddressOf OpenFileNameCustomConfig)
|
|
End If
|
|
Return m_OpenFileNameCustomConfigCommand
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Funzione che visualizza la textbox
|
|
''' </summary>
|
|
Public Sub OpenFileNameCustomConfig()
|
|
Dim SaveAsStrategyWnd As New SaveAsStrategyV With {
|
|
.DataContext = New SaveAsStrategyVM,
|
|
.Owner = Application.Current.MainWindow
|
|
}
|
|
SaveAsStrategyWnd.ShowDialog()
|
|
End Sub
|
|
|
|
#End Region ' OpenFileNameCustomConfigCommand
|
|
|
|
#Region "SaveCommand"
|
|
|
|
Public ReadOnly Property SaveCommand As ICommand
|
|
Get
|
|
If m_SaveCommand Is Nothing Then
|
|
m_SaveCommand = New Command(AddressOf Save)
|
|
End If
|
|
Return m_SaveCommand
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Funzione che salva il file json CustomerConfig
|
|
''' </summary>
|
|
Public Sub Save()
|
|
SaveJson()
|
|
End Sub
|
|
|
|
#End Region ' SaveCommand
|
|
|
|
#Region "MoveUpSelectedStrategyCommand"
|
|
|
|
Public ReadOnly Property MoveUpSelectedStrategyCommand As ICommand
|
|
Get
|
|
If m_MoveUpSelectedStrategyCommand Is Nothing Then
|
|
m_MoveUpSelectedStrategyCommand = New Command(AddressOf MoveUpSelectedStrategy)
|
|
End If
|
|
Return m_MoveUpSelectedStrategyCommand
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Funzione che permette di spostare in alto la strategia selezionata
|
|
''' </summary>
|
|
Public Sub MoveUpSelectedStrategy()
|
|
' Controllo se SelectedActiveStrategy se è nullo esco
|
|
If IsNothing(m_SelTreeItem.SelActiveStrategy) Then Return
|
|
' Recupero indice elemento selezionato in lista
|
|
Dim IndexActiveStrategy As Integer = m_SelTreeItem.StrategyList.IndexOf(m_SelTreeItem.SelActiveStrategy)
|
|
' Recupero indice elemento selezionato in lista
|
|
Dim NewIndexActiveStrategy As Integer = IndexActiveStrategy - 1
|
|
' Se l'indice è maggiore di 0
|
|
If IndexActiveStrategy > 0 Then
|
|
' Muovo l'elemento selezionato sopra di 1
|
|
m_SelTreeItem.StrategyList.Move(IndexActiveStrategy, NewIndexActiveStrategy)
|
|
End If
|
|
' Aggiorno la lista
|
|
m_SelTreeItem.ActiveStrategyList_View.MoveCurrentToNext()
|
|
m_SelTreeItem.ActiveStrategyList_View.Refresh()
|
|
End Sub
|
|
|
|
#End Region ' MoveUpSelectedStrategyCommand
|
|
|
|
#Region "MoveDownSelectedStrategyCommand"
|
|
|
|
Public ReadOnly Property MoveDownSelectedStrategyCommand As ICommand
|
|
Get
|
|
If m_MoveDownSelectedStrategyCommand Is Nothing Then
|
|
m_MoveDownSelectedStrategyCommand = New Command(AddressOf MoveDownSelectedStrategy)
|
|
End If
|
|
Return m_MoveDownSelectedStrategyCommand
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Funzione che permette di spostare in basso la strategia selezionata
|
|
''' </summary>
|
|
Public Sub MoveDownSelectedStrategy()
|
|
If IsNothing(m_SelTreeItem.SelActiveStrategy) Then Return
|
|
' Recupero indice elemento selezionato in lista
|
|
Dim IndexActiveStrategy As Integer = m_SelTreeItem.StrategyList.IndexOf(m_SelTreeItem.SelActiveStrategy)
|
|
' Recupero indice elemento selezionato in lista
|
|
Dim NewIndexActiveStrategy As Integer = IndexActiveStrategy + 1
|
|
' Se l'indice è maggiore di 0
|
|
If IndexActiveStrategy >= 0 Then
|
|
' Muovo l'elemento selezionato sopra di 1
|
|
m_SelTreeItem.StrategyList.Move(IndexActiveStrategy, NewIndexActiveStrategy)
|
|
End If
|
|
' Aggiorno la lista
|
|
m_SelTreeItem.ActiveStrategyList_View.Refresh()
|
|
End Sub
|
|
|
|
#End Region ' MoveDownSelectedStrategyCommand
|
|
|
|
#Region "Ok_Command"
|
|
|
|
Public ReadOnly Property Ok_Command As ICommand
|
|
Get
|
|
If m_cmdOk Is Nothing Then
|
|
m_cmdOk = New Command(AddressOf Ok)
|
|
End If
|
|
Return m_cmdOk
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Ok()
|
|
Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
|
|
' Abilito LeftPanel
|
|
Map.refProjectVM.SetOnlyProdLeftPanel_IsEnabled(True)
|
|
Map.refProjectVM.SetOnlyProdLeftPanel_Opacity(1)
|
|
End Sub
|
|
|
|
#End Region ' Ok_Command
|
|
|
|
#Region "Cancel_Command"
|
|
|
|
Public ReadOnly Property Cancel_Command As ICommand
|
|
Get
|
|
If m_cmdCancel Is Nothing Then
|
|
m_cmdCancel = New Command(AddressOf Cancel)
|
|
End If
|
|
Return m_cmdCancel
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Cancel()
|
|
Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
|
|
' Abilito LeftPanel
|
|
Map.refProjectVM.SetOnlyProdLeftPanel_IsEnabled(True)
|
|
Map.refProjectVM.SetOnlyProdLeftPanel_Opacity(1)
|
|
End Sub
|
|
|
|
#End Region ' Cancel_Command
|
|
|
|
#End Region ' Commands
|
|
|
|
End Class
|
|
|
|
'----------- Classe che rappresenta un file di setup delle strategie -----------
|
|
Public Class StrategySetup
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_StrategyFeatureList As New ObservableCollection(Of StrategyFeature)
|
|
Public Property StrategyFeatureList As ObservableCollection(Of StrategyFeature)
|
|
Get
|
|
Return m_StrategyFeatureList
|
|
End Get
|
|
Set(value As ObservableCollection(Of StrategyFeature))
|
|
m_StrategyFeatureList = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelStrategyFeature As StrategyFeature
|
|
Public Property SelStrategyFeature As StrategyFeature
|
|
Get
|
|
Return m_SelStrategyFeature
|
|
End Get
|
|
Set(value As StrategyFeature)
|
|
m_SelStrategyFeature = value
|
|
NotifyPropertyChanged(NameOf(SelStrategyFeature))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(sName As String)
|
|
m_sName = sName
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub Read()
|
|
' carico default
|
|
Dim sStrategiesDirPath As String = Map.refMainWindowVM.MainWindowM.GetStrategiesDirPath()
|
|
Dim sAvailableStrategiesFilePath As String = sStrategiesDirPath & "\" & AVAILABLESTRATEGYLIST_FILE & ".json"
|
|
If File.Exists(sAvailableStrategiesFilePath) Then
|
|
Dim sReadedFile As String = File.ReadAllText(sAvailableStrategiesFilePath)
|
|
Dim JsonStrategyFeatureList As List(Of JsonStrategyFeature) = JsonConvert.DeserializeObject(Of List(Of JsonStrategyFeature))(sReadedFile)
|
|
m_StrategyFeatureList = New ObservableCollection(Of StrategyFeature)((From JsonStrategyFeature In JsonStrategyFeatureList
|
|
Select New StrategyFeature(JsonStrategyFeature)).ToList())
|
|
|
|
End If
|
|
' carico custom
|
|
Dim sAISetupDirPath As String = Map.refMainWindowVM.MainWindowM.GetAISetupDirPath()
|
|
Dim sStrategyConfigurationFilePath As String = sAISetupDirPath & "\" & sName & ".json"
|
|
If File.Exists(sStrategyConfigurationFilePath) Then
|
|
Dim sReadedFile As String = File.ReadAllText(sStrategyConfigurationFilePath)
|
|
Dim JsonStrategyFeatureList As List(Of JsonStrategyFeature) = JsonConvert.DeserializeObject(Of List(Of JsonStrategyFeature))(sReadedFile)
|
|
For Each Feature In JsonStrategyFeatureList
|
|
Dim DefaultFeature As StrategyFeature = m_StrategyFeatureList.FirstOrDefault(Function(x) x.nPRC = Feature.nPRC AndAlso x.nGRP = Feature.nGRP)
|
|
' gestire caso non venga trovata perchè non esiste più in default??'
|
|
If Not IsNothing(DefaultFeature) Then
|
|
For Each Topology In Feature.TopologyList
|
|
Dim DefaultTopology As Topology = DefaultFeature.TopologyList.FirstOrDefault(Function(x) x.sName = Topology.sName)
|
|
' gestire caso non venga trovata perchè non esiste più in default??'
|
|
For Each Strategy In Topology.StrategyList
|
|
Dim DefaultStrategy As Strategy = DefaultTopology.StrategyList.FirstOrDefault(Function(x) x.sStrategyID = Strategy.sStrategyID)
|
|
If IsNothing(DefaultStrategy) Then
|
|
DefaultTopology.StrategyList.Add(New Strategy(DefaultTopology, Strategy))
|
|
' verifico indici!!
|
|
Else
|
|
DefaultStrategy.ReadConfiguration(Strategy)
|
|
End If
|
|
Next
|
|
Next
|
|
End If
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' Methods
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa riferimento alle Feature -----------
|
|
Public Class StrategyFeature
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPETIES"
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
NotifyPropertyChanged(NameOf(sName))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nPRC As Integer
|
|
Public Property nPRC As Integer
|
|
Get
|
|
Return m_nPRC
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nPRC = value
|
|
NotifyPropertyChanged(NameOf(nPRC))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nGRP As Integer
|
|
Public Property nGRP As Integer
|
|
Get
|
|
Return m_nGRP
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nGRP = value
|
|
NotifyPropertyChanged(NameOf(nGRP))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_TopologyList As New ObservableCollection(Of Topology)
|
|
Public Property TopologyList As ObservableCollection(Of Topology)
|
|
Get
|
|
Return m_TopologyList
|
|
End Get
|
|
Set(value As ObservableCollection(Of Topology))
|
|
m_TopologyList = value
|
|
NotifyPropertyChanged(NameOf(TopologyList))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Propeties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(JsonStrategyFeature As JsonStrategyFeature)
|
|
If IsNothing(JsonStrategyFeature) Then Return
|
|
m_sName = JsonStrategyFeature.sName
|
|
m_nPRC = JsonStrategyFeature.nPRC
|
|
m_nGRP = JsonStrategyFeature.nGRP
|
|
m_TopologyList = New ObservableCollection(Of Topology)(JsonStrategyFeature.TopologyList.Select(Function(jsonTopology) New Topology(jsonTopology)))
|
|
NotifyPropertyChanged(NameOf(TopologyList))
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa riferimento alle Topologie delle Feature -----------
|
|
Public Class Topology
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPETIES"
|
|
|
|
Friend Shared refUpdateSelTreeItem As Action(Of Topology)
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
NotifyPropertyChanged(NameOf(sName))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_bIsSelected As Boolean
|
|
Public Property IsSelected As Boolean
|
|
Get
|
|
Return m_bIsSelected
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bIsSelected = value
|
|
refUpdateSelTreeItem(Me)
|
|
If Not value Then
|
|
SelActiveStrategy = Nothing
|
|
SelAvailableStrategy = Nothing
|
|
End If
|
|
m_AvailableStrategyList_View.Refresh()
|
|
m_ActiveStrategyList_View.Refresh()
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AvailableStrategyList_View As ICollectionView = Nothing
|
|
Public ReadOnly Property AvailableStrategyList_View As ICollectionView
|
|
Get
|
|
Return m_AvailableStrategyList_View
|
|
End Get
|
|
End Property
|
|
|
|
Private m_ActiveStrategyList_View As ICollectionView = Nothing
|
|
Public ReadOnly Property ActiveStrategyList_View As ICollectionView
|
|
Get
|
|
Return m_ActiveStrategyList_View
|
|
End Get
|
|
End Property
|
|
|
|
Private m_StrategyList As New ObservableCollection(Of Strategy)
|
|
Public Property StrategyList As ObservableCollection(Of Strategy)
|
|
Get
|
|
Return m_StrategyList
|
|
End Get
|
|
Set(value As ObservableCollection(Of Strategy))
|
|
m_StrategyList = value
|
|
NotifyPropertyChanged(NameOf(StrategyList))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelActiveStrategy As Strategy
|
|
Public Property SelActiveStrategy As Strategy
|
|
Get
|
|
Return m_SelActiveStrategy
|
|
End Get
|
|
Set(value As Strategy)
|
|
m_SelActiveStrategy = value
|
|
SelParamStrategy = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelAvailableStrategy As Strategy
|
|
Public Property SelAvailableStrategy As Strategy
|
|
Get
|
|
Return m_SelAvailableStrategy
|
|
End Get
|
|
Set(value As Strategy)
|
|
m_SelAvailableStrategy = value
|
|
SelParamStrategy = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelParamStrategy As Strategy
|
|
Public Property SelParamStrategy As Strategy
|
|
Get
|
|
Return m_SelParamStrategy
|
|
End Get
|
|
Set(value As Strategy)
|
|
m_SelParamStrategy = value
|
|
NotifyPropertyChanged(NameOf(SelParamStrategy))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Propeties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(JsonTopology As JsonTopology)
|
|
If IsNothing(JsonTopology) Then Return
|
|
m_sName = JsonTopology.sName
|
|
m_StrategyList = New ObservableCollection(Of Strategy)(JsonTopology.StrategyList.Select(Function(jsonStrategy) New Strategy(Me, jsonStrategy)))
|
|
m_AvailableStrategyList_View = New ListCollectionView(StrategyList)
|
|
m_AvailableStrategyList_View.Filter = AddressOf AvailableStrategyFilter
|
|
m_ActiveStrategyList_View = New ListCollectionView(StrategyList)
|
|
m_ActiveStrategyList_View.Filter = AddressOf ActiveStrategyFilter
|
|
NotifyPropertyChanged(NameOf(StrategyList))
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
Private Function AvailableStrategyFilter(Strategy As Object) As Boolean
|
|
Return DirectCast(Strategy, Strategy).nIndexInList < 0
|
|
End Function
|
|
|
|
Private Function ActiveStrategyFilter(Strategy As Object) As Boolean
|
|
Return DirectCast(Strategy, Strategy).nIndexInList >= 0
|
|
End Function
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa alle Strategie delle Topologie delle Feature -----------
|
|
Public Class Strategy
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPETIES"
|
|
|
|
Private m_ParentTopology As Topology
|
|
|
|
Private m_sStrategyID As String
|
|
Public Property sStrategyID As String
|
|
Get
|
|
Return m_sStrategyID
|
|
End Get
|
|
Set(value As String)
|
|
m_sStrategyID = value
|
|
NotifyPropertyChanged(NameOf(sStrategyID))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nIndexInList As Integer = -1
|
|
Public Property nIndexInList As Integer
|
|
Get
|
|
Return m_nIndexInList
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nIndexInList = value
|
|
NotifyPropertyChanged(NameOf(nIndexInList))
|
|
End Set
|
|
End Property
|
|
Friend Sub SetIndexList(value As Integer)
|
|
m_nIndexInList = value
|
|
If nIndexInList > -1 Then
|
|
m_bActive = True
|
|
Else
|
|
m_bActive = False
|
|
End If
|
|
NotifyPropertyChanged(NameOf(nIndexInList))
|
|
NotifyPropertyChanged(NameOf(bActive))
|
|
End Sub
|
|
|
|
Private m_bActive As Boolean
|
|
Public ReadOnly Property bActive As Boolean
|
|
Get
|
|
Return m_bActive
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sImageStrategy As String = "pack://application:,,,/Resources/NewPage/LogoProvaStrategy.png"
|
|
Public Property sImageStrategy As String
|
|
Get
|
|
Return m_sImageStrategy
|
|
End Get
|
|
Set(value As String)
|
|
m_sImageStrategy = value
|
|
NotifyPropertyChanged(NameOf(sImageStrategy))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ParameterList As New ObservableCollection(Of GenericParameter)
|
|
Public Property ParameterList As ObservableCollection(Of GenericParameter)
|
|
Get
|
|
Return m_ParameterList
|
|
End Get
|
|
Set(value As ObservableCollection(Of GenericParameter))
|
|
m_ParameterList = value
|
|
NotifyPropertyChanged(NameOf(ParameterList))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Propeties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(ParentTopology As Topology, JsonStrategy As JsonStrategy)
|
|
m_ParentTopology = ParentTopology
|
|
If IsNothing(JsonStrategy) Then Return
|
|
m_sStrategyID = JsonStrategy.sStrategyID
|
|
m_nIndexInList = JsonStrategy.nIndexInList
|
|
m_bActive = JsonStrategy.bActive
|
|
ReadConfigurationStrategyJson()
|
|
'NotifyPropertyChanged(NameOf(ParameterList))
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
''' <summary>
|
|
''' Funzione che legge il file json delle strategie
|
|
''' </summary>
|
|
Private Sub ReadConfigurationStrategyJson()
|
|
' Recupero file StrategyJson
|
|
Dim StrategyPath As String = Map.refMainWindowVM.MainWindowM.GetStandardDirPath() & "\" & sStrategyID & "\" & sStrategyID & ".json"
|
|
' Controllo se il file esiste
|
|
If Not File.Exists(StrategyPath) Then Return
|
|
' Leggo il contenuto del file JSON e deserializzo
|
|
Dim StrategyJson As String = File.ReadAllText(StrategyPath)
|
|
Dim strategyConfig As JsonStrategy = JsonConvert.DeserializeObject(Of JsonStrategy)(StrategyJson)
|
|
' Assegno ParamList per poter visualizzarla da interfaccia econtrollo di che tipo è se Strategy o JsonStrategy
|
|
m_ParameterList = New ObservableCollection(Of GenericParameter)(strategyConfig.ParameterList.Select(Function(p) New GenericParameter(p)).ToList())
|
|
End Sub
|
|
|
|
Friend Sub ReadConfiguration(ConfigurationStrategy As JsonStrategy)
|
|
m_nIndexInList = ConfigurationStrategy.nIndexInList
|
|
NotifyPropertyChanged(NameOf(nIndexInList))
|
|
'm_ParentTopology.NotifyPropertyChanged(NameOf(m_ParentTopology.AvailableStrategyList_View))
|
|
'm_ParentTopology.NotifyPropertyChanged(NameOf(m_ParentTopology.ActiveStrategyList_View))
|
|
For Each Parameter In ConfigurationStrategy.ParameterList
|
|
Dim DefaultParameter As GenericParameter = m_ParameterList.FirstOrDefault(Function(x) x.sNameNge = Parameter.sNameNge)
|
|
If IsNothing(DefaultParameter) Then
|
|
m_ParameterList.Add(New GenericParameter(Parameter))
|
|
' verifico indici!!
|
|
Else
|
|
DefaultParameter.sValue = Parameter.sValue
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa riferimento ai parametri delle Strategie -----------
|
|
Public Class GenericParameter
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPETIES"
|
|
|
|
Private m_ParentStrategy As Strategy
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
NotifyPropertyChanged(NameOf(sName))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sNameNge As String
|
|
Public Property sNameNge As String
|
|
Get
|
|
Return m_sNameNge
|
|
End Get
|
|
Set(value As String)
|
|
m_sNameNge = value
|
|
NotifyPropertyChanged(NameOf(sNameNge))
|
|
End Set
|
|
End Property
|
|
|
|
Friend m_sValue As String
|
|
Public Property sValue As String
|
|
Get
|
|
Return m_sValue
|
|
End Get
|
|
Set(value As String)
|
|
m_sValue = value
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sDescriptionShort As String
|
|
Public Property sDescriptionShort As String
|
|
Get
|
|
Return m_sDescriptionShort
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescriptionShort = value
|
|
NotifyPropertyChanged(NameOf(sDescriptionShort))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sDescriptionLong As String
|
|
Public Property sDescriptionLong As String
|
|
Get
|
|
Return m_sDescriptionLong
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescriptionLong = value
|
|
NotifyPropertyChanged(NameOf(sDescriptionLong))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sType As String
|
|
Public Property sType As String
|
|
Get
|
|
Return m_sType
|
|
End Get
|
|
Set(value As String)
|
|
m_sType = value
|
|
NotifyPropertyChanged(NameOf(sType))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sMessageId As String
|
|
Public Property sMessageId As String
|
|
Get
|
|
Return m_sMessageId
|
|
End Get
|
|
Set(value As String)
|
|
m_sMessageId = value
|
|
NotifyPropertyChanged(NameOf(sMessageId))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sMinUserLevel As Integer
|
|
Public Property sMinUserLevel As Integer
|
|
Get
|
|
Return m_sMinUserLevel
|
|
End Get
|
|
Set(value As Integer)
|
|
m_sMinUserLevel = value
|
|
NotifyPropertyChanged(NameOf(sMinUserLevel))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Choices As New ObservableCollection(Of ChoiceParameter)
|
|
Public Property Choices As ObservableCollection(Of ChoiceParameter)
|
|
Get
|
|
Return m_Choices
|
|
End Get
|
|
Set(value As ObservableCollection(Of ChoiceParameter))
|
|
m_Choices = value
|
|
NotifyPropertyChanged(NameOf(Choices))
|
|
End Set
|
|
End Property
|
|
|
|
' Seleziona elemento nella combobox Choices
|
|
Public m_SelectedChoice As ChoiceParameter
|
|
Public Property SelectedChoice As ChoiceParameter
|
|
Get
|
|
Return m_SelectedChoice
|
|
End Get
|
|
Set(value As ChoiceParameter)
|
|
m_SelectedChoice = value
|
|
If Not IsNothing(m_SelectedChoice) Then
|
|
m_sValue = m_SelectedChoice.sValue
|
|
End If
|
|
NotifyPropertyChanged(NameOf(SelectedChoice))
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Set
|
|
End Property
|
|
|
|
Friend m_SelTypeValue As Integer = 0
|
|
Public Property SelTypeValue As Integer
|
|
Get
|
|
Return m_SelTypeValue
|
|
End Get
|
|
Set(value As Integer)
|
|
m_SelTypeValue = value
|
|
NotifyPropertyChanged(NameOf(SelTypeValue))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Propeties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(JsonGenericParameter As JsonGenericParameter)
|
|
If IsNothing(JsonGenericParameter) Then Return
|
|
m_sName = JsonGenericParameter.sName
|
|
m_sNameNge = JsonGenericParameter.sNameNge
|
|
m_sValue = JsonGenericParameter.sValue
|
|
m_sDescriptionShort = JsonGenericParameter.sDescriptionShort
|
|
m_sDescriptionLong = JsonGenericParameter.sDescriptionLong
|
|
m_sType = JsonGenericParameter.sType
|
|
m_sMessageId = JsonGenericParameter.sMessageId
|
|
m_sMinUserLevel = JsonGenericParameter.sMinUserLevel
|
|
m_Choices = New ObservableCollection(Of ChoiceParameter)(JsonGenericParameter.Choices.Select(Function(jsonChoice) New ChoiceParameter(jsonChoice)))
|
|
NotifyPropertyChanged(NameOf(Choices))
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa riferimento ai parametri delle Scelte -----------
|
|
Public Class ChoiceParameter
|
|
Inherits VMBase
|
|
|
|
#Region "FIELD & PROPERTIES"
|
|
|
|
Private m_sValue As String
|
|
Public Property sValue As String
|
|
Get
|
|
Return m_sValue
|
|
End Get
|
|
Set(value As String)
|
|
m_sValue = value
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sDescriptionShort As String
|
|
Public Property sDescriptionShort As String
|
|
Get
|
|
Return m_sDescriptionShort
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescriptionShort = value
|
|
NotifyPropertyChanged(NameOf(sDescriptionShort))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sDescriptionLong As String
|
|
Public Property sDescriptionLong As String
|
|
Get
|
|
Return m_sDescriptionLong
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescriptionLong = value
|
|
NotifyPropertyChanged(NameOf(sDescriptionLong))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sMessageId As String
|
|
Public Property sMessageId As String
|
|
Get
|
|
Return m_sMessageId
|
|
End Get
|
|
Set(value As String)
|
|
m_sMessageId = value
|
|
NotifyPropertyChanged(NameOf(sMessageId))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(JsonChoiceParameter As JsonChoiceParameter)
|
|
If Not IsNothing(JsonChoiceParameter) Then
|
|
m_sValue = JsonChoiceParameter.sValue
|
|
m_sDescriptionShort = JsonChoiceParameter.sDescriptionShort
|
|
m_sDescriptionLong = JsonChoiceParameter.sDescriptionLong
|
|
m_sMessageId = JsonChoiceParameter.sMessageId
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa riferimento alle Feature del file Json -----------
|
|
Public Class JsonStrategyFeature
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPETIES"
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
NotifyPropertyChanged(NameOf(sName))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nPRC As Integer
|
|
Public Property nPRC As Integer
|
|
Get
|
|
Return m_nPRC
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nPRC = value
|
|
NotifyPropertyChanged(NameOf(nPRC))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nGRP As Integer
|
|
Public Property nGRP As Integer
|
|
Get
|
|
Return m_nGRP
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nGRP = value
|
|
NotifyPropertyChanged(NameOf(nGRP))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_TopologyList As New ObservableCollection(Of JsonTopology)
|
|
Public Property TopologyList As ObservableCollection(Of JsonTopology)
|
|
Get
|
|
Return m_TopologyList
|
|
End Get
|
|
Set(value As ObservableCollection(Of JsonTopology))
|
|
m_TopologyList = value
|
|
NotifyPropertyChanged(NameOf(TopologyList))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Propeties
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa riferimento alle Topologie delle Feature del file Json -----------
|
|
Public Class JsonTopology
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPETIES"
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
NotifyPropertyChanged(NameOf(sName))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_StrategyList As New ObservableCollection(Of JsonStrategy)
|
|
Public Property StrategyList As ObservableCollection(Of JsonStrategy)
|
|
Get
|
|
Return m_StrategyList
|
|
End Get
|
|
Set(value As ObservableCollection(Of JsonStrategy))
|
|
m_StrategyList = value
|
|
NotifyPropertyChanged(NameOf(StrategyList))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Propeties
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa alle Strategie delle Topologie delle Feature del file Json -----------
|
|
Public Class JsonStrategy
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPETIES"
|
|
|
|
Private m_sStrategyID As String
|
|
Public Property sStrategyID As String
|
|
Get
|
|
Return m_sStrategyID
|
|
End Get
|
|
Set(value As String)
|
|
m_sStrategyID = value
|
|
NotifyPropertyChanged(NameOf(sStrategyID))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nIndexInList As Integer = -1
|
|
Public Property nIndexInList As Integer
|
|
Get
|
|
Return m_nIndexInList
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nIndexInList = value
|
|
NotifyPropertyChanged(NameOf(nIndexInList))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_bActive As Boolean
|
|
Public Property bActive As Boolean
|
|
Get
|
|
Return m_bActive
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bActive = value
|
|
NotifyPropertyChanged(NameOf(bActive))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ParameterList As New ObservableCollection(Of JsonGenericParameter)
|
|
Public Property ParameterList As ObservableCollection(Of JsonGenericParameter)
|
|
Get
|
|
Return m_ParameterList
|
|
End Get
|
|
Set(value As ObservableCollection(Of JsonGenericParameter))
|
|
m_ParameterList = value
|
|
NotifyPropertyChanged(NameOf(ParameterList))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Propeties
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa riferimento ai parametri delle Strategie nel file Json -----------
|
|
Public Class JsonGenericParameter
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPETIES"
|
|
|
|
Private m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
NotifyPropertyChanged(NameOf(sName))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sNameNge As String
|
|
Public Property sNameNge As String
|
|
Get
|
|
Return m_sNameNge
|
|
End Get
|
|
Set(value As String)
|
|
m_sNameNge = value
|
|
NotifyPropertyChanged(NameOf(sNameNge))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sValue As String
|
|
Public Property sValue As String
|
|
Get
|
|
Return m_sValue
|
|
End Get
|
|
Set(value As String)
|
|
m_sValue = value
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sDescriptionShort As String
|
|
Public Property sDescriptionShort As String
|
|
Get
|
|
Return m_sDescriptionShort
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescriptionShort = value
|
|
NotifyPropertyChanged(NameOf(sDescriptionShort))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sDescriptionLong As String
|
|
Public Property sDescriptionLong As String
|
|
Get
|
|
Return m_sDescriptionLong
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescriptionLong = value
|
|
NotifyPropertyChanged(NameOf(sDescriptionLong))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sType As String
|
|
Public Property sType As String
|
|
Get
|
|
Return m_sType
|
|
End Get
|
|
Set(value As String)
|
|
m_sType = value
|
|
NotifyPropertyChanged(NameOf(sType))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sMessageId As String
|
|
Public Property sMessageId As String
|
|
Get
|
|
Return m_sMessageId
|
|
End Get
|
|
Set(value As String)
|
|
m_sMessageId = value
|
|
NotifyPropertyChanged(NameOf(sMessageId))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sMinUserLevel As Integer
|
|
Public Property sMinUserLevel As Integer
|
|
Get
|
|
Return m_sMinUserLevel
|
|
End Get
|
|
Set(value As Integer)
|
|
m_sMinUserLevel = value
|
|
NotifyPropertyChanged(NameOf(sMinUserLevel))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Choices As New ObservableCollection(Of JsonChoiceParameter)
|
|
Public Property Choices As ObservableCollection(Of JsonChoiceParameter)
|
|
Get
|
|
Return m_Choices
|
|
End Get
|
|
Set(value As ObservableCollection(Of JsonChoiceParameter))
|
|
m_Choices = value
|
|
NotifyPropertyChanged(NameOf(Choices))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Propeties
|
|
|
|
End Class
|
|
|
|
'----------- Classe che fa riferimento ai parametri delle Scelte nel file Json -----------
|
|
Public Class JsonChoiceParameter
|
|
Inherits VMBase
|
|
|
|
Private m_sValue As String
|
|
Public Property sValue As String
|
|
Get
|
|
Return m_sValue
|
|
End Get
|
|
Set(value As String)
|
|
m_sValue = value
|
|
NotifyPropertyChanged(NameOf(sValue))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sDescriptionShort As String
|
|
Public Property sDescriptionShort As String
|
|
Get
|
|
Return m_sDescriptionShort
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescriptionShort = value
|
|
NotifyPropertyChanged(NameOf(sDescriptionShort))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sDescriptionLong As String
|
|
Public Property sDescriptionLong As String
|
|
Get
|
|
Return m_sDescriptionLong
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescriptionLong = value
|
|
NotifyPropertyChanged(NameOf(sDescriptionLong))
|
|
End Set
|
|
End Property
|
|
|
|
Private m_sMessageId As String
|
|
Public Property sMessageId As String
|
|
Get
|
|
Return m_sMessageId
|
|
End Get
|
|
Set(value As String)
|
|
m_sMessageId = value
|
|
NotifyPropertyChanged(NameOf(sMessageId))
|
|
End Set
|
|
End Property
|
|
|
|
End Class
|
|
|
|
Public Class StrategyTypeToFocusableConverter
|
|
Implements IValueConverter
|
|
|
|
Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
|
|
If TypeOf value IsNot TreeViewItem Then Return True
|
|
Select Case DirectCast(value, TreeViewItem).DataContext.GetType()
|
|
Case GetType(Topology)
|
|
Return True
|
|
Case Else ' GetType(StrategyFeature)
|
|
Return False
|
|
End Select
|
|
End Function
|
|
|
|
Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
|
|
Throw New NotImplementedException()
|
|
End Function
|
|
|
|
End Class |