Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r37644 -r37657
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37644)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37657)
@@ -46,7 +46,8 @@
 <Implementation><![CDATA[
 	#dim RecNr as %Integer = 0
 	#Dim LaatsteLijnReferentie as %String = ""
- 	Do ..SchrijfHeader("")
+	#Dim ProductNr as %String = ""
+	Do ..SchrijfHeader("")
 	#dim ToeleveringIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(COASO.ToeleveringList)
 	while ToeleveringIterator.HasNext()
 	{
@@ -57,12 +58,18 @@
 		while ToeleveringDetailIterator.HasNext()
 		{
 			#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ToeleveringDetailIterator.Next()
-			if $$$Not(LaatsteLijnReferentie = Toelevering.ToeleveringHeader.CustomerOrderReference _ ToeleveringDetail.OrderLineIdentificationCustomer){
+			if $$$Not(LaatsteLijnReferentie = (Toelevering.ToeleveringHeader.CustomerOrderReference _ ToeleveringDetail.OrderLineIdentificationCustomer)){
+				Set LaatsteLijnReferentie = Toelevering.ToeleveringHeader.CustomerOrderReference _ ToeleveringDetail.OrderLineIdentificationCustomer
 				Set RecNr = 1
-			} else {
+			} else {				
 				Set RecNr = RecNr + 1
 			}
+			
 			Do ..SchrijfToeleveringLijn(Toelevering.ToeleveringHeader.CustomerOrderReference,+ $Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2),RecNr,ToeleveringDetail.ToString())
+			set ProductNr = ..GeefProductNummer(ToeleveringDetail.IdentNumberSupplierBAU,Toelevering.ToeleveringHeader.CustomerNumberForInvoice)
+			if ..ZoekReceptieInKTO5ProductNummer(Toelevering.ToeleveringHeader.CustomerOrderReference, ProductNr,ToeleveringDetail.OrderQuantity){
+				Do ..ZetRecordAlsVerwerkt(Toelevering.ToeleveringHeader.CustomerOrderReference,$Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2),RecNr)
+			}
 		}
 	}
 	Set COASO.COASOHeader.MICOUN = 0
@@ -227,7 +234,7 @@
 <FormalSpec>ToeleveringNr:%String,ToeleveringLijnNr:%String,lijnnr:%Integer,Record:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set $Piece(@..#Global(ToeleveringNr,+ToeleveringLijnNr,lijnnr),"\",1) = Record
-	if ..ZoekReceptieInKTO5(ToeleveringNr,ToeleveringLijnNr,..GeefAantal(ToeleveringNr,ToeleveringLijnNr,lijnnr)) {
+	if ..ZoekReceptieInKTO5ToelevLijnNr(ToeleveringNr,ToeleveringLijnNr,..GeefAantal(ToeleveringNr,ToeleveringLijnNr,lijnnr)) {
 		Set $Piece(@..#Global(ToeleveringNr,+ToeleveringLijnNr,lijnnr),"\",2) = 1
 	}
 ]]></Implementation>
@@ -245,9 +252,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekReceptieInKTO5">
+<Method name="ZoekReceptieInKTO5ToelevLijnNr">
 <FormalSpec>ToelevNr:%String,ToelevLijnNr:%String,Aantal:%Integer</FormalSpec>
-<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
     set Items = ##class(%ListOfDataTypes).%New()
@@ -269,6 +275,41 @@
     quit (Items.Count() > 0)
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekReceptieInKTO5ProductNummer">
+<FormalSpec>ToelevNr:%String,ProductNummer:%String,Aantal:%Integer</FormalSpec>
+<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,"\",2)=ProductNummer)
+        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_":"_ProductNummer_":"_Aantal)
+        do ##class(TECH.ExceptionHandler).Throw(Exception)
+    }
+    quit (Items.Count() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductNummer">
+<FormalSpec>IdentNummer:%String,KundeNummer:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	do ##class(vhLib.OldSchool).InitVars()
+	quit $$GETVH^BLPROD(IdentNummer,KundeNummer)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml
===================================================================
diff -u -r37139 -r37657
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37139)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37657)
@@ -62,8 +62,8 @@
 	Do $$$AssertTrue($DATA(..BLOrdRspService.MultiDim("277788",1,1)))
 	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\",1),"""22277788.01       0900225300005000000016.0122001062 V      0000000.00          """)
 
-	Do $$$AssertTrue($DATA(..BLOrdRspService.MultiDim("277788",2,2)))
-	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",2,2),"\",1),"""22277788.02       0900225300010000000216.0122001082 V      0000236.01          """)
+	Do $$$AssertTrue($DATA(..BLOrdRspService.MultiDim("277788",2,1)))
+	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",2,1),"\",1),"""22277788.02       0900225300010000000216.0122001082 V      0000236.01          """)
 ]]></Implementation>
 </Method>