LicenseManager 2.1b2:

- Aggiunto KeyID in KeyTable nel DB
- ClientID può essere NULL in KeyTable nel DB
- NewKeyPage: impostato Generated Number/LockID in base a IsDongle
- Aggiunto Stato Key 'InDepositoEgt'
- Sistemate comboBox e textBox delle KeyPages e di UpdateLicencePage
- Avviso Number già esistente nella creazione Key

UpdateClientPage/UpdateClientPageVM.vb

@@ -73,22 +73,32 @@ Public Class UpdateClientPageVM
 #Region "METHODS"
 
    Friend Sub InitUpdateClientPage()
-      ' Svuoto campi
-      ' Name = String.Empty
+      ' Carico campo Name
       Dim Query As String = "SELECT " & DB_NAME & " FROM " & DB_CLIENT &
             " WHERE " & DB_CLIENTID & " LIKE " & IdToUpdate
       Name = ManageDb.ExecuteStringQuery(Query, DB_NAME)(0)
       NotifyPropertyChanged("Name")
 
+      ' Carico campo Email
       Dim eQuery As String = "SELECT " & DB_EMAIL & " FROM " & DB_CLIENT &
             " WHERE " & DB_CLIENTID & " LIKE " & IdToUpdate
-      Name = ManageDb.ExecuteStringQuery(eQuery, DB_EMAIL)(0)
+      Email = ManageDb.ExecuteStringQuery(eQuery, DB_EMAIL)(0)
       NotifyPropertyChanged("Email")
 
       ' Carico lista Reseller
       Dim rQuery As String = "SELECT * FROM " & DB_RESELLER
       m_ResellerList = ManageDb.ExecuteResellerQuery(rQuery)
       NotifyPropertyChanged("ResellerList")
+
+      ' Carico elemento della lista Reseller selezionato precdentemente
+      Dim selQuery As String = "SELECT * FROM " & DB_CLIENT &
+      " INNER JOIN " & DB_RESELLER & " ON " & DB_CLIENT & "." & DB_RESELLERID & " = " &
+      DB_RESELLER & "." & DB_RESELLERID &
+      " WHERE " & DB_CLIENTID & " LIKE " & IdToUpdate
+      'm_SelReseller = ManageDb.ExecuteResellerQuery(rQuery)(0)
+      'm_SelReseller = m_ResellerList(2)
+      m_SelReseller = m_ResellerList.FirstOrDefault(Function(resel) resel.ResellerName.Equals(ManageDb.ExecuteResellerQuery(selQuery)(0).ResellerName))
+      NotifyPropertyChanged("SelReseller")
    End Sub
 
 #End Region    ' METHODS