LicenceManager 2.1c7:

- Aggiunto campo di testo "Note" per le Key, nel DB e nelle KeyPage
- Aggiunto lo stato "InDepositoTrial" nei KeyState

UpdateKeyPage/UpdateKeyPageVM.vb

@@ -83,6 +83,17 @@ Public Class UpdateKeyPageVM
       End Set
    End Property
 
+   Private m_Note As String
+   Public Property Note As String
+      Get
+         Return m_Note
+      End Get
+      Set(value As String)
+         m_Note = value
+         NotifyPropertyChanged("Note")
+      End Set
+   End Property
+
    ' Definizione comandi
    Private m_cmdUpdate As Command
    Private m_cmdCancel As Command
@@ -113,6 +124,12 @@ Public Class UpdateKeyPageVM
       End Get
    End Property
 
+   Public ReadOnly Property NoteMsg As String
+      Get
+         Return "Note"
+      End Get
+   End Property
+
    Public ReadOnly Property UpdateMsg As String
       Get
          Return "Update"
@@ -162,6 +179,7 @@ Public Class UpdateKeyPageVM
       sList.Add(Key.KeyState.Guasta)
       sList.Add(Key.KeyState.Interna)
       sList.Add(Key.KeyState.InternaEgt)
+      sList.Add(Key.KeyState.InDepositoTrial)
       m_StateList = sList
       NotifyPropertyChanged("StateList")
 
@@ -180,6 +198,9 @@ Public Class UpdateKeyPageVM
 
       m_KeyDate = Key.KeyDate
       NotifyPropertyChanged("KeyDate")
+
+      m_Note = Key.Note
+      NotifyPropertyChanged("Note")
    End Sub
 
 #End Region    ' METHODS
@@ -223,6 +244,13 @@ Public Class UpdateKeyPageVM
             Dim Query As String = "UPDATE " & DB_KEY & " SET " & DB_DATE & " = '" & Format(m_KeyDate, "yyyy-MM-dd") & "' WHERE " & DB_LOCKID & " = '" & Key.LockID & "' "
             Query = Query.TrimEnd(","c, " "c)
 
+            ManageDb.ExecuteQuery(Query)
+         End If
+         If Not IsNothing(Note) Then
+            ' Aggiorno tabella Key con KeyDate scelto
+            Dim Query As String = "UPDATE " & DB_KEY & " SET " & DB_NOTE & " = '" & m_Note & "' WHERE " & DB_LOCKID & " = '" & Key.LockID & "' "
+            Query = Query.TrimEnd(","c, " "c)
+
             ManageDb.ExecuteQuery(Query)
          End If
       Else