Index: vhTest/Integratie/TestCase.cls.xml
===================================================================
diff -u -r30025 -r34494
--- vhTest/Integratie/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 30025)
+++ vhTest/Integratie/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 34494)
@@ -58,97 +58,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="UpdateSFSKlantData">
-<Final>1</Final>
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Duits()</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
-	set KlantData = ##class(DOM.common.dto.KlantData).%New()
-	set KlantData.ID = KlantID
-	set KlantData.Naam = KlantNaam
-	set KlantData.Taal = Taal
-	do KlantBewaarder.Bewaar(##class(DOM.common.SFSPersonality).Instance(),KlantData)
-]]></Implementation>
-</Method>
-
-<Method name="UpdateHaefeleBEKlantData">
-<Final>1</Final>
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
-	set KlantData = ##class(DOM.common.dto.KlantData).%New()
-	set KlantData.ID = KlantID
-	set KlantData.Naam = KlantNaam
-	set KlantData.Taal = Taal
-	do KlantBewaarder.Bewaar(##class(DOM.common.HaefeleBEPersonality).Instance(),KlantData)
-]]></Implementation>
-</Method>
-
-<Method name="UpdateKlantData">
-<Final>1</Final>
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands(),Personality:DOM.common.Personality</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
-	set KlantData = ##class(DOM.common.dto.KlantData).%New()
-	set KlantData.ID = KlantID
-	set KlantData.Naam = KlantNaam
-	set KlantData.Taal = Taal
-	do KlantBewaarder.Bewaar(Personality,KlantData)
-]]></Implementation>
-</Method>
-
-<Method name="UpdateKischKlantData">
-<Final>1</Final>
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands(),Personality:DOM.common.Personality,EmailAdres:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
-	set KlantData = ##class(DOM.common.dto.KischKlantData).%New()
-	set KlantData.ID = KlantID
-	set KlantData.Naam = KlantNaam
-	set KlantData.Taal = Taal
-	set KlantData.EmailAdres = EmailAdres
-	do KlantBewaarder.Bewaar(Personality,KlantData)
-]]></Implementation>
-</Method>
-
-<Method name="UpdateDaroKlantData">
-<Final>1</Final>
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands(),Personality:DOM.common.Personality,EmailAdres:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
-	set KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
-	set KlantData.ID = KlantID
-	set KlantData.Naam = KlantNaam
-	set KlantData.Taal = Taal
-	set KlantData.EmailAdres = EmailAdres
-	do KlantBewaarder.Bewaar(Personality,KlantData)
-]]></Implementation>
-</Method>
-
-<Method name="UpdateKlantDataZonderVerificatie">
-<Final>1</Final>
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands(),Personality:DOM.common.Personality</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
-	set KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
-	set KlantData.ID = KlantID
-	set KlantData.Naam = KlantNaam
-	set KlantData.Taal = Taal
-	Set KlantData.EmailAdres = KlantNaam_"@"_KlantNaam_".be"
-	Set KlantData.Postcode = "DummyPostcode"
-	Set KlantData.FaxNummer = "DummyFaxNr"
-	Set KlantData.TelefoonNummer = "DummyTelefoonNr"
-	Set KlantData.StraatEnNr = "DummyStraatEnNr"
-	do KlantBewaarder.Bewaar(Personality,KlantData)
-]]></Implementation>
-</Method>
-
 <Method name="GeefBestandLocatie">
 <FormalSpec>SubPath:TECH.String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Integratie/Webshop/Winkelkar/LadeInWinkelkarTemplate.cls.xml
===================================================================
diff -u -r30218 -r34494
--- vhTest/Integratie/Webshop/Winkelkar/LadeInWinkelkarTemplate.cls.xml	(.../LadeInWinkelkarTemplate.cls.xml)	(revision 30218)
+++ vhTest/Integratie/Webshop/Winkelkar/LadeInWinkelkarTemplate.cls.xml	(.../LadeInWinkelkarTemplate.cls.xml)	(revision 34494)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="vhTest.Integratie.Webshop.Winkelkar.LadeInWinkelkarTemplate">
 <Abstract>1</Abstract>
-<Super>vhTest.Integratie.TestCase</Super>
+<Super>vhTest.Integratie.TestBase</Super>
 
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
Index: vhTest/Integratie/TestBase.cls.xml
===================================================================
diff -u
--- vhTest/Integratie/TestBase.cls.xml	(revision 0)
+++ vhTest/Integratie/TestBase.cls.xml	(revision 34494)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Integratie.TestBase">
+<Abstract>1</Abstract>
+<Super>vhTest.Integratie.TestCase</Super>
+
+<Method name="UpdateSFSKlantData">
+<Final>1</Final>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Duits()</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
+	set KlantData = ##class(DOM.common.dto.KlantData).%New()
+	set KlantData.ID = KlantID
+	set KlantData.Naam = KlantNaam
+	set KlantData.Taal = Taal
+	do KlantBewaarder.Bewaar(##class(DOM.common.SFSPersonality).Instance(),KlantData)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateHaefeleBEKlantData">
+<Final>1</Final>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
+	set KlantData = ##class(DOM.common.dto.KlantData).%New()
+	set KlantData.ID = KlantID
+	set KlantData.Naam = KlantNaam
+	set KlantData.Taal = Taal
+	do KlantBewaarder.Bewaar(##class(DOM.common.HaefeleBEPersonality).Instance(),KlantData)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKlantData">
+<Final>1</Final>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands(),Personality:DOM.common.Personality</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
+	set KlantData = ##class(DOM.common.dto.KlantData).%New()
+	set KlantData.ID = KlantID
+	set KlantData.Naam = KlantNaam
+	set KlantData.Taal = Taal
+	do KlantBewaarder.Bewaar(Personality,KlantData)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKischKlantData">
+<Final>1</Final>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands(),Personality:DOM.common.Personality,EmailAdres:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
+	set KlantData = ##class(DOM.common.dto.KischKlantData).%New()
+	set KlantData.ID = KlantID
+	set KlantData.Naam = KlantNaam
+	set KlantData.Taal = Taal
+	set KlantData.EmailAdres = EmailAdres
+	do KlantBewaarder.Bewaar(Personality,KlantData)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateDaroKlantData">
+<Final>1</Final>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands(),Personality:DOM.common.Personality,EmailAdres:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
+	set KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
+	set KlantData.ID = KlantID
+	set KlantData.Naam = KlantNaam
+	set KlantData.Taal = Taal
+	set KlantData.EmailAdres = EmailAdres
+	do KlantBewaarder.Bewaar(Personality,KlantData)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKlantDataZonderVerificatie">
+<Final>1</Final>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,KlantNaam:%String,Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands(),Personality:DOM.common.Personality</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantBewaarder As APPS.VKP.KlantDataBewaarder = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefKlantDataBewaarder()
+	set KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
+	set KlantData.ID = KlantID
+	set KlantData.Naam = KlantNaam
+	set KlantData.Taal = Taal
+	Set KlantData.EmailAdres = KlantNaam_"@"_KlantNaam_".be"
+	Set KlantData.Postcode = "DummyPostcode"
+	Set KlantData.FaxNummer = "DummyFaxNr"
+	Set KlantData.TelefoonNummer = "DummyTelefoonNr"
+	Set KlantData.StraatEnNr = "DummyStraatEnNr"
+	do KlantBewaarder.Bewaar(Personality,KlantData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml
===================================================================
diff -u -r29059 -r34494
--- vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml	(.../WebserverKlantenPerPersonalityTemplate.cls.xml)	(revision 29059)
+++ vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml	(.../WebserverKlantenPerPersonalityTemplate.cls.xml)	(revision 34494)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="vhTest.Integratie.WebserverKlantenPerPersonalityTemplate">
 <Abstract>1</Abstract>
-<Super>vhTest.Integratie.TestCase</Super>
+<Super>vhTest.Integratie.TestBase</Super>
 
 <Parameter name="GebruikBestandTeller">
 <Type>%Integer</Type>