first public version

WinLineArtikelnummerGenerator/frmNewVendor.vb

@@ -0,0 +1,56 @@
+Public Class frmNewVendor
+    Public Property Vendor As Vendor
+
+    Private Sub frmNewVendor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            Dim oVendors As List(Of Vendor) = My.Application.Winline.GetVendorsFromWinLine()
+
+            cmbWinlineVendor.DataSource = oVendors
+            cmbWinlineVendor.DisplayMember = "WinlineName"
+            cmbWinlineVendor.ValueMember = "WinlineNumber"
+        Catch ex As Exception
+            MsgBox("Fehler beim Laden der Lieferanten: " & ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Try
+            Dim oName As String = txtName.Text
+            Dim oCode As String = txtCode.Text
+            Dim oVendor As Vendor = cmbWinlineVendor.SelectedItem
+
+            If oName.Length = 0 Then
+                MsgBox("Bitte tragen Sie einen Namen ein!", MsgBoxStyle.Critical, Text)
+                txtName.Focus()
+                Exit Sub
+            End If
+
+            If oCode.Length = 0 Then
+                MsgBox("Bitte tragen Sie einen Code ein!", MsgBoxStyle.Critical, Text)
+                txtCode.Focus()
+                Exit Sub
+            End If
+
+            If IsNothing(oVendor) Then
+                MsgBox("Bitte wählen Sie einen Lieferanten aus!", MsgBoxStyle.Critical, Text)
+            End If
+
+            Dim oSQL As String = "INSERT INTO TBDD_ARTICLE_GENERATOR_VENDORS " &
+                "(CODE, NAME, WINLINE_NAME, WINLINE_NUMBER) " &
+                $"VALUES ('{oCode}', '{oName}', '{oVendor.WinlineName}', '{oVendor.WinlineNumber}')"
+
+            Dim oResult = My.Application.EXIMDatabase.ExecuteNonQuery(oSQL)
+
+            If oResult = True Then
+                MsgBox("Lieferant erstellt!", MsgBoxStyle.Information, Text)
+
+                DialogResult = DialogResult.OK
+                Close()
+            Else
+                MsgBox("Fehler beim Erstellen des Lieferanten. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
+            End If
+        Catch ex As Exception
+            MsgBox("Fehler beim Erstellen des Lieferanten: " & ex.Message, MsgBoxStyle.Critical, Text)
+        End Try
+    End Sub
+End Class