Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r46363 -r50007
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 46363)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 50007)
@@ -22,6 +22,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FixKlantDataNamenVoorUTs">
+<Description>
+Oproepen via 
+  d ##class(zTryout.WV.PM.Test).%New().FixKlantDataNamenVoorUTs() </Description>
+<Implementation><![CDATA[
+	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("HEREMANS KEUKENS BVBA", 	"K||1313" )
+	Do ..UpdateKlantNaamAx("SCHOLLIER BVBA", 			"K||2684" )
+	Do ..UpdateKlantNaamAx("MAATWERK SCHEPENS BVBA", 	"K||15108" )
+
+ /*
+	Do ..UpdateKlantNaamAx("", 		##class(DOM.VKP.enu.Klant).D() )
+ */
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKlantNaamAx">
+<FormalSpec>KlantNaamAx:%String,KlantId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set PartijApi = ##class(DOM.PARTIJ.impl.PartijAPI).%New()
+	Set VerkoopApi = ##class(DOM.VKP.impl.VerkoopAPI).%New()
+	Set AxToAdminUtils = ##class(AXimpl.AxToAdminUtils).%New()
+	
+	#dim KlantPartij As DOM.PARTIJ.Partij = PartijApi.GeefPartij(KlantId)
+	
+	#dim NaamToenaamEnAanspreking As %String = AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(KlantNaamAx)
+	Do KlantPartij.ZetNaam($Piece(NaamToenaamEnAanspreking,"||",1))
+	Do KlantPartij.ZetToenaam($Piece(NaamToenaamEnAanspreking,"||",2))
+	Do KlantPartij.ZetAanspreking($Piece(NaamToenaamEnAanspreking,"||",3))
+	Do KlantPartij.Save()
+	
+	#dim Klant as DOM.VKP.VanHoeckeKlant = VerkoopApi.GeefKlant(KlantId)
+	Do Klant.Save()
+]]></Implementation>
+</Method>
+
 <Method name="IsRecentProductID">
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>