First Testable Version

ImporterShared/Schemas/Orders/Helpers.vb

@@ -1,16 +1,26 @@
 Namespace Schemas.Orders
     Public Class Helpers
-        Public Shared Function GetOrderHead(pData As Input.MESOWebService) As Input.MESOWebServiceEXIMVRG_ordersT025
-            Dim oHead As Input.MESOWebServiceEXIMVRG_ordersT025 = pData.Items.
-                Where(Function(i) TypeOf i Is Input.MESOWebServiceEXIMVRG_ordersT025).
+        Public Shared Function GetOrderHead(Of T)(pData As IMesoWebservice) As T
+            Dim oHead As T = pData.Items.
+                Where(Function(i) TypeOf i Is T).
                 FirstOrDefault()
             Return oHead
         End Function
 
-        Public Shared Function GetOrderPositions(pData As Input.MESOWebService) As List(Of Input.MESOWebServiceEXIMVRG_ordersT026)
-            Dim oPositions As List(Of Input.MESOWebServiceEXIMVRG_ordersT026) = pData.Items.
-                Where(Function(i) TypeOf i Is Input.MESOWebServiceEXIMVRG_ordersT026).
-                Select(Of Input.MESOWebServiceEXIMVRG_ordersT026)(Function(i) i).
+        Public Shared Sub SetOrderHead(Of T)(pData As IMesoWebservice, pUpdateFunction As Action(Of T))
+            Dim oHead As T = pData.Items.
+                Where(Function(i) TypeOf i Is T).
+                SetValue(Sub(pObject As T)
+                             pUpdateFunction(pObject)
+                         End Sub).
+                FirstOrDefault()
+
+        End Sub
+
+        Public Shared Function GetOrderPositions(Of T)(pData As IMesoWebservice) As List(Of T)
+            Dim oPositions As List(Of T) = pData.Items.
+                Where(Function(i) TypeOf i Is T).
+                Select(Of T)(Function(i) i).
                 ToList()
             Return oPositions
         End Function

ImporterShared/Schemas/Response.vb

@@ -29,7 +29,7 @@ Namespace Schemas
 
         Private overallSuccessField As Boolean
 
-        Private resultDetailsField As MESOWebServiceResultResultDetails
+        Private resultDetailsField As MESOWebServiceResultResultDetails()
 
         '''<remarks/>
         <System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
@@ -44,7 +44,7 @@ Namespace Schemas
 
         '''<remarks/>
         <System.Xml.Serialization.XmlElementAttribute("ResultDetails", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)>
-        Public Property ResultDetails() As MESOWebServiceResultResultDetails
+        Public Property ResultDetails() As MESOWebServiceResultResultDetails()
             Get
                 Return Me.resultDetailsField
             End Get
@@ -68,6 +68,10 @@ Namespace Schemas
 
         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
@@ -100,5 +104,27 @@ Namespace Schemas
                 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