Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml
===================================================================
diff -u -r36809 -r36900
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml	(.../Service.cls.xml)	(revision 36809)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Service.cls.xml	(.../Service.cls.xml)	(revision 36900)
@@ -77,17 +77,43 @@
 </Method>
 
 <Method name="UpdateVerwerkVlag">
-<FormalSpec>ToeleveringsNummer:%String,ToeleveringsLijnNummer:%String,Aantal:%String,LeverDatum:%String</FormalSpec>
+<FormalSpec>ToeleveringsNummer:%String,ToeleveringsUniekLijnNummer:%String,Aantal:%String,LeverDatum:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set Toelevering=$Q(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer))
-	If ($Q(@Toelevering) = "") {
-		Do ..ZetRecordAlsVerwerkt(Toelevering)
+	#dim index as %String
+	#dim updated as %Integer = 0
+	#dim eersteindexvoortlnr = 0
+	#dim indexoudste as %integer = 0
+	#dim ToeleveringsLijnNummer as %String = ""
+	set ToeleveringsLijnNummer = "0" _ (ToeleveringsUniekLijnNummer\100)
+	set ToeleveringsLijnNummer = $Extract(ToeleveringsLijnNummer,$Length(ToeleveringsLijnNummer)-1,$Length(ToeleveringsLijnNummer))
+	set eersteindexvoortlnr = $Order(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,0))
+	If $$$Not($Order(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,eersteindexvoortlnr))){
+		Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,eersteindexvoortlnr)
 	} Else {
-		While Toelevering'=""{
-			If (..IsTeVerwerken(@Toelevering)) && (..IsMatch(@Toelevering, Aantal, LeverDatum)){
-				Do ..ZetRecordAlsVerwerkt(Toelevering)
+		set index = eersteindexvoortlnr
+		While index'=""{
+			If (..IsTeVerwerken(ToeleveringsNummer,ToeleveringsLijnNummer,index)) && (..IsMatch(ToeleveringsNummer,ToeleveringsLijnNummer,index, +Aantal, LeverDatum)){
+				Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,index)
+				set updated = 1
+				quit
 			}
-			Set Toelevering=$Q(@Toelevering)
+			set index = $Order(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,index))			
+		}	
+
+		if $$$Not(updated){ ;geen exacte match op combinatie aantal en datum -> niet verwerkte lijn met oudste leverdatum YYMMDD aanpassen
+			set index = eersteindexvoortlnr
+			While index'=""{
+				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
+				}
+				set index = $Order(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer,index))			
+			}
+			if (indexoudste){
+				 Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste)
+			} else {
+				; is al up to date.
+			}
 		}
 	}
 ]]></Implementation>
@@ -112,7 +138,7 @@
 	Set Toelevering=$Q(^BLOrdRsp(..#HeaderKey))
 	While Toelevering'=""{
 		If (..IsDetailLijn(@Toelevering)) && (..IsLijnVervallen(@Toelevering)){
-			Do ..ZetRecordAlsVerwerkt(Toelevering)
+			set $Piece(@Toelevering,"\",2) = ..#IsReedsVerwerkt
 		}
 		Set Toelevering=$Q(@Toelevering)
 	}
@@ -138,28 +164,39 @@
 </Method>
 
 <Method name="ZetRecordAlsVerwerkt">
-<FormalSpec>Toelevering:%CacheString</FormalSpec>
+<FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set $Piece(@Toelevering,"\",2) = ..#IsReedsVerwerkt
+<Implementation><![CDATA[	Set $Piece(^BLOrdRsp(ToeleveringNummer,ToeleveringLijnNummer,index),"\",2) = ..#IsReedsVerwerkt
 ]]></Implementation>
 </Method>
 
 <Method name="IsMatch">
-<FormalSpec>Record:%String,Aantal:%Integer,LeverDatum:%String</FormalSpec>
+<FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer,Aantal:%Integer,LeverDatum:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set ToeleveringAantal = $Extract($Piece(Record,"\",1),28,34)
+	#dim Record as %String = ^BLOrdRsp(ToeleveringNummer,ToeleveringLijnNummer,index)
+	Set ToeleveringAantal = +$Extract($Piece(Record,"\",1),28,34)
 	Set ToeleveringLeverDatum = $Extract($Piece(Record,"\",1),46,51)
 	Quit (ToeleveringAantal = Aantal) && (ToeleveringLeverDatum = LeverDatum)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeverDatum">
+<FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Record as %String 
+	set Record = ^BLOrdRsp(ToeleveringNummer,ToeleveringLijnNummer,index)
+	Quit $Extract($Piece(Record,"\",1),46,51)
+]]></Implementation>
+</Method>
+
 <Method name="IsTeVerwerken">
-<FormalSpec>Record:%String</FormalSpec>
+<FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,index:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ($Piece(Record,"\",2) '= ..#IsReedsVerwerkt)
+<Implementation><![CDATA[	Quit ($Piece(^BLOrdRsp(ToeleveringNummer,ToeleveringLijnNummer,index),"\",2) '= ..#IsReedsVerwerkt)
 ]]></Implementation>
 </Method>
 
@@ -185,7 +222,7 @@
 <Implementation><![CDATA[
 	set ..RecNr = ..RecNr + 1
 	if $Data(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr)){
-		Set Record = Record _ $Piece(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr),"\",2)
+		Set Record = Record _ "\"_ $Piece(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr),"\",2)
 	}
  	Set ^BLOrdRsp(..ToeleveringNummer,..ToeleveringLijnNummer,..RecNr)=Record
 ]]></Implementation>