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>
 
 
Index: DOM/VKP/impl/DataM/AdresUtils.cls.xml
===================================================================
diff -u -r32427 -r32433
--- DOM/VKP/impl/DataM/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 32427)
+++ DOM/VKP/impl/DataM/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 32433)
@@ -1,26 +1,40 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.VKP.impl.DataM.AdresUtils">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="GeefOrigineelKlantAdresNr">
 <FormalSpec>KlantKey:%String,LeverAdres:DOM.VKP.impl.DataM.DataMAdres</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim Result As %Integer = LeverAdres.GeefKlantAdresNr()
-	if $D(^KKL(KlantKey)) > 0 {
-		#dim Key As %String = $N(^KKL(KlantKey,"L"))
-		While $P(Key," ",1,1) = "L" {
-			#dim Value As %String = ^KKL(KlantKey,Key)
-			If ($P(Value,"\",2) = LeverAdres.GeefNaam()) {
-				Set Result = $P(Value,"\",1) 
-				}
-			Set Key = $N(^KKL(KlantKey,Key))
-			}
+	#dim Result As %Integer = ""
+	
+	#dim AdresKey As %String = "L"
+	For { Set AdresKey = $Order(^KKL(KlantKey,AdresKey))  Quit:($$$Not($$$StartsWith(AdresKey,"L")))||($$$HasLength(Result))
+	
+		#dim Value As %String = $Get(^KKL(KlantKey,AdresKey))
+		#dim DatabaseLeverAdres As DOM.VKP.impl.DataM.DataMAdres = ##class(DOM.VKP.impl.DataM.DataMAdres).CreateFromDelimitedString(Value)
+		 
+		If ($Piece(..GeefAdresRec(DatabaseLeverAdres),"\",2,9) = $Piece(..GeefAdresRec(LeverAdres),"\",2,9)) {
+			Set Result = $Piece(Value,"\",1)
+			
 		}
+	}
+	If Result = "" {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen overeenkomstig leveradres gevonden voor "_KlantKey_" "_LeverAdres.ToString())
+	}
 	Quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAdresRec">
+<FormalSpec>LeverAdres:DOM.VKP.impl.DataM.DataMAdres</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim D As %String = "\"
+	Quit LeverAdres.GeefKlantAdresNr()_D_LeverAdres.GeefNaam()_D_LeverAdres.GeefToenaam()_D_LeverAdres.GeefAanspreking()_D_LeverAdres.GeefStraat()_D_LeverAdres.GeefPostcode()_D_LeverAdres.GeefGemeente()_D_LeverAdres.GeefLandNr()_D_LeverAdres.GeefTaal()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml
===================================================================
diff -u -r32427 -r32433
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 32427)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 32433)
@@ -112,8 +112,15 @@
 	Set ..Document.Header.Parties.Delivery.Address.ZipCode = ..Bon.GeefLeveringsAdres().GeefPostcode() 
 	Set ..Document.Header.Parties.Delivery.Address.City = ..Bon.GeefLeveringsAdres().GeefGemeente()
 	Set ..Document.Header.Parties.Delivery.Address.Country.ISOCode = ..Bon.GeefLeveringsAdres().GeefLand().GeefCode()
-	#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("KVIKAS 24315",..Bon.GeefLeveringsAdres())
-	Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = OrigineelKlantAdresNr
+	
+	try {
+		#dim AdresUtils As DOM.VKP.impl.DataM.AdresUtils = ##class(DOM.VKP.impl.DataM.AdresUtils).%New()
+		#dim OrigineelKlantAdresNr As %String = AdresUtils.GeefOrigineelKlantAdresNr("KVIKAS 24315",..Bon.GeefLeveringsAdres())
+		Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = OrigineelKlantAdresNr
+	}
+	catch {
+		Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = ..Bon.GeefLeveringsAdres().GeefKlantAdresNr()
+	}
 ]]></Implementation>
 </Method>
 
Index: DOM/VKP/impl/DataM/DataMAdres.cls.xml
===================================================================
diff -u -r29059 -r32433
--- DOM/VKP/impl/DataM/DataMAdres.cls.xml	(.../DataMAdres.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/DataM/DataMAdres.cls.xml	(.../DataMAdres.cls.xml)	(revision 32433)
@@ -148,6 +148,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLandNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..LandNr
+]]></Implementation>
+</Method>
+
 <Method name="GeefTaal">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Taal