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[