60 lines
2.4 KiB
VB.net
60 lines
2.4 KiB
VB.net
Public Class frmMain
|
|
Private _Logger As Logger
|
|
Private _LogConfig As LogConfig
|
|
Private _Config As ConfigManager(Of Config)
|
|
Private _Database As Database
|
|
|
|
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
_LogConfig = New LogConfig(LogPath:=LogConfig.PathType.AppData, CompanyName:="Digital Data", ProductName:="WinLineProductNumberGenerator")
|
|
_Logger = _LogConfig.GetLogger()
|
|
_Config = New ConfigManager(Of Config)(_LogConfig, Application.UserAppDataPath)
|
|
_Database = New Database(_LogConfig, _Config)
|
|
|
|
listboxVendors.DataSource = Nothing
|
|
|
|
Dim oVendorDT = _Database.LoadVendors()
|
|
Dim oVendors = New List(Of Vendor)
|
|
|
|
listboxVendors.DataSource = oVendorDT
|
|
listboxVendors.DisplayMember = "c003"
|
|
listboxVendors.ValueMember = "c229"
|
|
End Sub
|
|
|
|
Private Sub frmMain_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
|
|
_Config.Save()
|
|
End Sub
|
|
|
|
Private Sub listboxVendors_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listboxVendors.SelectedIndexChanged
|
|
If listboxVendors.SelectedIndex >= 0 Then
|
|
Dim oVendor As DataRowView = listboxVendors.SelectedItem()
|
|
Dim oVendorCode = oVendor.Item("C229")
|
|
Dim oVendorId = _Database.LoadVendorIdByCode(oVendorCode)
|
|
|
|
listboxProductGroups.DataSource = Nothing
|
|
|
|
If oVendorId Is Nothing Then
|
|
_Logger.Warn("VendorId does not match any 'Artikeluntergruppen'.")
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim oGroups = _Database.LoadGroupsByVendor(oVendorId)
|
|
|
|
listboxProductGroups.DataSource = oGroups
|
|
listboxProductGroups.DisplayMember = "C001"
|
|
listboxProductGroups.ValueMember = "C999"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub listboxProductGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listboxProductGroups.SelectedIndexChanged
|
|
If listboxProductGroups.SelectedIndex >= 0 Then
|
|
Dim oVendor As DataRowView = listboxVendors.SelectedItem()
|
|
Dim oGroup As DataRowView = listboxProductGroups.SelectedItem()
|
|
|
|
Dim oVendorCode = oVendor.Item("C229")
|
|
Dim oVendorId = _Database.LoadVendorIdByCode(oVendorCode)
|
|
Dim oGroupId = oGroup.Item("C999")
|
|
|
|
Dim Versions = _Database.LoadVersionsByVendorAndGroup(oVendorId, oGroupId)
|
|
End If
|
|
End Sub
|
|
End Class |