Index: vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailLeveringbon/GeefBezwaren/Test.cls.xml
===================================================================
diff -u -r29059 -r45703
--- vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailLeveringbon/GeefBezwaren/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailLeveringbon/GeefBezwaren/Test.cls.xml	(.../Test.cls.xml)	(revision 45703)
@@ -6,7 +6,7 @@
 <Method name="TestContactOntvangerLeveringbonZonderEmailxxxError">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.CRM.enu.VoorkeurDocument).Leveringsbon())
-	#dim Klant As DOM.common.Klant = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftLeveringBonViaMail").DanReturn($$$True)
@@ -23,7 +23,7 @@
 <Method name="TestContactMetEmailGeenOntvangerxxxError">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
-	#dim Klant As DOM.common.Klant = ..GeefKlantMetEenContact(VoorkeurDocumenten, $$$DummyString)
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, $$$DummyString)
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftLeveringBonViaMail").DanReturn($$$True)
@@ -40,7 +40,7 @@
 <Method name="TestKlantOntvangtLeveringbonNietViaMail">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.CRM.enu.VoorkeurDocument).Leveringsbon())
-	#dim Klant As DOM.PARTIJ.impl.DataM.DataMKlant = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftLeveringBonViaMail").DanReturn($$$False)
Index: vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailOrderbevestiging/GeefBezwaren/Test.cls.xml
===================================================================
diff -u -r29059 -r45703
--- vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailOrderbevestiging/GeefBezwaren/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailOrderbevestiging/GeefBezwaren/Test.cls.xml	(.../Test.cls.xml)	(revision 45703)
@@ -6,7 +6,7 @@
 <Method name="TestContactOntvangerOrderbevestigingZonderEmailxxxError">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.CRM.enu.VoorkeurDocument).Orderbevestiging())
-	#dim Klant As DOM.common.Klant = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftOrderBevestigingViaMail").DanReturn($$$True)
@@ -23,7 +23,7 @@
 <Method name="TestContactMetEmailGeenOntvangerxxxError">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
-	#dim Klant As DOM.common.Klant = ..GeefKlantMetEenContact(VoorkeurDocumenten, $$$DummyString)
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, $$$DummyString)
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftOrderBevestigingViaMail").DanReturn($$$True)
@@ -40,7 +40,7 @@
 <Method name="TestKlantOntvangtOrderbevestigingNietViaMail">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.CRM.enu.VoorkeurDocument).Orderbevestiging())
-	#dim Klant As DOM.PARTIJ.impl.DataM.DataMKlant = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftOrderBevestigingViaMail").DanReturn($$$False)
Index: vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailFactuur/GeefBezwaren/Test.cls.xml
===================================================================
diff -u -r29059 -r45703
--- vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailFactuur/GeefBezwaren/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/KlantValidator/impl/Validators/MailFactuur/GeefBezwaren/Test.cls.xml	(.../Test.cls.xml)	(revision 45703)
@@ -6,7 +6,7 @@
 <Method name="TestContactOntvangerFactuurZonderEmailxxxError">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.CRM.enu.VoorkeurDocument).Factuur())
-	#dim Klant As DOM.PARTIJ.impl.DataM.DataMKlant = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$True)
@@ -23,7 +23,7 @@
 <Method name="TestContactMetEmailGeenOntvangerxxxError">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
-	#dim Klant As DOM.common.Klant = ..GeefKlantMetEenContact(VoorkeurDocumenten, $$$DummyString)
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, $$$DummyString)
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$True)
@@ -40,7 +40,7 @@
 <Method name="TestKlantOntvangtFacturenNietViaMail">
 <Implementation><![CDATA[
 	#dim VoorkeurDocumenten As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.CRM.enu.VoorkeurDocument).Factuur())
-	#dim Klant As DOM.PARTIJ.impl.DataM.DataMKlant = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
+	#dim Klant As DOM.PARTIJ.Partij = ..GeefKlantMetEenContact(VoorkeurDocumenten, "")
 	
 	#dim VKPKlant As DOM.VKP.VanHoeckeKlant = ..GeefVKPKlantMock()
 	Do VKPKlant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$False)