Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r48264 -r48305
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 48264)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 48305)
@@ -69,12 +69,20 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	
-	#dim Klant As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantId)
+	#dim KlantPartij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantId)
+	#Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantId)	
 	
-	Do Klant.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
-	Do Klant.ZetBTWNr(..GeefBTWNummer(Cust))
+	Do KlantPartij.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
+	Do KlantPartij.ZetBTWNr(..GeefBTWNummer(Cust))
 	
-	Do Klant.Save()
+	Do KlantPartij.ZetAanspreking(..GeefAanspreking(Cust))
+	Do KlantPartij.ZetNaam(..GeefKlantNaam(Cust))
+	Do KlantPartij.ZetToenaam(..GeefKlantToenaam(Cust))
+	Do KlantPartij.ZetTaal(..GeefTaal(Cust))
+	Do KlantPartij.ZetTelefoon1(..GeefTelefoon1(Cust))
+	;Do KlantPartij.Zet ??? (..GeefFax(Cust)) geen zetbare property op klant of partij
+	Do KlantPartij.ZetAdres(..GeefPrimairAdres(Cust))
+	Do KlantPartij.Save()
 ]]></Implementation>
 </Method>
 
@@ -89,21 +97,19 @@
 	Set dtoKlant.KlantNummer = + Cust.CustAccount
 	Set dtoKlant.Aanspreking = ..GeefAanspreking(Cust)
 	Set dtoKlant.KlantNaam = ..GeefKlantNaam(Cust)
-	
-	;Set ?? = Cust.PriceException
-	;Set dtoKlant.Toenaam = ??
-	Set dtoKlant.Taal = ..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId)
+	Set dtoKlant.Toenaam = ..GeefKlantToenaam(Cust)
+	Set dtoKlant.Taal = ..GeefTaal(Cust)
 	Set dtoKlant.Telefoon1 = ..GeefTelefoon1(Cust)
-	Set dtoKlant.Fax = ..GeefFax(Cust)
+	Set dtoKlant.Fax = ..GeefFax(Cust) ; wordt blijkbaar niet in service gebruikt !!!!!
 	Set dtoKlant.BTWNummer = ..GeefBTWNummer(Cust)
 	Set dtoKlant.Email = ..GeefEmailAddress(Cust)
 	Set dtoKlant.Muntcode ="EUR"
+	;Set ?? = Cust.PriceException
 	; Set dtoKlant.Prijsklase = ???
 	; Set dtoKlant.Opmerking1 = ???
 	; Set dtoKlant.FrequentieAanbrengerCommissie = ???
 
 	Set dtoKlant.Adres = ..GeefPrimairAdres(Cust)
-		
 	#dim PartijID As DOM.common.PartijID = ..KlantLevenCyclusService.MaakKlant(dtoKlant,TypeTemplateKlant)
 ]]></Implementation>
 </Method>
@@ -119,6 +125,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantToenaam">
+<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit Cust.LastName
+]]></Implementation>
+</Method>
+
 <Method name="GeefAanspreking">
 <FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
 <Private>1</Private>
@@ -251,6 +265,13 @@
 	Quit ##class(AXimpl.Formatter).%New().FormatVATNumToCache(VATNum,CountryRegionId)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTaal">
+<FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r48264 -r48305
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48264)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 48305)
@@ -4,12 +4,12 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Property name="PartijApiMock">
-<Type>DOM.PARTIJ.PartijAPI</Type>
+<Type>vhTest.Mock.DOM.PARTIJ.PartijAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Property name="VerkoopApiMock">
-<Type>DOM.VKP.VerkoopAPI</Type>
+<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
 <Private>1</Private>
 </Property>
 
@@ -32,11 +32,19 @@
 <Method name="Test Standaard gedrag Bij update van bestaande klant">
 <Implementation><![CDATA[
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$True)
-	#Dim PartijMock as DOM.PARTIJ.Partij = ..GeefPartij()
+	#Dim PartijMock as vhTest.Mock.DOM.PARTIJ.Partij = ..GeefPartij()
 	Do ..PartijApiMock.VerwachtMethodCall("GeefPartij","K||1111").DanReturn(PartijMock)
+	
+	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
+	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
 	Do PartijMock.VerwachtMethodCall("ZetBTWNr","BE0430459769").DanDoeNiks()
 	Do PartijMock.VerwachtMethodCall("ZetTaal","N").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetAanspreking","BVBA").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetNaam","Klant1").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetToenaam","Toenaam").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetTelefoon1","03-464 00 91").DanDoeNiks()
+	Do PartijMock.VerwachtMethodCall("ZetAdres",..Matches.Object(..GeefAddress())).DanDoeNiks()
 	Do PartijMock.VerwachtMethodCall("Save").DanDoeNiks()
 
 	Do ..GeefConverter().Convert(..GeefCust("01111","Klant1"))
@@ -70,7 +78,6 @@
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$False)
 		
 	#dim VerwachteKlantDto as DOM.common.dto.Partij = ..GeefKlantDto()
-
 	Set Matcher1 = ##class(vhUnitTest.AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter.PartijMatcher).%New(VerwachteKlantDto)
 	Do ..KlantLevenCyclusServiceMock.VerwachtMethodCall("MaakKlant",Matcher1,"ONDERNEMING").DanDoeNiks()
 	
@@ -112,25 +119,34 @@
     Set KlantDto.Fax = "03-464 12 34"
 	Set KlantDto.FrequentieAanbrengerCommissie = ""
     Set KlantDto.KlantNaam = "Klant1"
+    Set KlantDto.Toenaam = "Toenaam"
     Set KlantDto.KlantNummer = 1111
     Set KlantDto.Muntcode = "EUR"
     Set KlantDto.Opmerking1 = ""
     Set KlantDto.Prijsklase = ""
     Set KlantDto.Taal = "N"
     Set KlantDto.Telefoon1 = "03-464 00 91"
-    Set KlantDto.Toenaam = ""	
     
-    Set Adres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+
+	Set KlantDto.Adres = ..GeefAddress()
+ 
+	Quit KlantDto
+]]></Implementation>
+</Method>
+
+<Method name="GeefAddress">
+<Private>1</Private>
+<ReturnType>DOM.common.Adres</ReturnType>
+<Implementation><![CDATA[
+	Set Adres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
     Do Adres.ZetAanspreking("DU PONT BVBA")
 	Do Adres.ZetGemeente("PULDERBOS")
 	Do Adres.ZetLandNr(1019)
 	Do Adres.ZetPostcode("2242")
 	Do Adres.ZetStraat("KLEINHEIDE 24A")
 	Do Adres.ZetTaal("N")
 	Do Adres.ZetType("")
-	Set KlantDto.Adres = Adres
- 
-	Quit KlantDto
+	Quit Adres
 ]]></Implementation>
 </Method>
 
@@ -149,6 +165,7 @@
 	Set Cust.CustAccount = CustAccount
 	Set Cust.LanguageId = "nl-be"	
 	Set Cust.Name = Name _ " BVBA"
+	Set Cust.LastName = "Toenaam"
 	Set Cust.PartyNumber = "000000922"
     Set Cust.PriceException = "No"
 	Set Cust.VATNum = "0430.459.769"