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[
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml
===================================================================
diff -u -r37657 -r39063
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37657)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 39063)
@@ -20,7 +20,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO header in BLOrdRsp">
+<Method name="aTest : Bewaar COASO header in BLOrdRsp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 		
@@ -31,7 +31,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO Toeleveringheader in BLOrdRsp">
+<Method name="aTest : Bewaar COASO Toeleveringheader in BLOrdRsp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	
@@ -42,7 +42,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO Toeleveringdetail in BLOrdRsp">
+<Method name="aTest : Bewaar COASO Toeleveringdetail in BLOrdRsp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	
@@ -53,7 +53,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO met meerdere detaillijnen in BLOrdRsp">
+<Method name="aTest : Bewaar COASO met meerdere detaillijnen in BLOrdRsp">
 <Implementation><![CDATA[
 	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	
@@ -67,7 +67,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Bewaar COASO en zet Toeleveringslijn met vervallen datum niet als Verwerkt">
+<Method name="aTest : Bewaar COASO en zet Toeleveringslijn met vervallen datum niet als Verwerkt">
 <Implementation><![CDATA[
 	#Dim KopieerderDummy As vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New()
 	#Dim COASOMetVervallenDatumDouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOMetVervallenDatum()
@@ -81,6 +81,22 @@
 	Do $$$AssertEquals($Piece(..BLOrdRspService.MultiDim("277788",1,1),"\","2"),"")
 ]]></Implementation>
 </Method>
+
+<Method name="Test : Bewaar Verwijderd gesplitste lijn die terug samengevoegd is">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+
+	#dim BLOrdRspData As TECH.MultiDim
+ 	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).ZetTestDataGesplitstelijn(.BLOrdRspData)
+	Do ..BLOrdRspService.Setup(.BLOrdRspData)
+	
+	Do $$$AssertTrue($Data(..BLOrdRspService.MultiDim("277788",2,2)))
+
+	Do ..BLOrdRspService.Bewaar(COASODouble)
+	
+	Do $$$AssertFalse($Data(..BLOrdRspService.MultiDim("277788",2,2)))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r38700 -r39063
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 38700)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 39063)
@@ -52,6 +52,17 @@
 	Set Data(237570,4,1)="""22237570.04       0432974200003840000470.66216120823V      0000000.00          ""\1"
 ]]></Implementation>
 </Method>
+
+<Method name="ZetTestDataGesplitstelijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Data(277788)="""112712500127125001277788      000814951      W30G L 161207                     """
+	Set Data(277788,1,1)="""22277788.01       0445933200005760000442.93216120123V      0000000.00          """
+	Set Data(277788,2,1)="""22277788.02       0438090200005760000442.93216112323V      0000000.00          """
+	Set Data(277788,2,2)="""22277788.02       0438090200005760000442.93216112423V      0000000.00          """
+]]></Implementation>
+</Method>
 </Class>