diff --git a/WinLineArtikelnummerGenerator/App.config b/WinLineArtikelnummerGenerator/App.config index f6744a2..eac02bd 100644 --- a/WinLineArtikelnummerGenerator/App.config +++ b/WinLineArtikelnummerGenerator/App.config @@ -1,23 +1,21 @@ - + - -
+ +
- + - + - + - \ No newline at end of file + diff --git a/WinLineArtikelnummerGenerator/ApplicationEvents.vb b/WinLineArtikelnummerGenerator/ApplicationEvents.vb new file mode 100644 index 0000000..c69c9d9 --- /dev/null +++ b/WinLineArtikelnummerGenerator/ApplicationEvents.vb @@ -0,0 +1,12 @@ +Namespace My + ' Für MyApplication sind folgende Ereignisse verfügbar: + ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst. + ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung mit einem Fehler beendet wird. + ' UnhandledException: Wird bei einem Ausnahmefehler ausgelöst. + ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn die Anwendung bereits aktiv ist. + ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst. + Partial Friend Class MyApplication + Public ConfigManager As ConfigManager(Of Config) + Public LogConfig As LogConfig + End Class +End Namespace diff --git a/WinLineArtikelnummerGenerator/Config.vb b/WinLineArtikelnummerGenerator/Config.vb index eb345e4..44c96fc 100644 --- a/WinLineArtikelnummerGenerator/Config.vb +++ b/WinLineArtikelnummerGenerator/Config.vb @@ -1,5 +1,26 @@ Imports DigitalData.Modules.Config.ConfigAttributes Public Class Config - Public Property ConnectionString As String + Public Property ConnectionString As String = "" + + Public Property WinLine_WebService As New WebServiceConfig + + Public Enum ActionCode + CHECK_ONLY = 0 + IMPORT = 1 + End Enum + + Public Class WebServiceConfig + Public Property Server As String = "" + Public Property Username As String = "" + Public Property Password As String = "" + Public Property Mandator As String = "" + Public Property ActionCode As ActionCode = ActionCode.IMPORT + + Public Property ArticleTemplateName As String = "" + Public Property ArticleTemplateType As Integer = 30 + + Public Property PriceTemplateName As String = "" + Public Property PriceTemplateType As Integer = 5 + End Class End Class diff --git a/WinLineArtikelnummerGenerator/Models/ProductGroup.vb b/WinLineArtikelnummerGenerator/Models/ProductGroup.vb index 5942011..9d7e00c 100644 --- a/WinLineArtikelnummerGenerator/Models/ProductGroup.vb +++ b/WinLineArtikelnummerGenerator/Models/ProductGroup.vb @@ -1,9 +1,18 @@ Public Class ProductGroup - Public Property Id As Integer - Public Property Vendor As String + Public Property Guid As Integer + Public Property GroupId As Integer + Public Property Code As String Public Property Name As String + Public ReadOnly Property GroupString As String + Get + Return GroupId.ToString.PadLeft(2, "0") + End Get + End Property + Public Overrides Function ToString() As String - Return $"{Id.ToString.PadLeft(2, "0")} - {Name}" + Return $"{GroupId.ToString.PadLeft(2, "0")} - {Name}" End Function + + End Class diff --git a/WinLineArtikelnummerGenerator/Models/ProductVersion.vb b/WinLineArtikelnummerGenerator/Models/ProductVersion.vb index 3ee759f..f38664c 100644 --- a/WinLineArtikelnummerGenerator/Models/ProductVersion.vb +++ b/WinLineArtikelnummerGenerator/Models/ProductVersion.vb @@ -1,9 +1,17 @@ Public Class ProductVersion - Public Property Id As Integer + Public Property Guid As Integer + Public Property Code As String + Public Property GroupId As Integer + Public Property VersionId As Integer Public Property Name As String - Public Property Part As Integer + + Public ReadOnly Property VersionString As String + Get + Return VersionId.ToString.PadLeft(2, "0") + End Get + End Property Public Overrides Function ToString() As String - Return $"{Id.ToString.PadLeft(2, "0")} - {Name}" + Return $"{VersionId.ToString.PadLeft(2, "0")} - {Name}" End Function End Class diff --git a/WinLineArtikelnummerGenerator/Models/Vendor.vb b/WinLineArtikelnummerGenerator/Models/Vendor.vb index c39a47c..e623e5f 100644 --- a/WinLineArtikelnummerGenerator/Models/Vendor.vb +++ b/WinLineArtikelnummerGenerator/Models/Vendor.vb @@ -1,8 +1,11 @@ Public Class Vendor + Public Property Guid As Integer Public Property Code As String Public Property Name As String + Public Property WinlineName As String + Public Property WinlineNumber As String Public Overrides Function ToString() As String - Return $"{Code} - {Name}" + Return $"{Code} - {Name} ({WinlineNumber.Trim} | {WinlineName.Trim})" End Function End Class diff --git a/WinLineArtikelnummerGenerator/Modules/ConfigManager.vb b/WinLineArtikelnummerGenerator/Modules/ConfigManager.vb index 25fbb52..7bac09d 100644 --- a/WinLineArtikelnummerGenerator/Modules/ConfigManager.vb +++ b/WinLineArtikelnummerGenerator/Modules/ConfigManager.vb @@ -76,6 +76,7 @@ Public Class ConfigManager(Of T) ''' Override values from ComputerConfig with UserConfig Public Sub New(LogConfig As LogConfig, UserConfigPath As String, ComputerConfigPath As String, Optional ApplicationStartupPath As String = "", Optional ForceUserConfig As Boolean = False) _LogConfig = LogConfig + _Logger = LogConfig.GetLogger() _File = New File(_LogConfig) diff --git a/WinLineArtikelnummerGenerator/My Project/Application.Designer.vb b/WinLineArtikelnummerGenerator/My Project/Application.Designer.vb index 3319c45..e54e811 100644 --- a/WinLineArtikelnummerGenerator/My Project/Application.Designer.vb +++ b/WinLineArtikelnummerGenerator/My Project/Application.Designer.vb @@ -1,10 +1,10 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ @@ -13,15 +13,15 @@ Option Explicit On Namespace My - - 'NOTE: This file is auto-generated; do not modify it directly. To make changes, - ' or if you encounter build errors in this file, go to the Project Designer - ' (go to Project Properties or double-click the My Project node in - ' Solution Explorer), and make changes on the Application tab. + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. ' Partial Friend Class MyApplication - - _ + + _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) Me.IsSingleInstance = false @@ -29,10 +29,10 @@ Namespace My Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses End Sub - - _ + + _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.WinLineArtikelnummerGenerator.frmMain + Me.MainForm = Global.WinLineArtikelnummerGenerator.Form1 End Sub End Class End Namespace diff --git a/WinLineArtikelnummerGenerator/My Project/Resources.Designer.vb b/WinLineArtikelnummerGenerator/My Project/Resources.Designer.vb index 93d083e..40f473e 100644 --- a/WinLineArtikelnummerGenerator/My Project/Resources.Designer.vb +++ b/WinLineArtikelnummerGenerator/My Project/Resources.Designer.vb @@ -1,40 +1,41 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On +Imports System Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ + _ Friend Module Resources - + Private resourceMan As Global.System.Resources.ResourceManager - + Private resourceCulture As Global.System.Globalization.CultureInfo - + ''' - ''' Returns the cached ResourceManager instance used by this class. + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. ''' - _ + _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then @@ -44,17 +45,17 @@ Namespace My.Resources Return resourceMan End Get End Property - + ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. ''' - _ + _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) + Set resourceCulture = value End Set End Property diff --git a/WinLineArtikelnummerGenerator/My Project/app.manifest b/WinLineArtikelnummerGenerator/My Project/app.manifest new file mode 100644 index 0000000..e534ca8 --- /dev/null +++ b/WinLineArtikelnummerGenerator/My Project/app.manifest @@ -0,0 +1,76 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/WinLineArtikelnummerGenerator/WinLineArtikelnummerGenerator.vbproj b/WinLineArtikelnummerGenerator/WinLineArtikelnummerGenerator.vbproj index 1799bfe..de59acf 100644 --- a/WinLineArtikelnummerGenerator/WinLineArtikelnummerGenerator.vbproj +++ b/WinLineArtikelnummerGenerator/WinLineArtikelnummerGenerator.vbproj @@ -11,9 +11,10 @@ WinLineArtikelnummerGenerator 512 WindowsForms - v4.7.2 + v4.6 true true + AnyCPU @@ -47,6 +48,9 @@ On + + My Project\app.manifest + @@ -74,6 +78,9 @@ ..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + + ..\packages\Newtonsoft.Json.6.0.4\lib\net45\Newtonsoft.Json.dll + ..\packages\NLog.4.7.4\lib\net45\NLog.dll @@ -85,9 +92,13 @@ + + ..\packages\Microsoft.AspNet.WebApi.Client.5.2.7\lib\net45\System.Net.Http.Formatting.dll + + @@ -109,7 +120,20 @@ + + + frmCreateArticle.vb + + + Form + + + frmWinlineConfig.vb + + + Form + True @@ -148,9 +172,15 @@ + + frmCreateArticle.vb + frmMain.vb + + frmWinlineConfig.vb + VbMyResourcesResXFileCodeGenerator @@ -171,6 +201,7 @@ CWLDATEN_MEDSDataSet.xsd + MyApplicationCodeGenerator Application.Designer.vb @@ -183,5 +214,8 @@ + + + \ No newline at end of file diff --git a/WinLineArtikelnummerGenerator/Winline.vb b/WinLineArtikelnummerGenerator/Winline.vb index 9b3ac97..2769d46 100644 --- a/WinLineArtikelnummerGenerator/Winline.vb +++ b/WinLineArtikelnummerGenerator/Winline.vb @@ -1,25 +1,29 @@ -Public Class Winline - Private _LogConfig As LogConfig +Imports System.Net + +Public Class Winline Private _Logger As Logger Private _Db As Database + Public ReadOnly Property NO_RUNNING_NUMBER_FOUND = "NO_RUNNING_NUMBER_FOUND" + Public ReadOnly Property UNKNOWN_ERROR = "UNKNOWN_ERROR" + Public Sub New(LogConfig As LogConfig, Database As Database) - _LogConfig = LogConfig _Logger = LogConfig.GetLogger() _Db = Database End Sub - - Public Function GetVendors() As List(Of Vendor) Try - Dim oDatatable As DataTable = _Db.GetDatatable("SELECT * FROM TBDD_ARTICLE_GENERATOR_VENDORS") + Dim oDatatable As DataTable = _Db.GetDatatable("SELECT * FROM TBDD_ARTICLE_GENERATOR_VENDORS ORDER BY CODE") Dim oVendors As New List(Of Vendor) For Each oRow As DataRow In oDatatable.Rows Dim oVendor As New Vendor() With { .Code = oRow.Item("CODE"), - .Name = oRow.Item("NAME") + .Name = oRow.Item("NAME"), + .Guid = oRow.Item("GUID"), + .WinlineName = oRow.Item("WINLINE_NAME"), + .WinlineNumber = oRow.Item("WINLINE_NUMBER") } oVendors.Add(oVendor) @@ -39,9 +43,10 @@ For Each oRow As DataRow In oDatatable.Rows Dim oGroup As New ProductGroup() With { + .Guid = oRow.Item("GUID"), .Name = oRow.Item("NAME"), - .Id = oRow.Item("GROUP"), - .Vendor = oRow.Item("CODE") + .GroupId = oRow.Item("GROUP"), + .Code = oRow.Item("CODE") } oGroups.Add(oGroup) @@ -56,14 +61,16 @@ Public Function GetVersionsByVendorAndGroup(VendorCode As String, GroupId As String) As List(Of ProductVersion) Try - Dim oDatatable = _Db.GetDatatable($"SELECT * FROM TBDD_ARTICLE_GENERATOR_PRODUCTS WHERE VENDOR = '{VendorCode}' AND [GROUP] = {GroupId}") + Dim oDatatable = _Db.GetDatatable($"SELECT * FROM TBDD_ARTICLE_GENERATOR_PRODUCTS WHERE CODE = '{VendorCode}' AND [GROUP] = {GroupId}") Dim oVersions As New List(Of ProductVersion) For Each oRow As DataRow In oDatatable.Rows Dim oVersion As New ProductVersion() With { - .Id = oRow.Item("VERSION"), + .Guid = oRow.Item("GUID"), + .VersionId = oRow.Item("VERSION"), + .GroupId = oRow.Item("GROUP"), .Name = oRow.Item("NAME"), - .Part = oRow.Item("PART") + .Code = oRow.Item("CODE") } oVersions.Add(oVersion) @@ -76,36 +83,51 @@ End Try End Function - Public Function GetVendorIdByCode(VendorCode As String) As String + Public Function GetNextRunningNumber(VendorCode As String, GroupId As Integer, VersionId As Integer) As String Try - Return _Db.GetScalarValue($"SELECT SUBSTRING(C000,0,6) C999 FROM T309 WHERE C001 = '{VendorCode}' AND C002 = 1") - Catch ex As Exception - _Logger.Error(ex) - Return Nothing - End Try - End Function + Dim oGroupCode As String = GroupId.ToString.PadLeft(2, "0") + Dim oVersionCode As String = VersionId.ToString.PadLeft(2, "0") + Dim oDbResult = _Db.GetScalarValue($"SELECT MAX(C223) FROM v021 WHERE c010 LIKE '{VendorCode}{oGroupCode}{oVersionCode}___'") - - - Public Function GetNextRunningNumber(VendorId As Integer, GroupId As Integer, VersionId As Integer) As Integer - Try - VendorId = VendorId.ToString.PadLeft(2) - GroupId = GroupId.ToString.PadLeft(2) - VersionId = VersionId.ToString.PadLeft(3) - - Dim oResult = _Db.GetScalarValue($"SELECT MAX(C223) C999 FROM [CWLDATEN_MEDS].[dbo].[v021] where c078 LIKE '{VendorId}-{GroupId}-{VersionId}-_____-_____'") - - If IsNothing(oResult) Then - Return 1 - ElseIf IsNumeric(oResult) Then - Return Integer.Parse(oResult) + 1 + If IsNumeric(oDbResult) Then + Dim oNewRunningNumber = Integer.Parse(oDbResult) + 1 + Return oNewRunningNumber.ToString.PadLeft(3, "0") + ElseIf IsNothing(oDbResult) OrElse IsDBNull(oDbResult) Then + Throw New ApplicationException(NO_RUNNING_NUMBER_FOUND) Else - Return Nothing + Throw New ApplicationException(UNKNOWN_ERROR) End If Catch ex As Exception _Logger.Error(ex) - Return Nothing + Throw ex End Try End Function + + Public Function SendWebserviceRequest(XmlData As String) + Try + Dim oWebserviceConfig = My.Application.ConfigManager.Config.WinLine_WebService + Dim oServer As String = oWebserviceConfig.Server + Dim oURI = $"http://{oServer}/ewlservice/import" + + Dim oQuery As String = "" + oQuery &= $"User={oWebserviceConfig.Username}" + oQuery &= $"Password={oWebserviceConfig.Password}" + oQuery &= $"Company={oWebserviceConfig.Mandator}" + oQuery &= $"Type={oWebserviceConfig.ArticleTemplateType}" + oQuery &= $"Vorlage={oWebserviceConfig.ArticleTemplateName}" + oQuery &= $"Actioncode={oWebserviceConfig.ActionCode}" + oQuery &= $"byref=0" + oQuery &= $"Data={XmlData}" + + oURI &= $"?{oQuery}" + + Dim oClient As HttpWebRequest = WebRequest.Create(oURI) + oClient.Method = "POST" + oClient.ContentType = "application/xml" + Catch ex As Exception + + End Try + End Function + End Class diff --git a/WinLineArtikelnummerGenerator/frmCreateArticle.Designer.vb b/WinLineArtikelnummerGenerator/frmCreateArticle.Designer.vb new file mode 100644 index 0000000..b35100b --- /dev/null +++ b/WinLineArtikelnummerGenerator/frmCreateArticle.Designer.vb @@ -0,0 +1,145 @@ + _ +Partial Class frmCreateArticle + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'TextBox1 + ' + Me.TextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!) + Me.TextBox1.Location = New System.Drawing.Point(12, 28) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.ReadOnly = True + Me.TextBox1.Size = New System.Drawing.Size(298, 22) + Me.TextBox1.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Artikelnummer" + ' + 'TextBox2 + ' + Me.TextBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!) + Me.TextBox2.Location = New System.Drawing.Point(12, 72) + Me.TextBox2.Multiline = True + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(298, 105) + Me.TextBox2.TabIndex = 0 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(12, 53) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(108, 13) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Artikelbeschreibung" + ' + 'GroupBox1 + ' + Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(485, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(303, 426) + Me.GroupBox1.TabIndex = 2 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Wichtige Informationen" + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox1.Location = New System.Drawing.Point(15, 223) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(172, 17) + Me.CheckBox1.TabIndex = 3 + Me.CheckBox1.Text = "Serienummer Artikel anlegen" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(12, 180) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(298, 40) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "Seriennummer Artikel anlegen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Diese Einstellung kann, anders als beim Altsystem, " & + "NICHT mehr im Nachhinein geändert werden!" + ' + 'Button1 + ' + Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!) + Me.Button1.Location = New System.Drawing.Point(12, 386) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(298, 52) + Me.Button1.TabIndex = 5 + Me.Button1.Text = "Artikel anlegen!" + Me.Button1.UseVisualStyleBackColor = True + ' + 'frmCreateArticle + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.CheckBox1) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.TextBox2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.TextBox1) + Me.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Name = "frmCreateArticle" + Me.Text = "frmCreateArticle" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents TextBox1 As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents TextBox2 As TextBox + Friend WithEvents Label2 As Label + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents CheckBox1 As CheckBox + Friend WithEvents Label3 As Label + Friend WithEvents Button1 As Button +End Class diff --git a/WinLineArtikelnummerGenerator/frmCreateArticle.resx b/WinLineArtikelnummerGenerator/frmCreateArticle.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/WinLineArtikelnummerGenerator/frmCreateArticle.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/WinLineArtikelnummerGenerator/frmCreateArticle.vb b/WinLineArtikelnummerGenerator/frmCreateArticle.vb new file mode 100644 index 0000000..e8d7586 --- /dev/null +++ b/WinLineArtikelnummerGenerator/frmCreateArticle.vb @@ -0,0 +1,3 @@ +Public Class frmCreateArticle + +End Class \ No newline at end of file diff --git a/WinLineArtikelnummerGenerator/frmMain.Designer.vb b/WinLineArtikelnummerGenerator/frmMain.Designer.vb index 2df90e7..7d6e9d8 100644 --- a/WinLineArtikelnummerGenerator/frmMain.Designer.vb +++ b/WinLineArtikelnummerGenerator/frmMain.Designer.vb @@ -32,6 +32,11 @@ Partial Class frmMain Me.Label3 = New System.Windows.Forms.Label() Me.listboxVendors = New System.Windows.Forms.ListBox() Me.Button4 = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.EinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.MenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'listboxProductGroups @@ -39,7 +44,7 @@ Partial Class frmMain Me.listboxProductGroups.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.listboxProductGroups.FormattingEnabled = True Me.listboxProductGroups.ItemHeight = 17 - Me.listboxProductGroups.Location = New System.Drawing.Point(268, 67) + Me.listboxProductGroups.Location = New System.Drawing.Point(507, 72) Me.listboxProductGroups.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.listboxProductGroups.Name = "listboxProductGroups" Me.listboxProductGroups.Size = New System.Drawing.Size(250, 242) @@ -49,7 +54,7 @@ Partial Class frmMain ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(9, 18) + Me.Label1.Location = New System.Drawing.Point(12, 24) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(69, 15) Me.Label1.TabIndex = 1 @@ -59,7 +64,7 @@ Partial Class frmMain ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(265, 19) + Me.Label2.Location = New System.Drawing.Point(504, 24) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(97, 15) Me.Label2.TabIndex = 1 @@ -67,7 +72,7 @@ Partial Class frmMain ' 'Button1 ' - Me.Button1.Location = New System.Drawing.Point(268, 37) + Me.Button1.Location = New System.Drawing.Point(507, 42) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(140, 23) Me.Button1.TabIndex = 2 @@ -77,7 +82,7 @@ Partial Class frmMain ' 'Button2 ' - Me.Button2.Location = New System.Drawing.Point(12, 37) + Me.Button2.Location = New System.Drawing.Point(15, 42) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(140, 23) Me.Button2.TabIndex = 2 @@ -90,7 +95,7 @@ Partial Class frmMain Me.listBoxProductVersion.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.listBoxProductVersion.FormattingEnabled = True Me.listBoxProductVersion.ItemHeight = 17 - Me.listBoxProductVersion.Location = New System.Drawing.Point(524, 67) + Me.listBoxProductVersion.Location = New System.Drawing.Point(763, 72) Me.listBoxProductVersion.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.listBoxProductVersion.Name = "listBoxProductVersion" Me.listBoxProductVersion.Size = New System.Drawing.Size(250, 242) @@ -98,7 +103,7 @@ Partial Class frmMain ' 'Button3 ' - Me.Button3.Location = New System.Drawing.Point(524, 37) + Me.Button3.Location = New System.Drawing.Point(763, 42) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(140, 23) Me.Button3.TabIndex = 2 @@ -110,7 +115,7 @@ Partial Class frmMain ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(521, 19) + Me.Label3.Location = New System.Drawing.Point(760, 24) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(90, 15) Me.Label3.TabIndex = 1 @@ -121,26 +126,58 @@ Partial Class frmMain Me.listboxVendors.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.listboxVendors.FormattingEnabled = True Me.listboxVendors.ItemHeight = 17 - Me.listboxVendors.Location = New System.Drawing.Point(12, 67) + Me.listboxVendors.Location = New System.Drawing.Point(15, 72) Me.listboxVendors.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.listboxVendors.Name = "listboxVendors" - Me.listboxVendors.Size = New System.Drawing.Size(250, 242) + Me.listboxVendors.Size = New System.Drawing.Size(486, 242) Me.listboxVendors.TabIndex = 0 ' 'Button4 ' - Me.Button4.Location = New System.Drawing.Point(524, 316) + Me.Button4.Location = New System.Drawing.Point(760, 349) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(250, 41) Me.Button4.TabIndex = 3 - Me.Button4.Text = "Generate" + Me.Button4.Text = "Artikelnummer generieren" Me.Button4.UseVisualStyleBackColor = True ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(12, 318) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(311, 15) + Me.Label4.TabIndex = 4 + Me.Label4.Text = "Aufbau: Kürzel - Markenname (Kreditorenummer | Name)" + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(1022, 24) + Me.MenuStrip1.TabIndex = 5 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinstellungenToolStripMenuItem}) + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(46, 20) + Me.ToolStripMenuItem1.Text = "Datei" + ' + 'EinstellungenToolStripMenuItem + ' + Me.EinstellungenToolStripMenuItem.Name = "EinstellungenToolStripMenuItem" + Me.EinstellungenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.EinstellungenToolStripMenuItem.Text = "Einstellungen" + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(793, 430) + Me.ClientSize = New System.Drawing.Size(1022, 402) + Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button3) @@ -151,10 +188,14 @@ Partial Class frmMain Me.Controls.Add(Me.listBoxProductVersion) Me.Controls.Add(Me.listboxProductGroups) Me.Controls.Add(Me.listboxVendors) + Me.Controls.Add(Me.MenuStrip1) Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MainMenuStrip = Me.MenuStrip1 Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "frmMain" - Me.Text = "frmMain" + Me.Text = "Artikelnummer Generator" + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -169,4 +210,8 @@ Partial Class frmMain Friend WithEvents Label3 As Label Friend WithEvents listboxVendors As ListBox Friend WithEvents Button4 As Button + Friend WithEvents Label4 As Label + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents EinstellungenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/WinLineArtikelnummerGenerator/frmMain.resx b/WinLineArtikelnummerGenerator/frmMain.resx index 1af7de1..bb70361 100644 --- a/WinLineArtikelnummerGenerator/frmMain.resx +++ b/WinLineArtikelnummerGenerator/frmMain.resx @@ -117,4 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + \ No newline at end of file diff --git a/WinLineArtikelnummerGenerator/frmMain.vb b/WinLineArtikelnummerGenerator/frmMain.vb index 65a0a8b..b13d169 100644 --- a/WinLineArtikelnummerGenerator/frmMain.vb +++ b/WinLineArtikelnummerGenerator/frmMain.vb @@ -1,20 +1,15 @@ Public Class frmMain Private _Logger As Logger - Private _LogConfig As LogConfig - Private _Config As ConfigManager(Of Config) Private _Database As Database Private _WinLine As Winline - Private CurrentVendor As Vendor = Nothing - Private CurrentGroup As ProductGroup = Nothing - Private CurrentVersion As ProductVersion = Nothing - 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) - _WinLine = New Winline(_LogConfig, _Database) + My.Application.LogConfig = New LogConfig(LogPath:=LogConfig.PathType.AppData, CompanyName:="Digital Data", ProductName:="WinLineProductNumberGenerator") + My.Application.ConfigManager = New ConfigManager(Of Config)(My.Application.LogConfig, Application.UserAppDataPath) + + _Logger = My.Application.LogConfig.GetLogger() + _Database = New Database(My.Application.LogConfig, My.Application.ConfigManager) + _WinLine = New Winline(My.Application.LogConfig, _Database) listboxVendors.DataSource = Nothing @@ -24,14 +19,12 @@ End Sub Private Sub frmMain_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed - _Config.Save() + My.Application.ConfigManager.Save() End Sub Private Sub listboxVendors_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listboxVendors.SelectedIndexChanged If listboxVendors.SelectedItem IsNot Nothing Then Dim oVendor As Vendor = listboxVendors.SelectedItem - CurrentVendor = oVendor - Dim oGroups As List(Of ProductGroup) = _WinLine.GetGroupsByVendor(oVendor.Code) listboxProductGroups.DataSource = oGroups @@ -42,52 +35,51 @@ Private Sub listboxProductGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listboxProductGroups.SelectedIndexChanged If listboxProductGroups.SelectedItem IsNot Nothing Then Dim oGroup As ProductGroup = listboxProductGroups.SelectedItem - CurrentGroup = oGroup - - Dim oVersions As List(Of ProductVersion) = _WinLine.GetVersionsByVendorAndGroup(oGroup.Vendor, oGroup.Id) + Dim oVersions As List(Of ProductVersion) = _WinLine.GetVersionsByVendorAndGroup(oGroup.Code, oGroup.GroupId) listBoxProductVersion.DataSource = oVersions End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click - 'Dim oVendor As DataRowView = listboxVendors.SelectedItem() - 'Dim oGroup As DataRowView = listboxProductGroups.SelectedItem() - 'Dim oVersion As DataRowView = listBoxProductVersion.SelectedItem() + Dim oVendor As Vendor = listboxVendors.SelectedItem() + Dim oGroup As ProductGroup = listboxProductGroups.SelectedItem() + Dim oVersion As ProductVersion = listBoxProductVersion.SelectedItem() - 'If oVendor Is Nothing Then - ' MsgBox("Bitte einen Lieferanten auswählen!", MsgBoxStyle.Information, Text) - ' Exit Sub - 'End If + If oVendor Is Nothing Then + MsgBox("Bitte einen Lieferanten auswählen!", MsgBoxStyle.Information, Text) + Exit Sub + End If - 'If oGroup Is Nothing Then - ' MsgBox("Bitte eine Produkt-Gruppe auswählen!", MsgBoxStyle.Information, Text) - ' Exit Sub - 'End If + If oGroup Is Nothing Then + MsgBox("Bitte eine Produkt-Gruppe auswählen!", MsgBoxStyle.Information, Text) + Exit Sub + End If - 'If oVersion Is Nothing Then - ' MsgBox("Bitte eine Produkt-Version auswählen!", MsgBoxStyle.Information, Text) - ' Exit Sub - 'End If + If oVersion Is Nothing Then + MsgBox("Bitte eine Produkt-Version auswählen!", MsgBoxStyle.Information, Text) + Exit Sub + End If - 'Dim oVendorId = CurrentVendor.Id - 'Dim oGroupId = CurrentGroup.Id - 'Dim oVersionId = CurrentVersion.Id - 'Dim oRunningNumber = _WinLine.GetNextRunningNumber(oVendorId, oGroupId, oVersionId) + Dim oArticleNumber = $"{oVendor.Code}{oGroup.GroupString}{oVersion.VersionString}" - 'MsgBox($"{oVendorId}-{oGroupId}-{oVersionId}-00000-00000") + Try + Dim oRunningNumber = _WinLine.GetNextRunningNumber(oVendor.Code, oGroup.GroupId, oVersion.VersionId) + MsgBox($"{oArticleNumber}{oRunningNumber}") + Catch ex As Exception + Select Case ex.Message + Case _WinLine.NO_RUNNING_NUMBER_FOUND + Dim oMessage = $"Für die Artikelnummer [{oArticleNumber}___] wurde im WinLine-System keine Laufende Nummer hinterlegt." + oMessage &= "Diese Nummer ist für die Automatische Artikelnummer-Generierung zwingend notwendig" + + MsgBox(oMessage, MsgBoxStyle.Critical, Text) + Case Else + MsgBox("Folgender Fehler ist aufgetreten:" & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) + End Select + End Try End Sub - Private Sub listBoxProductVersion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listBoxProductVersion.SelectedIndexChanged - 'If listBoxProductVersion.SelectedIndex >= 0 Then - ' Dim oVersion As DataRowView = listBoxProductVersion.SelectedItem() - ' Dim oVersionId As String = oVersion.Item("C999") - ' Dim oVersionName As String = oVersion.Item("C001") - - ' CurrentVersion = New ProductVersion With { - ' .Id = oVersionId, - ' .Name = oVersionName - ' } - 'End If + Private Sub EinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinstellungenToolStripMenuItem.Click + frmWinlineConfig.ShowDialog() End Sub End Class \ No newline at end of file diff --git a/WinLineArtikelnummerGenerator/frmWinlineConfig.Designer.vb b/WinLineArtikelnummerGenerator/frmWinlineConfig.Designer.vb new file mode 100644 index 0000000..b7e79af --- /dev/null +++ b/WinLineArtikelnummerGenerator/frmWinlineConfig.Designer.vb @@ -0,0 +1,141 @@ + _ +Partial Class frmWinlineConfig + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.txtServer = New System.Windows.Forms.TextBox() + Me.txtMandator = New System.Windows.Forms.TextBox() + Me.txtUsername = New System.Windows.Forms.TextBox() + Me.txtPassword = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'txtServer + ' + Me.txtServer.Location = New System.Drawing.Point(9, 32) + Me.txtServer.Name = "txtServer" + Me.txtServer.Size = New System.Drawing.Size(346, 20) + Me.txtServer.TabIndex = 0 + ' + 'txtMandator + ' + Me.txtMandator.Location = New System.Drawing.Point(9, 71) + Me.txtMandator.Name = "txtMandator" + Me.txtMandator.Size = New System.Drawing.Size(346, 20) + Me.txtMandator.TabIndex = 1 + ' + 'txtUsername + ' + Me.txtUsername.Location = New System.Drawing.Point(9, 110) + Me.txtUsername.Name = "txtUsername" + Me.txtUsername.Size = New System.Drawing.Size(346, 20) + Me.txtUsername.TabIndex = 2 + ' + 'txtPassword + ' + Me.txtPassword.Location = New System.Drawing.Point(9, 149) + Me.txtPassword.Name = "txtPassword" + Me.txtPassword.Size = New System.Drawing.Size(346, 20) + Me.txtPassword.TabIndex = 3 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(6, 16) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(79, 13) + Me.Label1.TabIndex = 4 + Me.Label1.Text = "Server-Adresse" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 55) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(49, 13) + Me.Label2.TabIndex = 5 + Me.Label2.Text = "Mandant" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(6, 94) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(49, 13) + Me.Label3.TabIndex = 6 + Me.Label3.Text = "Benutzer" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(6, 133) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(50, 13) + Me.Label4.TabIndex = 7 + Me.Label4.Text = "Passwort" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.txtServer) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.txtMandator) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Controls.Add(Me.txtUsername) + Me.GroupBox1.Controls.Add(Me.txtPassword) + Me.GroupBox1.Location = New System.Drawing.Point(12, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(361, 226) + Me.GroupBox1.TabIndex = 8 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "WinLine WebServices" + ' + 'frmWinlineConfig + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.GroupBox1) + Me.Name = "frmWinlineConfig" + Me.Text = "frmWinlineConfig" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents txtServer As TextBox + Friend WithEvents txtMandator As TextBox + Friend WithEvents txtUsername As TextBox + Friend WithEvents txtPassword As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents GroupBox1 As GroupBox +End Class diff --git a/WinLineArtikelnummerGenerator/frmWinlineConfig.resx b/WinLineArtikelnummerGenerator/frmWinlineConfig.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/WinLineArtikelnummerGenerator/frmWinlineConfig.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/WinLineArtikelnummerGenerator/frmWinlineConfig.vb b/WinLineArtikelnummerGenerator/frmWinlineConfig.vb new file mode 100644 index 0000000..bff3a67 --- /dev/null +++ b/WinLineArtikelnummerGenerator/frmWinlineConfig.vb @@ -0,0 +1,23 @@ +Public Class frmWinlineConfig + Private Sub frmWinlineConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load + With My.Application.ConfigManager.Config + If .WinLine_WebService IsNot Nothing Then + .WinLine_WebService = New Config.WebServiceConfig() + End If + + txtServer.Text = .WinLine_WebService.Server + txtMandator.Text = .WinLine_WebService.Mandator + txtUsername.Text = .WinLine_WebService.Username + txtPassword.Text = .WinLine_WebService.Password + End With + End Sub + + Private Sub frmWinlineConfig_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + With My.Application.ConfigManager.Config + .WinLine_WebService.Server = txtServer.Text + .WinLine_WebService.Mandator = txtMandator.Text + .WinLine_WebService.Username = txtUsername.Text + .WinLine_WebService.Password = txtPassword.Text + End With + End Sub +End Class \ No newline at end of file diff --git a/WinLineArtikelnummerGenerator/packages.config b/WinLineArtikelnummerGenerator/packages.config index b68a5f8..8604dd3 100644 --- a/WinLineArtikelnummerGenerator/packages.config +++ b/WinLineArtikelnummerGenerator/packages.config @@ -1,4 +1,6 @@  + + \ No newline at end of file