Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u -r37640 -r37641
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 37640)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 37641)
@@ -5,6 +5,7 @@
 
 <Property name="BLOrdRspService">
 <Type>vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="ImportXML">
@@ -21,14 +22,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	do ##super()
-	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AankoopOrderResponse.BLUM.ImportXML",..ImportXML)
-]]></Implementation>
-</Method>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>TestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -40,6 +33,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##super()
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AankoopOrderResponse.BLUM.ImportXML",..ImportXML)
+]]></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()
@@ -60,25 +61,32 @@
 	
 	Do ..BLOrdRspService.Bewaar(COASODouble)
 
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	
 	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000300","200106")
 	
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"1")
+	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,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()
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity = "0000300"
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DeliveryDateAxBUA = "200108"
 	
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).OrderQuantity = "0000700"
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).DeliveryDateAxBUA = "200108"
+
 	Do ..BLOrdRspService.Bewaar(COASODouble)
 
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
 
 	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000700","200108")
 
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"1")
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
 ]]></Implementation>
 </Method>
 
@@ -90,13 +98,13 @@
 	
 	Do ..BLOrdRspService.Bewaar(COASODouble)
 
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
-
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,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"),"")
+	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
 ]]></Implementation>
 </Method>
 
@@ -113,15 +121,15 @@
 	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(3).DeliveryDateAxBUA = "200111"
 	
 	Do ..BLOrdRspService.Bewaar(COASODouble)
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,3),"\","2"),"")
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,3))
 
 	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000250","160105")
 
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"1")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,3),"\","2"),"")
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,3))
 ]]></Implementation>
 </Method>
 
@@ -138,15 +146,15 @@
 	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(3).DeliveryDateAxBUA = "200111"
 	
 	Do ..BLOrdRspService.Bewaar(COASODouble)
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,3),"\","2"),"")
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,3))
 
 	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000100","160105")
 
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,2),"\","2"),"")
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,3),"\","2"),"1")
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
+	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,3))
 ]]></Implementation>
 </Method>
 
@@ -156,11 +164,11 @@
 	
 	Do ..BLOrdRspService.Bewaar(COASODouble)
 
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 
 	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000200","160110")
 
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"1")
+	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r37032 -r37641
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37032)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37641)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsVerwerkVlagActief">
+<FormalSpec>Toelevering:%String,ToeleveringLijnNr:%String,VolgNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(..MultiDim(Toelevering, ToeleveringLijnNr , VolgNr ),"\",2)=1
+]]></Implementation>
+</Method>
+
 <Method name="ZetTestData">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Data:%String</FormalSpec>