Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/VerwijderToelevering/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/VerwijderToelevering/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/VerwijderToelevering/Test.cls.xml	(revision 36800)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder.VerwijderToelevering.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Lock +^BLOrdRsp
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Lock -^BLOrdRsp
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Verwijder toelevering ">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+
+	Do Bewaarder.VerwijderToelevering(Bewaarder.ToeleveringNummer)
+
+	Do $$$AssertFalse($Data(^BLOrdRsp(Bewaarder.ToeleveringNummer)))
+
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/UpdateVerwerkVlag/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/UpdateVerwerkVlag/Test.cls.xml	(revision 36800)
@@ -0,0 +1,107 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder.UpdateVerwerkVlag.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Lock +^BLOrdRsp
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Lock -^BLOrdRsp
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag op 1 van een toeleveringslijn">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Do Bewaarder.UpdateVerwerkVlag(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,"0000300","160106")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"\","2"),"1")
+
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag op 1 van een gesplitste toeleveringslijn">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,2),"\","2"),"")
+
+	Do Bewaarder.UpdateVerwerkVlag(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,"0000700","160108")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,2),"\","2"),"1")
+
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag van een toeleveringslijn niet indien geen match op aantal ">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Do Bewaarder.UpdateVerwerkVlag(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,"0000400","160106")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag van een toeleveringslijn niet indien geen match op datum ">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOGesplitsteLijn()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Do Bewaarder.UpdateVerwerkVlag(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,"0000500","160105")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Zet de verwerkvlag op 1 van de enigste toeleveringslijn met verschillend aantal en datum ">
+<Implementation><![CDATA[
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASOMetEenToeleveringLijn()
+	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	
+	Do Bewaarder.Bewaar(COASODouble)
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"\","2"),"")
+
+	Do Bewaarder.UpdateVerwerkVlag(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,"0000200","160110")
+
+	Do $$$AssertEquals($Piece(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"\","2"),"1")
+
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r36674 -r36800
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36674)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36800)
@@ -38,10 +38,10 @@
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
-	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.MsgNr,1)))
-	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.MsgNr,1),"""112122500121225001277788      000745532      W30G L 151221                     """)
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.ToeleveringNummer)))
+	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.ToeleveringNummer),"""112122500121225001277788      000745532      W30G L 151221                     """)
 
-	Kill ^BLOrdRsp(Bewaarder.MsgNr)
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
 ]]></Implementation>
 </Method>
 
@@ -52,10 +52,10 @@
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
-	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.MsgNr,2)))
-	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.MsgNr,2),"""22277788.01       0900225300005000000016.0121601062 V      0000000.00          """)
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1)))
+	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"""22277788.01       0900225300005000000016.0121601062 V      0000000.00          """)
 
-	Kill ^BLOrdRsp(Bewaarder.MsgNr)
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
 ]]></Implementation>
 </Method>
 
@@ -66,13 +66,13 @@
 	
 	Do Bewaarder.Bewaar(COASODouble)
 	
-	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.MsgNr,2)))
-	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.MsgNr,2),"""22277788.01       0900225300005000000016.0121601062 V      0000000.00          """)
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1)))
+	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,1),"""22277788.01       0900225300005000000016.0121601062 V      0000000.00          """)
 
-	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.MsgNr,3)))
-	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.MsgNr,3),"""22277799.01       0900225300010000000216.0121601082 V      0000236.01          """)
+	Do $$$AssertTrue($DATA(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,2)))
+	Do $$$AssertEquals(^BLOrdRsp(Bewaarder.ToeleveringNummer,Bewaarder.ToeleveringLijnNummer,2),"""22277799.01       0900225300010000000216.0121601082 V      0000236.01          """)
 
-	Kill ^BLOrdRsp(Bewaarder.MsgNr)
+	Kill ^BLOrdRsp(Bewaarder.ToeleveringNummer)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u -r36674 -r36800
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36674)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(.../Bewaarder.cls.xml)	(revision 36800)
@@ -3,24 +3,46 @@
 <Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="MsgNr">
+<Parameter name="HeaderKey">
+<Type>%String</Type>
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="IsReedsVerwerkt">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringNummer">
 <Type>%Integer</Type>
 <InitialExpression>99999999</InitialExpression>
 </Property>
 
+<Property name="ToeleveringLijnNummer">
+<Type>%Integer</Type>
+<InitialExpression>99999999</InitialExpression>
+</Property>
+
 <Property name="RecNr">
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>DateTimeAPI:TECH.DateTime.impl.DateTimeAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI,##class(TECH.DateTime.impl.DateTimeAPI).%New())
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -32,44 +54,156 @@
 	while ToeleveringIterator.HasNext()
 	{
 		#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ToeleveringIterator.Next()
-		Do ..ZetMsgNr(Toelevering.ToeleveringHeader.CustomerOrderReference)
-		Do ..SchrijfRecord(Toelevering.ToeleveringHeader.ToString())
+		Do ..ZetToeleveringNummer(Toelevering.ToeleveringHeader.CustomerOrderReference)
+		Do ..SchrijfToeleveringHeader(Toelevering.ToeleveringHeader.ToString())
 
 		#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()
-			Do ..SchrijfRecord(ToeleveringDetail.ToString())
+			Do ..ZetToeleveringLijnNummer(ToeleveringDetail.OrderLineIdentificationCustomer)
+			Do ..SchrijfToeleveringLijn(ToeleveringDetail.ToString())
 		}
 	}
 	Set COASO.COASOHeader.MICOUN = 0
 	Do ..SchrijfHeader(COASO.COASOHeader.ToString())
 ]]></Implementation>
 </Method>
 
-<Method name="ZetMsgNr">
+<Method name="UpdateVerwerkVlag">
+<FormalSpec>ToeleveringsNummer:%String,ToeleveringsLijnNummer:%String,Aantal:%String,LeverDatum:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Toelevering=$Q(^BLOrdRsp(ToeleveringsNummer,ToeleveringsLijnNummer))
+	
+	If ($Q(@Toelevering) = "") {
+		Do ..ZetRecordAlsVerwerkt(Toelevering)
+	} Else {
+		While Toelevering'=""{
+			If (..IsTeVerwerken(@Toelevering)) && (..IsMatch(@Toelevering, Aantal, LeverDatum)){
+				Do ..ZetRecordAlsVerwerkt(Toelevering)
+			}
+			Set Toelevering=$Q(@Toelevering)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetVervallenLijnenAlsVerwerkt">
+<Implementation><![CDATA[
+	#Dim Toelevering As %String = ..#HeaderKey
+	Set Toelevering=$O(^BLOrdRsp(Toelevering))
+	While Toelevering'=""{
+		
+		#Dim ToeleveringLijn As %String = ""
+		Set ToeleveringLijn=$O(^BLOrdRsp(Toelevering,ToeleveringLijn))
+		While ToeleveringLijn'=""{
+			#Dim Lijn As %String = ^BLOrdRsp(Toelevering,ToeleveringLijn)
+			If ..IsDetailLijn(Lijn)
+			{
+				if ..IsLijnVervallen(Lijn) {
+					Do ..ZetRecordAlsVerwerkt(Toelevering)	
+				}
+			}
+			Set ToeleveringLijn=$O(^BLOrdRsp(Toelevering,ToeleveringLijn))
+		}
+		Set Toelevering=$O(^BLOrdRsp(Toelevering))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToelevering">
+<FormalSpec>ToeleveringsNummer:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^BLOrdRsp(ToeleveringsNummer)
+]]></Implementation>
+</Method>
+
+<Method name="IsDetailLijn">
+<FormalSpec>Lijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Extract(Lijn,2,3) = "22")
+]]></Implementation>
+</Method>
+
+<Method name="IsLijnVervallen">
+<FormalSpec>Lijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim DatumOudFormaat As %String = $Extract(Lijn,46,51)
+	Quit (DatumOudFormaat '= "      ") && (..DateTimeAPI.TextToDate("20" _DatumOudFormaat) + 4 < ..DateTimeAPI.CurrentDate())
+]]></Implementation>
+</Method>
+
+<Method name="ZetRecordAlsVerwerkt">
+<FormalSpec>Toelevering:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set $Piece(@Toelevering,"\",2) = ..#IsReedsVerwerkt
+]]></Implementation>
+</Method>
+
+<Method name="IsMatch">
+<FormalSpec>Record:%String,Aantal:%Integer,LeverDatum:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringAantal = $Extract($Piece(Record,"\",1),28,34)
+	Set ToeleveringLeverDatum = $Extract($Piece(Record,"\",1),46,51)
+	Quit (ToeleveringAantal = Aantal) && (ToeleveringLeverDatum = LeverDatum)
+]]></Implementation>
+</Method>
+
+<Method name="IsTeVerwerken">
+<FormalSpec>Record:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Piece(Record,"\",2) '= ..#IsReedsVerwerkt)
+]]></Implementation>
+</Method>
+
+<Method name="ZetToeleveringNummer">
 <FormalSpec>CustomerOrderReference:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..RecNr = 0
-	Set ..MsgNr = CustomerOrderReference
- 	Kill ^BLOrdRsp(..MsgNr)
+	Set ..ToeleveringNummer = CustomerOrderReference
 ]]></Implementation>
 </Method>
 
-<Method name="SchrijfRecord">
+<Method name="ZetToeleveringLijnNummer">
+<FormalSpec>OrderLineIdentificationCustomer:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..ToeleveringLijnNummer = ##class(TECH.StringUtils).Trim($Piece(OrderLineIdentificationCustomer,".",2))
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfToeleveringLijn">
 <FormalSpec>Record:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	set ..RecNr = ..RecNr + 1
- 	Set ^BLOrdRsp(..MsgNr,..RecNr)=Record
+	if $Data(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr)){
+		Set Record = Record _ $Piece(^BLOrdRsp(..ToeleveringNummer, ..ToeleveringLijnNummer,..RecNr),"\",2)
+	}
+ 	Set ^BLOrdRsp(..ToeleveringNummer,..ToeleveringLijnNummer,..RecNr)=Record
 ]]></Implementation>
 </Method>
 
+<Method name="SchrijfToeleveringHeader">
+<FormalSpec>Record:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $Data(^BLOrdRsp(..ToeleveringNummer)){
+		Set Record = Record _ $Piece(^BLOrdRsp(..ToeleveringNummer),"\",2)
+	}
+ 	Set ^BLOrdRsp(..ToeleveringNummer)=Record
+]]></Implementation>
+</Method>
+
 <Method name="SchrijfHeader">
 <FormalSpec>Record:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[ 	Set ^BLOrdRsp(0)=Record
+<Implementation><![CDATA[ 	Set ^BLOrdRsp(..#HeaderKey)=Record
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml
===================================================================
diff -u -r35422 -r36800
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35422)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 36800)
@@ -65,6 +65,119 @@
 	Quit COASO
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCOASOGesplitsteLijn">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
+<Implementation><![CDATA[
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New()
+	
+	Set COASO.COASOHeader.MIIDEF = "BAU16558"
+	Set COASO.COASOHeader.LEVNUR = "5005"
+	Set COASO.COASOHeader.MIINTY = "COA"
+	Set COASO.COASOHeader.MIINTS = "SO"
+	Set COASO.COASOHeader.MINETC = "C"
+	Set COASO.COASOHeader.MIOTCR = "17-06-16"
+	Set COASO.COASOHeader.MITICR = "2200"
+	Set COASO.COASOHeader.MICOUN ="1922"
+	Set COASO.COASOHeader.MINNCR = "BRANDL A."
+	Set COASO.COASOHeader.MINNRE = "ROOS"
+	Set COASO.COASOHeader.MIACRQ = "1"
+	Set COASO.COASOHeader.MESPRO = "1"
+	
+	#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering).%New()
+	
+	Set Toelevering.ToeleveringHeader.InternalOrderNumberBLUM = "745532"
+	Set Toelevering.ToeleveringHeader.CustomerOrderEntryDate = "151221"
+	Set Toelevering.ToeleveringHeader.CustomerNumberForShipment = "212250"
+	Set Toelevering.ToeleveringHeader.CustomerOrderReference = "277788"
+	Set Toelevering.ToeleveringHeader.CustomerNumberForInvoice = "212250"
+	Set Toelevering.ToeleveringHeader.ReasonCode = "G "
+	Set Toelevering.ToeleveringHeader.TransportationMode = "L "
+	Set Toelevering.ToeleveringHeader.CurrencyInCOScode = "W30"
+	Set Toelevering.ToeleveringHeader.AverageTransportTime = "000"
+
+	#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
+	Set ToeleveringDetail.OrderQuantity = "300"
+	Set ToeleveringDetail.DeliveryDateAxBUA = "160106"
+	Set ToeleveringDetail.OrderLineNumberSupplierBAU = ""
+	Set ToeleveringDetail.GrossPrice = "0000000.00"
+	Set ToeleveringDetail.ReasonCode = "V"
+	Set ToeleveringDetail.PriceDimension = "2"
+	Set ToeleveringDetail.NetPrice = "0000016.01"
+	Set ToeleveringDetail.OrderLineIdentificationCustomer = "277788.01  "
+	Set ToeleveringDetail.IdentNumberSupplierBAU = "09002253"
+	Set ToeleveringDetail.DelDateCode = "2"
+	Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
+
+	Set ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
+	Set ToeleveringDetail.OrderQuantity = "700"
+	Set ToeleveringDetail.DeliveryDateAxBUA = "160108"
+	Set ToeleveringDetail.OrderLineNumberSupplierBAU = ""
+	Set ToeleveringDetail.GrossPrice = "0000236.01"
+	Set ToeleveringDetail.ReasonCode = "V"
+	Set ToeleveringDetail.PriceDimension = "2"
+	Set ToeleveringDetail.NetPrice = "0000216.01"
+	Set ToeleveringDetail.OrderLineIdentificationCustomer = "277788.01  "
+	Set ToeleveringDetail.IdentNumberSupplierBAU = "09002253"
+	Set ToeleveringDetail.DelDateCode = "2"
+	Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
+	
+	Do COASO.ToeleveringList.Insert(Toelevering)
+	
+	Quit COASO
+]]></Implementation>
+</Method>
+
+<Method name="GeefCOASOMetEenToeleveringLijn">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
+<Implementation><![CDATA[
+	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New()
+	
+	Set COASO.COASOHeader.MIIDEF = "BAU16558"
+	Set COASO.COASOHeader.LEVNUR = "5005"
+	Set COASO.COASOHeader.MIINTY = "COA"
+	Set COASO.COASOHeader.MIINTS = "SO"
+	Set COASO.COASOHeader.MINETC = "C"
+	Set COASO.COASOHeader.MIOTCR = "17-06-16"
+	Set COASO.COASOHeader.MITICR = "2200"
+	Set COASO.COASOHeader.MICOUN ="1922"
+	Set COASO.COASOHeader.MINNCR = "BRANDL A."
+	Set COASO.COASOHeader.MINNRE = "ROOS"
+	Set COASO.COASOHeader.MIACRQ = "1"
+	Set COASO.COASOHeader.MESPRO = "1"
+	
+	#dim Toelevering As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.Toelevering).%New()
+	
+	Set Toelevering.ToeleveringHeader.InternalOrderNumberBLUM = "745532"
+	Set Toelevering.ToeleveringHeader.CustomerOrderEntryDate = "151221"
+	Set Toelevering.ToeleveringHeader.CustomerNumberForShipment = "212250"
+	Set Toelevering.ToeleveringHeader.CustomerOrderReference = "277788"
+	Set Toelevering.ToeleveringHeader.CustomerNumberForInvoice = "212250"
+	Set Toelevering.ToeleveringHeader.ReasonCode = "G "
+	Set Toelevering.ToeleveringHeader.TransportationMode = "L "
+	Set Toelevering.ToeleveringHeader.CurrencyInCOScode = "W30"
+	Set Toelevering.ToeleveringHeader.AverageTransportTime = "000"
+
+	#dim ToeleveringDetail As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.ToeleveringDetail).%New()
+	Set ToeleveringDetail.OrderQuantity = "500"
+	Set ToeleveringDetail.DeliveryDateAxBUA = "160106"
+	Set ToeleveringDetail.OrderLineNumberSupplierBAU = ""
+	Set ToeleveringDetail.GrossPrice = "0000000.00"
+	Set ToeleveringDetail.ReasonCode = "V"
+	Set ToeleveringDetail.PriceDimension = "2"
+	Set ToeleveringDetail.NetPrice = "0000016.01"
+	Set ToeleveringDetail.OrderLineIdentificationCustomer = "277788.01  "
+	Set ToeleveringDetail.IdentNumberSupplierBAU = "09002253"
+	Set ToeleveringDetail.DelDateCode = "2"
+	Do Toelevering.ToeleveringDetail.Insert(ToeleveringDetail)
+	
+	Do COASO.ToeleveringList.Insert(Toelevering)
+	
+	Quit COASO
+]]></Implementation>
+</Method>
 </Class>