Index: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r58241 -r58267
--- DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58241)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58267)
@@ -30,6 +30,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="CampeTonny">
+<Type>%String</Type>
+<InitialExpression>"22"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Daro">
 <Type>%String</Type>
 <InitialExpression>"10"</InitialExpression>
Index: vhDeploy/D20190924xUrlsVhisie4CampeTonny.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xUrlsVhisie4CampeTonny.cls.xml	(revision 0)
+++ vhDeploy/D20190924xUrlsVhisie4CampeTonny.cls.xml	(revision 58267)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xUrlsVhisie4CampeTonny">
+<Super>vhDeploy.Deploy</Super>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If ($$$Server = "CACHE01") {
+		Do ..ZetSleutel("CampeTonny", "https://campemetaalwaren.drawerconfigurator.com")
+	} Else {
+		Do ..ZetSleutel("CampeTonny", "http://campemetaalwaren.website.testing.vanhoecke.be")
+	}
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("Personality_WebshopVersie_CampeTonny", "V4")
+]]></Implementation>
+</Method>
+
+<Method name="ZetSleutel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Personality:%String,Url:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.EC.impl.Webshop.UrlBepaler_V4_"_Personality, Url)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r58241 -r58267
--- DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58241)
+++ DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58267)
@@ -18,6 +18,8 @@
 		Do ..VerwerkBeslagteknikk()
 	} ElseIf Personality = "21" {
 		Do ..VerwerkBiemarBois()
+	} ElseIf Personality = "22" {
+		Do ..VerwerkCampeTonny()
 	} ElseIf Personality = "10" {
 		Do ..VerwerkDaro()
 	} ElseIf Personality = "15" {
@@ -81,6 +83,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58241)
+++ WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58267)
@@ -166,6 +166,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(##class(WSimpl.Unishop.Login.ParametersHandel).%New(),CampeTonnyPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(##class(WSimpl.Unishop.Login.ParametersHandel).%New(), HeinPersonality.GeefPrefix())
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r58241 -r58267
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58241)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58267)
@@ -197,13 +197,23 @@
 
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "biemar")) {
 		Set ..Response.PersonalityId = Personality.BiemarBois
+		Do ##class(Tools.Wlip).%New(207).String("biemar")
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Frans()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
 		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
 		
 		Set Resultaat = ..Response.IsGeldig
 
+	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "campemetaalwaren")) {
+		Set ..Response.PersonalityId = Personality.CampeTonny
+		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
+		Set ..Response.IsContactGegevensFormulierNodig = $$$False
+		Set ..Response.IsLoginFormulierNodig = $$$False
+		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		
+		Set Resultaat = ..Response.IsGeldig
+
 	} ElseIf (DecrypteerRequest.Hostname = "") {
 		Set ..Response.IsGeldig = $$$False
 	} ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(##class(TECH.StringUtils).Equals(DecrypteerRequest.Header.PersonalityId,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.JBarth))) {
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58241)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58267)
@@ -144,6 +144,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = CampeTonnyPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(CampeTonnyPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/CampeTonnyPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/CampeTonnyPersonality.cls.xml	(revision 0)
+++ DOM/common/CampeTonnyPersonality.cls.xml	(revision 58267)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.CampeTonnyPersonality">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.impl.HandelPersonality</Super>
+
+<Method name="Instance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.impl.Personality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(##class(DOM.common.enu.Personality).CampeTonny())
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[	do Visitor.VerwerkCampeTonny($this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.enu.Taal).Nederlands()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).CampeTonny())
+]]></Implementation>
+</Method>
+
+<Method name="IsHandel">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Campe Tonny NV"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "CampeTonny_"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58241)
+++ APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58267)
@@ -23,6 +23,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="CampeTonny">
+<Type>%String</Type>
+<InitialExpression>"CAMP"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Daro">
 <Type>%String</Type>
 <InitialExpression>"DARO"</InitialExpression>
Index: APPS/EC/impl/ECommerceAPI.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 58241)
+++ APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 58267)
@@ -118,6 +118,8 @@
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceBeslagteknikk).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.BiemarBois) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceBiemarBois).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.CampeTonny) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceCampeTonny).%New()
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor Personality '" _ $Select($IsObject(Personality):Personality.GeefID(),1:"[geen object]") _ "' bestaat geen KlantInstellingenService."))
 	}
Index: vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58241)
+++ vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58267)
@@ -31,6 +31,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 58241)
+++ APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 58267)
@@ -66,6 +66,10 @@
 <FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 </Method>
Index: APPS/EC/enu/UniShopVerwerker.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/enu/UniShopVerwerker.cls.xml	(.../UniShopVerwerker.cls.xml)	(revision 58241)
+++ APPS/EC/enu/UniShopVerwerker.cls.xml	(.../UniShopVerwerker.cls.xml)	(revision 58267)
@@ -7,11 +7,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;SFS;HFLB;HFLE;VHEPN;DUPO;KISCH;HELMY;RAEM;DARO;HEIN;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;JBAR;BIBO</Default>
+<Default>;SFS;HFLB;HFLE;VHEPN;DUPO;KISCH;HELMY;RAEM;DARO;HEIN;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;JBAR;BIBO;CAMP</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;SFS;HaefeleBelgie;HaefeleNederland;VHEPN;Dupont;Kisch;Destil;VanRaemdonck;Daro;Hein;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;JBarth;BiemarBois</Default>
+<Default>;SFS;HaefeleBelgie;HaefeleNederland;VHEPN;Dupont;Kisch;Destil;VanRaemdonck;Daro;Hein;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;JBarth;BiemarBois;CampeTonny</Default>
 </Parameter>
 
 <Method name="SFS">
@@ -139,6 +139,13 @@
 <Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).BiemarBois()
 ]]></Implementation>
 </Method>
+
+<Method name="CampeTonny">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.UniShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).CampeTonny()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/impl/KlantInstellingenServiceCampeTonny.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceCampeTonny.cls.xml	(revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceCampeTonny.cls.xml	(revision 58267)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.KlantInstellingenServiceCampeTonny">
+<Super>APPS.common.impl.KlantInstellingenService</Super>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58267)
@@ -63,6 +63,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Ferexpert())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BiemarBois())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).CampeTonny())
 	
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58267)
@@ -26,6 +26,7 @@
 	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX")
 	
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.BiemarBois, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.CampeTonny, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Daro, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Destil, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Dupont, VerwachteLadetypes)
Index: vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58241)
+++ vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58267)
@@ -31,6 +31,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/enu/WebShopVerwerker.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 58241)
+++ APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 58267)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;BETE;BIBO;JBAR</Default>
+<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;BETE;BIBO;JBAR;CAMP</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;Beslagteknikk;BiemarBois;JBarth</Default>
+<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;Beslagteknikk;BiemarBois;JBarth;CampeTonny</Default>
 </Parameter>
 
 <Method name="VHEPN">
@@ -160,6 +160,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CampeTonny">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit "CAMP"
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml	(.../ResultaatBepalerNietOpgegevenGebruiker.cls.xml)	(revision 58241)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml	(.../ResultaatBepalerNietOpgegevenGebruiker.cls.xml)	(revision 58267)
@@ -116,6 +116,12 @@
 <Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkCampeTonny">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml	(.../ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml)	(revision 58241)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml	(.../ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml)	(revision 58267)
@@ -109,6 +109,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..GebruikerID = "camp_1000_1"
+	Set ..VerwachteGebruikerID = ..GebruikerID
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58241)
+++ vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58267)
@@ -39,6 +39,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: DOM/VKP/enu/Klant/Verwerker.cls.xml
===================================================================
diff -u -r58210 -r58267
--- DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
+++ DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58267)
@@ -26,6 +26,8 @@
 		Do ..VerwerkBluran()
 	} ElseIf Klant = "K||11708" {
 		Do ..VerwerkBruynzeel()
+	} ElseIf Klant = "K||4826" {
+		Do ..VerwerkCampeTonny()
 	} ElseIf Klant = "K||18455" {
 		Do ..VerwerkConsumentVoorVhisieKlant()
 	} ElseIf Klant = "K||8092" {
@@ -221,6 +223,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkConsumentVoorVhisieKlant">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58241)
+++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58267)
@@ -33,6 +33,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58241)
+++ APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58267)
@@ -17,6 +17,8 @@
 		Do ..VerwerkBeslagDesign()
 	} ElseIf UniShopVerwerker = "BIBO" {
 		Do ..VerwerkBiemarBois()
+	} ElseIf UniShopVerwerker = "CAMP" {
+		Do ..VerwerkCampeTonny()
 	} ElseIf UniShopVerwerker = "DARO" {
 		Do ..VerwerkDaro()
 	} ElseIf UniShopVerwerker = "HELMY" {
@@ -68,6 +70,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/VKP/enu/Klant.cls.xml
===================================================================
diff -u -r58210 -r58267
--- DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 58210)
+++ DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 58267)
@@ -7,7 +7,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,K||1239,K||4682,K||1000,K||11708,K||4875,K||2671,K||6279,K||12130,K||7587,K||9365,K||12486,K||2523,K||1571,K||4451,K||4855,K||4830,K||9366,K||11211,K||12853,K||2999,K||6780,K||7833,K||1523,K||2669,K||6819,K||6820,K||6821,K||18455,K||27132,K||2009,K||23486,K||7606,K||23112,K||9382,K||18417,K||4073,K||1390,K||9197,K||3814,K||1387,K||8869,K||23968,K||11171,K||6261,K||24315,K||25868,K||24755,K||9905,K||10387,K||12983,K||9798,K||8092,K||3145,K||2265,K||4943,K||19485,K||1736,K||4875,K||4598,K||2254,K||2595,K||4026,K||14604,K||13446,K||13823,K||29070,K||30531,K||31008,K||14348,K||23930,K||30935,K||30924,K||30961,K||29009,K||25319,K||19454,K||24402,K||19455,K||15260,K||7189,K||32503</Default>
+<Default>,K||1239,K||4682,K||1000,K||11708,K||4875,K||2671,K||6279,K||12130,K||7587,K||9365,K||12486,K||2523,K||1571,K||4451,K||4855,K||4830,K||9366,K||11211,K||12853,K||2999,K||6780,K||7833,K||1523,K||2669,K||6819,K||6820,K||6821,K||18455,K||27132,K||2009,K||23486,K||7606,K||23112,K||9382,K||18417,K||4073,K||1390,K||9197,K||3814,K||1387,K||8869,K||23968,K||11171,K||6261,K||24315,K||25868,K||24755,K||9905,K||10387,K||12983,K||9798,K||8092,K||3145,K||2265,K||4943,K||19485,K||1736,K||4875,K||4598,K||2254,K||2595,K||4026,K||14604,K||13446,K||13823,K||29070,K||30531,K||31008,K||14348,K||23930,K||30935,K||30924,K||30961,K||29009,K||25319,K||19454,K||24402,K||19455,K||15260,K||7189,K||32503,K||4826</Default>
 </Parameter>
 
 <Method name="Keller">
@@ -572,6 +572,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CampeTonny">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(4826)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>
Index: vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58241)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58267)
@@ -31,6 +31,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58241)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58267)
@@ -70,12 +70,23 @@
 <Implementation><![CDATA[
 	Set ..KlantDataDto = ##class(DOM.common.dto.HandelKlantData).%New()
 	
-	#dim KlantData As DOM.VKP.impl.DupontKlantData = ..OpenKlantData(..KlantID, BiemarBoisPersonality)
+	#dim KlantData As DOM.VKP.impl.BiemarBoisKlantData = ..OpenKlantData(..KlantID, BiemarBoisPersonality)
 	
 	Do ..StelInKlantDataDtoVoorHandelAnoniem(KlantData, BiemarBoisPersonality.GeefPrefix())
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.HandelKlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.CampeTonnyKlantData = ..OpenKlantData(..KlantID, CampeTonnyPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandelAnoniem(KlantData, CampeTonnyPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml
===================================================================
diff -u -r58241 -r58267
--- DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 58241)
+++ DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 58267)
@@ -133,6 +133,12 @@
 <Implementation><![CDATA[	Do ..VerwerkAnderePersonality(BiemarBoisPersonality)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkCampeTonnty">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkAnderePersonality(CampeTonnyPersonality)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58241)
+++ APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58267)
@@ -18,6 +18,8 @@
 		Do ..VerwerkBeslagteknikk()
 	} ElseIf WebShopVerwerker = "BIBO" {
 		Do ..VerwerkBiemarBois()
+	} ElseIf WebShopVerwerker = "CAMP" {
+		Do ..VerwerkCampeTonny()
 	} ElseIf WebShopVerwerker = "DARO" {
 		Do ..VerwerkDaro()
 	} ElseIf WebShopVerwerker = "HELMY" {
@@ -79,6 +81,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 58267)
@@ -66,6 +66,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Ferexpert())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BiemarBois())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).CampeTonny())
 
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: DOM/VKP/enu/Klant/AutoComplete.cls.xml
===================================================================
diff -u -r58210 -r58267
--- DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
+++ DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58267)
@@ -58,6 +58,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="CampeTonny">
+<Type>%String</Type>
+<InitialExpression>"K||4826"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="ConsumentVoorVhisieKlant">
 <Type>%String</Type>
 <InitialExpression>"K||18455"</InitialExpression>
Index: DOM/common/PersonalityVisitor.cls.xml
===================================================================
diff -u -r58241 -r58267
--- DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 58241)
+++ DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 58267)
@@ -108,6 +108,11 @@
 <Abstract>1</Abstract>
 <FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkCampeTonny">
+<Abstract>1</Abstract>
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
+++ vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 58267)
@@ -48,6 +48,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestCampeTonny">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.CampeTonny,..Enum.Personality.VanHoecke,..Enum.Klant.CampeTonny)
+]]></Implementation>
+</Method>
+
 <Method name="TestZweygart">
 <Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.Zweygart,..Enum.Personality.Hein,"hein_55936")
 ]]></Implementation>
Index: vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58241)
+++ vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58267)
@@ -29,6 +29,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant.cls.xml
===================================================================
diff -u -r58241 -r58267
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant.cls.xml	(.../CheckoutTypeStandaardKlant.cls.xml)	(revision 58241)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant.cls.xml	(.../CheckoutTypeStandaardKlant.cls.xml)	(revision 58267)
@@ -69,6 +69,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CampeTonny">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.CheckoutTypeStandaardKlant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(4826)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r58244 -r58267
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 58244)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 58267)
@@ -96,6 +96,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
Index: APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58241)
+++ APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58267)
@@ -179,6 +179,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerReedsBesteld()
+	Do ..ControleerToegangEnPrijzen()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/impl/GebruikerAPIimpl.cls.xml
===================================================================
diff -u -r58241 -r58267
--- DOM/common/impl/GebruikerAPIimpl.cls.xml	(.../GebruikerAPIimpl.cls.xml)	(revision 58241)
+++ DOM/common/impl/GebruikerAPIimpl.cls.xml	(.../GebruikerAPIimpl.cls.xml)	(revision 58267)
@@ -126,6 +126,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..StelInDummyGebruiker()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..StelInDummyGebruiker()
Index: APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58241)
+++ APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58267)
@@ -30,6 +30,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="CampeTonny">
+<Type>%String</Type>
+<InitialExpression>"CAMP"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Daro">
 <Type>%String</Type>
 <InitialExpression>"DARO"</InitialExpression>
Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58241 -r58267
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58241)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58267)
@@ -126,6 +126,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(DupontPersonality)
Index: vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58241)
+++ vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58267)
@@ -33,6 +33,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: BL/Legacy/FactuurMailAfzenderBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- BL/Legacy/FactuurMailAfzenderBepaler.cls.xml	(.../FactuurMailAfzenderBepaler.cls.xml)	(revision 58241)
+++ BL/Legacy/FactuurMailAfzenderBepaler.cls.xml	(.../FactuurMailAfzenderBepaler.cls.xml)	(revision 58267)
@@ -51,6 +51,10 @@
 <FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58241)
+++ WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58267)
@@ -142,6 +142,12 @@
 <Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).BiemarBois()
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).CampeTonny()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58241)
+++ vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58267)
@@ -31,6 +31,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/Verwerker.cls.xml
===================================================================
diff -u -r58241 -r58267
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58241)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58267)
@@ -18,6 +18,8 @@
 		Do ..VerwerkBeslagteknikk()
 	} ElseIf CheckoutTypeStandaardKlant = "K||4943" {
 		Do ..VerwerkBiemarBois()
+	} ElseIf CheckoutTypeStandaardKlant = "K||4826" {
+		Do ..VerwerkCampeTonny()
 	} ElseIf CheckoutTypeStandaardKlant = "K||23968" {
 		Do ..VerwerkDaroFactors()
 	} ElseIf CheckoutTypeStandaardKlant = "K||7833" {
@@ -53,6 +55,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaroFactors">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/CampeTonny.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/CampeTonny.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/CampeTonny.cls.xml	(revision 58267)
@@ -0,0 +1,144 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.Test.CampeTonny">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Personality Campe Tonny wordt bepaald door Hostname">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatcampemetaalwaren"
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertEquals(DecrypteerResponse.PersonalityId, ##class(DOM.common.enu.Personality).CampeTonny())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality CampeTonny heeft Taal Nederlands">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatcampemetaalwaren"
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertEquals(DecrypteerResponse.Taal, ##class(DOM.enu.Taal).Nederlands())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geldigheid van requests voor Personality CampeTonny">
+<Implementation><![CDATA[
+	Do ..AssertRequestIsGeldig("", "", $$$False, "Ongeldig indien geen Ref en Dataopt voor Personality CampeTonny")
+	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$False, "Ongeldig indien geen Ref voor Personality CampeTonny")
+	Do ..AssertRequestIsGeldig("DummyRef", "", $$$False, "Ongeldig indien geen Dataopt voor Personality CampeTonny")
+	Do ..AssertRequestIsGeldig("DummyRef", "DummyDataOpt", $$$True, "Geldig indien Ref en Dataopt voor Personality CampeTonny")
+]]></Implementation>
+</Method>
+
+<Method name="AssertRequestIsGeldig">
+<FormalSpec>Ref:%String,DataOpt:%String,IsGeldig:%Boolean,Message:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatcampemetaalwaren"
+	Set DecrypteerRequest.Ref = Ref
+	Set DecrypteerRequest.DataOpt = DataOpt
+	
+	#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ..GeefLoginParameters()
+	#dim ParameterBepalerStub As vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do ParameterBepalerStub.IndienMethodCall("GeefLoginParameters", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).DanReturn(LoginParameters)
+	
+	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..GeefHandelPersonality()
+	#dim HandelPersonalityRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", LoginParameters.PersonalityID).DanReturn(HandelPersonality)
+	
+	#dim HandelToegelatenLadetypesBepalerStub As vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler = ##class(vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler).%New()
+	Do HandelToegelatenLadetypesBepalerStub.IndienMethodCall("Bepaal", LoginParameters.PersonalityID).DanDoeNiks() //(DummyToegelatenLadetypes)
+	
+	#dim KortingBewaarderStub As vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
+	Do KortingBewaarderStub.IndienMethodCall("BewaarMeegegevenKorting", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(ParameterBepalerStub, "", HandelPersonalityRepositoryStub, "", KortingBewaarderStub, "", HandelToegelatenLadetypesBepalerStub)
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertEquals(IsGeldig, DecrypteerResponse.IsGeldig, Message)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geldig indien Ref en DataOpt voor Personality CampeTonny">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatCampemetaalwaren"
+	Set DecrypteerRequest.Ref = "DummyRef"
+	Set DecrypteerRequest.DataOpt = "DummyDataOpt"
+	Set DecrypteerRequest.Header.Taal = "DummyTaal"
+	Set DecrypteerRequest.Header.GebruikerIp = "DummyGebruikerIp"
+	
+	#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ..GeefLoginParameters()
+	#dim ParameterBepalerMock As vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do ParameterBepalerMock.VerwachtMethodCall("GeefLoginParameters", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).DanReturn(LoginParameters)
+	
+	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..GeefHandelPersonality()
+	#dim HandelPersonalityRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryMock.VerwachtMethodCall("GeefViaID", LoginParameters.PersonalityID).DanReturn(HandelPersonality)
+	
+	#dim KlantDataBewaarderMock As vhTest.Mock.APPS.VKP.KlantDataBewaarder = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderMock.VerwachtMethodCall("Bewaar", HandelPersonality, ..Matches.IsA("DOM.common.dto.HandelKlantData")).DanDoeNiks()
+	
+	#dim DummyToegelatenLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyLadetype1", "DummyLadetype2")
+	#dim HandelToegelatenLadetypesBepalerMock As vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler = ##class(vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler).%New()
+	Do HandelToegelatenLadetypesBepalerMock.VerwachtMethodCall("Bepaal", LoginParameters.PersonalityID).DanReturn(DummyToegelatenLadetypes)
+	
+	#dim KortingBewaarderMock As vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
+	Do KortingBewaarderMock.VerwachtMethodCall("BewaarMeegegevenKorting", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(ParameterBepalerMock, "", HandelPersonalityRepositoryMock, "", KortingBewaarderMock, "", HandelToegelatenLadetypesBepalerMock, KlantDataBewaarderMock)
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertTrue(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+	Do $$$AssertEquals(DecrypteerResponse.PersonalityId, LoginParameters.PersonalityID)
+	Do $$$AssertEquals(DecrypteerResponse.KlantId, LoginParameters.KlantID)
+	Do $$$AssertEquals(DecrypteerResponse.KlantNaam, LoginParameters.KlantNaam)
+	Do $$$AssertEquals(DecrypteerResponse.GebruikerId, 1)
+	Do $$$AssertEquals(DecrypteerResponse.GebruikerNaam, "")
+	Do $$$AssertEquals(DecrypteerResponse.Taal, LoginParameters.Taal)
+	Do $$$AssertEqualsList(DecrypteerResponse.ToegelatenLadetypes, DummyToegelatenLadetypes)
+	
+	Do ParameterBepalerMock.Verifieer()
+	Do HandelPersonalityRepositoryMock.Verifieer()
+	Do KlantDataBewaarderMock.Verifieer()
+	Do KortingBewaarderMock.Verifieer()
+	Do HandelToegelatenLadetypesBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLoginParameters">
+<Private>1</Private>
+<ReturnType>WSimpl.Unishop.Login.ParametersHandel</ReturnType>
+<Implementation><![CDATA[
+	#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ##class(WSimpl.Unishop.Login.ParametersHandel).%New()
+	
+	Set LoginParameters.PersonalityID = "DummyPersonalityId"
+	Set LoginParameters.KlantID = "DummyKlantId"
+	Set LoginParameters.KlantNaam = "DummyKlantNaam"
+	Set LoginParameters.Taal = ##class(DOM.enu.Taal).Nederlands()
+	
+	Quit LoginParameters
+]]></Implementation>
+</Method>
+
+<Method name="GeefHandelPersonality">
+<Private>1</Private>
+<ReturnType>DOM.common.impl.HandelPersonality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.CampeTonnyPersonality).Instance()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 58241)
+++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 58267)
@@ -112,6 +112,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelMetVerificatieEnEmail(HeinPersonality)
Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r58255 -r58267
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 58255)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 58267)
@@ -54,6 +54,10 @@
 <FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58241)
+++ vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58267)
@@ -53,6 +53,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58241)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58267)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r58210 -r58267
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 58210)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 58267)
@@ -108,6 +108,7 @@
 	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL()) $$$True
 	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Zweygart()) $$$True
 	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).JBarth()) $$$True
+	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).CampeTonny()) $$$True
 	If ..ProjectSettingsAPI.IsActiefDuPontNaarEindklant() {
 		Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Dupont()) $$$True
 	}
Index: DOM/VKP/impl/CampeTonnyKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/CampeTonnyKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/CampeTonnyKlantData.cls.xml	(revision 58267)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.CampeTonnyKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58241)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58267)
@@ -177,6 +177,10 @@
 <Method name="VerwerkBiemarBois">
 <FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: PRGACNTs.inc.rou
===================================================================
diff -u -r58241 -r58267
--- PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 58241)
+++ PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 58267)
@@ -122,6 +122,7 @@
 	#define BeslagteknikkOptKey        "F8zan2R/MXQ#Ts7L"
 	#define JBarthKey                  "m57!p#}a)t6gbTHJ"
 	#define BiemarBoisKey              "PAh*Zu~naLnv#7<H"
+	#define TonyCampeKey               "Y8(%nLt32Tj8f2My"
 	
 	; Toegang voor OptimaFIX page : beperkt via controle op IP-adres 
 	;   !!! Te compileren in routines :           
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/AutoComplete.cls.xml
===================================================================
diff -u -r58241 -r58267
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58241)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58267)
@@ -30,6 +30,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="CampeTonny">
+<Type>%String</Type>
+<InitialExpression>"K||4826"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="DaroFactors">
 <Type>%String</Type>
 <InitialExpression>"K||23968"</InitialExpression>
Index: APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 58241)
+++ APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 58267)
@@ -72,6 +72,8 @@
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Ferexpert()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Beslagteknikk() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Beslagteknikk()
+	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).CampeTonny() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).CampeTonny()
 		
 	} Else {
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan de personalityID niet ophalen voor de WebShopVerwerker " _ DomeinVerwerker)
@@ -118,6 +120,8 @@
 		Set Verwerker = ##class(APPS.EC.enu.WebShopVerwerker).Zweygart()	
 	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).JBarth() {
 		Set Verwerker = ##class(APPS.EC.enu.WebShopVerwerker).JBarth()	
+	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).CampeTonny() {
+		Set Verwerker = ##class(APPS.EC.enu.WebShopVerwerker).CampeTonny()	
 	} Else {
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan de WebShopVerwerker niet ophalen voor de personalityID " _ PersonalityID)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 58241)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 58267)
@@ -70,6 +70,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..StelInGeenPrijsFactorBepaler()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..StelInGeenPrijsFactorBepaler()
Index: vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58241)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58267)
@@ -46,6 +46,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r58241 -r58267
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 58241)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 58267)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="DISPLAYLIST">
-<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,BiemarBois,JBarth</Default>
+<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,BiemarBois,CampeTonny,JBarth</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
-<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,32</Default>
+<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,32</Default>
 </Parameter>
 
 <Method name="VanHoecke">
@@ -160,16 +160,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CampeTonny">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit 22
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*
 Voorlopige toekenning van de nummerkes, nog te vervolledigen bij de implemetatie van de personalities.
 
-ClassMethod CampeTonny() As DOM.common.enu.Personality
-{
-	Quit 22
-}
-
 ClassMethod Rini() As DOM.common.enu.Personality
 {
 	Quit 23
Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r58241 -r58267
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 58241)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 58267)
@@ -136,6 +136,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, CampeTonnyPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, CampeTonnyPersonality)
+	Do ..ConverteerHandelKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58241)
+++ vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58267)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r58210 -r58267
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 58267)
@@ -3,61 +3,84 @@
 <Class name="vhUnitTest.DOM.common.impl.PersonalityService.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="Personality">
+<Type>DOM.common.enu.Personality.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Test: Standaardgedrag: handel levert niet rechtstreeks">
 <Implementation><![CDATA[
+	
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).RandomValue(##class(DOM.common.enu.Personality).HaefeleNL(), ##class(DOM.common.enu.Personality).Hein(), ##class(DOM.common.enu.Personality).Seefelder(), ##class(DOM.common.enu.Personality).Zweygart(), ##class(DOM.common.enu.Personality).Dupont())))
+	Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).RandomValue(..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart, ..Personality.Dupont)))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: HafeleNL levert rechtstreeks">
 <Implementation><![CDATA[
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).HaefeleNL()))
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.HaefeleNL))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Hein levert rechtstreeks">
 <Implementation><![CDATA[
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).Hein()))
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Hein))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Seefelder levert rechtstreeks">
 <Implementation><![CDATA[
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).Seefelder()))
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Seefelder))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Zweygart levert rechtstreeks">
 <Implementation><![CDATA[
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).Zweygart()))
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Zweygart))
 ]]></Implementation>
 </Method>
 
 <Method name="Test: JBarth levert rechtstreeks">
 <Implementation><![CDATA[
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).JBarth()))
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.JBarth))
 ]]></Implementation>
 </Method>
 
+<Method name="Test: CampeTonny levert rechtstreeks">
+<Implementation><![CDATA[
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.CampeTonny))
+]]></Implementation>
+</Method>
+
 <Method name="Test: Dupont levert rechtstreeks ifv ProjectSetting">
 <Implementation><![CDATA[
 	Set ProjectSettingsApiMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
 	
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$True)
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
-	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).Dupont()))
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Dupont))
 	
 	Do ProjectSettingsApiMock.IndienMethodCall("IsActiefDuPontNaarEindklant").DanReturn($$$False)
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New(,ProjectSettingsApiMock)
-	Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).Dupont()))
+	Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(..Personality.Dupont))
 ]]></Implementation>
 </Method>
+
+<Method name="%OnNew">
+<FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(AManager)
+	Set ..Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58244 -r58267
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58244)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58267)
@@ -174,6 +174,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("tonny.campe@campe-metaalwaren.be")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("info@du-pont.be")
Index: vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58241)
+++ vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58267)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58241)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58267)
@@ -35,7 +35,7 @@
 	#dim KlantId As %String = ""
 	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	
-	If ##class(TECH.StringUtils).Equals(RegistreerContactGegevensRequest.Header.PersonalityId,Personality.Beslagteknikk,Personality.Dupont,Personality.Ferexpert,Personality.Pavanello,Personality.Galimberti,Personality.Destil,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.BeslagDesign,Personality.JBarth,Personality.BiemarBois) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
+	If ##class(TECH.StringUtils).Equals(RegistreerContactGegevensRequest.Header.PersonalityId,Personality.Beslagteknikk,Personality.Dupont,Personality.Ferexpert,Personality.Pavanello,Personality.Galimberti,Personality.Destil,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.BeslagDesign,Personality.JBarth,Personality.BiemarBois,Personality.CampeTonny) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
 		Set KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
 		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
 	} ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
Index: vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58241)
+++ vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58267)
@@ -31,6 +31,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhDeploy/D20190925xCampeTonnyPersonalityAanmaken.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190925xCampeTonnyPersonalityAanmaken.cls.xml	(revision 0)
+++ vhDeploy/D20190925xCampeTonnyPersonalityAanmaken.cls.xml	(revision 58267)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190925xCampeTonnyPersonalityAanmaken">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+<Default>22</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van Personality voor CampeTonny (ID=22)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.CampeTonnyPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).CampeTonny()
+																				 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58241)
+++ vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58267)
@@ -33,6 +33,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58241)
+++ vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58267)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkCampeTonny">
+<FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r58241 -r58267
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58267)
@@ -65,6 +65,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Ferexpert())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BiemarBois())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).CampeTonny())
 	
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())