add logging

WinLineArtikelnummerGenerator/frmMain.vb

@@ -107,9 +107,15 @@
         Dim oArticleNumber = $"{oVendor.Code}{oGroup.GroupString}{oVersion.VersionString}"
         Dim oRunningNumber As String
 
+        _Logger.Info("Vendor Code: [{0}]", oVendor.Code)
+        _Logger.Info("Group String: [{0}]", oGroup.GroupString)
+        _Logger.Info("Version: [{0}]", oVersion.VersionString)
+
         Try
             oRunningNumber = My.Application.Winline.GetNextRunningNumber(oVendor.Code, oGroup.GroupId, oVersion.VersionId)
 
+            _Logger.Info("New Running Number: [{0}]", oRunningNumber)
+
             If My.Application.Winline.TestArticleExists($"{oArticleNumber}{oRunningNumber}") Then
                 Throw New ApplicationException(My.Application.Winline.ARTICLE_ALREADY_EXISTS)
             End If
@@ -122,8 +128,12 @@
                 .Group = oGroup
             }
 
+            _Logger.Info("Opening Article form..")
+
             oForm.ShowDialog()
         Catch ex As Exception
+            _Logger.Error(ex)
+
             Dim oMessage As String = ""
 
             Select Case ex.Message