Index: vhTest/Fake/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(revision 35171)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar">
+<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.DataVerzamelaar</Super>
+
+<Method name="GeefCOMSO">
+<ReturnType>APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u -r35167 -r35171
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35167)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 35171)
@@ -132,7 +132,7 @@
 	Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
 	Set E1EDKA1.SEGMENT = "1"
 	set E1EDKA1.PARVW = "WE"
-	set E1EDKA1.PARTN = Toelevering.ToeleveringHeader.CustomerNumberForShipMent
+	set E1EDKA1.PARTN = Toelevering.ToeleveringHeader.CustomerNumberForShipment
 	Do ORDERS05.IDOC.E1EDKA1.Insert(E1EDKA1)
 
 	Set E1EDKA1 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDKA1).%New()
Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar/GeefCOMSO/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar/GeefCOMSO/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar/GeefCOMSO/Test.cls.xml	(revision 35171)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar.GeefCOMSO.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : GeefCOMSO() geeft object weer">
+<Implementation><![CDATA[
+	#dim DataVerzamelaar As APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar).%New()
+	Do $$$AssertIsObject(DataVerzamelaar.GeefCOMSO())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(revision 35171)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar">
+<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.DataVerzamelaar,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefCOMSO">
+<ReturnType>APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefCOMSO")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r35136 -r35171
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35136)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35171)
@@ -233,6 +233,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : DataVerzamelaar GeefCOMSO() wordt aangeroepen">
+<Implementation><![CDATA[
+	#Dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
+
+	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Set FileUtilsFake.FileExistsVlag = 0
+	
+	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New()
+	#dim ORDERS05DoubleList As %ListOfObjects = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrder.BLUM.XML.ORDERS05).GeefORDERS05()
+	Do ConverteerderMock.IndienMethodCall("Converteer",$$$ElkeWaarde).DanReturn(ORDERS05DoubleList)
+	
+	#dim DataVerzamelaarMock As vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar).%New()
+	Do DataVerzamelaarMock.VerwachtMethodCall("GeefCOMSO").DanDoeNiks()
+	
+	#dim BLUMVerzender As APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender = ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Verzender).%New(FileAPIFake, ConverteerderMock, FileUtilsFake, DataVerzamelaarMock)
+	Do BLUMVerzender.Verzend()
+	
+	Do DataVerzamelaarMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefSafeToSendMailBestandVolledigNaam">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml
===================================================================
diff -u -r35153 -r35171
--- APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 35153)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender.cls.xml	(.../Verzender.cls.xml)	(revision 35171)
@@ -18,8 +18,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DataVerzamelaar">
+<Type>APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",Converteerder:APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder,FileUtils:TECH.File.FileUtils</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI="",Converteerder:APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder,FileUtils:TECH.File.FileUtils,DataVerzamelaar:APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,16 +33,17 @@
 	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
 	set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.Converteerder).%New())
 	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
+	Set ..DataVerzamelaar = $$$Inject(DataVerzamelaar, ##class(APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Verzend">
-<FormalSpec>COMSO:APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO=""</FormalSpec>
 <Implementation><![CDATA[
-	#dim ORDERS05List As %ListOfObjects = ..Converteerder.Converteer(COMSO)
 	
+	#dim ORDERS05List As %ListOfObjects = ..Converteerder.Converteer(..DataVerzamelaar.GeefCOMSO())
+	
 	#dim BestandLocatie As %String = ..GeefBestandLocatie()
 
 	Do ..ControleerBestandLocatie(BestandLocatie)
Index: vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/dto/COMSO.cls.xml
===================================================================
diff -u -r35166 -r35171
--- vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/dto/COMSO.cls.xml	(.../COMSO.cls.xml)	(revision 35166)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrder/BLUM/dto/COMSO.cls.xml	(.../COMSO.cls.xml)	(revision 35171)
@@ -14,11 +14,11 @@
 	Set Toelevering.ToeleveringHeader.CustomerOrderEntryDate = "160609"
 	Set Toelevering.ToeleveringHeader.CustomerOrderReference = "230123" ; ToeleveringsNummer / BonNr in oude code
 	Set Toelevering.ToeleveringHeader.CustomerNumberForInvoice = "1111111111" ; BLUM kundennummer AG
-	Set Toelevering.ToeleveringHeader.CustomerNumberForShipMent = "2222222222" ; BLUM kundennummer WE
+	Set Toelevering.ToeleveringHeader.CustomerNumberForShipment = "2222222222" ; BLUM kundennummer WE
 	
 	#dim ToeleveringDetail As APPS.EDIExport.AankoopOrder.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrder.BLUM.dto.ToeleveringDetail).%New()
 	Set ToeleveringDetail.OrderLineIdentificationCustomer = "230123.21" ; ToeleveringsNummer + ToeleveringsLijnNummer
-	Set ToeleveringDetail.OrderQuantity = "1000" ; aantal (opgelsagen in toeleveringslijn)
+	Set ToeleveringDetail.OrderQuantity = "1000" ; aantal (opgeslagen in toeleveringslijn)
 	Set ToeleveringDetail.NetPrice = 6.96 ; Netto prijs
 	Set ToeleveringDetail.PriceDimension = 100 ; Geeft x weer. Prijs per x stuks.
 	Set ToeleveringDetail.DeliveryDateAxBUA = "160612" ; delivery date.
Index: APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrder/impl/BLUM/DataVerzamelaar.cls.xml	(revision 35171)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrder.impl.BLUM.DataVerzamelaar">
+<Super>TECH.RegisteredObject,TECH.Mockable</Super>
+
+<Method name="GeefCOMSO">
+<ReturnType>APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EDIExport.AankoopOrder.BLUM.dto.COMSO).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrder/BLUM/dto/ToeleveringHeader.cls.xml
===================================================================
diff -u -r35114 -r35171
--- APPS/EDIExport/AankoopOrder/BLUM/dto/ToeleveringHeader.cls.xml	(.../ToeleveringHeader.cls.xml)	(revision 35114)
+++ APPS/EDIExport/AankoopOrder/BLUM/dto/ToeleveringHeader.cls.xml	(.../ToeleveringHeader.cls.xml)	(revision 35171)
@@ -4,7 +4,7 @@
 <ClassType>serial</ClassType>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 
-<Property name="CustomerNumberForShipMent">
+<Property name="CustomerNumberForShipment">
 <Description>
 4,6</Description>
 <Type>%String</Type>
@@ -109,6 +109,9 @@
 <Value name="11">
 <Value>CustomerOrderEntryDate</Value>
 </Value>
+<Value name="12">
+<Value>CustomerNumberForShipment</Value>
+</Value>
 </Data>
 </Storage>
 </Class>