Index: AX/Uitgaand/Klant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33549 -r33551
--- AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33549)
+++ AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33551)
@@ -4,27 +4,29 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="Convert">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<FormalSpec>Partij:DOM.PARTIJ.Partij,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>AXaif.Customer.AxdCustomer</ReturnType>
 <Implementation><![CDATA[
 	set AxKlant = ##class(AXaif.Customer.AxdCustomer).%New()
 	set AxKlant.SenderId = "PRBE"
 	
 	set Custable = ##class(AXaif.Customer.AxdEntityCustTable).%New()
-	set Custable.AccountNum = ##class(TECH.StringUtils).AlignRight(Klant.GeefCode(),0,9)
+	set Custable.AccountNum = ##class(TECH.StringUtils).AlignRight(Partij.GeefCode(),0,9)
 	set Custable.CashDisc = ..FormatCashDisc(Klant)
 	set Custable.Currency = "EUR"
 	set Custable.CustClassificationId = "R"_##class(TECH.StringUtils).AlignRight(Klant.GeefRegio(),0,2)
 	set Custable.CustGroup = "10"
 	
-	set Custable.EnterpriseNumber = ..FormatEnterpriseNumber(Klant.GeefBTWNr())
-	set Custable.VATNum = ..FormatVATNum(Klant.GeefBTWNr())
-	set Custable.TaxGroup = ..FormatTaxGroup(Klant)
+	set Custable.EnterpriseNumber = ..FormatEnterpriseNumber(Partij.GeefBTWNr())
+	set Custable.VATNum = ..FormatVATNum(Partij.GeefBTWNr())
+	set Custable.TaxGroup = ..FormatTaxGroup(Partij)
 	
 	set Custable.WebSalesOrderDisplay = "All"
 	
 	set DirParty = ##class(AXaif.Customer.AxdEntityDirPartyDirPartyTable).%New()
-	set DirParty.LanguageId = ..FormatLanuageId(Klant.GeefTaal())
+	set DirParty.LanguageId = ..FormatLanuageId(Partij.GeefTaal())
+	set DirParty.Name = Partij.GeefNaam()_$$$IfLength(Partij.GeefToenaam()," ","")
+	
 	do Custable.DirParty.Insert(DirParty)
 	
 	do AxKlant.CustTable.Insert(Custable)
@@ -78,12 +80,12 @@
 </Method>
 
 <Method name="FormatTaxGroup">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	quit:##class(TECH.StringUtils).Equals(Klant.GeefID(),"K||7587","K||4682","K||1000","K||5069","K||9544") "BUNIT"
-	quit:Klant.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
-	quit:Klant.GeefAdres().GeefLand().IsLidVanEU() "BIC"
+	quit:##class(TECH.StringUtils).Equals(Partij.GeefID(),"K||7587","K||4682","K||1000","K||5069","K||9544") "BUNIT"
+	quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
+	quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "BIC"
 	quit "BX"
 ]]></Implementation>
 </Method>
Index: vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml
===================================================================
diff -u -r33549 -r33551
--- vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 33549)
+++ vhUnitTest/AX/Uitgaand/Klant/KlantNaarBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 33551)
@@ -3,6 +3,11 @@
 <Class name="vhUnitTest.AX.Uitgaand.Klant.KlantNaarBestand.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="Partij">
+<Type>DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Klant">
 <Type>DOM.VKP.VanHoeckeKlant</Type>
 <Private>1</Private>
@@ -13,22 +18,27 @@
 <Implementation><![CDATA[
 	do ##super(aTestName)
 	
+	set ..Partij = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	do ..Partij.IndienMethodCall("GeefID").DanReturn("K||1234")
+	do ..Partij.IndienMethodCall("GeefCode").DanReturn(1234)
+	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Een Willekeurige naam")
+	do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
+	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
+	
 	set ..Klant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
-	do ..Klant.IndienMethodCall("GeefCode").DanReturn(1234)
+	do ..Klant.IndienMethodCall("GeefID").DanReturn("K||1234")
 	do ..Klant.IndienMethodCall("GeefKortingContantPercentage").DanReturn(3)
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
-	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
-	do ..Klant.IndienMethodCall("GeefID").DanReturn("K||1234")
-	do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New())
-	do ..Klant.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Hardcoded waarden">
 <Implementation><![CDATA[
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	do $$$AssertEquals(AxKlant.SenderId,"PRBE")
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
@@ -38,12 +48,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Naam variaties - Enkel een klantnaam">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Klantnaam")
+	do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.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.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	
+	do $$$AssertEquals(Party.Name,"Klantnaam")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Naam variaties - Een naam en een toenaam worden geconcateneerd">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Klantnaam")
+	do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
+	
+	set Converter = ##class(AX.Uitgaand.Klant.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.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
+	
+	do $$$AssertEquals(Party.Name,"Klantnaam Toenaam")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Taal variaties - Nederlands">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#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.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
@@ -54,10 +94,10 @@
 
 <Method name="Test: Taal variaties - Frans">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#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.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
@@ -68,10 +108,10 @@
 
 <Method name="Test: Taal variaties - Duits">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Duits())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Duits())
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#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.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
@@ -82,10 +122,10 @@
 
 <Method name="Test: Taal variaties - Engels">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Engels())
+	do ..Partij.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Engels())
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#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.AxdEntityDirPartyDirPartyTable = CustTable.DirParty.GetAt(1)
@@ -96,10 +136,10 @@
 
 <Method name="Test: KlantNummer - Nummer bevat voorloop nullen">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefCode").DanReturn(4682)
+	do ..Partij.IndienMethodCall("GeefCode").DanReturn(4682)
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	do $$$AssertEquals(CustTable.AccountNum,"000004682")
@@ -111,7 +151,7 @@
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
 
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -124,7 +164,7 @@
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(97)
 
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -138,7 +178,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("")
 
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
 	do $$$AssertEquals(CustTable.CashDisc,"")
@@ -151,7 +191,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
 
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
 	do $$$AssertEquals(CustTable.CashDisc,"")
@@ -164,7 +204,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("")
 
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
 	do $$$AssertEquals(CustTable.CashDisc,"")
@@ -177,7 +217,7 @@
 	do ..Klant.IndienMethodCall("GeefKortingContantTermijn").DanReturn("10D")
 
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
 	do $$$AssertEquals(CustTable.CashDisc,"10D3%")
@@ -186,10 +226,10 @@
 
 <Method name="Test: BTW variaties - Belgisch BTW-Nr">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
+	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("BE0402775276")
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	do $$$AssertEquals(CustTable.EnterpriseNumber,"BE 0402.775.276")
@@ -199,10 +239,10 @@
 
 <Method name="Test: BTW variaties - Geen BTW-Nr">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("")
+	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("")
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	do $$$AssertEquals(CustTable.EnterpriseNumber,"")
@@ -212,10 +252,10 @@
 
 <Method name="Test: BTW variaties - Buitenlands BTW-Nr">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefBTWNr").DanReturn("NL814120313B01")
+	do ..Partij.IndienMethodCall("GeefBTWNr").DanReturn("NL814120313B01")
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	do $$$AssertEquals(CustTable.EnterpriseNumber,"")
@@ -225,10 +265,10 @@
 
 <Method name="Test: TaxGroup - Een van de specifieke klantnrs">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefID").DanReturn("K||7587")
+	do ..Partij.IndienMethodCall("GeefID").DanReturn("K||7587")
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -238,10 +278,10 @@
 
 <Method name="Test: TaxGroup - Een belgisch adres">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -251,10 +291,10 @@
 
 <Method name="Test: TaxGroup - Een land dat lid is van EU">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
 	
@@ -264,10 +304,10 @@
 
 <Method name="Test: TaxGroup - Een land dat geen lid is van EU">
 <Implementation><![CDATA[
-	do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
+	do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
 	
 	set Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
-	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Klant)
+	#dim AxKlant As AXaif.Customer.AxdCustomer = Converter.Convert(..Partij,..Klant)
 	
 	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)