Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r37642 -r37644
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37642)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 37644)
@@ -45,6 +45,7 @@
 <FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
 <Implementation><![CDATA[
 	#dim RecNr as %Integer = 0
+	#Dim LaatsteLijnReferentie as %String = ""
  	Do ..SchrijfHeader("")
 	#dim ToeleveringIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(COASO.ToeleveringList)
 	while ToeleveringIterator.HasNext()
@@ -55,8 +56,12 @@
 		#dim ToeleveringDetailIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Toelevering.ToeleveringDetail)
 		while ToeleveringDetailIterator.HasNext()
 		{
-			Set RecNr = RecNr + 1
 			#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ToeleveringDetailIterator.Next()
+			if $$$Not(LaatsteLijnReferentie = Toelevering.ToeleveringHeader.CustomerOrderReference _ ToeleveringDetail.OrderLineIdentificationCustomer){
+				Set RecNr = 1
+			} else {
+				Set RecNr = RecNr + 1
+			}
 			Do ..SchrijfToeleveringLijn(Toelevering.ToeleveringHeader.CustomerOrderReference,+ $Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2),RecNr,ToeleveringDetail.ToString())
 		}
 	}