Namespace Schemas.Orders
    'Public Class Helpers
    '    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 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
    'End Class
End Namespace