Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r37641 -r38700
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37641)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 38700)
@@ -28,12 +28,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetRecordAlsVerwerkt">
+<FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
+<Implementation><![CDATA[	Do ##Super(ToeleveringNummer,ToeleveringLijnNummer,index)
+]]></Implementation>
+</Method>
+
 <Method name="ZetTestData">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Data:%String</FormalSpec>
 <Implementation><![CDATA[	set Data(0) = ""
 ]]></Implementation>
 </Method>
+
+<Method name="ZetTestData2">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Data(237570)="""112712500127125001237570      000814951      W30G L 161207                     """
+	Set Data(237570,1,1)="""22237570.01       0445933200005760000442.93216120123V      0000000.00          ""\1"
+	Set Data(237570,2,1)="""22237570.02       0438090200005760000442.93216112323V      0000000.00          ""\1"
+	Set Data(237570,3,1)="""22237570.03       0329055700003840000465.09216120723V      0000000.00          """
+	Set Data(237570,4,1)="""22237570.04       0432974200003840000470.66216120823V      0000000.00          ""\1"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u -r38146 -r38700
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 38146)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 38700)
@@ -41,6 +41,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : IsToeleveringVolledigVerwerkt geeft False terug indien er minstens 1 lijn niet verwerkt staat">
+<Implementation><![CDATA[
+	#dim BLOrdRspData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).ZetTestData2(.BLOrdRspData)
+	Do ..BLOrdRspService.Setup(.BLOrdRspData)
+	
+	Do $$$AssertEquals(..BLOrdRspService.IsToeleveringVolledigVerwerkt(237570),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test : IsToeleveringVolledigVerwerkt geeft true terug indien alle lijnen verwerkt zijn">
+<Implementation><![CDATA[
+	#dim BLOrdRspData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).ZetTestData2(.BLOrdRspData)
+	Do ..BLOrdRspService.Setup(.BLOrdRspData)
+	Do ..BLOrdRspService.ZetRecordAlsVerwerkt(237570,03,1)
+	Do $$$AssertEquals(..BLOrdRspService.IsToeleveringVolledigVerwerkt(237570),1)
+]]></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()
Index: zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml
===================================================================
diff -u -r38187 -r38700
--- zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(.../BLOrdRsp.cls.xml)	(revision 38187)
+++ zTryout/JWI/KALOpkuis/BLOrdRsp.cls.xml	(.../BLOrdRsp.cls.xml)	(revision 38700)
@@ -3,6 +3,22 @@
 <Class name="zTryout.JWI.KALOpkuis.BLOrdRsp">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="ConsolideerToeleveringen">
+<Implementation><![CDATA[
+	#dim service as APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New()
+	#Dim Toelevering as %String	
+	set Toelevering = 0
+	set Toelevering = $Order(^BLOrdRsp(Toelevering))
+	while Toelevering {
+		if service.IsToeleveringVolledigVerwerkt(Toelevering) {
+			w !, "Toelevering " _ Toelevering
+			set $Piece(^BLOrdRsp(Toelevering),"\",2) = "1"
+		}
+		set Toelevering = $Order(^BLOrdRsp(Toelevering))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="KuisVerwerktVlagOp">
 <FormalSpec>Param:%String=""</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r38146 -r38700
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 38146)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 38700)
@@ -147,9 +147,35 @@
 			}
 		}
 	}
+	if ..IsToeleveringVolledigVerwerkt(ToeleveringsNummer) {
+		Set $Piece(@..#Global(ToeleveringsNummer),"\",2)="1"
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="IsToeleveringVolledigVerwerkt">
+<FormalSpec>ToeleveringsNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim LijnNummer as %Integer = 0
+	#Dim LijnIndex as %Integer = 0
+	#Dim Volledig as %Boolean = 1
+	set LijnNummer = $Order(@..#Global(ToeleveringsNummer,LijnNummer))
+	while LijnNummer{	
+		set LijnIndex = 0
+		set LijnIndex = $Order(@..#Global(ToeleveringsNummer,LijnNummer,LijnIndex))
+		While LijnIndex {
+			set Volledig = Volledig && ($Piece(@..#Global(ToeleveringsNummer,LijnNummer,LijnIndex),"\",2) = "1")
+			quit:$$$Not(Volledig)
+			set LijnIndex = $Order(@..#Global(ToeleveringsNummer,LijnNummer,LijnIndex))
+		}
+		quit:$$$Not(Volledig)
+		set LijnNummer = $Order(@..#Global(ToeleveringsNummer,LijnNummer))
+	}
+	quit Volledig
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderToelevering">
 <FormalSpec>ToeleveringsNummer:%String</FormalSpec>
 <Implementation><![CDATA[