Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(revision 35027)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder">
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+
+<Method name="Converteer">
+<FormalSpec>COMSO:APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</FormalSpec>
+<ReturnType>APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrder/BLUM/dto/COMSOHeader.cls.xml
===================================================================
diff -u -r35003 -r35027
--- APPS/EDIExport/AankoopOrder/BLUM/dto/COMSOHeader.cls.xml	(.../COMSOHeader.cls.xml)	(revision 35003)
+++ APPS/EDIExport/AankoopOrder/BLUM/dto/COMSOHeader.cls.xml	(.../COMSOHeader.cls.xml)	(revision 35027)
@@ -6,13 +6,13 @@
 
 <Property name="MIIDEF1">
 <Description>
-LVH 7,3</Description>
+LVH 7,3 (indien transimmsion number 8 lang, dan hoort DEF1 en DEF2 samen.)</Description>
 <Type>%String</Type>
 </Property>
 
 <Property name="MIIDEF2">
 <Description>
-16370 10, 5</Description>
+16370 10, 5 (VolgNummer. is dit transmission number ??)</Description>
 <Type>%String</Type>
 </Property>
 
@@ -36,13 +36,13 @@
 
 <Property name="MIINTY">
 <Description>
-COM 22, 3</Description>
+COM 22, 3 (Type : COM,COA,CSB,DMS,MSG)</Description>
 <Type>%String</Type>
 </Property>
 
 <Property name="MIINTS">
 <Description>
-SO 25, 2</Description>
+SO 25, 2 (Subtype : SO,DO,PR)</Description>
 <Type>%String</Type>
 </Property>
 
@@ -54,19 +54,19 @@
 
 <Property name="MIOITTR">
 <Description>
-160606 28, 6</Description>
+160606 28, 6 (datum ?)</Description>
 <Type>%String</Type>
 </Property>
 
 <Property name="MIOTCR">
 <Description>
-160606 34,6</Description>
+160606 34,6 (datum ?)</Description>
 <Type>%String</Type>
 </Property>
 
 <Property name="MITICR">
 <Description>
-1431 40, 4</Description>
+1431 40, 4 (uur ?)</Description>
 <Type>%String</Type>
 </Property>
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder/Converteer/Test.cls.xml	(revision 35027)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder.Converteer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : Converteer BLUM aankooporder COMSO naar ORDERS05">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
+	#dim ORDERS05Result As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = Converteerder.Converteer()
+	
+	///#dim TestORDERS05 As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
+	///Do $$$AssertEquals(ORDERS05Result, TestORDERS05)
+	
+	Do $$$AssertIsObject(ORDERS05Result)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(revision 35027)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender.Verzend.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("MSMGATEWAY",..GeefBestandLocatie(),..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Verzend schrijft BLUM order in xml formaat naar bestand">
+<Implementation><![CDATA[
+	#Dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
+
+	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
+	Do ConverteerderMock.VerwachtMethodCall("Converteer",$$$ElkeWaarde).DanReturn(ORDERS05Double)
+	
+	#dim BLUMVerzender As APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New(FileAPIFake, ConverteerderMock)
+	Do BLUMVerzender.Verzend()
+	
+	Do ConverteerderMock.Verifieer()
+
+	#dim XMlStream As %Stream = FileAPIFake.GeefFileWriter().GeefInhoudBestandNaam(..GeefBestandVolledigNaam())
+	
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ORDERS05>"),"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandVolledigNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	set BestandLocatie = ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_OUT\AankoopOrder\")
+
+	#dim BestandVolledigNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,"Data.xml")
+
+	quit BestandVolledigNaam
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(revision 35027)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Converteer">
+<FormalSpec>COMSO:APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</FormalSpec>
+<ReturnType>APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Converteer",COMSO)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(revision 35027)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converteerder">
+<Type>APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI="",Converteerder:APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = $$$Implementation(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
+	set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verzend">
+<FormalSpec>COMSO:APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim ORDERS05 As APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05 = ..Converteerder.Converteer(COMSO)
+	Do ..Exporteer(ORDERS05, ..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Exporteer">
+<Final>1</Final>
+<FormalSpec>ORDERS05:APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05,BestandLocatie:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(ORDERS05.%ValidateObject())
+		
+	#dim BestandVolledigNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie,"Data.xml")
+	
+	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
+	do FileWriter.Open(BestandVolledigNaam)
+	do FileWriter.WriteXML(ORDERS05)
+	do FileWriter.Close()
+	quit BestandVolledigNaam
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	set BestandLocatie = ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_OUT\AankoopOrder\")
+	quit BestandLocatie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(revision 35027)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder</Super>
+
+<Method name="Converteer">
+<FormalSpec>COMSO:APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</FormalSpec>
+<ReturnType>APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/XML/ORDERS05.cls.xml	(revision 35027)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefORDERS05">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05</ReturnType>
+<Implementation><![CDATA[
+	Set ORDERS05 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).%New()
+	Set ORDERS05.IDOC.E1EDK01.CURCY = "TESTCURCY"
+	
+	Set ORDERS05.IDOC.E1EDK02.BELNR = "TESTBELNR"
+	Set ORDERS05.IDOC.E1EDK02.DATUM = 0
+	Set ORDERS05.IDOC.E1EDK02.QUALF = 0
+	
+	Set ORDERS05.IDOC.E1EDK03.DATUM = 0
+	Set ORDERS05.IDOC.E1EDK03.IDDAT = 0
+	
+	Set ORDERS05.IDOC.E1EDK17.LKOND = "TESTLKOND"
+	Set ORDERS05.IDOC.E1EDK17.LKTEXT = "TESTLKTEXT"
+	Set ORDERS05.IDOC.E1EDK17.QUALF = 0
+	
+	Set ORDERS05.IDOC.E1EDK18.QUALF = 0
+	Set ORDERS05.IDOC.E1EDK18.ZTERMTXT = "TESTZTERMTXT" 
+	
+	Set ORDERS05.IDOC.E1EDKT1.E1EDKT2.TDLINE = "TESTTDLINE"
+	Set ORDERS05.IDOC.E1EDKT1.TDID = 0
+	
+	Set ORDERS05.IDOC.EDIDC40.DIRECT = 0
+	Set ORDERS05.IDOC.EDIDC40.DOCREL = "TESTDOCREL"
+	Set ORDERS05.IDOC.EDIDC40.IDOCTYP = "TESTIDOCTYP"
+	Set ORDERS05.IDOC.EDIDC40.MANDT = 0
+	Set ORDERS05.IDOC.EDIDC40.MESTYP = "TESTMESTYP"
+	Set ORDERS05.IDOC.EDIDC40.RCVPRN = "TESTRCVPRN"
+	Set ORDERS05.IDOC.EDIDC40.SNDPRN = "TESTSNDPRN"
+	Set ORDERS05.IDOC.EDIDC40.STATUS = 0
+	Set ORDERS05.IDOC.EDIDC40.STDMES = "TESTSTDMES"
+	Set ORDERS05.IDOC.EDIDC40.TABNAM = "TESTTABNAM"
+	
+	Quit ORDERS05
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Default_KurtC.prj.xml
===================================================================
diff -u
--- Default_KurtC.prj.xml	(revision 0)
+++ Default_KurtC.prj.xml	(revision 35027)
@@ -0,0 +1,3 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+</Export>