LicenceManager 2.1c6:

- Aggiunto il campo "Note" di tipo LONGTEXT ai rivenditori, nel DB e nelle ResellerPage. Può essere Null.

MainWindow/Objects.vb

@@ -352,14 +352,27 @@ Public Class Reseller
       End Get
    End Property
 
-   Sub New(ResellerName As String, ResellerID As Integer)
+   Private m_Note As String
+   Public ReadOnly Property Note As String
+      Get
+         Return m_Note
+      End Get
+   End Property
+
+   Sub New(ResellerName As String, ResellerID As Integer, Note As String)
       m_ResellerName = ResellerName
       m_ResellerID = ResellerID
+      m_Note = Note
    End Sub
 
    Sub New(ResellerReader As MySqlDataReader)
       m_ResellerName = CType(ResellerReader(DB_RESELLERNAME), String)
       m_ResellerID = CInt(ResellerReader(DB_RESELLERID))
+      If (Not ResellerReader(DB_NOTE).Equals(DBNull.Value)) Then
+         m_Note = CType(ResellerReader(DB_NOTE), String)
+      Else
+         m_Note = Nothing
+      End If
    End Sub
 
 End Class