Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r38700 -r39063
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 38700)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 39063)
@@ -60,17 +60,19 @@
 		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()
 		Do ..SchrijfToeleveringHeader(Toelevering.ToeleveringHeader.CustomerOrderReference,Toelevering.ToeleveringHeader.ToString())
 		set RecNr = 0
+		
 		#dim ToeleveringDetailIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Toelevering.ToeleveringDetail)
 		while ToeleveringDetailIterator.HasNext()
 		{
 			#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ToeleveringDetailIterator.Next()
 			if $$$Not(LaatsteLijnReferentie = (Toelevering.ToeleveringHeader.CustomerOrderReference _ ToeleveringDetail.OrderLineIdentificationCustomer)){
+				; nieuwe toeleveringlijn nummer
+				Do:($Length(LaatsteLijnReferentie)) ..ControleSamengevoegdeLijnen(Toelevering.ToeleveringHeader.CustomerOrderReference,$Piece(LaatsteLijnReferentie,".",2),RecNr)
 				Set 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())
 			set ProductNr = ..GeefProductNummer(ToeleveringDetail.IdentNumberSupplierBAU,Toelevering.ToeleveringHeader.CustomerNumberForInvoice)
 			if ..ZoekReceptieInKTO5ProductNummer(Toelevering.ToeleveringHeader.CustomerOrderReference, ProductNr,ToeleveringDetail.OrderQuantity){
@@ -79,12 +81,28 @@
 				Do ..ZetRecordAlsVerwerkt(Toelevering.ToeleveringHeader.CustomerOrderReference,$Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2),RecNr)
 			}
 		}
+		Do ..ControleSamengevoegdeLijnen(Toelevering.ToeleveringHeader.CustomerOrderReference,$Piece(ToeleveringDetail.OrderLineIdentificationCustomer,".",2),RecNr)
 	}
 	Set COASO.COASOHeader.MICOUN = 0
 	Do ..SchrijfHeader(COASO.COASOHeader.ToString())
 ]]></Implementation>
 </Method>
 
+<Method name="ControleSamengevoegdeLijnen">
+<FormalSpec>Toelevering:%String,ToeleveringLijnNummer:%String,Laatstelijn:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Teller as %Integer
+
+	If Laatstelijn > 0 {
+		for Teller=Laatstelijn + 1:1:10{
+			If $Data(@..#Global(Toelevering,+ToeleveringLijnNummer,Teller)){
+				Kill @..#Global(Toelevering,+ToeleveringLijnNummer,Teller)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="UpdateVerwerkVlag">
 <FormalSpec>ToeleveringsNummer:%String,ToeleveringsUniekLijnNummer:%String,Aantal:%String,LeverDatum:%String</FormalSpec>
 <Implementation><![CDATA[