Public Class AdapterClientiExt
    Inherits AdapterClienti

    Protected Overrides Sub InitConnection()
        Me._cn = New SqlClient.SqlConnection("Password=miaPassword;Persist Security Info=True;User ID=sa;Initial Catalog=MioDB;Data Source=127.0.0.1")
    End Sub

    Protected Overrides Sub InitAdapter()
        MyBase.InitAdapter()

        MyBase._ad.TableMappings(0).ColumnMappings.Add("CommesseTotali", "Commesse")
        MyBase._ad.TableMappings(0).ColumnMappings.Add("CommesseAperte", "CommesseAperte")
        MyBase._ad.TableMappings(0).ColumnMappings.Add("CommesseChiuse", "CommesseChiuse")
    End Sub

    Protected Overrides Sub InitSelectCommand()
        MyBase.InitSelectCommand()
        Dim sSQL As String = "SELECT * FROM Clienti(@Codice, @RagioneSociale)"
        'MyBase._Select = New SqlClient.SqlCommand(sSQL)
        MyBase._Select.CommandText = sSQL
        MyBase._Select.CommandType = CommandType.Text
        MyBase._Select.Connection = MyBase.Connection
    End Sub

    Public Overrides Function GetClienti(ByVal Filtro As IFiltroClienti) As System.Collections.Generic.List(Of ICliente)
        Return MyBase.GetClienti(Filtro)
    End Function

    Protected Class ClientiDB
        Inherits Brini.Clienti.Mexal.AdapterClienti.ClientiGestionale

        Private _ColonnaCommesse As System.Data.DataColumn
        Protected ReadOnly Property ColonnaCommesse() As System.Data.DataColumn
            Get
                Return Me._ColonnaCommesse
            End Get
        End Property

        Private _ColonnaCommesseAperte As System.Data.DataColumn
        Protected ReadOnly Property ColonnaCommesseAperte() As System.Data.DataColumn
            Get
                Return Me._ColonnaCommesseAperte
            End Get
        End Property

        Private _ColonnaCommessechiuse As System.Data.DataColumn
        Protected ReadOnly Property ColonnaCommesseChiuse() As System.Data.DataColumn
            Get
                Return Me._ColonnaCommessechiuse
            End Get
        End Property

        Protected Class ClienteGPD
            Inherits AdapterClienti.ClientiGestionale.ClienteGestionale
            Implements IClienteDB

            Private Tabella As ClientiDB

            Protected Friend Sub New(ByVal builder As System.Data.DataRowBuilder)
                MyBase.New(builder)
                Me.Tabella = CType(Me.Table, ClientiDB)
            End Sub

            Public ReadOnly Property Commesse() As Integer Implements IClienteDB.Commesse
                Get
                    Return Me(Me.Tabella.ColonnaCommesse)
                End Get
            End Property

            Public ReadOnly Property CommesseAperte() As Integer Implements IClienteDB.CommesseAperte
                Get
                    Return Me(Me.Tabella.ColonnaCommesseAperte)
                End Get
            End Property

            Public ReadOnly Property CommesseChiuse() As Integer Implements IClienteDB.CommesseChiuse
                Get
                    Return Me(Me.Tabella.ColonnaCommesseChiuse)
                End Get
            End Property
        End Class
    End Class
End Class