33 lines
889 B
VB.net
33 lines
889 B
VB.net
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
|