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