Index: vhTest/Spy/APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml
===================================================================
diff -u
--- vhTest/Spy/APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(revision 0)
+++ vhTest/Spy/APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(revision 34304)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.TariefRepository">
+<Super>APPS.TRANSP.Offerte.impl.DHL.TariefRepository</Super>
+
+<Property name="ToegevoegdeLijnen">
+<Type>%ListOfObjects</Type>
+</Property>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	Do ..ToegevoegdeLijnen.Insert(Data)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalToegevoegdeLijnen">
+<Implementation><![CDATA[	Quit ..ToegevoegdeLijnen.Count()
+]]></Implementation>
+</Method>
+
+<Method name="GeefToegevoegdeLijn">
+<FormalSpec>Item:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ToegevoegdeLijnen.GetAt(Item)
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaLandEnPostCode">
+<FormalSpec>LandCode:%String,Postcode:%String</FormalSpec>
+<ReturnType>APPS.TRANSP.Offerte.impl.DHL.Tarief</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefImporter/ImportFile/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefImporter/ImportFile/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefImporter/ImportFile/Test.cls.xml	(revision 34304)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.TariefImporter.ImportFile.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ">
+<Implementation><![CDATA[
+	#dim FileAPIFake As vhTest.Mock.TECH.File.FileAPI = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	
+	#dim Header As %String = "	Country	Key	100	200	300	400	500	600	700	800	900	1000	1250	1500	1750	2000	2250	2500	3000	3500	4000	4500	5000	5500	6000	6500	7000	7500	8000	8500	9000	9500	10000	10500	11000	11500	12000	12500	13000	13500	14000	14500	15000	15500	16000	16500	17000	17500	18000	18500	19000	19500	20000	20500	21000	21500	22000	22500	23000	FTL	"
+	#dim Lijn1 As %String = "	AT	AT10	 43,62 	 57,59 	 71,44 	 84,45 	 97,36 	 108,95 	 120,50 	 133,19 	 146,58 	 156,99 	 192,35 	 225,43 	 260,03 	 289,11 	 302,72 	 316,08 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	"
+	#dim Lijn2 As %String = "	AT	AT11	 43,62 	 57,59 	 71,44 	 84,45 	 97,36 	 108,95 	 120,50 	 133,19 	 146,58 	 156,99 	 192,35 	 225,43 	 260,03 	 289,11 	 302,72 	 316,08 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	 On Request 	"
+	#dim TestValues As %List = $LB(Header,Lijn1,Lijn2)
+	
+	#dim FileReaderStub As vhTest.Stub.TECH.File.FileReader = ##class(vhTest.Stub.TECH.File.FileReader).%New(TestValues)
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileAPIFake.IndienMethodCall("GeefFileReader",$$$ElkeWaarde).DanReturn(FileReaderStub)
+
+	#dim TariefRepositorySpy As vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.TariefRepository = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.TariefRepository).%New()
+
+	#dim TariefImporter As APPS.TRANSP.Offerte.impl.DHL.TariefImporter = ##class(APPS.TRANSP.Offerte.impl.DHL.TariefImporter).%New(FileAPIFake, TariefRepositorySpy)
+	Do TariefImporter.ImportFile()
+	
+	Do $$$AssertEquals(TariefRepositorySpy.GeefAantalToegevoegdeLijnen(),2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/TariefImporter.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Offerte/impl/DHL/TariefImporter.cls.xml	(revision 0)
+++ APPS/TRANSP/Offerte/impl/DHL/TariefImporter.cls.xml	(revision 34304)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Offerte.impl.DHL.TariefImporter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TariefRepository">
+<Type>APPS.TRANSP.Offerte.impl.DHL.TariefRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI,TariefRepository:APPS.TRANSP.Offerte.impl.DHL.TariefRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FileAPI = $$$Inject(FileAPI, ##class(TECH.Context).%New().GeefFileAPI())
+	Set ..TariefRepository = $$$Inject(TariefRepository, ##class(APPS.TRANSP.Offerte.impl.DHL.TariefRepository).%New())
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ImportFile">
+<FormalSpec>FileName:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>