Index: vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml
===================================================================
diff -u -r32427 -r32433
--- vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml	(.../TestOrigineelKlantAdresNr.cls.xml)	(revision 32427)
+++ vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml	(.../TestOrigineelKlantAdresNr.cls.xml)	(revision 32433)
@@ -6,7 +6,17 @@
 <Method name="Test: Kvik hoofd adres">
 <Implementation><![CDATA[
 	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+
+	Do AfleverAdres.ZetKlantAdresNr("")
 	Do AfleverAdres.ZetNaam("KVIK A/S")
+	Do AfleverAdres.ZetToenaam("")
+	Do AfleverAdres.ZetAanspreking("")
+	Do AfleverAdres.ZetStraat("STENTOFTVEJ 1")
+	Do AfleverAdres.ZetPostcode("DK-7480")
+	Do AfleverAdres.ZetGemeente("VILDBJERG")
+	Do AfleverAdres.ZetLandNr("1048")
+	Do AfleverAdres.ZetTaal("E")
+	
 	#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("KVIKAS 24315",AfleverAdres)
 	Do $$$AssertTrue(OrigineelKlantAdresNr = "1", "KVIK A/S - AdresNr 1 is correct")
 ]]></Implementation>
@@ -15,7 +25,17 @@
 <Method name="Test: Kvik genk adres">
 <Implementation><![CDATA[
 	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	
+	Do AfleverAdres.ZetKlantAdresNr("")
 	Do AfleverAdres.ZetNaam("KVIK GENK")
+	Do AfleverAdres.ZetToenaam("KVIK BE")
+	Do AfleverAdres.ZetAanspreking("")
+	Do AfleverAdres.ZetStraat("HASSELTWEG 113")
+	Do AfleverAdres.ZetPostcode("3600")
+	Do AfleverAdres.ZetGemeente("GENK")
+	Do AfleverAdres.ZetLandNr("1019")
+	Do AfleverAdres.ZetTaal("N")
+	
 	#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("KVIKAS 24315",AfleverAdres)
 	Do $$$AssertTrue(OrigineelKlantAdresNr = "8","KVIK GENK - AdresNr 8 is correct")
 ]]></Implementation>
@@ -24,11 +44,67 @@
 <Method name="Test: Kvik lochristi adres">
 <Implementation><![CDATA[
 	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	
+	Do AfleverAdres.ZetKlantAdresNr("")
 	Do AfleverAdres.ZetNaam("KVIK LOCHRISTI")
+	Do AfleverAdres.ZetToenaam("")
+	Do AfleverAdres.ZetAanspreking("")
+	Do AfleverAdres.ZetStraat("ANTWERPSESTEENWEG 29")
+	Do AfleverAdres.ZetPostcode("9080")
+	Do AfleverAdres.ZetGemeente("LOCHRISTI")
+	Do AfleverAdres.ZetLandNr("1019")
+	Do AfleverAdres.ZetTaal("N")
+	
 	#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("KVIKAS 24315",AfleverAdres)
 	Do $$$AssertTrue(OrigineelKlantAdresNr = "35","KVIK LOCHRISTI - AdresNr 35 is correct")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Kvik leveradres bestaat niet">
+<Implementation><![CDATA[
+	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	
+	Do AfleverAdres.ZetKlantAdresNr("")
+	Do AfleverAdres.ZetNaam("KVIK ONBESTAAND")
+	Do AfleverAdres.ZetToenaam("")
+	Do AfleverAdres.ZetAanspreking("")
+	Do AfleverAdres.ZetStraat("ANTWERPSESTEENWEG 2")
+	Do AfleverAdres.ZetPostcode("900")
+	Do AfleverAdres.ZetGemeente("LOCHSTI")
+	Do AfleverAdres.ZetLandNr("1019")
+	Do AfleverAdres.ZetTaal("N")
+	
+	try{
+		#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("KVIKAS 24315",AfleverAdres)
+	} catch {
+		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()	
+		do $$$AssertEquals(Exception.%ClassName(1),"TECH.Exceptions.InvalidInputException","De exceptie is van het juiste type")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kvik verkeerde klant ID">
+<Implementation><![CDATA[
+	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	
+	Do AfleverAdres.ZetKlantAdresNr("")
+	Do AfleverAdres.ZetNaam("KVIK LOCHRISTI")
+	Do AfleverAdres.ZetToenaam("")
+	Do AfleverAdres.ZetAanspreking("")
+	Do AfleverAdres.ZetStraat("ANTWERPSESTEENWEG 29")
+	Do AfleverAdres.ZetPostcode("9080")
+	Do AfleverAdres.ZetGemeente("LOCHRISTI")
+	Do AfleverAdres.ZetLandNr("1019")
+	Do AfleverAdres.ZetTaal("N")
+	
+	try {
+		#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("Verkeerde ID",AfleverAdres)
+	} catch {
+		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()	
+		do $$$AssertEquals(Exception.%ClassName(1),"TECH.Exceptions.InvalidInputException","De exceptie is van het juiste type")
+	}
+]]></Implementation>
+</Method>
 </Class>