From f4ea9c89934785479eef3611bdbcd4679f247ae3 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 24 Sep 2020 15:48:11 +0200
Subject: [PATCH] add logging

---
 WinLineArtikelnummerGenerator/Winline.vb          |  4 +++-
 WinLineArtikelnummerGenerator/frmCreateArticle.vb |  6 ++++++
 WinLineArtikelnummerGenerator/frmMain.vb          | 10 ++++++++++
 3 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/WinLineArtikelnummerGenerator/Winline.vb b/WinLineArtikelnummerGenerator/Winline.vb
index e45fd96..bbfb12a 100644
--- a/WinLineArtikelnummerGenerator/Winline.vb
+++ b/WinLineArtikelnummerGenerator/Winline.vb
@@ -174,11 +174,13 @@ Public Class Winline
             Dim oSuccess As XmlNode = oDocument.DocumentElement.SelectSingleNode("OverallSuccess")
 
             If oSuccess.InnerText.ToUpper = "TRUE" Then
+                _Logger.Info("Request was SUCCESSFUL!")
+
                 Return True
             Else
+                _Logger.Info("Request FAILED!")
                 Return False
             End If
-
         Catch ex As Exception
             _Logger.Error(ex)
             Return False
diff --git a/WinLineArtikelnummerGenerator/frmCreateArticle.vb b/WinLineArtikelnummerGenerator/frmCreateArticle.vb
index befe415..6d095c6 100644
--- a/WinLineArtikelnummerGenerator/frmCreateArticle.vb
+++ b/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
diff --git a/WinLineArtikelnummerGenerator/frmMain.vb b/WinLineArtikelnummerGenerator/frmMain.vb
index 71c6f2b..a3b3923 100644
--- a/WinLineArtikelnummerGenerator/frmMain.vb
+++ b/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