Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/VerwijderToelevering/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/VerwijderToelevering/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/VerwijderToelevering/Test.cls.xml	(revision 37038)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service.VerwijderToelevering.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BLOrdRspService">
+<Type>vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestName)
+	Set ..BLOrdRspService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New()
+	#dim BLOrdRspData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).ZetTestData(.BLOrdRspData)
+	Do ..BLOrdRspService.Setup(.BLOrdRspData)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Verwijder toelevering ">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+
+	Do ..BLOrdRspService.VerwijderToelevering("277788")
+
+	Do $$$AssertFalse($Data(..BLOrdRspService.MultiDim("277788")))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 37038 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger/SubClass.cls.xml
===================================================================
diff -u -r37032 -r37038
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger/SubClass.cls.xml	(.../impl/BLUM/Ontvanger/SubClass.cls.xml)	(revision 37032)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger/SubClass.cls.xml	(.../BLUM/impl/Ontvanger/SubClass.cls.xml)	(revision 37038)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger.SubClass">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger.SubClass">
 <Super>APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger</Super>
 
 <Method name="GeefTeVerwerkenBestanden">
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml	(revision 37038)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.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.AankoopOrderResponse.BLUM.impl.Converteerder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Converteer">
+<FormalSpec>ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
+<ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Converteer",ORDERS05)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 37038 refers to a dead (removed) revision in file `vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Kopieerder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 37038 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml
===================================================================
diff -u -r37032 -r37038
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml	(.../impl/BLUM/Converteerder.cls.xml)	(revision 37032)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder.cls.xml	(.../BLUM/impl/Converteerder.cls.xml)	(revision 37038)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.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>
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml
===================================================================
diff -u -r37032 -r37038
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml	(.../impl/BLUM/Service.cls.xml)	(revision 37032)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml	(.../BLUM/impl/Service.cls.xml)	(revision 37038)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service">
 <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
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder/Kopieer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder/Kopieer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder/Kopieer/Test.cls.xml	(revision 37038)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder.Kopieer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Lock +^BLOrdRsp
+	Lock +^BLImp
+	Kill ^BLOrdRsp
+	Kill ^BLImp
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Kill ^BLOrdRsp
+	Kill ^BLImp
+	Lock -^BLImp
+	Lock -^BLOrdRsp
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kopieer 2 toeleveringen in BLOrdRsp naar 1 Message in BLImp ">
+<Implementation><![CDATA[
+	Set ^BLOrdRsp(0)="BAU804998\5005\COA\SO\C\20-09-16\1200\0\\\1\"
+	Set ^BLOrdRsp(222482)="""112712500127125001222482      000804998      W30G L 160920                     """
+	Set ^BLOrdRsp(222482,"01",1)="""22222482.01       0378220500001440000290.63216102623V      0000000.00          """
+	Set ^BLOrdRsp(222482,"02",2)="""22222482.02       0417985200000920000331.46216092923V      0000000.00          """
+	Set ^BLOrdRsp(222482,"02",3)="""22222482.02       0417985200001000000331.46216102823V      0000000.00          """
+	Set ^BLOrdRsp(222482,"03",4)="""22222482.03       0424438400000000000331.462      00V      0000000.00          """
+	Set ^BLOrdRsp(222482,"04",5)="""22222482.04       0251181000000000000295.842      00V      0000000.00          """
+	Set ^BLOrdRsp(222482,"05",6)="""22222482.05       0253367100000000000295.842      00V      0000000.00          """
+	Set ^BLOrdRsp(222483)="""112712500127125001222483      000804998      W30G L 160920                     """
+	Set ^BLOrdRsp(222483,"01",1)="""22222483.01       0378220500001500000290.63216102623V      0000000.00          """
+	Set ^BLOrdRsp(222483,"02",2)="""22222483.02       0417985200000920000331.46216092923V      0000000.00          """
+	Set ^BLOrdRsp(222483,"02",3)="""22222483.02       0417985200001000000331.46216092823V      0000000.00          """
+	Set ^BLOrdRsp(222483,"03",4)="""22222483.03       0424438400000000000331.462      00V      0000000.00          """
+	Set ^BLOrdRsp(222483,"04",5)="""22222483.04       0251181000000000000295.842      00V      0000000.00          """
+	Set ^BLOrdRsp(222483,"05",6)="""22222483.05       0253367100000000000295.842      00V      0000000.00          """
+	
+	#Dim Kopieerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder  = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New()
+	
+	Do Kopieerder.Kopieer()
+	
+	Do $$$AssertEquals(^BLImp(1),"BAU804998\5005\COA\SO\C\20-09-16\1200\14\\\1\")
+	Do $$$AssertEquals(^BLImp(1,1),"""112712500127125001222482      000804998      W30G L 160920                     """)
+	Do $$$AssertEquals(^BLImp(1,2),"""22222482.01       0378220500001440000290.63216102623V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,3),"""22222482.02       0417985200000920000331.46216092923V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,4),"""22222482.02       0417985200001000000331.46216102823V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,5),"""22222482.03       0424438400000000000331.462      00V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,6),"""22222482.04       0251181000000000000295.842      00V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,7),"""22222482.05       0253367100000000000295.842      00V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,8),"""112712500127125001222483      000804998      W30G L 160920                     """)
+	Do $$$AssertEquals(^BLImp(1,9),"""22222483.01       0378220500001500000290.63216102623V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,10),"""22222483.02       0417985200000920000331.46216092923V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,11),"""22222483.02       0417985200001000000331.46216092823V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,12),"""22222483.03       0424438400000000000331.462      00V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,13),"""22222483.04       0251181000000000000295.842      00V      0000000.00          """)
+	Do $$$AssertEquals(^BLImp(1,14),"""22222483.05       0253367100000000000295.842      00V      0000000.00          """)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml
===================================================================
diff -u -r37032 -r37038
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../impl/BLUM/Kopieerder.cls.xml)	(revision 37032)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../BLUM/impl/Kopieerder.cls.xml)	(revision 37038)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder">
 <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
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/Bewaar/Test.cls.xml
===================================================================
diff -u -r37032 -r37038
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37032)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37038)
@@ -72,7 +72,7 @@
 
 <Method name="Test : Bewaar COASO en zet Toeleveringslijn met vervallen datum als Verwerkt">
 <Implementation><![CDATA[
-	#Dim KopieerderDummy As vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder).%New()
+	#Dim KopieerderDummy As vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New()
 	#Dim COASOMetVervallenDatumDouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOMetVervallenDatum()
 	
 	Do ..BLOrdRspService.Bewaar(COASOMetVervallenDatumDouble)
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml
===================================================================
diff -u -r37032 -r37038
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../impl/BLUM/Kopieerder.cls.xml)	(revision 37032)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Kopieerder.cls.xml	(.../BLUM/impl/Kopieerder.cls.xml)	(revision 37038)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder">
 <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>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml
===================================================================
diff -u -r37032 -r37038
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml	(.../impl/BLUM/Service.cls.xml)	(revision 37032)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service.cls.xml	(.../BLUM/impl/Service.cls.xml)	(revision 37038)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service">
 <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>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder/Converteer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder/Converteer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Converteerder/Converteer/Test.cls.xml	(revision 37038)
@@ -0,0 +1,222 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder.Converteer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : Converteer BLUM aankooporderresponse ORDERS05 naar COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertIsObject(COASO)
+
+	Do $$$AssertEquals(COASO.COASOHeader.MIIDEF, "BAU745532") 
+	Do $$$AssertEquals(COASO.COASOHeader.LEVNUR, "5005")
+	Do $$$AssertEquals(COASO.COASOHeader.MIINTY, "COA")
+	Do $$$AssertEquals(COASO.COASOHeader.MIINTS, "SO")
+	Do $$$AssertEquals(COASO.COASOHeader.MINETC, "C")
+	Do $$$AssertEquals(COASO.COASOHeader.MIOTCR, "21-12-15")
+	Do $$$AssertEquals(COASO.COASOHeader.MITICR, "1200")
+	Do $$$AssertEquals(COASO.COASOHeader.MICOUN, "0")
+	Do $$$AssertEquals(COASO.COASOHeader.MINNCR, "")
+	Do $$$AssertEquals(COASO.COASOHeader.MINNRE, "")
+	Do $$$AssertEquals(COASO.COASOHeader.MIACRQ, "1")
+	Do $$$AssertEquals(COASO.COASOHeader.MESPRO, "")
+
+	Do $$$AssertEquals(COASO.ToeleveringList.Count(),1)
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.InternalOrderNumberBLUM,"745532")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.CustomerOrderEntryDate,"151221")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.CustomerNumberForShipment ,"212250")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.CustomerOrderReference,"277788")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.CustomerNumberForInvoice ,"212250")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.ReasonCode ,"G ")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.TransportationMode ,"L ")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.CurrencyInCOScode ,"W30")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringHeader.AverageTransportTime ,"000")
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.Count(),3)
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity,"500")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DeliveryDateAxBUA,"160106")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderLineNumberSupplierBAU,"")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).GrossPrice,"0000000.00")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"V")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension,"2")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).NetPrice,"")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderLineIdentificationCustomer,"277788.01")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).IdentNumberSupplierBAU,"09002253")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"2")
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).OrderQuantity,"5")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).DeliveryDateAxBUA,"160106")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).PriceDimension,"3")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).NetPrice,"0000082.36")
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(3).OrderQuantity,"10")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(3).DeliveryDateAxBUA,"160107")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ORDERS05 Prijsdimensie 1000 wordt code 3 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).E1EDP05.UPRBS="1000"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension,"3")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ORDERS05 Prijsdimensie 1 wordt code 0 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).E1EDP05.UPRBS="1"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ORDERS05 Prijsdimensie 100 wordt code 2 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).E1EDP05.UPRBS="100"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).PriceDimension,"2")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status leeg wordt shipmentstatus 3 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU =""
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ShipmentStatus,"3")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status 90 wordt shipmentstatus 3 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU ="90"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ShipmentStatus,"3")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status 10 wordt shipmentstatus 0 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU ="10"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ShipmentStatus,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status leeg wordt reasoncode V voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU =""
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"V")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status 90 wordt reasoncode V voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU ="90"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"V")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status 10 wordt reasoncode C voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU ="10"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"C")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status leeg wordt DeliveryDateCode 2 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU =""
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"2")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status 90 wordt DeliveryDateCode 2 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU ="90"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"2")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM ABGRU status 10 wordt DeliveryDateCode 2 voor COASO">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU ="10"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"2")
+]]></Implementation>
+</Method>
+
+<Method name="Test : BLUM order niet aanvaard geeft een lijn zonder aantallen en status No shipment en Position cancelled">
+<Implementation><![CDATA[
+	#dim Converteerder As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim ORDERS05Double As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%New().GeefORDERS05()
+	Do ORDERS05Double.IDOC.E1EDP01.GetAt(1).E1EDP20.Clear()
+	Set ORDERS05Double.IDOC.E1EDP01.GetAt(1).ABGRU ="10"
+	
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = Converteerder.Converteer(ORDERS05Double)
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity, "")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DeliveryDateAxBUA, "")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DelDateCode,"0")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ReasonCode,"C")
+	Do $$$AssertEquals(COASO.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).ShipmentStatus,"0")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger/Ontvang/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger/Ontvang/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Ontvanger/Ontvang/Test.cls.xml	(revision 37038)
@@ -0,0 +1,209 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger.Ontvang.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ImportXML">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ImportXML = ##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AankoopOrderResponse.BLUM.ImportXML",1)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("MSMGATEWAY",..GeefBestandLocatie(),..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AankoopOrderResponse.BLUM.ImportXML",..ImportXML)
+	do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Onvangt() leest xml bestand zonder foutmelding">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam As %String = ..GeefAankoopOrderLocatie() _"DummyBestand.xml"
+
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam)
+	
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", $$$ElkeWaarde,$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do $$$AssertEquals(Ontvanger.Ontvang().Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test : GeefObjectVanBestand() wordt opgeroepen met de juiste bestandnaam">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam As %String = ..GeefAankoopOrderLocatie() _"DummyBestand.xml"
+
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam)
+	
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand", VolledigeBestandNaam,ClassName,"ORDERS05").DanDoeNiks()
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do Ontvanger.Ontvang()
+	Do XMLCorrelaterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bij foutmelding wordt volgend bestand nog steeds verwerkt">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefAankoopOrderLocatie() _"DummyBestand1.xml"
+	#dim VolledigeBestandNaam2 As %String = ..GeefAankoopOrderLocatie() _"DummyBestand2.xml"
+	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam2)
+	
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"ORDERS05").DanException($$$DummyException)
+	Do XMLCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand", VolledigeBestandNaam2,ClassName,"ORDERS05").DanDoeNiks()
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do Ontvanger.Ontvang()
+	Do XMLCorrelaterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Foutief bestand wordt na foutmelding in error map gezet">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefAankoopOrderLocatie() _"DummyBestand1.xml"
+	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+	
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"ORDERS05").DanException($$$DummyException)
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do Ontvanger.Ontvang()
+
+	#dim VolledigeBestandNaam1NaError As %String = ..GeefAankoopOrderLocatie() _"Error\DummyBestand1.xml"
+	Do $$$AssertTrue(FileUtilsFake.FileExists(VolledigeBestandNaam1NaError))
+]]></Implementation>
+</Method>
+
+<Method name="Test : Onvangt() leest xml en Converteer wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam As %String = ..GeefAankoopOrderLocatie() _"DummyBestand.xml"
+
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam)
+	
+	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	Do ConverteerderMock.VerwachtMethodCall("Converteer", $$$ElkeWaarde).DanDoeNiks()
+
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam,ClassName,"ORDERS05").DanDoeNiks()
+
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock,ConverteerderMock)
+	
+	Do Ontvanger.Ontvang()
+	Do ConverteerderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Onvangt() leest xml en Bewaar wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam As %String = ..GeefAankoopOrderLocatie() _"DummyBestand.xml"
+
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam)
+	
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim COASODummy As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+	Do ConverteerderMock.IndienMethodCall("Converteer", $$$ElkeWaarde).DanReturn(COASODummy)
+
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam,ClassName,"ORDERS05").DanDoeNiks()
+
+	#dim BewaarderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service).%New()
+	Do BewaarderMock.VerwachtMethodCall("Bewaar",COASODummy).DanDoeNiks()
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock,ConverteerderMock,BewaarderMock)
+	
+	Do Ontvanger.Ontvang()
+	Do BewaarderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Correct bestand wordt na verwerking in archief map gezet">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam As %String = ..GeefAankoopOrderLocatie() _"DummyBestand.xml"
+
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam)
+	
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Converteerder).%New()
+	#dim COASODummy As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+	Do ConverteerderMock.IndienMethodCall("Converteer", $$$ElkeWaarde).DanReturn(COASODummy)
+
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam,ClassName,"ORDERS05").DanDoeNiks()
+
+	#dim BewaarderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service).%New()
+	Do BewaarderMock.IndienMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock,ConverteerderMock,BewaarderMock)
+	
+	Do Ontvanger.Ontvang()
+
+	#dim VolledigeBestandNaam1NAVerwerking As %String = ..GeefAankoopOrderLocatie() _"Archief\DummyBestand.xml"
+	Do $$$AssertTrue(FileUtilsFake.FileExists(VolledigeBestandNaam1NAVerwerking))
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bestanden worden alfabetisch verwerkt">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefAankoopOrderLocatie() _"DummyBestand1.xml"
+	#dim VolledigeBestandNaam2 As %String = ..GeefAankoopOrderLocatie() _"DummyBestand2.xml"
+	#dim VolledigeBestandNaam3 As %String = ..GeefAankoopOrderLocatie() _"DummyBestand3.xml"
+	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam3)
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam2)
+	
+	#dim OntvangerSubClass As vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger.SubClass = ##class(vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Ontvanger.SubClass).%New(,FileUtilsFake)
+	
+	#Dim TeVerwerkenBestanden As %ListOfObjects = OntvangerSubClass.GeefTeVerwerkenBestanden()
+	
+	Do $$$AssertContains(TeVerwerkenBestanden.GetAt(1).Name, "DummyBestand1.xml")
+	Do $$$AssertContains(TeVerwerkenBestanden.GetAt(2).Name, "DummyBestand2.xml")
+	Do $$$AssertContains(TeVerwerkenBestanden.GetAt(3).Name, "DummyBestand3.xml")
+]]></Implementation>
+</Method>
+
+<Method name="GeefAankoopOrderLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_IN\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 37038 refers to a dead (removed) revision in file `vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 37038 refers to a dead (removed) revision in file `vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 37038 refers to a dead (removed) revision in file `vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/SubClass.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(revision 37038)
@@ -0,0 +1,114 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service.UpdateVerwerkVlag.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BLOrdRspService">
+<Type>vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestName)
+	Set ..BLOrdRspService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New()
+	#dim BLOrdRspData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).ZetTestData(.BLOrdRspData)
+	Do ..BLOrdRspService.Setup(.BLOrdRspData)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Toeleveringslijn is niet veranderd na het zetten van de verwerkvlag op 1">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	#Dim Piece1VoorDeTest as %String	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+
+	set Piece1VoorDeTest = $Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","1")
+	
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000300","200106")	
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","1"),Piece1VoorDeTest)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag op 1 van een toeleveringslijn">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
+	
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000300","200106")
+	
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag op 1 van een gesplitste toeleveringslijn">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
+
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000700","200108")
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag van alleen de oudste toeleveringslijn indien geen match op aantal ">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity = "0000666"
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).OrderQuantity = "0000667"
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
+
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000500","200108")
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"1")
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag van alleen de oudste toeleveringslijn indien geen match op datum ">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DeliveryDateAxBUA = "200131"
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).DeliveryDateAxBUA = "200108"
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
+
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000500","160105")
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag op 1 van de enigste toeleveringslijn met verschillend aantal en datum ">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOMetEenToeleveringLijn()
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
+
+	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000200","160110")
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"1")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml	(revision 37038)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Service.Bewaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BLOrdRspService">
+<Type>vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</Type>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	
+	Do ##super()
+	Set ..BLOrdRspService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New()
+	#dim BLOrdRspData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).ZetTestData(.BLOrdRspData)
+	Do ..BLOrdRspService.Setup(.BLOrdRspData)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bewaar COASO header in BLOrdRsp">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+		
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(..BLOrdRspService.MultiDim(0)))
+	Do $$$AssertEquals(..BLOrdRspService.MultiDim(0),"BAU16558\5005\COA\SO\C\17-06-20\2200\0\BRANDL A.\ROOS\1\1")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bewaar COASO Toeleveringheader in BLOrdRsp">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(..BLOrdRspService.MultiDim("277788")))
+	Do $$$AssertEquals(..BLOrdRspService.MultiDim("277788"),"""112122500121225001277788      000745532      W30G L 151221                     """)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bewaar COASO Toeleveringdetail in BLOrdRsp">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+
+	Do $$$AssertTrue($DATA(..BLOrdRspService.MultiDim("277788",1,1)))
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\",1),"""22277788.01       0900225300005000000016.0122001062 V      0000000.00          """)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bewaar COASO met meerdere detaillijnen in BLOrdRsp">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+	
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(..BLOrdRspService.MultiDim("277788",1,1)))
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\",1),"""22277788.01       0900225300005000000016.0122001062 V      0000000.00          """)
+
+	Do $$$AssertTrue($DATA(..BLOrdRspService.MultiDim("277788",2,2)))
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",2,2),"\",1),"""22277788.02       0900225300010000000216.0122001082 V      0000236.01          """)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Bewaar COASO en zet Toeleveringslijn met vervallen datum als Verwerkt">
+<Implementation><![CDATA[
+	#Dim KopieerderDummy As vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New()
+	#Dim COASOMetVervallenDatumDouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOMetVervallenDatum()
+	
+	Do ..BLOrdRspService.Bewaar(COASOMetVervallenDatumDouble)
+
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
+	Do ..BLOrdRspService.KopieerNaarBLimp()
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"1")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>