Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r50007 -r50014
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 50007)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 50014)
@@ -30,18 +30,21 @@
 	Do ..UpdateKlantNaamAx("DE DECKER JB BVBA", 		##class(DOM.VKP.enu.Klant).DeDecker() )
 	Do ..UpdateKlantNaamAx("VAN HOECKE NV", 			##class(DOM.VKP.enu.Klant).VanHoecke() )
 	Do ..UpdateKlantNaamAx("HEIN F. GMBH", 				##class(DOM.VKP.enu.Klant).Hein() )
+	Do ..UpdateKlantNaamAx("HAEFELE BELGIUM NV", 		##class(DOM.VKP.enu.Klant).HaefeleBelgie() )
+	Do ..UpdateKlantNaamAx("DARO UK LIMITED",			##class(DOM.VKP.enu.Klant).DaroFactors())
+	
 	Do ..UpdateKlantNaamAx("HEREMANS KEUKENS BVBA", 	"K||1313" )
 	Do ..UpdateKlantNaamAx("SCHOLLIER BVBA", 			"K||2684" )
 	Do ..UpdateKlantNaamAx("MAATWERK SCHEPENS BVBA", 	"K||15108" )
+	Do ..UpdateKlantNaamAx("SFS UNIMARKET", 			##class(DOM.VKP.enu.Klant).SFS(), "SFS UNIMARKET AG||ZENTRALE LOGISTIK||AG")
+	Do ..UpdateKlantNaamAx("DU PONT", 					##class(DOM.VKP.enu.Klant).DuPont(), "DU PONT||GROOTHANDEL MEUBELBESLAG||BVBA")
 
- /*
-	Do ..UpdateKlantNaamAx("", 		##class(DOM.VKP.enu.Klant).D() )
- */
+	Do ..UpdateKlantNaamAx("R VAN HOECKE NV", 			##class(DOM.VKP.enu.Klant).RabatPrijsKlant(), "R VAN HOECKE NV||||", "" )
 ]]></Implementation>
 </Method>
 
 <Method name="UpdateKlantNaamAx">
-<FormalSpec>KlantNaamAx:%String,KlantId:%String</FormalSpec>
+<FormalSpec>KlantNaamAx:%String,KlantId:%String,OverrideKlantNaam:%String="",Taal:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set PartijApi = ##class(DOM.PARTIJ.impl.PartijAPI).%New()
@@ -51,9 +54,15 @@
 	#dim KlantPartij As DOM.PARTIJ.Partij = PartijApi.GeefPartij(KlantId)
 	
 	#dim NaamToenaamEnAanspreking As %String = AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(KlantNaamAx)
+	If $$$HasLength($$$Trim(OverrideKlantNaam)) {
+		Set NaamToenaamEnAanspreking = OverrideKlantNaam
+	}
 	Do KlantPartij.ZetNaam($Piece(NaamToenaamEnAanspreking,"||",1))
 	Do KlantPartij.ZetToenaam($Piece(NaamToenaamEnAanspreking,"||",2))
 	Do KlantPartij.ZetAanspreking($Piece(NaamToenaamEnAanspreking,"||",3))
+	If $D(Taal) {
+		Do KlantPartij.ZetTaal(Taal)
+	}
 	Do KlantPartij.Save()
 	
 	#dim Klant as DOM.VKP.VanHoeckeKlant = VerkoopApi.GeefKlant(KlantId)