WIP

ImporterShared/Schemas/Orders/Helpers.vb

@@ -0,0 +1,18 @@
+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).
+                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).
+                ToList()
+            Return oPositions
+        End Function
+    End Class
+End Namespace