add logging

WinLineArtikelnummerGenerator/frmCreateArticle.vb

@@ -6,6 +6,7 @@
     Public Property RunningNumber As String
 
     Private ReadOnly Config As Config = My.Application.ConfigManager.Config
+    Private ReadOnly Logger As Logger = My.Application.LogConfig.GetLogger
 
     Private Sub frmCreateArticle_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         txtRunningNumber.Text = RunningNumber
@@ -23,7 +24,12 @@
 
             txtFinalArticleNumber.Text = String.Empty
 
+            Logger.Info("Creating Article..")
+
             Dim oArticleResult = My.Application.Winline.CreateArticle(ArticleNumber, RunningNumber, txtArticleDescription.Text, Vendor, IsSerialNumberArticle)
+
+            Logger.Info("Creating Price Info..")
+
             Dim oPriceResult = My.Application.Winline.CreatePriceInfo(ArticleNumber, RunningNumber, Vendor.WinlineNumber)
 
             If oArticleResult And oPriceResult Then