Index: zTryout/WV/APPS/EC/EDIImport.cls.xml
===================================================================
diff -u
--- zTryout/WV/APPS/EC/EDIImport.cls.xml	(revision 0)
+++ zTryout/WV/APPS/EC/EDIImport.cls.xml	(revision 31258)
@@ -0,0 +1,170 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.WV.APPS.EC.EDIImport">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Populator">
+<Type>Tools.Populator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FileWriter = ##class(TECH.File.impl.FileWriter).%New()
+	Set ..Populator = ##class(Tools.Populator).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportXML">
+<Description>
+Oproepen via 
+   Do ##class(zTryout.WV.APPS.EC.EDIImport).%New().ExportXML()</Description>
+<Implementation><![CDATA[
+	#dim EdiOrder As zTryout.WV.APPS.EC.dto.EdiOrder = ..MaakEdiOrder()
+	Do ..ExporteerDataTransferObject(EdiOrder)
+	Write !,"Bestand geschreven : "_..FileWriter.GeefBestandsNaam(),!
+]]></Implementation>
+</Method>
+
+<Method name="ImportFromXML">
+<Description>
+Oproepen via 
+   Do ##class(zTryout.WV.APPS.EC.EDIImport).%New().ImportFromXML()</Description>
+<Implementation><![CDATA[
+	#dim BestandNaam As %String = "E:\CacheExport\2010v2\ADMIN1\EdiOrdersTest\EdiOrder_ForImport_002.xml"
+	#dim EdiOrder As zTryout.WV.APPS.EC.dto.EdiOrder = ..Parse(BestandNaam)
+	
+	break
+]]></Implementation>
+</Method>
+
+<Method name="Parse">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>zTryout.WV.APPS.EC.dto.EdiOrder</ReturnType>
+<Implementation><![CDATA[
+	Set XMLCorrelator = ##class(TECH.XMLCorrelater).%New()
+	#dim EdiOrder As zTryout.WV.APPS.EC.dto.EdiOrder
+	Set EdiOrder = XMLCorrelator.GeefObjectVanBestand(BestandNaam,"zTryout.WV.APPS.EC.dto.EdiOrder","PurchaseOrder")
+	Quit EdiOrder
+]]></Implementation>
+</Method>
+
+<Method name="ExporteerDataTransferObject">
+<FormalSpec>EdiOrder:TECH.DataTransferObject,BestandNaam:%String</FormalSpec>
+<Private>1</Private>
+<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 = "EdiOrder_001.xml"
+	#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,BestandNaam)
+
+	Do ..FileWriter.Open(BestandVolledigeNaam)
+	do ..FileWriter.WriteXML(EdiOrder)
+	do ..FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="MaakEdiOrder">
+<Private>1</Private>
+<ReturnType>zTryout.WV.APPS.EC.dto.EdiOrder</ReturnType>
+<Implementation><![CDATA[
+	#dim EdiOrder As zTryout.WV.APPS.EC.dto.EdiOrder = ##class(zTryout.WV.APPS.EC.dto.EdiOrder).%New()
+	Set EdiOrder.EdiNummer = "EdiNummer"
+	Set EdiOrder.OrderReferentie = "OrderReferentie"
+	Set EdiOrder.Aankoper = ..MaakEdiAankoper()
+	Set EdiOrder.Verkoper = ..MaakEdiVerkoper()
+	Do EdiOrder.Lijnen.Insert(..MaakEdiOrderLijn("Ln001"))
+	Do EdiOrder.Lijnen.Insert(..MaakEdiOrderLijn("Ln002", ..MaakProductEigenschappenTAX()))
+	Do EdiOrder.Lijnen.Insert(..MaakEdiOrderLijn("Ln003", ..MaakProductEigenschappenLBX()))
+	Quit EdiOrder
+]]></Implementation>
+</Method>
+
+<Method name="MaakEdiAankoper">
+<Private>1</Private>
+<ReturnType>zTryout.WV.APPS.EC.dto.EdiAankoper</ReturnType>
+<Implementation><![CDATA[
+	Set EdiAankoper = ##class(zTryout.WV.APPS.EC.dto.EdiAankoper).%New()
+	Set EdiAankoper.Naam = "AankoperNaam"
+	Set EdiAankoper.Code = "AankoperCode"
+	Set EdiAankoper.LeveringNaam = "LeveringNaam"
+	Set EdiAankoper.LeveringStraatNrBus = "LeveringStraatNrBus"
+	Set EdiAankoper.LeveringPostcode = "LeveringPostcode"
+	Set EdiAankoper.LeveringWoonplaats = "LeveringWoonplaats"
+	Set EdiAankoper.LeveringLand = "LeveringLand"
+	Quit EdiAankoper
+]]></Implementation>
+</Method>
+
+<Method name="MaakEdiVerkoper">
+<Private>1</Private>
+<ReturnType>zTryout.WV.APPS.EC.dto.EdiAankoper</ReturnType>
+<Implementation><![CDATA[
+	Set EdiVerkoper = ##class(zTryout.WV.APPS.EC.dto.EdiVerkoper).%New()
+	Set EdiVerkoper.Naam = "VerkoperNaam"
+	Set EdiVerkoper.Code = "VerkoperCode"
+	Quit EdiVerkoper
+]]></Implementation>
+</Method>
+
+<Method name="MaakEdiOrderLijn">
+<FormalSpec>LijnNummer:%String="",ProductEigenschappen:zTryout.WV.APPS.EC.dto.EdiProductEigenschappen=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>zTryout.WV.APPS.EC.dto.EdiOrderLijn</ReturnType>
+<Implementation><![CDATA[
+	Set EdiOrderLijn = ##class(zTryout.WV.APPS.EC.dto.EdiOrderLijn).%New()
+	Set EdiOrderLijn.Nummer = LijnNummer
+	Set EdiOrderLijn.Referentie = "LijnReferentie"_"_"_LijnNummer
+	Set EdiOrderLijn.Aantal = 1
+	Set EdiOrderLijn.GevraagdeLeverdatum = "2015.01.01"
+	Set EdiOrderLijn.ProductEigenschappen = ProductEigenschappen
+	;Do EdiOrderLijn.ProductEigenschappen.Insert(ProductEigenschappen)
+	Quit EdiOrderLijn
+]]></Implementation>
+</Method>
+
+<Method name="MaakProductEigenschappenLBX">
+<Private>1</Private>
+<ReturnType>zTryout.WV.APPS.EC.dto.EdiProductEigenschappen</ReturnType>
+<Implementation><![CDATA[
+	Set EdiProductEigenschappen = ##class(zTryout.WV.APPS.EC.dto.EdiLadeEigenschappenLBX).%New()
+	Set EdiProductEigenschappen = ..Populator.PopulateDto(EdiProductEigenschappen)
+	Set EdiProductEigenschappen.DataType = "LBX"
+	Set EdiProductEigenschappen.Klasse = "L"
+	Set EdiProductEigenschappen.CorpusBreedte = 875
+	Set EdiProductEigenschappen.CorpusWandDikte = 18
+	Set EdiProductEigenschappen.IsBinnenbreedte = $$$False
+	Quit EdiProductEigenschappen
+]]></Implementation>
+</Method>
+
+<Method name="MaakProductEigenschappenTAX">
+<Private>1</Private>
+<ReturnType>zTryout.WV.APPS.EC.dto.EdiProductEigenschappen</ReturnType>
+<Implementation><![CDATA[
+	Set EdiProductEigenschappen = ##class(zTryout.WV.APPS.EC.dto.EdiLadeEigenschappenTAX).%New()
+	Set EdiProductEigenschappen = ..Populator.PopulateDto(EdiProductEigenschappen)
+	Set EdiProductEigenschappen.DataType = "TAX"
+	Set EdiProductEigenschappen.Klasse = "L"
+	Set EdiProductEigenschappen.CorpusBreedte = 875
+	Set EdiProductEigenschappen.CorpusWandDikte = ""
+	Set EdiProductEigenschappen.IsBinnenbreedte = $$$True
+	Quit EdiProductEigenschappen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>