Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService/Test.cls.xml	(revision 36942)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BLImpService">
+<Type>APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(TestName)
+	set ..BLImpService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService).%New()	
+	#dim BLImpData As TECH.MultiDim  
+ 	do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService).ZetBLImpData(.BLImpData)
+	do ..BLImpService.Setup(.BLImpData)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefRecentsteVerwerktCOAberichtIndex geeft de index van het recentste COA bericht">
+<Implementation><![CDATA[	 do $$$AssertEquals(..BLImpService.GeefRecentsteVerwerktCOABerichtIndex(),7365)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefBerichtHeader geeft de header van het bericht">
+<Implementation><![CDATA[	do $$$AssertEquals(..BLImpService.GeefBerichtHeader(7365),"BAU804996\5005\COA\SO\C\14-09-16\1200\9\\\1\1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefBerichtLijnen geeft de lijnen van een bericht in een List terug">
+<Implementation><![CDATA[
+	#dim expectedlist as List of %String = ##class(%ListOfDataTypes).%New()
+	Do expectedlist.Insert("""112712500127125001209822      000804995      W30G L 160914                     """)
+    Do expectedlist.Insert("""22209822.01       0378220500001440000290.63216101923V      0000000.00          """)
+    Do expectedlist.Insert("""22209822.02       0417985200000920000331.46216100323V      0000000.00          """)
+    Do expectedlist.Insert("""22209822.02       0417985200001000000331.46216101023V      0000000.00          """)
+    Do expectedlist.Insert("""22209822.03       0424438400000000000331.462      00V      0000000.00          """)
+    Do expectedlist.Insert("""22209822.04       0251181000000000000295.842      00V      0000000.00          """)
+    Do expectedlist.Insert("""22209822.05       0253367100000000000295.842      00V      0000000.00          """)
+    Do expectedlist.Insert("""112712500127125001209823      000804996      W30G L 160914                     """)
+    Do expectedlist.Insert("""22209823.01       0378220500001440000290.63216101923V      0000000.00          """)
+	
+	Do $$$AssertEqualsList(..BLImpService.GeefBerichtLijnen(7365),expectedlist)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml	(revision 36942)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.Migratie.BLOrdRspService">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="ZetBerichtHeader">
+<Abstract>1</Abstract>
+<FormalSpec>Header:%String</FormalSpec>
+</Method>
+
+<Method name="ZetToeleveringHeader">
+<Abstract>1</Abstract>
+<FormalSpec>ToeleveringNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
+</Method>
+
+<Method name="ZetToeleveringLijn">
+<Abstract>1</Abstract>
+<FormalSpec>ToeleveringNr:%String,ToeleveringLijnNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService/Test.cls.xml	(revision 36942)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLOrdRspService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BLOrdRspService">
+<Type>vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLOrdRspService</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestName)
+	Set ..BLOrdRspService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLOrdRspService).%New()	
+	#dim BLOrdRspData As TECH.MultiDim  
+ 	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLOrdRspService).ZetBLOrdRspData(.BLOrdRspData)
+	Do ..BLOrdRspService.Setup(.BLOrdRspData)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetHeader zet de header op subscript 0 van de global">
+<Implementation><![CDATA[
+	Do ..BLOrdRspService.ZetBerichtHeader("Dit is de headertest")
+	Do $$$AssertEquals( ..BLOrdRspService.MultiDim(0) ,"Dit is de headertest")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetToeleveringHeader zet de lijn in de global met de juiste subscripts ">
+<Implementation><![CDATA[
+	Do ..BLOrdRspService.ZetToeleveringHeader("209822",1,"dit is de toeleveringheader")
+	
+	Do $$$AssertEquals( ..BLOrdRspService.MultiDim("209822",1) ,"dit is de toeleveringheader")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ZetToeleveringLijn zet de lijn in de global met de juiste subscripts ">
+<Implementation><![CDATA[
+	Do ..BLOrdRspService.ZetToeleveringLijn("209822","01",2,"dit is de toeleveringlijn")
+	
+	Do $$$AssertEquals( ..BLOrdRspService.MultiDim("209822","01",2) ,"dit is de toeleveringlijn")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml	(revision 36942)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.Migratie.ImporteerLaatsteCOAInBLOrdRsp">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BLImpService">
+<Type>APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService</Type>
+</Property>
+
+<Property name="BLOrdRspService">
+<Type>APPS.EDIExport.AankoopOrderResponse.Migratie.BLOrdRspService</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BLImpService:APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService,BLOrdRspService:APPS.EDIExport.AankoopOrderResponse.Migratie.BLOrdRspService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..BLImpService = $$$Inject(BLImpService,##class(APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService).%New())
+	set ..BLOrdRspService = $$$Inject(BLOrdRspService,##class(APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLOrdRspService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Importeer">
+<Implementation><![CDATA[
+	#dim berichtindex as %Integer = 0
+	#dim berichtlijnen as %ListOfDataTypes
+	#dim berichtlijnIterator as TECH.ListIterator
+	#dim lijnnr as %Integer = 0
+	#dim lijn as %String
+	Set berichtindex = ..BLImpService.GeefRecentsteVerwerktCOABerichtIndex()
+	if berichtindex {
+		do ..BLOrdRspService.ZetBerichtHeader(..BLImpService.GeefBerichtHeader(berichtindex))
+		set berichtlijnen = ..BLImpService.GeefBerichtLijnen(berichtindex)
+		set berichtlijnIterator = ##class(TECH.ListIterator).%New(berichtlijnen)
+		while berichtlijnIterator.HasNext() {
+			set lijn = berichtlijnIterator.Next()
+			set lijnnr = lijnnr + 1
+			if ..GeefTypeVanLijn(lijn) = "11" {
+				Do ..BLOrdRspService.ZetToeleveringheader(..GeefToeleveringNrVanLijn(lijn),lijnnr,lijn)
+			} elseif ..GeefTypeVanLijn(lijn) = "22" {
+				Do ..BLOrdRspService.ZetToeleveringLijn(..GeefToeleveringNrVanLijn(lijn),..GeefToeleveringLijnNrVanLijn(lijn),lijnnr,lijn)				
+			} else {
+				;onbekend lijn type voor dit bericht, negeren
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTypeVanLijn">
+<FormalSpec>lijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $Extract(lijn, 2,3)
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringNrVanLijn">
+<FormalSpec>lijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if ..GeefTypeVanLijn(lijn)="11"{
+		quit $Extract(lijn,20,25)
+	}elseif ..GeefTypeVanLijn(lijn)="22"{
+		quit $Extract(lijn,4,9)
+	} else{
+		quit ""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringLijnNrVanLijn">
+<FormalSpec>lijn:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if ..GeefTypeVanLijn(lijn)="22"{
+		quit $Extract(lijn,11,12)
+	} else {
+		quit ""
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml	(revision 36942)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.Migratie.BLOrdRspService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrderResponse.Migratie.BLOrdRspService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="ZetBerichtHeader">
+<FormalSpec>Header:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBerichtHeader",Header)
+]]></Implementation>
+</Method>
+
+<Method name="ZetToeleveringHeader">
+<FormalSpec>ToeleveringNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetToeleveringHeader",ToeleveringNr,lijnnr,lijn)
+]]></Implementation>
+</Method>
+
+<Method name="ZetToeleveringLijn">
+<FormalSpec>ToeleveringNr:%String,ToeleveringLijnNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetToeleveringLijn",ToeleveringNr,ToeleveringLijnNr,lijnnr,lijn)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml	(revision 36942)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLOrdRspService">
+<Super>TECH.RegisteredObject,APPS.EDIExport.AankoopOrderResponse.Migratie.BLOrdRspService</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>^BLOrdRsp</Default>
+</Parameter>
+
+<Method name="ZetBerichtHeader">
+<FormalSpec>Header:%String</FormalSpec>
+<Implementation><![CDATA[	Set @..#Global(0) = Header
+]]></Implementation>
+</Method>
+
+<Method name="ZetToeleveringHeader">
+<FormalSpec>ToeleveringNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
+<Implementation><![CDATA[	Set @..#Global(ToeleveringNr,lijnnr) = lijn
+]]></Implementation>
+</Method>
+
+<Method name="ZetToeleveringLijn">
+<FormalSpec>ToeleveringNr:%String,ToeleveringLijnNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
+<Implementation><![CDATA[	Set @..#Global(ToeleveringNr,ToeleveringLijnNr,lijnnr) = lijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml	(revision 36942)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefBerichtHeader">
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBerichtHeader",BerichtIndex)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerichtLijnen">
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBerichtLijnen",BerichtIndex)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRecentsteVerwerktCOABerichtIndex">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRecentsteVerwerktCOABerichtIndex")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp/Test.cls.xml	(revision 36942)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.Migratie.ImporteerLaatsteCOAInBLOrdRsp.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Importeerder">
+<Type>APPS.EDIExport.AankoopOrderResponse.Migratie.ImporteerLaatsteCOAInBLOrdRsp</Type>
+</Property>
+
+<Property name="BLOrdRspService">
+<Type>vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.Migratie.BLOrdRspService</Type>
+</Property>
+
+<Property name="BLImpService">
+<Type>vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestName)
+	Set ..BLOrdRspService = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.Migratie.BLOrdRspService).%New()	
+	Set ..BLImpService = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService).%New()
+
+	set ..Importeerder = ##class(APPS.EDIExport.AankoopOrderResponse.Migratie.ImporteerLaatsteCOAInBLOrdRsp).%New(..BLImpService,..BLOrdRspService)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Importeer vraagt de index van het recentste verwerkte COA bericht">
+<Implementation><![CDATA[
+	Do ..BLImpService.VerwachtMethodCall("GeefRecentsteVerwerktCOABerichtIndex").DanReturn(0)
+	
+	Do ..Importeerder.Importeer()
+	
+	Do ..BLImpService.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Importeer vraagt de Header op van het recentste verwerkte COA bericht">
+<Implementation><![CDATA[
+	#dim lijnen as List of %String = ##class(%ListOfDataTypes).%New()
+	Do ..BLImpService.VerwachtMethodCall("GeefRecentsteVerwerktCOABerichtIndex").DanReturn(1)
+	Do ..BLImpService.VerwachtMethodCall("GeefBerichtHeader",1).DanReturn("dit is de header")
+	Do ..BLImpService.IndienMethodCall("GeefBerichtLijnen",1).DanReturn(lijnen)
+	Do ..BLOrdRspService.IndienMethodCall("ZetBerichtHeader","dit is de header").DanDoeNiks()
+	
+	Do ..Importeerder.Importeer()
+	
+	Do ..BLImpService.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Importeer Zet de opgevraagde header in BLOrdRsp">
+<Implementation><![CDATA[
+	#dim lijnen as List of %String = ##class(%ListOfDataTypes).%New()
+	Do ..BLImpService.IndienMethodCall("GeefRecentsteVerwerktCOABerichtIndex").DanReturn(1)
+	Do ..BLImpService.IndienMethodCall("GeefBerichtHeader",1).DanReturn("dit is de header")
+	Do ..BLImpService.IndienMethodCall("GeefBerichtLijnen",1).DanReturn(lijnen)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetBerichtHeader","dit is de header").DanDoeNiks()
+	
+	Do ..Importeerder.Importeer()
+	
+	Do ..BLOrdRspService.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Importeer vraagt de lijnen van het recents verwerkte COA bericht op">
+<Implementation><![CDATA[
+	#dim lijnen as List of %String = ##class(%ListOfDataTypes).%New()
+	Do ..BLImpService.VerwachtMethodCall("GeefRecentsteVerwerktCOABerichtIndex").DanReturn(1)
+	Do ..BLImpService.VerwachtMethodCall("GeefBerichtHeader",1).DanReturn("dit is de header")
+	Do ..BLOrdRspService.IndienMethodCall("ZetBerichtHeader","dit is de header").DanDoeNiks()
+	Do ..BLImpService.VerwachtMethodCall("GeefBerichtLijnen",1).DanReturn(lijnen)
+	
+	Do ..Importeerder.Importeer()
+	
+	Do ..BLImpService.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: Importeer roept 2 maal ZetToeleveringheader met de juiste parameters op">
+<Implementation><![CDATA[
+	Set ..BLImpService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService).%New()
+	Set ..Importeerder = ##class(APPS.EDIExport.AankoopOrderResponse.Migratie.ImporteerLaatsteCOAInBLOrdRsp).%New(..BLImpService,..BLOrdRspService)
+	
+	;Do ..BLOrdRspService.ZetToeleveringheader(..GeefToeleveringNrVanLijn(lijn),lijnnr,lijn)
+	;Do ..BLOrdRspService.ZetToeleveringLijn(..GeefToeleveringNrVanLijn(lijn),..GeefToeleveringLijnNrVanLijn(lijn),lijnnr,lijn)				
+
+	
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringheader",..BLImpService.GeefBerichtHeader(7365))
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetBerichtHeader",..BLImpService.GeefBerichtHeader(7365))
+	
+
+	Do ..Importeerder.Importeer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/BLImpService.cls.xml	(revision 36942)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefRecentsteVerwerktCOABerichtIndex">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="GeefBerichtHeader">
+<Abstract>1</Abstract>
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefBerichtLijnen">
+<Abstract>1</Abstract>
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml	(revision 36942)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService">
+<Super>TECH.RegisteredObject,APPS.EDIExport.AankoopOrderResponse.Migratie.BLImpService</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>^BLImp</Default>
+</Parameter>
+
+<Method name="GeefRecentsteVerwerktCOABerichtIndex">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#Dim msgnr as %Integer = ""
+	#Dim jongsteberichtindex as %Integer = 0	
+	#Dim comparator as TECH.Comparator.DateAsStringComparator = ##class(TECH.Comparator.DateAsStringComparator).%New("DK","DK")
+	set msgnr = $Order(@..#Global(msgnr),-1)
+	WHILE $$$Not(msgnr=""){
+		if $Piece(@..#Global(msgnr),"\",3) = "COA" && $Piece(@..#Global(msgnr),"\",12)="1" {
+			set:(jongsteberichtindex=0) jongsteberichtindex = msgnr
+			if (comparator.IsKleinerDan($Piece(@..#Global(jongsteberichtindex),"\",6),$Piece(@..#Global(msgnr),"\",6))) {
+				set jongsteberichtindex	= msgnr			
+			}
+		}			
+		set msgnr = $Order(@..#Global(msgnr),-1)
+	}
+	quit jongsteberichtindex
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerichtHeader">
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit @..#Global(BerichtIndex)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerichtLijnen">
+<FormalSpec>BerichtIndex:%Integer</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim lijnen as List of %String = ##class(%ListOfDataTypes).%New()
+	#dim lijnnr as %Integer = 0
+	Set lijnnr = $Order(@..#Global(BerichtIndex,lijnnr))
+	While $$$Not(lijnnr = "") {
+		Do lijnen.Insert(@..#Global(BerichtIndex,lijnnr))
+		Set lijnnr = $Order(@..#Global(BerichtIndex,lijnnr))
+	}
+	quit lijnen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLImpService.cls.xml	(revision 36942)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService">
+<Super>APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLImpService</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>..MultiDim</Default>
+</Parameter>
+
+<Property name="MultiDim">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="Setup">
+<FormalSpec>MultiDim:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ..MultiDim
+	Merge ..MultiDim = MultiDim
+]]></Implementation>
+</Method>
+
+<Method name="ZetBLImpData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Data(7350)	=	"BAU05065\5005\COA\SO\C\31-05-16\2200\1413\BRANDL A.\ROOS\1\1"
+	Set Data(7350,1)	=	"""110002500100025001208398      000781903      W30G L 160526N""                                                                  E"
+	Set Data(7350,2)	=	"""22208398.62  010000185095100100000000021.07216060620V      0000021.07000000000          ""L               2016060620160608     ."
+	Set Data(7350,3)	=	"""110022500100225001203578      000775989      W30G L 160503N""                                                                  E"
+	Set Data(7350,4)	=	"""22203578.49  070000587614000003500000283.82216060620V      0000312.83000000000          ""L               2016060620160608     ."
+	Set Data(7350,5)	=	"""22203578.50  080000318796000003000000321.75216060620V      0000354.64000000000          ""L               2016060620160608     ."
+	Set Data(7350,6)	=	"""22203578.51  090000116549000003200000063.38216060620V      0000069.86000000000          ""L               2016060620160608     ."
+	Set Data(7350,7)	=	"""110022500100225001205414      000778509      W30G L 160512N""                                                                  E"
+	Set Data(7350,8)	=	"""22205414.02  010000183718000001000000314.36216061320V      0000346.49000000000          ""L               2016061320160615     ."
+	Set Data(7350,9)	=	"""110022500100225001205686      000778938      W30G L 160513N""                                                                  E"
+	Set Data(7350,10)	=	"""22205686.06  010000628515400015000000007.77216060620V      0000008.56000000000          ""L               2016060620160608     ."
+	Set Data(7350,11)	=	"""110022500100225001207073      000780530      W30G L 160520N""                                                                  E"
+	Set Data(7350,12)	=	"""22207073.24  030000111067000010000000093.69216062720V      0000103.27000000000          ""L               2016062720160629     ."
+	Set Data(7350,13)	=	"""22207073.29  040000348539000000360000359.50216062020V      0000396.25000000000          ""L               2016062020160622     ."
+	Set Data(7350,14)	=	"""22207073.30  050000344568000002400000165.15216062720V      0000182.03000000000          ""L               2016062720160629     ."
+	Set Data(7350,15)	=	"""22207073.31  060000318745000003000000182.17216062020V      0000200.79000000000          ""L               2016062020160622     ."
+	Set Data(7350,16)	=	"""22207073.32  070000318796000003000000321.75216062720V      0000354.64000000000          ""L               2016062720160629     ."
+	Set Data(7350,17)	=	"""22207073.33  080000116565000003200000067.99216062720V      0000074.94000000000          ""L               2016062720160629     ."
+	Set Data(7350,18)	=	"""22207073.56  100000134516300100000000008.86216061320V      0000009.77000000000          ""L               2016061320160615     ."
+	; geen COA
+	Set Data(7330)	=	"BAU99349\5005\CSB\SO\C\15-09-16\0952\177\NINA ZANGE\\1\1"
+    Set Data(7330,1)	=	"""11897841Van Höcke -XL       L                                150400""                                                          ."
+    Set Data(7330,2)	=	"""19SEAL(S):    AT082383                                                                                                    ""   ."
+    Set Data(7330,3)	=	"""21294887160521E    000660000000000000000000021324.8318900.710000000.00212250""                                                 ."
+    Set Data(7330,4)	=	"""22*VAN HOECKE NV*MEUBELBESLAG*EUROPARK-NOORD 9*9100 SINT NIKLAAS*BELGIEN*                                                 ""   ."
+    Set Data(7330,5)	=	"""3184959701160521160521W30000000936.920000000.00002250002250S22L01N""                                                           ."
+    Set Data(7330,6)	=	"""39LIEFERBEDINGUNG: DAP SINT NIKLAAS                                                                                       ""   ."
+    Set Data(7330,7)	=	"""39ZAHLUNGSBEDINGUNG: AM 20. DES DEM RECHNUNGSDATUM FOLGENDEN                                                              ""   ."
+    Set Data(7330,8)	=	"""39                   MONATS - 3 % SKONTO                                                                                  ""   ."
+    Set Data(7330,9)	=	"""4177324505000CE201197.32  0111067000010000001000000000936.9200441.23                   940390STAT""10                          ."
+    Set Data(7330,10)	=	"""44  0033970912000400000025            000000000000            000000000000            000000000000            000000000000""   ."
+	
+	Set Data(7361)	=	"BAU789702\5005\COA\SO\C\07-07-16\1200\10\\\1\1"
+    Set Data(7361,1)	=	"""112712500127125001209820      000789702      W30G L 160707                     """
+    Set Data(7361,2)	=	"""22209820.03       0906764700028800000609.45216090623V      0000000.00          """
+    Set Data(7361,3)	=	"""22209820.01       0429224400002560000128.14216072723V      0000000.00          """
+    Set Data(7361,4)	=	"""22209820.02       0168647700001280000243.91216072723V      0000000.00          """
+    Set Data(7361,5)	=	"""22209820.05       0580911200019200000475.69216081023V      0000000.00          """
+    Set Data(7361,6)	=	"""22209820.04       0580911200001920000475.69216081023V      0000000.00          """
+    Set Data(7361,7)	=	"""22209820.06       0580830200001920000475.69216081023V      0000000.00          """
+    Set Data(7361,8)	=	"""22209820.07       0538540200004000000317.31216070623V      0000000.00          """
+    Set Data(7361,9)	=	"""22209820.08       0538966200006000000317.31216070623V      0000000.00          """
+    Set Data(7361,10)	=	"""22209820.09       0652223400004800000258.28216070623V      0000000.00          """
+    ;dit is het recentste verwerkte COA bericht
+    Set Data(7365)	=	"BAU804996\5005\COA\SO\C\14-09-16\1200\9\\\1\1"
+    Set Data(7365,1)	=	"""112712500127125001209822      000804995      W30G L 160914                     """
+    Set Data(7365,2)	=	"""22209822.01       0378220500001440000290.63216101923V      0000000.00          """
+    Set Data(7365,3)	=	"""22209822.02       0417985200000920000331.46216100323V      0000000.00          """
+    Set Data(7365,4)	=	"""22209822.02       0417985200001000000331.46216101023V      0000000.00          """
+    Set Data(7365,5)	=	"""22209822.03       0424438400000000000331.462      00V      0000000.00          """
+    Set Data(7365,6)	=	"""22209822.04       0251181000000000000295.842      00V      0000000.00          """
+    Set Data(7365,7)	=	"""22209822.05       0253367100000000000295.842      00V      0000000.00          """
+    Set Data(7365,8)	=	"""112712500127125001209823      000804996      W30G L 160914                     """
+    Set Data(7365,9)	=	"""22209823.01       0378220500001440000290.63216101923V      0000000.00          """
+
+    ;dit is het recentste NIET verwerkte COA bericht
+    Set Data(7366)	=	"BAU804996\5005\COA\SO\C\15-09-16\1200\9\\\1\"
+    Set Data(7366,1)	=	"""112712500127125001209822      000804995      W30G L 160914                     """
+    Set Data(7366,2)	=	"""22209822.01       0378220500001440000290.63216101923V      0000000.00          """
+    Set Data(7366,3)	=	"""22209822.02       0417985200000920000331.46216100323V      0000000.00          """
+    Set Data(7366,4)	=	"""22209822.02       0417985200001000000331.46216101023V      0000000.00          """
+    Set Data(7366,5)	=	"""22209822.03       0424438400000000000331.462      00V      0000000.00          """
+    Set Data(7366,6)	=	"""22209822.04       0251181000000000000295.842      00V      0000000.00          """
+    Set Data(7366,7)	=	"""22209822.05       0253367100000000000295.842      00V      0000000.00          """
+    Set Data(7366,8)	=	"""112712500127125001209823      000804996      W30G L 160914                     """
+    Set Data(7366,9)	=	"""22209823.01       0378220500001440000290.63216101923V      0000000.00          """
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml	(revision 36942)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLOrdRspService">
+<Super>APPS.EDIExport.AankoopOrderResponse.Migratie.impl.BLOrdRspService</Super>
+
+<Parameter name="Global">
+<Type>%String</Type>
+<Default>..MultiDim</Default>
+</Parameter>
+
+<Property name="MultiDim">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="Setup">
+<FormalSpec>MultiDim:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ..MultiDim
+	Merge ..MultiDim = MultiDim
+]]></Implementation>
+</Method>
+
+<Method name="ZetBLOrdRspData">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Data:%String</FormalSpec>
+<Implementation><![CDATA[	set Data(0) = ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>