Index: chUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml
===================================================================
diff -u
--- chUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml	(revision 0)
+++ chUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml	(revision 34195)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="chUnitTest.APPS.TRANSP.Offerte.impl.DHL.TransportduurImporter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Importeer een DHL bestand met transportduur gegevens.">
+<Implementation><![CDATA[
+	#dim FileAPIFake As vhTest.Mock.TECH.File.FileAPI = ##class(vhTest.Mock.TECH.File.FileAPI).%New()
+	#dim TransportduurRepositorySpy As vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
+	#dim DummyValues As %List = $LB("Country	Postal code 5-digits	Monday	Tuesday	Wednesday	Thursday	Friday","DE	01067	3	4	1	2	5","DE	01069	3	3	3	3	3")
+	#dim FileReader As vhTest.Fake.TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(DummyValues)
+	#dim FileUtils As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileAPIFake.IndienMethodCall("GeefFileReader",$$$ElkeWaarde).DanReturn(FileReader)
+	Do FileAPIFake.IndienMethodCall("GeefFileUtils").DanReturn(FileUtils)
+	
+	#dim TransportDuurImporter As APPS.TRANSP.Offerte.impl.DHL.TransportduurImporter = ##class(APPS.TRANSP.Offerte.impl.DHL.TransportduurImporter).%New(FileAPIFake, TransportduurRepositorySpy)
+	#dim FileName As %String = ""
+	
+	Do TransportDuurImporter.ImportFile(FileName,1)
+	
+	Do $$$AssertEquals(TransportduurRepositorySpy.GeefAantalToegevoegdeLijnen(),2)
+	#dim ToegevoegdeLijn As APPS.TRANSP.Offerte.impl.DHL.Transportduur = TransportduurRepositorySpy.GeefToegevoegdeLijn(1)
+	Do $$$AssertEquals(ToegevoegdeLijn.Landcode, "DE")
+	Do $$$AssertEquals(ToegevoegdeLijn.Postcode, "01067")
+	Do $$$AssertEquals(ToegevoegdeLijn.DuurtijdPerWeekdagNr.Count() , 5)
+	Do $$$AssertEquals(ToegevoegdeLijn.DuurtijdPerWeekdagNr.GetAt(1) , 3)
+	Do $$$AssertEquals(ToegevoegdeLijn.DuurtijdPerWeekdagNr.GetAt(2) , 4)
+	Do $$$AssertEquals(ToegevoegdeLijn.DuurtijdPerWeekdagNr.GetAt(3) , 1)
+	Do $$$AssertEquals(ToegevoegdeLijn.DuurtijdPerWeekdagNr.GetAt(4) , 2)
+	Do $$$AssertEquals(ToegevoegdeLijn.DuurtijdPerWeekdagNr.GetAt(5) , 5)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/TECH/File/FileUtils.cls.xml
===================================================================
diff -u
--- vhTest/Fake/TECH/File/FileUtils.cls.xml	(revision 0)
+++ vhTest/Fake/TECH/File/FileUtils.cls.xml	(revision 34195)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.TECH.File.FileUtils">
+<Super>TECH.File.FileUtils</Super>
+
+<Method name="BestandBestaat">
+<FormalSpec>FileName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml	(revision 0)
+++ APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml	(revision 34195)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Offerte.impl.DHL.TransportduurImporter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TransportduurRepository">
+<Type>APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI,TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository</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 ..TransportduurRepository = $$$Inject(TransportduurRepository, ##class(APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New())
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ImportFile">
+<FormalSpec>FileName:%String,SkipFirstRow:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerOfBestandBestaat()
+	
+	#dim FileReader As TECH.File.FileReader = ..FileAPI.GeefFileReader(FileName)
+	
+	If (SkipFirstRow && 'FileReader.AtEnd()) { Do FileReader.ReadLine()}	
+	
+	while 'FileReader.AtEnd() {
+		#dim Line As %String = FileReader.ReadLine()
+		#dim TransportDuur As APPS.TRANSP.Offerte.impl.DHL.Transportduur = ##class(APPS.TRANSP.Offerte.impl.DHL.Transportduur).%New()
+		set TransportDuur.Landcode = $piece(Line,$C(9),1)
+		set TransportDuur.Postcode = $piece(Line,$C(9),2)
+		#dim Counter As %Integer
+		for Counter=1:1:5 {
+			Do TransportDuur.DuurtijdPerWeekdagNr.SetAt($piece(Line,$C(9),Counter + 2), Counter)
+		}
+		Do ..TransportduurRepository.Bewaar(TransportDuur)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerOfBestandBestaat">
+<FormalSpec>FileName:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do:('..FileAPI.GeefFileUtils().BestandBestaat(FileName)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Bestand niet gevonden",0))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Spy/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml
===================================================================
diff -u
--- vhTest/Spy/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml	(revision 0)
+++ vhTest/Spy/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository.cls.xml	(revision 34195)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository">
+<Super>APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository</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>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/TECH/File/FileAPI.cls.xml
===================================================================
diff -u -r29059 -r34195
--- vhTest/Mock/TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 29059)
+++ vhTest/Mock/TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 34195)
@@ -43,6 +43,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFileUtils">
+<ReturnType>TECH.File.FileUtils</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFileUtils")
+]]></Implementation>
+</Method>
+
 <Method name="GeefFileWriter">
 <ReturnType>TECH.File.FileWriter</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefFileWriter")
Index: vhTest/Fake/TECH/File/FileReader.cls.xml
===================================================================
diff -u
--- vhTest/Fake/TECH/File/FileReader.cls.xml	(revision 0)
+++ vhTest/Fake/TECH/File/FileReader.cls.xml	(revision 34195)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.TECH.File.FileReader">
+<Super>TECH.File.FileReader,TECH.RegisteredObject</Super>
+
+<Property name="FakeList">
+<Type>TECH.ListbuildIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FakeList:%List=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FakeList = ##class(TECH.ListbuildIterator).%New(FakeList)
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefStream">
+<ReturnType>%FileCharacterStream</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Close">
+<Implementation><![CDATA[	Do ..FakeList.%Close()
+]]></Implementation>
+</Method>
+
+<Method name="ReadLine">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..FakeList.Next()
+]]></Implementation>
+</Method>
+
+<Method name="HasNextLine">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..FakeList.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="AtEnd">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit '..FakeList.HasNext()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>