From c515ca075a56e926b8e2f66bf85449a875bf537b Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Fri, 25 Sep 2020 10:23:19 +0200 Subject: [PATCH] clean up --- WinLineArtikelnummerGenerator/Winline.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/WinLineArtikelnummerGenerator/Winline.vb b/WinLineArtikelnummerGenerator/Winline.vb index bbfb12a..8ec9326 100644 --- a/WinLineArtikelnummerGenerator/Winline.vb +++ b/WinLineArtikelnummerGenerator/Winline.vb @@ -3,10 +3,10 @@ Imports System.Net Imports System.Xml Public Class Winline - Private _Logger As Logger - Private _EXIM As Database - Private _Winline As Database - Private _Config As Config + Private ReadOnly _Logger As Logger + Private ReadOnly _EXIM As Database + Private ReadOnly _Winline As Database + 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