WIP: Filters

MultiTool.Common/Winline/WebServiceData.vb

@@ -414,6 +414,23 @@ Namespace Winline
             oResponseBody = oXml
             Return oResponseBody
         End Function
+
+        Private Function ApplyItemFiltersForExport(pDocument As Entities.ExportDocument, pTemplate As Template, pMandator As Mandator, oResponseBody As String) As String
+            Dim oDoc As New XmlDocument()
+            oDoc.LoadXml(oResponseBody)
+
+            'TODO: Load filters and apply
+
+            Dim oArray As Byte()
+            Using oStream As New IO.MemoryStream
+                oDoc.Save(oStream)
+                oArray = oStream.ToArray()
+            End Using
+
+            Dim oXml = Text.Encoding.UTF8.GetString(oArray)
+            oResponseBody = oXml
+            Return oResponseBody
+        End Function
 #End Region