Index: vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r32426 -r32427
--- vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 32426)
+++ vhUnitTest/APPS/EDIExport/FactuurVerzender/impl/Kvik/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 32427)
@@ -9,7 +9,6 @@
 	#dim FtpAPI As vhTest.Fake.TECH.Ftp.FtpAPI.SchrijfNaarBestand = ##class(vhTest.Fake.TECH.Ftp.FtpAPI.SchrijfNaarBestand).%New() 
 
 	set Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(565833)	
-	///set Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(570506)	
 	set Verzender = ##class(APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender).%New(FileAPI,FtpAPI)
 	Set Verzender.ServerBestandsNaam = "KvikFactuurTestOuput.xml" 
 	Set Verzender.FtpConfiguratie = ..GeefTestNaarBestandConfiguratie()
Index: DOM/VKP/impl/DataM/AdresUtils.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/DataM/AdresUtils.cls.xml	(revision 0)
+++ DOM/VKP/impl/DataM/AdresUtils.cls.xml	(revision 32427)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.DataM.AdresUtils">
+<Super>%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))
+			}
+		}
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml
===================================================================
diff -u -r32380 -r32427
--- APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 32380)
+++ APPS/EDIExport/FactuurVerzender/impl/Kvik/Converteerder.cls.xml	(.../Converteerder.cls.xml)	(revision 32427)
@@ -112,7 +112,8 @@
 	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()
-	Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = ..Bon.GeefLeveringsAdres().GeefKlantAdresNr()
+	#dim OrigineelKlantAdresNr As %String = ##class(DOM.VKP.impl.DataM.AdresUtils).%New().GeefOrigineelKlantAdresNr("KVIKAS 24315",..Bon.GeefLeveringsAdres())
+	Set ..Document.Header.Parties.Buyer.Identification.AccountNumber = OrigineelKlantAdresNr
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/DataM/AdresUtils/TestOrigineelKlantAdresNr.cls.xml	(revision 32427)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.DataM.AdresUtils.TestOrigineelKlantAdresNr">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Kvik hoofd adres">
+<Implementation><![CDATA[
+	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do AfleverAdres.ZetNaam("KVIK A/S")
+	#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>
+</Method>
+
+<Method name="Test: Kvik genk adres">
+<Implementation><![CDATA[
+	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do AfleverAdres.ZetNaam("KVIK GENK")
+	#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>
+</Method>
+
+<Method name="Test: Kvik lochristi adres">
+<Implementation><![CDATA[
+	#dim AfleverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do AfleverAdres.ZetNaam("KVIK LOCHRISTI")
+	#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>
+</Class>
+
+
+</Export>
Index: vhTestFiles/UnitTests/APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend/Test/TestKvikfactuurconverteerder/KvikFactuurTestOuput.xml
===================================================================
diff -u -r32385 -r32427
--- vhTestFiles/UnitTests/APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend/Test/TestKvikfactuurconverteerder/KvikFactuurTestOuput.xml	(.../KvikFactuurTestOuput.xml)	(revision 32385)
+++ vhTestFiles/UnitTests/APPS.EDIExport.FactuurVerzender.impl.Kvik.Verzender.Verzend/Test/TestKvikfactuurconverteerder/KvikFactuurTestOuput.xml	(.../KvikFactuurTestOuput.xml)	(revision 32427)
@@ -18,7 +18,7 @@
       </Invoicee>
       <Buyer>
         <Identification>
-          <AccountNumber>1</AccountNumber>
+          <AccountNumber>24</AccountNumber>
         </Identification>
       </Buyer>
       <Delivery>