Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp/Test.cls.xml
===================================================================
diff -u -r36942 -r36949
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp/Test.cls.xml	(.../Test.cls.xml)	(revision 36942)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp/Test.cls.xml	(.../Test.cls.xml)	(revision 36949)
@@ -78,20 +78,29 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: Importeer roept 2 maal ZetToeleveringheader met de juiste parameters op">
+<Method name="Test: 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)
+	Set MyBLImpService = ##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 MyBLImpService.Setup(.BLImpData)
 	
-	;Do ..BLOrdRspService.ZetToeleveringheader(..GeefToeleveringNrVanLijn(lijn),lijnnr,lijn)
-	;Do ..BLOrdRspService.ZetToeleveringLijn(..GeefToeleveringNrVanLijn(lijn),..GeefToeleveringLijnNrVanLijn(lijn),lijnnr,lijn)				
+	Set ..Importeerder = ##class(APPS.EDIExport.AankoopOrderResponse.Migratie.ImporteerLaatsteCOAInBLOrdRsp).%New(MyBLImpService,..BLOrdRspService)	
 
-	
-	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringheader",..BLImpService.GeefBerichtHeader(7365))
-	Do ..BLOrdRspService.VerwachtMethodCall("ZetBerichtHeader",..BLImpService.GeefBerichtHeader(7365))
-	
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetBerichtHeader","BAU804996\5005\COA\SO\C\14-09-16\1200\9\\\1\1")
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringHeader","209822","""112712500127125001209822      000804995      W30G L 160914                     """)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringLijn","209822","01",1,"""22209822.01       0378220500001440000290.63216101923V      0000000.00          """)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringLijn","209822","02",2,"""22209822.02       0417985200000920000331.46216100323V      0000000.00          """)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringLijn","209822","02",3,"""22209822.02       0417985200001000000331.46216101023V      0000000.00          """)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringLijn","209822","03",4,"""22209822.03       0424438400000000000331.462      00V      0000000.00          """)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringLijn","209822","04",5,"""22209822.04       0251181000000000000295.842      00V      0000000.00          """)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringLijn","209822","05",6,"""22209822.05       0253367100000000000295.842      00V      0000000.00          """)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringHeader","209823","""112712500127125001209823      000804996      W30G L 160914                     """)
+	Do ..BLOrdRspService.VerwachtMethodCall("ZetToeleveringLijn","209823","01",1,"""22209823.01       0378220500001440000290.63216101923V      0000000.00          """)
 
 	Do ..Importeerder.Importeer()
+	
+	Do ..BLOrdRspService.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r36942 -r36949
--- APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 36942)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 36949)
@@ -15,8 +15,8 @@
 </Method>
 
 <Method name="ZetToeleveringHeader">
-<FormalSpec>ToeleveringNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
-<Implementation><![CDATA[	Set @..#Global(ToeleveringNr,lijnnr) = lijn
+<FormalSpec>ToeleveringNr:%String,lijn:%String</FormalSpec>
+<Implementation><![CDATA[	Set @..#Global(ToeleveringNr) = lijn
 ]]></Implementation>
 </Method>
 
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml
===================================================================
diff -u -r36942 -r36949
--- APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 36942)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 36949)
@@ -11,7 +11,7 @@
 
 <Method name="ZetToeleveringHeader">
 <Abstract>1</Abstract>
-<FormalSpec>ToeleveringNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
+<FormalSpec>ToeleveringNr:%String,lijn:%String</FormalSpec>
 </Method>
 
 <Method name="ZetToeleveringLijn">
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService/Test.cls.xml
===================================================================
diff -u -r36942 -r36949
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService/Test.cls.xml	(.../Test.cls.xml)	(revision 36942)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/Migratie/impl/BLOrdRspService/Test.cls.xml	(.../Test.cls.xml)	(revision 36949)
@@ -27,9 +27,9 @@
 
 <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 ..BLOrdRspService.ZetToeleveringHeader("209822","dit is de toeleveringheader")
 	
-	Do $$$AssertEquals( ..BLOrdRspService.MultiDim("209822",1) ,"dit is de toeleveringheader")
+	Do $$$AssertEquals( ..BLOrdRspService.MultiDim("209822") ,"dit is de toeleveringheader")
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml
===================================================================
diff -u -r36942 -r36949
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 36942)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/Migratie/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 36949)
@@ -16,8 +16,8 @@
 </Method>
 
 <Method name="ZetToeleveringHeader">
-<FormalSpec>ToeleveringNr:%String,lijnnr:%Integer,lijn:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetToeleveringHeader",ToeleveringNr,lijnnr,lijn)
+<FormalSpec>ToeleveringNr:%String,lijn:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetToeleveringHeader",ToeleveringNr,lijn)
 ]]></Implementation>
 </Method>
 
Index: APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml
===================================================================
diff -u -r36942 -r36949
--- APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml	(.../ImporteerLaatsteCOAInBLOrdRsp.cls.xml)	(revision 36942)
+++ APPS/EDIExport/AankoopOrderResponse/Migratie/ImporteerLaatsteCOAInBLOrdRsp.cls.xml	(.../ImporteerLaatsteCOAInBLOrdRsp.cls.xml)	(revision 36949)
@@ -32,16 +32,19 @@
 	#dim lijnnr as %Integer = 0
 	#dim lijn as %String
 	Set berichtindex = ..BLImpService.GeefRecentsteVerwerktCOABerichtIndex()
+	Do ##class(Tools.Wlip).%New(207).String("ID geimporteerd COA bericht "_ berichtindex)
 	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)
+				Do ..BLOrdRspService.ZetToeleveringHeader(..GeefToeleveringNrVanLijn(lijn),lijn)
+				Set lijnnr = 0
 			} elseif ..GeefTypeVanLijn(lijn) = "22" {
+				set lijnnr = lijnnr + 1
 				Do ..BLOrdRspService.ZetToeleveringLijn(..GeefToeleveringNrVanLijn(lijn),..GeefToeleveringLijnNrVanLijn(lijn),lijnnr,lijn)				
 			} else {
 				;onbekend lijn type voor dit bericht, negeren