clean up

WinLineArtikelnummerGenerator/Winline.vb

@@ -3,10 +3,10 @@ Imports System.Net
 Imports System.Xml
 
 Public Class Winline
-    Private _Logger As Logger
+    Private ReadOnly _Logger As Logger
-    Private _EXIM As Database
+    Private ReadOnly _EXIM As Database
-    Private _Winline As Database
+    Private ReadOnly _Winline As Database
-    Private _Config As Config
+    Private ReadOnly _Config As Config
 
     Public ReadOnly Property NO_RUNNING_NUMBER_FOUND = "NO_RUNNING_NUMBER_FOUND"
     Public ReadOnly Property ARTICLE_ALREADY_EXISTS = "ARTICLE_ALREADY_EXISTS"
@@ -137,7 +137,7 @@ Public Class Winline
         End Try
     End Function
 
-    Public Function SendWebserviceRequest(TemplateType As Integer, TemplateName As String, XmlData As String)
+    Public Function SendWebserviceRequest(TemplateType As Integer, TemplateName As String, XmlData As String) As Boolean
         Try
             Dim oWebserviceConfig = My.Application.ConfigManager.Config.WebService
             Dim oServer As String = oWebserviceConfig.Server
@@ -201,7 +201,7 @@ Public Class Winline
         End Try
     End Function
 
-    Public Function CreateArticle(ArticleNumber As String, RunningNumber As String, ArticleDescription As String, Vendor As Vendor, IsSerialnumberArticle As Boolean)
+    Public Function CreateArticle(ArticleNumber As String, RunningNumber As String, ArticleDescription As String, Vendor As Vendor, IsSerialnumberArticle As Boolean) As Boolean
         Dim oTemplateName As String = _Config.WebService.ArticleTemplateName
         Dim oTemplateType As Integer = _Config.WebService.ArticleTemplateType
         Dim oTaxCode As Integer = _Config.WebService.TaxCode
@@ -268,7 +268,7 @@ Public Class Winline
         End Try
     End Function
 
-    Public Function CreatePriceInfo(ArticleNumber As String, RunningNumber As String, VendorNumber As String)
+    Public Function CreatePriceInfo(ArticleNumber As String, RunningNumber As String, VendorNumber As String) As Boolean
         Dim oTemplateName As String = _Config.WebService.PriceTemplateName
         Dim oTemplateType As Integer = _Config.WebService.PriceTemplateType