Renzo Lanza
80360b0306
- Aggiunti 2 nuovi Stati Chiave: Interna e InternaEgt - Entrando in ogni SearchPage viene subito riempita la tabella dell'elemento relativo (Chiave, Licenze, ecc.) senza bisogno di premere "Search" - Pulsante "Cancel" è diventato "Close" e spostato in fondo a destra - Aggiunto LicenceBox: form che visualizza il contenuto del file di licenza e ne permette il download (sostituisce il MessageBox che c'era prima) - "Update (Overwrite)" ora è seguito dalla rigenerazione della licenza - MainMenu non include più i pulsanti "New [...]". Questi sono stati tutti spostati all'interno delle SearchPage
98 lines
2.4 KiB
VB.net
98 lines
2.4 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Public Class NewVersionPageVM
|
|
Inherits VersionPageVM
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
' Definizione comandi
|
|
Private m_cmdAddVersion As Command
|
|
Private m_cmdCancel As Command
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property NewVersionMsg As String
|
|
Get
|
|
Return "New version"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property AddMsg As String
|
|
Get
|
|
Return "Add"
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CancelMsg As String
|
|
Get
|
|
Return "Close"
|
|
End Get
|
|
End Property
|
|
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Imposto riferimento nella mappa
|
|
Map.SetRefNewVersionPageVM(Me)
|
|
End Sub
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "AddVersion"
|
|
|
|
' Returns a command that manage the MainWindow_Unloaded command
|
|
Public ReadOnly Property AddVersion_Command As ICommand
|
|
Get
|
|
If m_cmdAddVersion Is Nothing Then
|
|
m_cmdAddVersion = New Command(AddressOf AddVersion)
|
|
End If
|
|
Return m_cmdAddVersion
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub AddVersion(ByVal param As Object)
|
|
|
|
' Aggiungo un rivenditore al Db
|
|
Dim Query As String = "INSERT INTO " & DB_VERSION & " (" & DB_VERSIONNUMBER & ", " & DB_PRODUCTID & ")" &
|
|
" VALUES ('" & VersionNumber & "', " &
|
|
"'" & SelProduct.ProductID & "')"
|
|
ManageDb.ExecuteQuery(Query)
|
|
|
|
' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
|
|
Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.MAINMENU
|
|
|
|
End Sub
|
|
|
|
#End Region ' AddVersion
|
|
|
|
#Region "Cancel"
|
|
|
|
' Returns a command that manage the MainWindow_Unloaded 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(ByVal param As Object)
|
|
|
|
' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
|
|
Map.refMainWindowVM.SelProjectMode = MainWindowVM.ProjectModeOpt.MAINMENU
|
|
|
|
End Sub
|
|
|
|
#End Region ' Cancel
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|