Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml
===================================================================
diff -u -r37032 -r37640
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 37032)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 37640)
@@ -83,6 +83,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefCOASOGeplitsteLijnen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Aantal:%Integer=1</FormalSpec>
+<ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
+<Implementation><![CDATA[
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ..GeefCOASOMetHeader()
+	
+	#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ..GeefToeleveringMetHeader()
+
+	#dim Counter As %Integer
+	for Counter = 1 : 1 : Aantal {
+		#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
+		Set ToeleveringDetail.OrderQuantity = Counter*100
+		Set ToeleveringDetail.DeliveryDateAxBUA = "200106"
+		Set ToeleveringDetail.OrderLineNumberSupplierBAU = ""
+		Set ToeleveringDetail.GrossPrice = "0000000.00"
+		Set ToeleveringDetail.ReasonCode = "V"
+		Set ToeleveringDetail.PriceDimension = "2"
+		Set ToeleveringDetail.NetPrice = "0000016.01"
+		Set ToeleveringDetail.OrderLineIdentificationCustomer = "277788.01  "
+		Set ToeleveringDetail.IdentNumberSupplierBAU = "09002253"
+		Set ToeleveringDetail.DelDateCode = "2"
+		Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
+
+	}
+	Do COASO.ToeleveringList.Insert(Toelevering)	
+	
+	Quit COASO
+]]></Implementation>
+</Method>
+
 <Method name="GeefCOASOMetEenToeleveringLijn">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r37139 -r37640
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37139)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37640)
@@ -72,6 +72,7 @@
 	#dim updated as %Integer = 0
 	#dim eersteindexvoortlnr = 0
 	#dim indexoudste as %integer = 0
+	#dim indexoudstemetjuistehoeveelheid as %integer = 0
 	#dim ToeleveringsLijnNummer as %String = ""
 	
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1")	
@@ -100,13 +101,21 @@
 				if (..IsTeVerwerken(ToeleveringsNummer,ToeleveringsLijnNummer,index)){
 					set:(indexoudste=0) indexoudste = index ;eerste nog te verwerken
 					set:(..GeefLeverDatum(ToeleveringsNummer,ToeleveringsLijnNummer,index) < ..GeefLeverDatum(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste) ) indexoudste = index
+					if ..GeefAantal(ToeleveringsNummer,ToeleveringsLijnNummer,index) = +Aantal {
+						set:(indexoudstemetjuistehoeveelheid = 0) indexoudstemetjuistehoeveelheid = index ;eerste nog te verwerken
+  						set:(..GeefLeverDatum(ToeleveringsNummer,ToeleveringsLijnNummer,index) < ..GeefLeverDatum(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudstemetjuistehoeveelheid) ) indexoudstemetjuistehoeveelheid = index						
+					}
 				}
 				set index = $Order(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,index))			
 			}
-			if (indexoudste){
-				 Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste)
+			if (indexoudstemetjuistehoeveelheid) {
+				 Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudstemetjuistehoeveelheid)
 			} else {
-				; is al up to date.
+				if (indexoudste){
+					 Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste)
+				} else {
+					; is al up to date.
+				}
 			}
 		}
 	}
@@ -189,6 +198,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantal">
+<FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Record as %String 
+	set Record = @..#Global(ToeleveringNummer,+ToeleveringLijnNummer,index)
+	Quit +$Extract($Piece(Record,"\",1),28,34)
+]]></Implementation>
+</Method>
+
 <Method name="IsTeVerwerken">
 <FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
 <Private>1</Private>
@@ -199,7 +219,11 @@
 
 <Method name="SchrijfToeleveringLijn">
 <FormalSpec>ToeleveringNr:%String,ToeleveringLijnNr:%String,lijnnr:%Integer,Record:%String</FormalSpec>
-<Implementation><![CDATA[	Set $Piece(@..#Global(ToeleveringNr,+ToeleveringLijnNr,lijnnr),"\",1) = Record
+<Implementation><![CDATA[
+	Set $Piece(@..#Global(ToeleveringNr,+ToeleveringLijnNr,lijnnr),"\",1) = Record
+	if ..ZoekReceptieInKTO5(ToeleveringNr,ToeleveringLijnNr,..GeefAantal(ToeleveringNr,ToeleveringLijnNr,lijnnr)) {
+		Set $Piece(@..#Global(ToeleveringNr,+ToeleveringLijnNr,lijnnr),"\",2) = 1
+	}
 ]]></Implementation>
 </Method>
 
@@ -214,6 +238,31 @@
 <Implementation><![CDATA[ 	Set @..#Global(..#HeaderKey)=Record
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekReceptieInKTO5">
+<FormalSpec>ToelevNr:%String,ToelevLijnNr:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+    set Items = ##class(%ListOfDataTypes).%New()
+    #dim LijnNr As %String = 99    
+    for { set LijnNr = $order(^KTO5(5005,ToelevNr,LijnNr)) quit:LijnNr="" 
+        #dim LijnData As %String = ^(LijnNr)
+        #dim Datum As TECH.Horolog = $piece(LijnData,"\",30)
+        continue:Datum=""
+        continue:((+$H)-(Datum)>60)
+        continue:$$$Not($piece(LijnData,"\",13)=ToelevLijnNr)
+        continue:$$$Not($piece(LijnData,"\",3)=Aantal)
+        do Items.Insert(LijnData)
+    }
+    
+    if Items.Count()>1 {
+        set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("oeps meer dan eentje gevonden voor "_ToelevNr_":"_ToelevLijnNr_":"_Aantal)
+        do ##class(TECH.ExceptionHandler).Throw(Exception)
+    }
+    quit (Items.Count() > 0)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u -r37139 -r37640
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 37139)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 37640)
@@ -102,21 +102,54 @@
 
 <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()
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGeplitsteLijnen(3)
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity = "200"
 	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DeliveryDateAxBUA = "200131"
+	
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).OrderQuantity = "250"
 	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).DeliveryDateAxBUA = "200108"
 	
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(3).OrderQuantity = "250"
+	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 ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000500","160105")
+	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"),"")
 ]]></Implementation>
 </Method>
 
+<Method name="Test : Zet de verwerkvlag van alleen de oudste toeleveringslijn indien niks overeenkomt">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGeplitsteLijnen(3)
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).OrderQuantity = "200"
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(1).DeliveryDateAxBUA = "200131"
+	
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).OrderQuantity = "250"
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(2).DeliveryDateAxBUA = "200130"
+	
+	Set COASODouble.ToeleveringList.GetAt(1).ToeleveringDetail.GetAt(3).OrderQuantity = "250"
+	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 ..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")
+]]></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()