Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u -r37641 -r38004
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 37641)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 38004)
@@ -90,7 +90,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Zet de verwerkvlag van alleen de oudste toeleveringslijn indien geen match op aantal ">
+<Method name="Test : Zet geen verwerkvlag indien geen match op aantal ">
 <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 = "0000666"
@@ -103,7 +103,7 @@
 	
 	Do ..BLOrdRspService.UpdateVerwerkVlag("277788",100,"0000500","200108")
 
-	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
 ]]></Implementation>
 </Method>
@@ -133,7 +133,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Zet de verwerkvlag van alleen de oudste toeleveringslijn indien niks overeenkomt">
+<Method name="Test : Zet geen verwerkvlag 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"
@@ -154,7 +154,7 @@
 
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,1))
 	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,2))
-	Do $$$AssertTrue(..BLOrdRspService.IsVerwerkVlagActief("277788",1,3))
+	Do $$$AssertFalse(..BLOrdRspService.IsVerwerkVlagActief("277788",1,3))
 ]]></Implementation>
 </Method>
 
Index: EWTOE.mac.rou
===================================================================
diff -u -r37209 -r38004
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 37209)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 38004)
@@ -172,7 +172,7 @@
  Set ^KSPW(PRNr,LevTW,R)=AantWMS_D_$J(CifPPL*AantWMS,0,Decimals)_D_LevTB_D_LevTA_D_$E(LevTW,3,4)_"/"_$E(LevTW,5,6)_D_''ORDNr_D
  Do REMOVE^vhLock("^KSPW(PRNr)"),COPY(TOENr,TLNr,Rec,AantWMS)
  Do ##class(Flow.Toelevering).RecuPak(PRNr,AantWMS,TOENr,TLUNr,HistRef,.BLKLNr,.BLFactuurNr,.BLFactuurDatum)
- If 'AantBo Do KILL(TOENr,TLNr,RCPODate)
+ If 'AantBo Do KILL(TOENr,TLNr)
  If AantBo Do
  .Set Rec=^KTO(LEVNr,TOENr,TLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3)
  .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*AantBo),0,##class(APPS.VKP.OrderlijnPrijsBepaler).GeefAantalDecimalen())
@@ -310,11 +310,10 @@
  Quit
  ;
  ; Opkuis bestanden
-KILL(TOENr,TLNr,RCPODate) 
+KILL(TOENr,TLNr) 
  New R,LEVNr,ABNr,ABLNr
  Set LEVNr=$P($G(^KTO1(TOENr)),D) Quit:'LEVNr
  Set R=^KTO(LEVNr,TOENr,TLNr),ABLNr=$P(R,D,13,14)
- Do ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New().UpdateVerwerkVlag(TOENr,$Piece(R,D,15),$Piece(R,D,3),RCPODate) 
  Kill ^KTOK(LEVNr,TOENr,TLNr),^KTO3(TOENr,ABLNr_D_TLNr),^KTO(LEVNr,TOENr,TLNr)
  If $N(^KTO(LEVNr,TOENr,100))=-1 Do
  .Set R=^KTO(LEVNr,TOENr,1),ABNr=$P(R,D,10)
@@ -696,3 +695,4 @@
 
 
 
+
Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r37938 -r38004
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37938)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 38004)
@@ -137,8 +137,8 @@
 				 Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudstemetjuistehoeveelheid)
 			} else {
 				if (indexoudste){
-					 Do ##class(vhLib.Logger).%New().WarningMail("Blum OrderBevestiging","Geen match gevonden op datum en/of hoeveelheid : "_ToeleveringsNummer_" "_ToeleveringsLijnNummer)
-					 Do ..ZetRecordAlsVerwerkt(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste)
+					 Do ##class(vhLib.Logger).%New().WarningMail("Blum OrderBevestiging","Opkuis BLOrdRsp : geen match gevonden op datum en/of hoeveelheid : "_ToeleveringsNummer_" "_ToeleveringsLijnNummer _" Hoeveelheid " _ Aantal )
+					 ;mag dan voor de veiligheid op KAL blijven.
 				} else {
 					; is al up to date.
 				}