Rename Shared to Common

MultiTool.Common/Winline/Entities/Account.vb

@@ -0,0 +1,25 @@
+Namespace Winline.Entities
+    Public Class Account
+        Public Property Id As String
+        Public Property Name As String
+
+        Public Property StreetName As String
+        Public Property CityName As String
+        Public Property ZipCode As String
+        Public Property GLN As String
+
+        Public Property Mandator As Mandator
+
+        Public Overrides Function GetHashCode() As Integer
+            Return Id.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, Account).Id = Id
+        End Function
+
+        Public Overrides Function ToString() As String
+            Return $"{Name} ({Id})"
+        End Function
+    End Class
+End Namespace

MultiTool.Common/Winline/Entities/Article.vb

@@ -0,0 +1,21 @@
+Namespace Winline.Entities
+    Public Class Article
+        Public Property Id As String
+        Public Property Name As String
+        Public Property EAN As String
+        Public Property Mandator As Mandator
+
+        Public Overrides Function GetHashCode() As Integer
+            Return Id.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, Article).Id = Id
+        End Function
+
+        Public Overrides Function ToString() As String
+            Return $"{Name} ({Id})"
+        End Function
+    End Class
+
+End Namespace

MultiTool.Common/Winline/Entities/Contact.vb

@@ -0,0 +1,12 @@
+Namespace Winline.Entities
+    Public Class Contact
+        Public Property Id As Integer
+        Public Property Number As String
+        Public Property Name As String
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+
+End Namespace

MultiTool.Common/Winline/Entities/DocumentKind.vb

@@ -0,0 +1,19 @@
+Namespace Winline.Entities
+    Public Class DocumentKind
+        Public Property Id As Integer
+        Public Property Name As String
+        Public Property Mandator As Mandator
+
+        Public Overrides Function GetHashCode() As Integer
+            Return Id.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, DocumentKind).Id = Id
+        End Function
+
+        Public Overrides Function ToString() As String
+            Return $"{Name} ({Id})"
+        End Function
+    End Class
+End Namespace

MultiTool.Common/Winline/Entities/ExportDocument.vb

@@ -0,0 +1,28 @@
+Namespace Winline.Entities
+    Public Class ExportDocument
+        Public Property Schema As Templates.Template
+
+        Public Property Account As Account
+        Public ReadOnly Property AccountName As String
+            Get
+                Return Account?.ToString()
+            End Get
+        End Property
+
+        Public Property Kind As DocumentKind
+        Public Property RunningNumber As String
+        Public Property Number As String
+        Public Property [Date] As Date
+        Public Property DateColumn As String
+        Public Property NetAmount As Double
+        Public Property GrossAmount As Double
+
+        Public Property IsSelected As Boolean = False
+        Public Property IsExported As Boolean = False
+
+        Public Property FilenameExport As String
+        Public Property ExportedWhen As Date
+        Public Property ExportedWho As String
+    End Class
+
+End Namespace

MultiTool.Common/Winline/Entities/Mandator.vb

@@ -0,0 +1,23 @@
+Namespace Winline.Entities
+    Public Class Mandator
+        Public Property Id As String
+        Public Property Name As String
+        Public Property Database As String
+        Public Property Server As String
+        Public Property Regex As String
+        Public Property Order As Integer
+        Public Property IsWhitelisted As Boolean
+
+        Public Overrides Function GetHashCode() As Integer
+            Return Id.GetHashCode()
+        End Function
+
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return DirectCast(obj, Mandator).Id = Id
+        End Function
+
+        Public Overrides Function ToString() As String
+            Return $"{Name} ({Id})"
+        End Function
+    End Class
+End Namespace

MultiTool.Common/Winline/Entities/Response.vb

@@ -0,0 +1,128 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict Off
+Option Explicit On
+
+'
+'This source code was auto-generated by xsd, Version=4.8.3928.0.
+'
+Namespace Templates.Entities
+
+    '''<remarks/>
+    <System.CodeDom.Compiler.GeneratedCodeAttribute("xsd", "4.8.3928.0"),
+     System.SerializableAttribute(),
+     System.Diagnostics.DebuggerStepThroughAttribute(),
+     System.ComponentModel.DesignerCategoryAttribute("code"),
+     System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True),
+     System.Xml.Serialization.XmlRootAttribute([Namespace]:="", IsNullable:=False)>
+    Partial Public Class MESOWebServiceResult
+
+        Private overallSuccessField As Boolean
+
+        Private resultDetailsField As MESOWebServiceResultResultDetails()
+
+        '''<remarks/>
+        <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property OverallSuccess() As Boolean
+            Get
+                Return Me.overallSuccessField
+            End Get
+            Set
+                Me.overallSuccessField = Value
+            End Set
+        End Property
+
+        '''<remarks/>
+        <System.Xml.Serialization.XmlElementAttribute("ResultDetails", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property ResultDetails() As MESOWebServiceResultResultDetails()
+            Get
+                Return Me.resultDetailsField
+            End Get
+            Set
+                Me.resultDetailsField = Value
+            End Set
+        End Property
+    End Class
+
+    '''<remarks/>
+    <System.CodeDom.Compiler.GeneratedCodeAttribute("xsd", "4.8.3928.0"),
+     System.SerializableAttribute(),
+     System.Diagnostics.DebuggerStepThroughAttribute(),
+     System.ComponentModel.DesignerCategoryAttribute("code"),
+     System.Xml.Serialization.XmlTypeAttribute(AnonymousType:=True)>
+    Partial Public Class MESOWebServiceResultResultDetails
+
+        Private successField As Boolean
+
+        Private errorCodeField As String
+
+        Private errorTextField As String
+
+        Private keyValueField As String
+
+        Private voucherNumberField As String
+
+        '''<remarks/>
+        <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property Success() As Boolean
+            Get
+                Return Me.successField
+            End Get
+            Set
+                Me.successField = Value
+            End Set
+        End Property
+
+        '''<remarks/>
+        <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property ErrorCode() As String
+            Get
+                Return Me.errorCodeField
+            End Get
+            Set
+                Me.errorCodeField = Value
+            End Set
+        End Property
+
+        '''<remarks/>
+        <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property ErrorText() As String
+            Get
+                Return Me.errorTextField
+            End Get
+            Set
+                Me.errorTextField = Value
+            End Set
+        End Property
+
+        '''<remarks/>
+        <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property KeyValue() As String
+            Get
+                Return Me.keyValueField
+            End Get
+            Set
+                Me.keyValueField = Value
+            End Set
+        End Property
+
+        '''<remarks/>
+        <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
+        Public Property VoucherNumber() As String
+            Get
+                Return Me.voucherNumberField
+            End Get
+            Set
+                Me.voucherNumberField = Value
+            End Set
+        End Property
+    End Class
+End Namespace