Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r36805 -r36809
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36805)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Service.cls.xml)	(revision 36809)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder">
+<Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service">
 <Super>TECH.RegisteredObject</Super>
 
 <Parameter name="HeaderKey">
@@ -140,9 +140,7 @@
 <Method name="ZetRecordAlsVerwerkt">
 <FormalSpec>Toelevering:%CacheString</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(26).String(@Toelevering)
-	Set $Piece(@Toelevering,"\",2) = ..#IsReedsVerwerkt
+<Implementation><![CDATA[	Set $Piece(@Toelevering,"\",2) = ..#IsReedsVerwerkt
 ]]></Implementation>
 </Method>
 
FishEye: Tag 36809 refers to a dead (removed) revision in file `vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r35399 -r36809
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35399)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Service.cls.xml)	(revision 36809)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.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
 Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder,Tools.Mock.MockClassBase</Super>
+<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="Bewaar">
FishEye: Tag 36809 refers to a dead (removed) revision in file `APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/Bewaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/Bewaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/Bewaar/Test.cls.xml	(revision 36809)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service.Bewaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Lock +^BLOrdRsp
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Lock -^BLOrdRsp
+	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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(^BLOrdRsp(0)))
+	Do $$$AssertEquals(^BLOrdRsp(0),"BAU16558\5005\COA\SO\C\17-06-20\2200\0\BRANDL A.\ROOS\1\1")
+
+	Kill ^BLOrdRsp(0)
+]]></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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Service.ToeleveringNummer)))
+	Do $$$AssertEquals(^BLOrdRsp(Service.ToeleveringNummer),"""112122500121225001277788      000745532      W30G L 151221                     """)
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1)))
+	Do $$$AssertEquals(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"""22277788.01       0900225300005000000016.0122001062 V      0000000.00          """)
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+	
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1)))
+	Do $$$AssertEquals(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"""22277788.01       0900225300005000000016.0122001062 V      0000000.00          """)
+
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,2)))
+	Do $$$AssertEquals(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,2),"""22277799.01       0900225300010000000216.0122001082 V      0000236.01          """)
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></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.impl.BLUM.Kopieerder = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Kopieerder).%New()
+	#Dim COASOMetVervallenDatumDouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOMetVervallenDatum()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New(,KopieerderDummy)
+	
+	Do Service.Bewaar(COASOMetVervallenDatumDouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"")
+	Do Service.KopieerNaarBLimp()
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"1")
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/UpdateVerwerkVlag/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/UpdateVerwerkVlag/Test.cls.xml	(revision 36809)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service.UpdateVerwerkVlag.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Lock +^BLOrdRsp
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Lock -^BLOrdRsp
+	Do ##super()
+]]></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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Do Service.UpdateVerwerkVlag(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,"0000300","200106")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"1")
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,2),"\","2"),"")
+
+	Do Service.UpdateVerwerkVlag(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,"0000700","200108")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,2),"\","2"),"1")
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag van een toeleveringslijn niet 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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Do Service.UpdateVerwerkVlag(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,"0000400","160106")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag van een toeleveringslijn niet 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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Do Service.UpdateVerwerkVlag(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,"0000500","160105")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Do Service.UpdateVerwerkVlag(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,"0000200","160110")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Service.ToeleveringNummer,Service.ToeleveringLijnNummer,1),"\","2"),"1")
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BLVWIMP.mac.rou
===================================================================
diff -u -r36805 -r36809
--- BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 36805)
+++ BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 36809)
@@ -157,7 +157,7 @@
 BEGIN
  N NewProd,ModProd
  Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
- Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New().KopieerNaarBLimp()
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New().KopieerNaarBLimp()
  D IN,SA1,REN
  ;
 DISPL S DL(1)="Lijst" Do REFRESH I '$D(^HULP($J)) D O1,IK^PROC1 G END
@@ -216,3 +216,5 @@
  ;
 
 
+
+
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/VerwijderToelevering/Test.cls.xml
===================================================================
diff -u -r36800 -r36809
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/VerwijderToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 36800)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/VerwijderToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 36809)
@@ -20,7 +20,7 @@
 <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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r36805 -r36809
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36805)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36809)
@@ -20,7 +20,7 @@
 <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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
@@ -34,7 +34,7 @@
 <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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
@@ -48,7 +48,7 @@
 <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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
@@ -62,7 +62,7 @@
 <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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
@@ -78,9 +78,9 @@
 
 <Method name="Test : Bewaar COASO en zet Toeleveringslijn met vervallen datum als Verwerkt">
 <Implementation><![CDATA[
-	#Dim KopieerderFake 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.impl.BLUM.Kopieerder).%New()
 	#Dim COASOMetVervallenDatumDouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOMetVervallenDatum()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New(,KopieerderFake)
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New(,KopieerderDummy)
 	
 	Do Bewaarder.Bewaar(COASOMetVervallenDatumDouble)
 
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u -r36777 -r36809
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 36777)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 36809)
@@ -23,13 +23,13 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Bewaarder">
-<Type>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder</Type>
+<Property name="Service">
+<Type>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder,Bewaarder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder,Service:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -39,7 +39,7 @@
 	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
 	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder).%New())
-	set ..Bewaarder = $$$Inject(Bewaarder,##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New())
+	set ..Service = $$$Inject(Service,##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -66,7 +66,7 @@
 	try
 	{
 		Set COASO = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
-		Do ..Bewaarder.Bewaar(COASO)
+		Do ..Service.Bewaar(COASO)
 		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
 	} 
 	catch 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/VerwijderToelevering/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/VerwijderToelevering/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service/VerwijderToelevering/Test.cls.xml	(revision 36809)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service.VerwijderToelevering.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Lock +^BLOrdRsp
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Lock -^BLOrdRsp
+	Do ##super()
+]]></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()
+	#Dim Service As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
+	
+	Do Service.Bewaar(COASODouble)
+
+	Do Service.VerwijderToelevering(Service.ToeleveringNummer)
+
+	Do $$$AssertFalse($Data(^BLOrdRsp(Service.ToeleveringNummer)))
+
+	Kill ^BLOrdRsp(Service.ToeleveringNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r35399 -r36809
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 35399)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Service.cls.xml)	(revision 36809)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.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>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder</Super>
+<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service</Super>
 
 <Method name="Bewaar">
 <FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
Index: BLIMP.mac.rou
===================================================================
diff -u -r36805 -r36809
--- BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 36805)
+++ BLIMP.mac.rou	(.../BLIMP.mac.rou)	(revision 36809)
@@ -21,7 +21,7 @@
 SCANONLINE ; verwerken van alle EDI bestanden opgeroepen van BLVWIMP
  Set XMLBestandenList = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New().Ontvang()
  Set DespXMLBestandenList = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New().Ontvang()
- Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New().KopieerNaarBLimp()
+ Do ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New().KopieerNaarBLimp()
  Set MSMGATEWAY=##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
  Set Dir=##class(TECH.Files).AppendSubPath(MSMGATEWAY,"\EDI_IN\")
  Set File=$$DISPDIR^vhDEV(Dir,"*.*",,,(XMLBestandenList.Count() + DespXMLBestandenList.Count()))
@@ -147,3 +147,5 @@
 
 
 
+
+
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u -r36805 -r36809
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 36805)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 36809)
@@ -20,7 +20,7 @@
 <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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 
@@ -37,7 +37,7 @@
 <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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 
@@ -54,7 +54,7 @@
 <Method name="Test : Zet de verwerkvlag van een toeleveringslijn niet 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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 
@@ -71,7 +71,7 @@
 <Method name="Test : Zet de verwerkvlag van een toeleveringslijn niet 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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 
@@ -88,7 +88,7 @@
 <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()
-	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
 
FishEye: Tag 36809 refers to a dead (removed) revision in file `vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml
===================================================================
diff -u -r36777 -r36809
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 36777)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 36809)
@@ -137,7 +137,7 @@
 	#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.impl.BLUM.Bewaarder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#dim BewaarderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	Do BewaarderMock.VerwachtMethodCall("Bewaar",COASODummy).DanDoeNiks()
 	
 	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock,ConverteerderMock,BewaarderMock)
@@ -162,7 +162,7 @@
 	#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.impl.BLUM.Bewaarder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	#dim BewaarderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Service).%New()
 	Do BewaarderMock.IndienMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
 	
 	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock,ConverteerderMock,BewaarderMock)