Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database

Public Class WinLineInfo
    Inherits Base

    Private Database As MSSQLServer
    Public Mandators As New List(Of Mandator)

    Public Class Mandator
        Public Property Id As String
        Public Property Name As String
    End Class

    Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
        MyBase.New(pLogConfig, pLogConfig.GetLogger())
        Database = pDatabase
    End Sub

    Public Sub LoadWinlineMandators()
        Dim oSQL = "SELECT * FROM v005 WHERE c0139 IS NULL"
        Dim oTable = Database.GetDatatable(oSQL)

        Mandators.Clear()
        For Each oRow As DataRow In oTable.Rows
            Mandators.Add(New Mandator With {
                .Id = oRow.Item("c002"),
                .Name = oRow.Item("c003")
            })
        Next
    End Sub
End Class