Index: vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33792 -r33858
--- vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../Klant/impl/AifConverter.cls.xml)	(revision 33792)
+++ vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../VKP/VanHoeckeKlant/impl/AifConverter.cls.xml)	(revision 33858)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.AX.Uitgaand.Klant.impl.AifConverter">
+<Class name="vhUnitTest.AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter">
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="Partij">
@@ -48,7 +48,7 @@
 
 <Method name="Test: Hardcoded waarden">
 <Implementation><![CDATA[
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -61,7 +61,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -82,7 +82,7 @@
 	do Adres.ZetPostcode("NL-1234 AA")
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -99,7 +99,7 @@
 	do Adres.ZetPostcode("NL1234 AA")
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -116,7 +116,7 @@
 	do Adres.ZetPostcode("NL-1234-AA")
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(Adres)
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -132,7 +132,7 @@
 	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Klantnaam")
 	do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -149,7 +149,7 @@
 	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Klantnaam")
 	do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -165,7 +165,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -179,7 +179,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -193,7 +193,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Duits())
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -207,7 +207,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Engels())
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -221,7 +221,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefCode").DanReturn(4682)
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -233,7 +233,7 @@
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -246,7 +246,7 @@
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(97)
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -260,7 +260,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(0)
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("")
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -273,7 +273,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(0)
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -286,7 +286,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(1)
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("")
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -299,7 +299,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(3)
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -312,7 +312,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(3)
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("0D")
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -324,7 +324,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -337,7 +337,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -350,7 +350,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL814120313B01")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -363,7 +363,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("G")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -376,7 +376,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("GEEN")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -389,7 +389,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0000000000")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -402,7 +402,7 @@
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("IsLidBTWEenheidVanHoecke").DanReturn($$$true)
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -415,7 +415,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -428,7 +428,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -441,7 +441,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -459,7 +459,7 @@
 	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
 	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
@@ -477,7 +477,7 @@
 	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
 	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
@@ -499,7 +499,7 @@
 	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
 	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
@@ -527,7 +527,7 @@
 	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
 	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
@@ -550,7 +550,7 @@
 	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
 	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
@@ -575,7 +575,7 @@
 	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("iemand@ergens.be")
 	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
@@ -605,7 +605,7 @@
 	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("iemand@ergens.be")
 	do ..Partij.IndienMethodCall("GeefWebstek").DanReturn("http://www.ergens.be")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
@@ -653,7 +653,7 @@
 <Method name="Test Blocked - Commercieel actief">
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("GeefCommercieleStatus").DanReturn(##class(DOM.CRM.enu.CommercieleStatus).Actief())
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -664,7 +664,7 @@
 <Method name="Test Blocked - Commercieel Inactief">
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("GeefCommercieleStatus").DanReturn(##class(DOM.CRM.enu.CommercieleStatus).NietActief())
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -677,7 +677,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -692,7 +692,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("")
 
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -706,7 +706,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("30D")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -720,7 +720,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("8D")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -734,7 +734,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("30DEM")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -748,7 +748,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("1M")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -762,7 +762,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("2M")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -776,7 +776,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("1MEM")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -790,7 +790,7 @@
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("2MEM")
 	
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -803,7 +803,7 @@
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("IsLidBTWEenheidVanHoecke").DanReturn($$$true)
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -815,7 +815,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefID").DanReturn("K||9544")
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -827,7 +827,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -839,7 +839,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -851,7 +851,7 @@
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
 
-	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifGenerator.cls.xml
===================================================================
diff -u -r33757 -r33858
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifGenerator.cls.xml	(.../Klant/impl/AifGenerator.cls.xml)	(revision 33757)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifGenerator.cls.xml	(.../VKP/VanHoeckeKlant/impl/AifGenerator.cls.xml)	(revision 33858)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="AX.Uitgaand.Klant.impl.AifGenerator">
+<Class name="AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifGenerator">
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="PartijAPI">
@@ -16,7 +16,7 @@
 </Property>
 
 <Property name="Converter">
-<Type>AX.Uitgaand.Klant.impl.AifConverter</Type>
+<Type>AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter</Type>
 <Private>1</Private>
 </Property>
 
@@ -31,7 +31,7 @@
 	set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
 	set ..FileAPI = ##class(TECH.Context).Instance().GeefFileAPI()
 	
-	set ..Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	set ..Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33792 -r33858
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../Klant/impl/AifConverter.cls.xml)	(revision 33792)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../VKP/VanHoeckeKlant/impl/AifConverter.cls.xml)	(revision 33858)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="AX.Uitgaand.Klant.impl.AifConverter">
+<Class name="AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter">
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="Convert">
FishEye: Tag 33858 refers to a dead (removed) revision in file `AX/Uitgaand/Klant/impl/AifConverter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 33858 refers to a dead (removed) revision in file `AX/Uitgaand/Klant/impl/AifGenerator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 33858 refers to a dead (removed) revision in file `vhUnitTest/AX/Uitgaand/Klant/impl/AifConverter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?