Index: zTryout/WV/APPS/EC/EDIImport.cls.xml
===================================================================
diff -u -r31284 -r31285
--- zTryout/WV/APPS/EC/EDIImport.cls.xml	(.../EDIImport.cls.xml)	(revision 31284)
+++ zTryout/WV/APPS/EC/EDIImport.cls.xml	(.../EDIImport.cls.xml)	(revision 31285)
@@ -49,6 +49,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CreateXMLSchema">
+<Description>
+TestMethod  Create XMLSchema for EDI
+Oproepen via 
+   Do ##class(zTryout.WV.APPS.EC.EDIImport).%New().CreateXMLSchema()</Description>
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim SubFolder As %String = "EdiOrdersTest"
+	#dim BestandLocatie As %String = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory"),SubFolder)
+	set BestandNaam = "EdiOrderXMLSchema.xsd"
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,BestandNaam)
+	
+	Set FileStream=##class(%FileCharacterStream).%New()
+	#dim TopTag As %String = "PurchaseOrders"
+	#dim sc As %Status = $$ProxyToXMLStream^vhLib("XMLSCHEMA:zTryout.WV.APPS.EC.dto.EdiOrders",.FileStream, .TopTag)
+	Quit:($$$ISERR(sc)) sc
+
+	Do ..FileWriter.Open(BestandVolledigeNaam)
+	Do ..FileWriter.WriteStream(FileStream)
+	Do ..FileWriter.Close()
+	Quit sc
+]]></Implementation>
+</Method>
+
 <Method name="Parse">
 <FormalSpec>BestandNaam:%String</FormalSpec>
 <Private>1</Private>