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())
 		}
 	}
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml
===================================================================
diff -u -r37032 -r37644
--- APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml	(.../ImporteerLaatsteCOAInBLOrdRsp.cls.xml)	(revision 37032)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml	(.../ImporteerLaatsteCOAInBLOrdRsp.cls.xml)	(revision 37644)
@@ -32,6 +32,7 @@
 	#dim lijnnr as %Integer = 0
 	#dim lijn as %String
 	#dim ToeleveringVanHeader as %String
+	#dim LaatsteLijnReferentie as %String = ""
 	Set berichtindex = ..BLImpService.GeefRecentsteVerwerktCOABerichtIndex()
 	Do ##class(Tools.Wlip).%New(207).String("ID geimporteerd COA bericht "_ berichtindex)
 	if berichtindex {
@@ -46,7 +47,11 @@
 				Do ..BLOrdRspService.SchrijfToeleveringHeader(ToeleveringVanHeader,lijn)
 				Set lijnnr = 0
 			} elseif ..GeefTypeVanLijn(lijn) = "22" {
-				set lijnnr = lijnnr + 1
+				if $$$Not(LaatsteLijnReferentie = ToeleveringVanHeader _ ..GeefToeleveringLijnNrVanLijn(lijn)){
+					set lijnnr = 1
+				} else {
+					set lijnnr = lijnnr + 1
+				}
 				Do ..BLOrdRspService.SchrijfToeleveringLijn(ToeleveringVanHeader,..GeefToeleveringLijnNrVanLijn(lijn),lijnnr,lijn)				
 			} else {
 				;onbekend lijn type voor dit bericht, negeren
@@ -56,6 +61,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HernummerBLOrdRsp">
+<Implementation><![CDATA[
+	#Dim Toel as %String = ""
+	#Dim Lijn as %String = ""
+	#Dim OldIndex as %String = ""
+	#Dim NewIndex as %Integer = 0
+	
+	set Toel = $Order(^BLOrdRsp(Toel))
+	While $$$Not( Toel = "") {
+		w !,Toel
+		Set ^TMPJOW(Toel)=^BLOrdRsp(Toel)
+		
+		set Lijn = ""
+		Set Lijn = $Order(^BLOrdRsp(Toel,Lijn))
+		While $$$Not( Lijn = "") {
+			w !,"      " _ Toel _"."_Lijn
+			
+			
+			Set NewIndex = 0
+			Set OldIndex = ""
+			Set OldIndex = $Order(^BLOrdRsp(Toel,Lijn,OldIndex))
+			While $$$Not( OldIndex = "") {
+				Set NewIndex = NewIndex + 1
+				w !,"               " _ OldIndex _ " -> " _ NewIndex
+				set ^TMPJOW(Toel,Lijn,NewIndex) = ^BLOrdRsp(Toel,Lijn,OldIndex)
+				Set OldIndex = $Order(^BLOrdRsp(Toel,Lijn,OldIndex))
+			}					
+			Set Lijn = $Order(^BLOrdRsp(Toel,Lijn))
+		}
+		set Toel = $Order(^BLOrdRsp(Toel))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefTypeVanLijn">
 <FormalSpec>lijn:%String</FormalSpec>
 <Private>1</Private>