Index: vhTest/Fake/TECH/File/FileUtils.cls.xml
===================================================================
diff -u -r34195 -r34212
--- vhTest/Fake/TECH/File/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 34195)
+++ vhTest/Fake/TECH/File/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 34212)
@@ -3,12 +3,39 @@
 <Class name="vhTest.Fake.TECH.File.FileUtils">
 <Super>TECH.File.FileUtils</Super>
 
-<Method name="BestandBestaat">
+<Property name="FileList">
+<Type>TECH.FileInfo</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="FileExists">
 <FormalSpec>FileName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>
+
+<Method name="GetFileList">
+<FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..FileList
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeFileInfo">
+<FormalSpec>FullName:%String,DateCreated:%Date="",DateModified:%Date="",Size:%Integer=0,Type:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	set Info = ##class(TECH.FileInfo).%New()
+	set Info.Name = FullName
+	set Info.DateCreated = DateCreated
+	set Info.DateModified = DateModified
+	set Info.Size = Size
+	set Info.Type = Type
+	
+	do ..FileList.Insert(Info)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter/Test.cls.xml	(revision 34212)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.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 TestValues 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 FileReaderFake As vhTest.Fake.TECH.File.FileReader = ##class(vhTest.Fake.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(FileReaderFake)
+	Do FileAPIFake.IndienMethodCall("GeefFileUtils").DanReturn(FileUtilsFake)
+	
+	#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 TransportDuurResultaat As APPS.TRANSP.Offerte.impl.DHL.Transportduur = TransportduurRepositorySpy.GeefToegevoegdeLijn(1)
+	Do $$$AssertEquals(TransportDuurResultaat.Landcode, "DE")
+	Do $$$AssertEquals(TransportDuurResultaat.Postcode, "01067")
+	Do $$$AssertEquals(TransportDuurResultaat.DuurtijdPerWeekdagNr.Count() , 5)
+	Do $$$AssertEquals(TransportDuurResultaat.DuurtijdPerWeekdagNr.GetAt(1) , 3)
+	Do $$$AssertEquals(TransportDuurResultaat.DuurtijdPerWeekdagNr.GetAt(2) , 4)
+	Do $$$AssertEquals(TransportDuurResultaat.DuurtijdPerWeekdagNr.GetAt(3) , 1)
+	Do $$$AssertEquals(TransportDuurResultaat.DuurtijdPerWeekdagNr.GetAt(4) , 2)
+	Do $$$AssertEquals(TransportDuurResultaat.DuurtijdPerWeekdagNr.GetAt(5) , 5)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Importeer bestanden met DHL 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 TestValues 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 FileReaderFake As vhTest.Fake.TECH.File.FileReader = ##class(vhTest.Fake.TECH.File.FileReader).%New(TestValues)
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo("DHL-DE.txt")
+	Do FileAPIFake.IndienMethodCall("GeefFileReader",$$$ElkeWaarde).DanReturn(FileReaderFake)
+	Do FileAPIFake.IndienMethodCall("GeefFileUtils").DanReturn(FileUtilsFake)
+	
+	#dim TransportDuurImporter As APPS.TRANSP.Offerte.impl.DHL.TransportduurImporter = ##class(APPS.TRANSP.Offerte.impl.DHL.TransportduurImporter).%New(FileAPIFake, TransportduurRepositorySpy)
+	#dim PathDummy As %String = ""
+	
+	Do TransportDuurImporter.ImportFiles(PathDummy)
+	
+	Do $$$AssertEquals(TransportduurRepositorySpy.GeefAantalToegevoegdeLijnen(),2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml
===================================================================
diff -u -r34195 -r34212
--- APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml	(.../TransportduurImporter.cls.xml)	(revision 34195)
+++ APPS/TRANSP/Offerte/impl/DHL/TransportduurImporter.cls.xml	(.../TransportduurImporter.cls.xml)	(revision 34212)
@@ -52,9 +52,37 @@
 <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><![CDATA[	Do:('..FileAPI.GeefFileUtils().FileExists(FileName)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Bestand niet gevonden",0))
 ]]></Implementation>
 </Method>
+
+<Method name="ImportFiles">
+<FormalSpec>Path:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim LandCodes As TECH.Iterator = ..GeefBeschikbareLandCodes()
+	
+	while LandCodes.HasNext()
+	{
+		#dim LandCode As %String = LandCodes.Next()
+		#dim FileList As %ListOfObjects = ..FileAPI.GeefFileUtils().GetFileList(Path,"*" _LandCode _".txt")
+		
+		if FileList.Count() > 0 { Do ..TransportduurRepository.VerwijderViaLandCode(LandCode)}
+		
+		#dim Counter As %Integer = 0
+		for Counter=1:1:FileList.Count()
+		{
+			Do ..ImportFile(FileList.GetAt(Counter).Name,1)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBeschikbareLandCodes">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListbuildIterator).%New($ListBuild("BG","CY","DK","DE","EE","FI","FR","GR","HU","IE","IT","HR","LV","LT","MT","AT","PL","PT","RO","SI","SK","ES","CZ","GB","SE"))
+]]></Implementation>
+</Method>
 </Class>