Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58718)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -79,6 +79,8 @@
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Zweygart())
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).JBarth())
+	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Kleiner())
+	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Layer())
 
 	#dim TransportFirmaBepalerFactory As APPS.EC.Transport.impl.Factory
 	Set TransportFirmaBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 58718)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 59055)
@@ -336,6 +336,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, KleinerPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, KleinerPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, LayerPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, LayerPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantData">
 <FormalSpec>KlantId:TECH.String,Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
Index: WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58718)
+++ WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 59055)
@@ -125,6 +125,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Kleiner()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Layer()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Galimberti()
Index: DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml
===================================================================
diff -u -r58718 -r59055
--- DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 58718)
+++ DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 59055)
@@ -187,6 +187,18 @@
 <Implementation><![CDATA[	Do ..VerwerkAnderePersonality(PierardPersonality)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkAnderePersonality(KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkAnderePersonality(LayerPersonality)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml
===================================================================
diff -u -r58210 -r59055
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 59055)
@@ -16,6 +16,10 @@
 		Do ..VerwerkHein()
 	} ElseIf CheckoutTypeMetTransportKeuzePersonality = "32" {
 		Do ..VerwerkJBarth()
+	} ElseIf CheckoutTypeMetTransportKeuzePersonality = "34" {
+		Do ..VerwerkKleiner()
+	} ElseIf CheckoutTypeMetTransportKeuzePersonality = "35" {
+		Do ..VerwerkLayer()
 	} ElseIf CheckoutTypeMetTransportKeuzePersonality = "13" {
 		Do ..VerwerkSeefelder()
 	} ElseIf CheckoutTypeMetTransportKeuzePersonality = "16" {
@@ -39,6 +43,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkSeefelder">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/VKP/impl/KleinerKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/KleinerKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/KleinerKlantData.cls.xml	(revision 59055)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.KleinerKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml
===================================================================
diff -u -r58821 -r59055
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 58821)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 59055)
@@ -189,6 +189,18 @@
 <Implementation><![CDATA[	Set ..PrijsFactorBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.GeenPrijsFactorBepaler).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..PrijsFactorBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.KleinerPrijsFactorBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..PrijsFactorBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.LayerPrijsFactorBepaler).%New()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58718)
+++ vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 59055)
@@ -136,6 +136,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPavanello">
 <FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkPavanello",PavanelloPersonality)
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r58282 -r59055
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58282)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -57,6 +57,8 @@
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Hein, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Zweygart, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.JBarth, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Kleiner, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Layer, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Seefelder, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Beslagteknikk, VerwachteLadetypes)
 ]]></Implementation>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 58718)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 59055)
@@ -237,6 +237,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Kleiner.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Kleiner.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Kleiner.cls.xml	(revision 59055)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner">
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser</Super>
+
+<Method name="PasAan">
+<FormalSpec>Winkelkar:WS.Vhisie4.WinkelkarExport.dto.Winkelkar</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New().Info("WinkelkarAanpasser voor Kleiner","Prijzen NIET overnemen, EconConfig uitblanken, Nietmeeleverens opzetten")
+	Set Winkelkar.PrijzenNietOvernemen = $$$True
+	
+	Set ValueList = ##class(TECH.KeyValue.List).%New()
+	
+	; klasse filter hieronder eigenlijk niet juist, maar dat is wat de convert maakt. nog te refactoren dus. kaartje gemaakt
+	Do ValueList.InsertKeyValue("%ClassName(1)","WS.Vhisie4.Winkelkar.dto.MaatwerkLijn")	
+	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
+		
+	Set it = ##class(TECH.DynamicIterator).%New(##class(TECH.ListIterator).%New(Winkelkar.Lijnen),,Filter)
+	While it.HasNext(){
+		#dim Lijn as WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn = it.Next()
+		Set Lijn.EconConfiguratieSleutel = ""		
+		Do ..PasAanMaatwerkLijnKenmerken(Lijn)		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PasAanMaatwerkLijnKenmerken">
+<FormalSpec>MaatwerkLijn:WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do:(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Variant") = "TAX") ..PasAanMaatwerkLijnKenmerkenTAX(MaatwerkLijn)
+	Do:(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Variant") = "LBX") ..PasAanMaatwerkLijnKenmerkenLBX(MaatwerkLijn)
+]]></Implementation>
+</Method>
+
+<Method name="PasAanMaatwerkLijnKenmerkenTAX">
+<FormalSpec>MaatwerkLijn:WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PasAanMaatwerkLijnKenmerkenLBX">
+<FormalSpec>MaatwerkLijn:WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling") = "true") && $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Isbinnenlade") = "true")  {
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Kleiner/PasAanTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Kleiner/PasAanTest.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Kleiner/PasAanTest.cls.xml	(revision 59055)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner.PasAanTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test dat NietMeeleverens worden aangepast gewone lade TAX">
+<Implementation><![CDATA[
+	#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+
+	Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner).%New()
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+			
+	Do Aanpasser.PasAan(Winkelkar)
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$True)
+	
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+]]></Implementation>
+</Method>
+
+<Method name="Test dat NietMeeleverens worden aangepast binnenlade TAX">
+<Implementation><![CDATA[
+	#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Isbinnenlade")
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	;Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling")
+
+	Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner).%New()
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+
+			
+	Do Aanpasser.PasAan(Winkelkar)
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$True)
+	
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+]]></Implementation>
+</Method>
+
+<Method name="Test er wordt niets anders aangepast dan de niet meeleverens TAX">
+<Implementation><![CDATA[
+		#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	
+		Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner).%New()
+		
+		Set Winkelkar.PrijzenNietOvernemen=$$$True
+		Set Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel=""
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset")	
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling")
+
+		#dim XMLBefore as %String=$$ObjToXML^vhLib(Winkelkar)
+				
+		Do Aanpasser.PasAan(Winkelkar)
+
+		#dim XMLAfter as %String = $$ObjToXML^vhLib(Winkelkar)
+		Do $$$AssertEquals(XMLBefore,XMLAfter)
+]]></Implementation>
+</Method>
+
+<Method name="Test dat NietMeeleverens worden aangepast gewone lade LBX">
+<Implementation><![CDATA[
+	#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetLbx()
+	;Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+
+	Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner).%New()
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"false")
+	;Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"false")
+			
+	Do Aanpasser.PasAan(Winkelkar)
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$True)
+	
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"true")
+	;Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"true")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/enu/UniShopVerwerker.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/enu/UniShopVerwerker.cls.xml	(.../UniShopVerwerker.cls.xml)	(revision 58718)
+++ APPS/EC/enu/UniShopVerwerker.cls.xml	(.../UniShopVerwerker.cls.xml)	(revision 59055)
@@ -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;CAMP;RINI;FURN;YSPL;HFLD</Default>
+<Default>;SFS;HFLB;HFLE;VHEPN;DUPO;KISCH;HELMY;RAEM;DARO;HEIN;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;JBAR;BIBO;CAMP;RINI;FURN;YSPL;HFLD;KLNR;LAYR</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;SFS;HaefeleBelgie;HaefeleNederland;VHEPN;Dupont;Kisch;Destil;VanRaemdonck;Daro;Hein;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;JBarth;BiemarBois;CampeTonny;Rini;Furnifit;YachtSupplier;HaefeleDuitsland</Default>
+<Default>;SFS;HaefeleBelgie;HaefeleNederland;VHEPN;Dupont;Kisch;Destil;VanRaemdonck;Daro;Hein;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;JBarth;BiemarBois;CampeTonny;Rini;Furnifit;YachtSupplier;HaefeleDuitsland;Kleiner;Layer</Default>
 </Parameter>
 
 <Method name="SFS">
@@ -202,6 +202,20 @@
 <Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).HaefeleDuitsland()
 ]]></Implementation>
 </Method>
+
+<Method name="Kleiner">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.UniShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).Kleiner()
+]]></Implementation>
+</Method>
+
+<Method name="Layer">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.UniShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).Layer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58718)
+++ APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 59055)
@@ -50,6 +50,10 @@
 		Do ..VerwerkJBarth()
 	} ElseIf WebShopVerwerker = "KISCH" {
 		Do ..VerwerkKisch()
+	} ElseIf WebShopVerwerker = "KLNR" {
+		Do ..VerwerkKleiner()
+	} ElseIf WebShopVerwerker = "LAYR" {
+		Do ..VerwerkLayer()
 	} ElseIf WebShopVerwerker = "MBHO" {
 		Do ..VerwerkMeubelBeslagHolland()
 	} ElseIf WebShopVerwerker = "LMC" {
@@ -193,6 +197,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkMeubelBeslagHolland">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58955 -r59055
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58955)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 59055)
@@ -306,6 +306,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("manfred.hail@kleiner.de")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("service@layer-grosshandel.de")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>Galimbertiersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("webshop@galimbertiferramenta.com")
Index: DOM/VKP/enu/Klant/Verwerker.cls.xml
===================================================================
diff -u -r58920 -r59055
--- DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58920)
+++ DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 59055)
@@ -102,12 +102,16 @@
 		Do ..VerwerkKeller()
 	} ElseIf Klant = "K||2254" {
 		Do ..VerwerkKisch()
+	} ElseIf Klant = "K||32915" {
+		Do ..VerwerkKleiner()
 	} ElseIf Klant = "K||25868" {
 		Do ..VerwerkKvikBE()
 	} ElseIf Klant = "K||24315" {
 		Do ..VerwerkKvikNL()
 	} ElseIf Klant = "K||2265" {
 		Do ..VerwerkLabonorm()
+	} ElseIf Klant = "K||32903" {
+		Do ..VerwerkLayer()
 	} ElseIf Klant = "K||9798" {
 		Do ..VerwerkLenssenProduktie()
 	} ElseIf Klant = "K||6819" {
@@ -469,6 +473,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkKvikBE">
 <Abstract>1</Abstract>
 <Private>1</Private>
@@ -487,6 +497,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkLayer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkLenssenProduktie">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml
===================================================================
diff -u -r58210 -r59055
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 58210)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 59055)
@@ -43,12 +43,16 @@
 		Quit:(KlantID=Klant.Hein) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Hein).%New()
 		Quit:(KlantID=Klant.Zweygart) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%New()
 		Quit:(KlantID=Klant.JBarth) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.JBarth).%New()
+		Quit:(KlantID=Klant.Kleiner) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner).%New()
+		Quit:(KlantID=Klant.Layer) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer).%New()
 		If (..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()){
 			Quit:(KlantID = Klant.DaroFactors) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Daro).%New()
 		}		
 	} Elseif (Personality = ##class(DOM.common.enu.Personality).Hein()) {
 		Quit:(VorigePersonality = ##class(DOM.common.enu.Personality).Zweygart()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%New()
 		Quit:(VorigePersonality = ##class(DOM.common.enu.Personality).JBarth()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.JBarth).%New()
+		Quit:(VorigePersonality = ##class(DOM.common.enu.Personality).Kleiner()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner).%New()
+		Quit:(VorigePersonality = ##class(DOM.common.enu.Personality).Layer()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer).%New()
 
 	}
 	Quit ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Standaard).%New()
Index: DOM/VKP/enu/Klant.cls.xml
===================================================================
diff -u -r58920 -r59055
--- DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 58920)
+++ DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 59055)
@@ -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,K||4826,K||3878,K||2865,K||29279,K||10421,K||21672,K||22062,K||3513,K||32672,K||1445</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,K||3878,K||2865,K||29279,K||10421,K||21672,K||22062,K||3513,K||32672,K||1445,K||32903,K||32915</Default>
 </Parameter>
 
 <Method name="Keller">
@@ -642,6 +642,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Kleiner">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(32915)
+]]></Implementation>
+</Method>
+
+<Method name="Layer">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(32903)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>
Index: vhDeploy/D20191203xKleinerPersonalityAanmaken.cls.xml
===================================================================
diff -u
--- vhDeploy/D20191203xKleinerPersonalityAanmaken.cls.xml	(revision 0)
+++ vhDeploy/D20191203xKleinerPersonalityAanmaken.cls.xml	(revision 59055)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20191203xKleinerPersonalityAanmaken">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+<Default>34</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van Personality voor Kleiner (ID=34)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.KleinerPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).Kleiner()
+																				 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/KleinerPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/KleinerPersonality.cls.xml	(revision 0)
+++ DOM/common/KleinerPersonality.cls.xml	(revision 59055)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.KleinerPersonality">
+<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).Kleiner())
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkKleiner($this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.enu.Taal).Duits()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).Hein(),"hein_55160")
+]]></Implementation>
+</Method>
+
+<Method name="IsHandel">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Kleiner"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Klnr_"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml
===================================================================
diff -u -r58210 -r59055
--- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -77,69 +77,30 @@
 </Method>
 
 <Method name="Test: Standaardgedrag SubHandel Zweygart - Hein">
-<Implementation><![CDATA[
-	#dim KlantBestelling As vhTest.Dummy.APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
-	Set KlantBestelling.PersonalityID = ##class(DOM.common.enu.Personality).Zweygart()
-
-	#dim TijdelijkeOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
-	#dim LeverancierOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
-	
-	Set OfferteDto = ##class(APPS.EC.dto.Offerte).%New()
-	Set WinkelkarDto = ##class(WS.Vhisie4.WinkelkarExport.dto.Winkelkar).%New()
-	Set WinkelkarDto.PersonalityId = ##class(DOM.common.enu.Personality).Hein()
-	
-	Set OfferteConverterStub = ##class(vhTest.Mock.APPS.EC.Verkoop.impl.OfferteConverter).%New()
-	Do OfferteConverterStub.IndienMethodCall("ConverteerNaarECommerce",TijdelijkeOfferte).DanReturn(OfferteDto)
-	
-	Set WinkelkarExportConverterStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.UnishopWinkelkarConverter.Converter).%New()
-	Do WinkelkarExportConverterStub.IndienMethodCall("Convert",OfferteDto).DanReturn(WinkelkarDto)
-	
-	Set KlantBestellingNaarLeverancierOfferteKopieerderStub = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New()
-	Do KlantBestellingNaarLeverancierOfferteKopieerderStub.IndienMethodCall("Kopieer", KlantBestelling).DanReturn(TijdelijkeOfferte)
-	
-	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	Do OfferteServiceMock.VerwachtMethodCall("KoppelAanOfferteVanHandel",KlantBestelling,LeverancierOfferte)
-	Do OfferteServiceMock.VerwachtMethodCall("KoppelLeverancierOfferteAanKlantBestelling",LeverancierOfferte,KlantBestelling)
-	
-	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do OfferteRepositoryMock.VerwachtMethodCall("VerwijderViaID",TijdelijkeOfferte.GeefID())
-	Do OfferteRepositoryMock.IndienMethodCall("BestaatViaID","1000").DanReturn($$$True)
-	
-	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do WinkelkarRepositoryMock.VerwachtMethodCall("VerwijderViaID",TijdelijkeOfferte.GeefWinkelkarID())
-	
-	Set Vhisie4WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
-	Do Vhisie4WinkelkarRepositoryMock.VerwachtMethodCall("Bewaar",WinkelkarDto).DanReturn("42")
-	Do Vhisie4WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteViaID","42").DanReturn(LeverancierOfferte)
-	
-	Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
-	Do DocumentReferentiesRepositoryMock.IndienMethodCall("BestaatViaID","").DanReturn($$$True)
-	Do DocumentReferentiesRepositoryMock.VerwachtMethodCall("VerwijderViaID",TijdelijkeOfferte.GeefDocumentReferenties().GeefID())
-	
-	Set WinkelkarAanpasserMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser).%New()
-	Do WinkelkarAanpasserMock.VerwachtMethodCall("PasAan",WinkelkarDto).DanDoeNiks()
-	
-	Set WinkelkarAanpasserFactoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
-	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser",##class(DOM.common.enu.Personality).Hein(),"",##class(DOM.common.enu.Personality).Zweygart()).DanReturn(WinkelkarAanpasserMock)
-	
-	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock)
-	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(KlantBestelling)
-	
-	Do WinkelkarAanpasserMock.Verifieer()
-	Do WinkelkarAanpasserFactoryMock.Verifieer()
-	Do Vhisie4WinkelkarRepositoryMock.Verifieer()
-	Do OfferteServiceMock.Verifieer()
-	Do OfferteRepositoryMock.Verifieer()
-	Do WinkelkarRepositoryMock.Verifieer()
-	Do DocumentReferentiesRepositoryMock.Verifieer()
-	do $$$AssertEquals(Resultaat,LeverancierOfferte)
+<Implementation><![CDATA[	do ..StandaardgedragHeinSubHandel( ##class(DOM.common.enu.Personality).Zweygart())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Standaardgedrag SubHandel JBarth - Hein">
+<Implementation><![CDATA[	Do ..StandaardgedragHeinSubHandel(##class(DOM.common.enu.Personality).JBarth())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardgedrag SubHandel Kleiner - Hein">
+<Implementation><![CDATA[	Do ..StandaardgedragHeinSubHandel(##class(DOM.common.enu.Personality).Kleiner())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardgedrag SubHandel Layer - Hein">
+<Implementation><![CDATA[	Do ..StandaardgedragHeinSubHandel(##class(DOM.common.enu.Personality).Layer())
+]]></Implementation>
+</Method>
+
+<Method name="StandaardgedragHeinSubHandel">
+<FormalSpec>HeinSubPersonality:DOM.common.enu.Personality</FormalSpec>
 <Implementation><![CDATA[
 	#dim KlantBestelling As vhTest.Dummy.APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
-	Set KlantBestelling.PersonalityID = ##class(DOM.common.enu.Personality).JBarth()
+	Set KlantBestelling.PersonalityID = HeinSubPersonality
 
 	#dim TijdelijkeOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
 	#dim LeverancierOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
@@ -180,7 +141,7 @@
 	Do WinkelkarAanpasserMock.VerwachtMethodCall("PasAan",WinkelkarDto).DanDoeNiks()
 	
 	Set WinkelkarAanpasserFactoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
-	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser",##class(DOM.common.enu.Personality).Hein(),"",##class(DOM.common.enu.Personality).JBarth()).DanReturn(WinkelkarAanpasserMock)
+	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser",##class(DOM.common.enu.Personality).Hein(),"",HeinSubPersonality).DanReturn(WinkelkarAanpasserMock)
 	
 	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock)
 	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(KlantBestelling)
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality.cls.xml
===================================================================
diff -u -r58210 -r59055
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality.cls.xml	(.../CheckoutTypeMetTransportKeuzePersonality.cls.xml)	(revision 58210)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality.cls.xml	(.../CheckoutTypeMetTransportKeuzePersonality.cls.xml)	(revision 59055)
@@ -40,6 +40,20 @@
 <Implementation><![CDATA[	Quit ##class(DOM.common.enu.Personality).JBarth()
 ]]></Implementation>
 </Method>
+
+<Method name="Kleiner">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.CheckoutTypeMetTransportKeuzePersonality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.enu.Personality).Kleiner()
+]]></Implementation>
+</Method>
+
+<Method name="Layer">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.CheckoutTypeMetTransportKeuzePersonality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.enu.Personality).Layer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58718)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 59055)
@@ -236,6 +236,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.HandelKlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.JBarthKlantData = ..OpenKlantData(..KlantID, KleinerPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandelAnoniem(KlantData, KleinerPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.HandelKlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.JBarthKlantData = ..OpenKlantData(..KlantID, LayerPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandelAnoniem(KlantData, LayerPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58528 -r59055
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58528)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 59055)
@@ -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,Personality.CampeTonny,Personality.Rini,Personality.Furnifit,Personality.YachtSupplier,Personality.DSGroup,Personality.DeBisschop,Personality.DeceuninckDeforce,Personality.Pierard) && $$$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,Personality.Rini,Personality.Furnifit,Personality.YachtSupplier,Personality.DSGroup,Personality.DeBisschop,Personality.DeceuninckDeforce,Personality.Pierard,Personality.Kleiner,Personality.Layer) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
 		Set KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
 		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
 	} ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
Index: vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58718)
+++ vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 59055)
@@ -25,6 +25,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagteknikk">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58718)
+++ APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 59055)
@@ -142,6 +142,20 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Kleiner">
+<Type>%String</Type>
+<InitialExpression>"KLNR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Layer">
+<Type>%String</Type>
+<InitialExpression>"LAYR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="MeubelBeslagHolland">
 <Type>%String</Type>
 <InitialExpression>"MBHO"</InitialExpression>
Index: WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58718)
+++ WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 59055)
@@ -274,6 +274,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(##class(WSimpl.Unishop.Login.ParametersHandel).%New(), KleinerPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(##class(WSimpl.Unishop.Login.ParametersHandel).%New(), LayerPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHandelMetVerificatie">
 <FormalSpec>LoginParameters:WSimpl.Unishop.Login.Parameters,PrefixHandel:%String</FormalSpec>
 <Private>1</Private>
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58718)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 59055)
@@ -151,6 +151,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ..ToegelatenLadetypes.Insert("TAX")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	
+	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ..ToegelatenLadetypes.Insert("TAX")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58718)
+++ vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 59055)
@@ -25,6 +25,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagteknikk">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58718)
+++ vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 59055)
@@ -25,6 +25,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagteknikk">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/EC/impl/KlantInstellingenServiceLayer.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceLayer.cls.xml	(revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceLayer.cls.xml	(revision 59055)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.KlantInstellingenServiceLayer">
+<Super>APPS.common.impl.KlantInstellingenService</Super>
+
+<Method name="MagKlantLBXVerpakkingTypeBestellen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.LBXVerpakkingType</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()) || (VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()))
+]]></Implementation>
+</Method>
+
+<Method name="MagKlantTAORVerpakkingTypeBestellen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()) || (VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/JBarth.cls.xml
===================================================================
diff -u -r58210 -r59055
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/JBarth.cls.xml	(.../JBarth.cls.xml)	(revision 58210)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/JBarth.cls.xml	(.../JBarth.cls.xml)	(revision 59055)
@@ -61,7 +61,7 @@
 	Set KlantData.Naam = "Een Naam"
 
 	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
-	Set DecrypteerRequest.Hostname = "HostnameBevatZweygart"
+	Set DecrypteerRequest.Hostname = "HostnameBevatJBarth"
 	Set DecrypteerRequest.Ref = "RandomRef"
 	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
 	
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/LayerPrijsFactorBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/LayerPrijsFactorBepaler.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/LayerPrijsFactorBepaler.cls.xml	(revision 59055)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.LayerPrijsFactorBepaler">
+<Super>TECH.RegisteredObject,APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler</Super>
+
+<Parameter name="Factor">
+<Type>%Numeric</Type>
+<Default>2.605</Default>
+</Parameter>
+
+<Method name="GeefPrijsFactor">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..#Factor
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml
===================================================================
diff -u -r58210 -r59055
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -163,6 +163,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Kleiner waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX">
+<Implementation><![CDATA[
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).Kleiner()
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
+	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
+		
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+]]></Implementation>
+</Method>
+
+<Method name="Test Layer waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor TAX">
+<Implementation><![CDATA[
+	Set NietMeerekenenBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler.NietMeerekenenBepaler).%New()
+	#dim KlantID = ##class(DOM.VKP.enu.Klant).Layer()
+	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
+	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
+	
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
+		
+	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
+	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+]]></Implementation>
+</Method>
+
 <Method name="Test Hein waarvoor we wel uit de hfboom weglaten om prijs te berekenen voor LBX">
 <Implementation><![CDATA[
 	Set ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r58718 -r59055
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 58718)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 59055)
@@ -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,CampeTonny,Rini,Furnifit,YachtSupplier,DSGroup,DeBisschop,DeceuninckDeforce,Pierard,JBarth,HaefeleDE</Default>
+<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,BiemarBois,CampeTonny,Rini,Furnifit,YachtSupplier,DSGroup,DeBisschop,DeceuninckDeforce,Pierard,JBarth,HaefeleDE,Kleiner,Layer</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,22,23,24,25,28,29,30,31,32,33</Default>
+<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,29,30,31,32,33,34,35</Default>
 </Parameter>
 
 <Method name="VanHoecke">
@@ -249,6 +249,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Kleiner">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit 34
+]]></Implementation>
+</Method>
+
+<Method name="Layer">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit 35
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 58718)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -153,6 +153,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Winkelkar voor Kleiner (niet HäfeleNL)">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).Kleiner())
+		
+	Set PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
+	
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub)
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar)
+	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"EX")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Winkelkar voor Layer (niet HäfeleNL)">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).Layer())
+		
+	Set PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
+	
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub)
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar)
+	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"EX")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Winkelkar voor VanHoecke met herbestellingbijprobleem">
 <Implementation><![CDATA[
 	Set ..Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).WinkelkarMetHerbestellingBijProbleem()
Index: APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml
===================================================================
diff -u -r58210 -r59055
--- APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml	(.../DoorHandelMeeleverenBepalerFactory.cls.xml)	(revision 58210)
+++ APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml	(.../DoorHandelMeeleverenBepalerFactory.cls.xml)	(revision 59055)
@@ -33,6 +33,8 @@
 	Quit:(PersonalityId = Personality.Hein) ..GeefNietBeneluxBepaler()
 	Quit:(PersonalityId = Personality.Zweygart) ..GeefNietBeneluxBepaler()
 	Quit:(PersonalityId = Personality.JBarth) ..GeefNietBeneluxBepaler()
+	Quit:(PersonalityId = Personality.Kleiner) ..GeefNietBeneluxBepaler()
+	Quit:(PersonalityId = Personality.Layer) ..GeefNietBeneluxBepaler()
 	If (PersonalityId = Personality.Daro){
 		Quit:(..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ..GeefNietBeneluxBepaler()
 	}
Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58718 -r59055
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58718)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 59055)
@@ -216,6 +216,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagDesign">
 <FormalSpec>BeslagDesignPersonality:DOM.common.BeslagDesignPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(BeslagDesignPersonality)
Index: vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58718)
+++ vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 59055)
@@ -135,6 +135,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPavanello">
 <FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkPavanello",PavanelloPersonality)
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58973 -r59055
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58973)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 59055)
@@ -318,6 +318,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = KleinerPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(KleinerPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = LayerPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(LayerPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhDeploy/D20190924xLayerKorting.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xLayerKorting.cls.xml	(revision 0)
+++ vhDeploy/D20190924xLayerKorting.cls.xml	(revision 59055)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xLayerKorting">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update Kortingpercentage Layer (Hein)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).Taorbox())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).TandemboxAntaro())
+]]></Implementation>
+</Method>
+
+<Method name="BewaarKortingMetVariant">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Variant:DOM.PM.enu.Variant</FormalSpec>
+<Implementation><![CDATA[
+	#dim KortingService As DOM.VKP.KortingService = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefKortingService()	
+	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	Set KortingSpecificatie.Aantal = 1
+	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingSpecificatie.Variant = Variant
+	Set KortingSpecificatie.PersonalityID = ##class(DOM.common.enu.Personality).Hein()
+	Set KortingSpecificatie.KlantID = "hein_30563"
+	
+	#dim KortingPercentage As %String = 55.84 / 100
+	
+	Do KortingService.StelInKorting(KortingSpecificatie,KortingPercentage)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58718)
+++ vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 59055)
@@ -136,6 +136,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkNoteborn">
 <FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkNoteborn",NotebornPersonality)
Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58718)
+++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 59055)
@@ -27,6 +27,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagteknikk">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/KleinerPrijsFactorBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/KleinerPrijsFactorBepaler.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/KleinerPrijsFactorBepaler.cls.xml	(revision 59055)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.KleinerPrijsFactorBepaler">
+<Super>TECH.RegisteredObject,APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler</Super>
+
+<Parameter name="Factor">
+<Type>%Numeric</Type>
+<Default>2.605</Default>
+</Parameter>
+
+<Method name="GeefPrijsFactor">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..#Factor
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58718)
+++ vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 59055)
@@ -43,6 +43,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPierard">
 <FormalSpec>PierardPersonality:DOM.common.PierardPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhDeploy/D20190924xUrlsVhisie4Kleiner.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xUrlsVhisie4Kleiner.cls.xml	(revision 0)
+++ vhDeploy/D20190924xUrlsVhisie4Kleiner.cls.xml	(revision 59055)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xUrlsVhisie4Kleiner">
+<Super>vhDeploy.Deploy</Super>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If ($$$Server = "CACHE01") {
+		Do ..ZetSleutel("Kleiner", "https://kleiner.drawerconfigurator.com")
+	} Else {
+		Do ..ZetSleutel("Kleiner", "http://kleiner.website.testing.vanhoecke.be")
+	}
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("Personality_WebshopVersie_Kleiner", "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: APPS/EC/enu/WebShopVerwerker.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 58718)
+++ APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 59055)
@@ -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;CAMP;RINI;FURN;YSPL;DSGR;DBSP;DCDF;PIER;HFLD</Default>
+<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;BETE;BIBO;JBAR;CAMP;RINI;FURN;YSPL;DSGR;DBSP;DCDF;PIER;HFLD;KLNR;LAYR</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;CampeTonny;Rini;Furnifit;YachtSupplier;DSGroup;DeBisschop;DeceuninckDeforce;Pierard;HaefeleDuitsland</Default>
+<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;Beslagteknikk;BiemarBois;JBarth;CampeTonny;Rini;Furnifit;YachtSupplier;DSGroup;DeBisschop;DeceuninckDeforce;Pierard;HaefeleDuitsland;Kleiner;Layer</Default>
 </Parameter>
 
 <Method name="VHEPN">
@@ -223,6 +223,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Kleiner">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit "KLNR"
+]]></Implementation>
+</Method>
+
+<Method name="Layer">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit "LAYR"
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58718)
+++ APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 59055)
@@ -47,8 +47,16 @@
 		Do ..VerwerkHein()
 	} ElseIf UniShopVerwerker = "JBAR" {
 		Do ..VerwerkJBarth()
+	} ElseIf UniShopVerwerker = "KLNR" {
+		Do ..VerwerkKleiner()
+	} ElseIf UniShopVerwerker = "LAYR" {
+		Do ..VerwerkLayer()
 	} ElseIf UniShopVerwerker = "KISCH" {
 		Do ..VerwerkKisch()
+	} ElseIf UniShopVerwerker = "KLNR" {
+		Do ..VerwerkKleiner()
+	} ElseIf UniShopVerwerker = "LAYR" {
+		Do ..VerwerkLayer()
 	} ElseIf UniShopVerwerker = "PAVA" {
 		Do ..VerwerkPavanello()
 	} ElseIf UniShopVerwerker = "PIER" {
@@ -182,6 +190,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkPavanello">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r58874 -r59055
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 58874)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 59055)
@@ -328,6 +328,14 @@
 <Method name="VerwerkZweygart">
 <FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml
===================================================================
diff -u -r58210 -r59055
--- DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 58210)
+++ DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 59055)
@@ -28,7 +28,7 @@
 	Set Klant=##class(DOM.VKP.enu.Klant.AutoComplete).%New()
 	Set ListNM = ##class(%ListOfDataTypes).%New()
 	If Variant = ##class(DOM.PM.enu.Variant).Taorbox(){
-		If ((##class(TECH.StringUtils).Equals(KlantID,Klant.Ferexpert,Klant.Pavanello,Klant.Galimberti,Klant.Hein,Klant.Zweygart,Klant.JBarth ))
+		If ((##class(TECH.StringUtils).Equals(KlantID,Klant.Ferexpert,Klant.Pavanello,Klant.Galimberti,Klant.Hein,Klant.Zweygart,Klant.JBarth,Klant.Kleiner,Klant.Layer ))
 			|| ( ( (KlantID = Klant.DaroFactors) & ..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ) ) {
 
 			Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()
@@ -48,7 +48,7 @@
 		}
 	}
 	If Variant = ##class(DOM.PM.enu.Variant).LegraboxPure(){
-		If ((##class(TECH.StringUtils).Equals(KlantID,Klant.Hein,Klant.Zweygart,Klant.JBarth))
+		If ((##class(TECH.StringUtils).Equals(KlantID,Klant.Hein,Klant.Zweygart,Klant.JBarth,Klant.Kleiner,Klant.Layer))
 			|| ((KlantID = Klant.DaroFactors) & ..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ){
 				
 			Set LBXNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren.AutoComplete).%New()
Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r58821 -r59055
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 58821)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 59055)
@@ -110,6 +110,8 @@
 	Quit:(PersonalityID = Personality.HaefeleDE) $$$True
 	Quit:(PersonalityID = Personality.Zweygart) $$$True
 	Quit:(PersonalityID = Personality.JBarth) $$$True
+	Quit:(PersonalityID = Personality.Kleiner) $$$True
+	Quit:(PersonalityID = Personality.Layer) $$$True
 	Quit:(PersonalityID = Personality.BiemarBois) $$$True
 	Quit:(PersonalityID = Personality.CampeTonny) $$$True
 	Quit:(PersonalityID = Personality.Rini) $$$True
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r58210 -r59055
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -91,6 +91,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Kleiner heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
+<Implementation><![CDATA[	Do ..AssertHandelKlantDataAangemaaktVoorPersonality(..Personality.Kleiner)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Layer heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
+<Implementation><![CDATA[	Do ..AssertHandelKlantDataAangemaaktVoorPersonality(..Personality.Layer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kleiner heeft KlantId niet ingevuld: nieuw nummer genereren">
+<Implementation><![CDATA[	Do ..AssertNieuwNummerGegenereerdBinnenPersonality(..Personality.Kleiner)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Layer heeft KlantId niet ingevuld: nieuw nummer genereren">
+<Implementation><![CDATA[	Do ..AssertNieuwNummerGegenereerdBinnenPersonality(..Personality.Layer)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Dupont heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
 <Implementation><![CDATA[	Do ..AssertHandelKlantDataAangemaaktVoorPersonality(..Personality.Dupont)
 ]]></Implementation>
Index: cspBasis/TBX/Lib.mac.rou
===================================================================
diff -u -r58718 -r59055
--- cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 58718)
+++ cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 59055)
@@ -155,6 +155,8 @@
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).DeceuninckDeforce() $$$DeceuninckDeforceKey
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).Pierard() $$$PierardKey
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).HaefeleDuitsland() $$$HafeleDEKey
+	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).Kleiner() $$$KleinerKey
+	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).Layer() $$$LayerKey
 	Quit "DummyKey"
 	
 
Index: APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58718)
+++ APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 59055)
@@ -135,6 +135,20 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Kleiner">
+<Type>%String</Type>
+<InitialExpression>"KLNR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Layer">
+<Type>%String</Type>
+<InitialExpression>"LAYR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Pavanello">
 <Type>%String</Type>
 <InitialExpression>"PAVA"</InitialExpression>
Index: vhDeploy/D20190924xUrlsVhisie4Layer.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xUrlsVhisie4Layer.cls.xml	(revision 0)
+++ vhDeploy/D20190924xUrlsVhisie4Layer.cls.xml	(revision 59055)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xUrlsVhisie4Layer">
+<Super>vhDeploy.Deploy</Super>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If ($$$Server = "CACHE01") {
+		Do ..ZetSleutel("Layer", "https://layer.drawerconfigurator.com")
+	} Else {
+		Do ..ZetSleutel("Layer", "http://layer.website.testing.vanhoecke.be")
+	}
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("Personality_WebshopVersie_Layer", "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: vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58718)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 59055)
@@ -142,6 +142,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPavanello">
 <FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkPavanello",PavanelloPersonality)
Index: vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58718)
+++ vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 59055)
@@ -129,6 +129,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkNoteborn">
 <FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkNoteborn",NotebornPersonality)
Index: DOM/VKP/enu/Klant/AutoComplete.cls.xml
===================================================================
diff -u -r58920 -r59055
--- DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58920)
+++ DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 59055)
@@ -324,6 +324,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Kleiner">
+<Type>%String</Type>
+<InitialExpression>"K||32915"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="KvikBE">
 <Type>%String</Type>
 <InitialExpression>"K||25868"</InitialExpression>
@@ -345,6 +352,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Layer">
+<Type>%String</Type>
+<InitialExpression>"K||32903"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="LenssenProduktie">
 <Type>%String</Type>
 <InitialExpression>"K||9798"</InitialExpression>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Kleiner.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Kleiner.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Kleiner.cls.xml	(revision 59055)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.Test.Kleiner">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Personality Kleiner wordt bepaald door Hostname">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatKleiner"
+	
+	#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).Kleiner())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen Ref voor Personality Kleiner">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatKleiner"
+	Set DecrypteerRequest.Ref = ""
+	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
+	
+	#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 $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen DataOpt voor Personality Kleiner">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatKleiner"
+	Set DecrypteerRequest.Ref = "RandomRef"
+	Set DecrypteerRequest.DataOpt = ""
+	
+	#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 $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geldig indien Ref en DataOpt voor Personality Kleiner">
+<Implementation><![CDATA[
+	Set LoginParameters = ##class(WSimpl.Unishop.Login.ParametersHandel).%New()
+	Set LoginParameters.GebruikerID = "1"
+	Set LoginParameters.KlantID = "Kleiner_5"
+	Set LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).Kleiner()
+	Set LoginParameters.RemoteIP = "127.0.0.257"
+	Set LoginParameters.Taal = "E"
+
+	Set KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
+	Set KlantData.ID = "5"
+	Set KlantData.Naam = "Een Naam"
+
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatKleiner"
+	Set DecrypteerRequest.Ref = "RandomRef"
+	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
+	
+	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(LoginParameters)
+	
+	#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()
+
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Kleiner())
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("Klnr_")
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanReturn(KlantData)
+
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Kleiner()).DanReturn(HandelPersonalityStub)
+	
+	#dim HandelKlantDataRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelKlantDataRepositoryStub.IndienMethodCall("GeefViaID", LoginParameters.KlantID).DanReturn(KlantData)
+	Do HandelKlantDataRepositoryStub.IndienMethodCall("BestaatViaID", LoginParameters.KlantID).DanReturn($$$True)
+	
+	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,,HandelPersonalityRepositoryStub,,KortingBewaarderStub,,,KlantDataBewaarderStub,HandelKlantDataRepositoryStub)
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertTrue(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: PRGACNTs.inc.rou
===================================================================
diff -u -r58718 -r59055
--- PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 58718)
+++ PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 59055)
@@ -131,6 +131,8 @@
 	#define DeceuninckDeforceKey       "P#K]F8z<q7buWL&,"
 	#define PierardKey           	   "8}FHe](}gTp?]xsB"
 	#define HafeleDEKey				   "xUvS\g]\h'#{5H\L"
+	#define KleinerKey				   "N9B5zz.TUk~q()^,"
+	#define LayerKey				   "C?ZHZrzG6jvzq3K\"
 	
 	; Toegang voor OptimaFIX page : beperkt via controle op IP-adres 
 	;   !!! Te compileren in routines :           
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r58821 -r59055
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 58821)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -24,7 +24,7 @@
 	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
 	while PersonalityIterator.HasNext() {
 		#dim PersonalityId as %String = PersonalityIterator.Next()
-		if ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth, ..Personality.Dupont,..Personality.BiemarBois,..Personality.CampeTonny,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,,..Personality.DSGroup){
+		if ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.HaefeleNL, ..Personality.Hein, ..Personality.Seefelder, ..Personality.Zweygart,..Personality.JBarth,..Personality.Kleiner,..Personality.Layer, ..Personality.Dupont,..Personality.BiemarBois,..Personality.CampeTonny,..Personality.Rini,..Personality.Furnifit,..Personality.DeBisschop,..Personality.HaefeleDE,,..Personality.DSGroup){
 			Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
 		} ElseIf ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.VanHoecke,..Personality.VanHoeckeVoorHalux,..Personality.SFS,..Personality.Kisch,..Personality.Destil,..Personality.HaefeleBE,..Personality.VanRaemdonck,..Personality.Noteborn,..Personality.Daro,..Personality.BeslagDesign,..Personality.Demo,..Personality.Galimberti,..Personality.Pavanello,..Personality.Ferexpert,..Personality.Beslagteknikk,..Personality.YachtSupplier,..Personality.DeceuninckDeforce,..Personality.Pierard) {
 			Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
Index: DOM/common/LayerPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/LayerPersonality.cls.xml	(revision 0)
+++ DOM/common/LayerPersonality.cls.xml	(revision 59055)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.LayerPersonality">
+<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).Layer())
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkLayer($this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.enu.Taal).Duits()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).Hein(),"hein_55160")
+]]></Implementation>
+</Method>
+
+<Method name="IsHandel">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Layer"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Layr_"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58718)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -78,6 +78,8 @@
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Zweygart())
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).JBarth())
+	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Kleiner())
+	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Layer())
 
 	Set LandenBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
 
Index: vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml
===================================================================
diff -u -r58210 -r59055
--- vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml	(.../TestGeefKlantInstellingenService.cls.xml)	(revision 58210)
+++ vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml	(.../TestGeefKlantInstellingenService.cls.xml)	(revision 59055)
@@ -11,6 +11,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestPersonalityKleiner">
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality = ##class(DOM.common.KleinerPersonality).Instance()
+	#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.EC.impl.ECommerceAPI).%New().GeefKlantInstellingenService(Personality)
+	Do $$$AssertContains(KlantInstellingenService.%ClassName(1),"Kleiner")
+]]></Implementation>
+</Method>
+
+<Method name="TestPersonalityLayer">
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality = ##class(DOM.common.LayerPersonality).Instance()
+	#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.EC.impl.ECommerceAPI).%New().GeefKlantInstellingenService(Personality)
+	Do $$$AssertContains(KlantInstellingenService.%ClassName(1),"Layer")
+]]></Implementation>
+</Method>
+
 <Method name="TestPersonalitySFS">
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ##class(DOM.common.SFSPersonality).Instance()
Index: vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58718)
+++ vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 59055)
@@ -149,6 +149,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPavanello">
 <FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkPavanello",PavanelloPersonality)
Index: DOM/common/PersonalityVisitor.cls.xml
===================================================================
diff -u -r58718 -r59055
--- DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 58718)
+++ DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 59055)
@@ -153,6 +153,16 @@
 <Abstract>1</Abstract>
 <FormalSpec>PierardPersonality:DOM.common.PierardPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkKleiner">
+<Abstract>1</Abstract>
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkLayer">
+<Abstract>1</Abstract>
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 58718)
+++ APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 59055)
@@ -90,6 +90,10 @@
 		Set PersonalityID = ##class(DOM.common.enu.Personality).DeceuninckDeforce()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Pierard() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Pierard()
+	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Kleiner() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).Kleiner()
+	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Layer() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).Layer()
 		
 	} Else {
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan de personalityID niet ophalen voor de WebShopVerwerker " _ DomeinVerwerker)
Index: vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml
===================================================================
diff -u -r58210 -r59055
--- vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml	(.../GeefDoorHandelMeeleverenBepaler.cls.xml)	(revision 58210)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml	(.../GeefDoorHandelMeeleverenBepaler.cls.xml)	(revision 59055)
@@ -51,6 +51,10 @@
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"Beslagteknikk")
 		} elseif (PersonalityId = 32) {	
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"JBarth")
+		} elseif (PersonalityId = 34) {	
+			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"Kleiner")
+		} elseif (PersonalityId = 35) {	
+			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"Layer")
 		} else {
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Geen"))
 		}
@@ -90,6 +94,10 @@
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"Beslagteknikk")
 		} elseif (PersonalityId = 32) {	
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"JBarth")
+		} elseif (PersonalityId = 34) {	
+			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"Kleiner")
+		} elseif (PersonalityId = 35) {	
+			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"Layer")
 		} else {
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Geen"))
 		}
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Layer/PasAanTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Layer/PasAanTest.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Layer/PasAanTest.cls.xml	(revision 59055)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer.PasAanTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test dat NietMeeleverens worden aangepast gewone lade TAX">
+<Implementation><![CDATA[
+	#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+
+	Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer).%New()
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+			
+	Do Aanpasser.PasAan(Winkelkar)
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$True)
+	
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+]]></Implementation>
+</Method>
+
+<Method name="Test dat NietMeeleverens worden aangepast binnenlade TAX">
+<Implementation><![CDATA[
+	#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Isbinnenlade")
+	Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	;Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling")
+
+	Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer).%New()
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+
+			
+	Do Aanpasser.PasAan(Winkelkar)
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$True)
+	
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling"),"false")
+]]></Implementation>
+</Method>
+
+<Method name="Test er wordt niets anders aangepast dan de niet meeleverens TAX">
+<Implementation><![CDATA[
+		#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetTax()
+	
+		Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer).%New()
+		
+		Set Winkelkar.PrijzenNietOvernemen=$$$True
+		Set Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel=""
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset")	
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+		Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling")
+
+		#dim XMLBefore as %String=$$ObjToXML^vhLib(Winkelkar)
+				
+		Do Aanpasser.PasAan(Winkelkar)
+
+		#dim XMLAfter as %String = $$ObjToXML^vhLib(Winkelkar)
+		Do $$$AssertEquals(XMLBefore,XMLAfter)
+]]></Implementation>
+</Method>
+
+<Method name="Test dat NietMeeleverens worden aangepast gewone lade LBX">
+<Implementation><![CDATA[
+	#Dim Winkelkar as WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).WinkelkarMetLbx()
+	;Do Winkelkar.Lijnen.GetAt(1).EconConfiguratie.SetAt("false","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+
+	Set Aanpasser = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer).%New()
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$False)
+	
+	Do $$$AssertNotEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"false")
+	;Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"false")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"false")
+			
+	Do Aanpasser.PasAan(Winkelkar)
+	
+	Do $$$AssertEquals(Winkelkar.PrijzenNietOvernemen,$$$True)
+	
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratieSleutel,"")
+
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset"),"true")
+	;Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset"),"true")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging"),"true")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58718)
+++ vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 59055)
@@ -23,6 +23,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagteknikk">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 58718)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -80,6 +80,8 @@
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Seefelder())
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Zweygart())
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).JBarth())
+	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Kleiner())
+	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Layer())
 
 	Set Factory = ##class(APPS.EC.Transport.impl.Factory).%New()
 
Index: vhDeploy/D20190924xKleinerKorting.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xKleinerKorting.cls.xml	(revision 0)
+++ vhDeploy/D20190924xKleinerKorting.cls.xml	(revision 59055)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xKleinerKorting">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update Kortingpercentage Kleiner (Hein)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).Taorbox())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).TandemboxAntaro())
+]]></Implementation>
+</Method>
+
+<Method name="BewaarKortingMetVariant">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Variant:DOM.PM.enu.Variant</FormalSpec>
+<Implementation><![CDATA[
+	#dim KortingService As DOM.VKP.KortingService = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefKortingService()	
+	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	Set KortingSpecificatie.Aantal = 1
+	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingSpecificatie.Variant = Variant
+	Set KortingSpecificatie.PersonalityID = ##class(DOM.common.enu.Personality).Hein()
+	Set KortingSpecificatie.KlantID = "hein_26385"
+	
+	#dim KortingPercentage As %String = 55.84 / 100
+	
+	Do KortingService.StelInKorting(KortingSpecificatie,KortingPercentage)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml	(.../ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml)	(revision 58718)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml	(.../ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml)	(revision 59055)
@@ -107,6 +107,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..GebruikerID = "klnr_1000_1"
+	Set ..VerwachteGebruikerID = ..GebruikerID
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..GebruikerID = "layr_1000_1"
+	Set ..VerwachteGebruikerID = ..GebruikerID
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBiemarBois">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58718)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 59055)
@@ -25,6 +25,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagteknikk">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58718)
+++ vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 59055)
@@ -27,6 +27,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagteknikk">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r58718 -r59055
--- DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58718)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 59055)
@@ -149,6 +149,20 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Kleiner">
+<Type>%String</Type>
+<InitialExpression>"34"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Layer">
+<Type>%String</Type>
+<InitialExpression>"35"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Noteborn">
 <Type>%String</Type>
 <InitialExpression>"9"</InitialExpression>
Index: APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 58718)
+++ APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 59055)
@@ -182,6 +182,14 @@
 <FormalSpec>PierardPersonality:DOM.common.Personality</FormalSpec>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+</Method>
+
 <Method name="RapporteerViaPersonality">
 <FormalSpec>Verzender:%String,URL:%String,PersonalityNaam:%String,AntwoordNaar:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 58718)
+++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 59055)
@@ -208,6 +208,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelMetVerificatieEnEmail(KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelMetVerificatieEnEmail(LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleBE">
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Layer.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Layer.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Layer.cls.xml	(revision 59055)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer">
+<Super>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser</Super>
+
+<Method name="PasAan">
+<FormalSpec>Winkelkar:WS.Vhisie4.WinkelkarExport.dto.Winkelkar</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New().Info("WinkelkarAanpasser voor Layer","Prijzen NIET overnemen, EconConfig uitblanken, Nietmeeleverens opzetten")
+	Set Winkelkar.PrijzenNietOvernemen = $$$True
+	
+	Set ValueList = ##class(TECH.KeyValue.List).%New()
+	
+	; klasse filter hieronder eigenlijk niet juist, maar dat is wat de convert maakt. nog te refactoren dus. kaartje gemaakt
+	Do ValueList.InsertKeyValue("%ClassName(1)","WS.Vhisie4.Winkelkar.dto.MaatwerkLijn")	
+	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
+		
+	Set it = ##class(TECH.DynamicIterator).%New(##class(TECH.ListIterator).%New(Winkelkar.Lijnen),,Filter)
+	While it.HasNext(){
+		#dim Lijn as WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn = it.Next()
+		Set Lijn.EconConfiguratieSleutel = ""		
+		Do ..PasAanMaatwerkLijnKenmerken(Lijn)		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PasAanMaatwerkLijnKenmerken">
+<FormalSpec>MaatwerkLijn:WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do:(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Variant") = "TAX") ..PasAanMaatwerkLijnKenmerkenTAX(MaatwerkLijn)
+	Do:(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Variant") = "LBX") ..PasAanMaatwerkLijnKenmerkenLBX(MaatwerkLijn)
+]]></Implementation>
+</Method>
+
+<Method name="PasAanMaatwerkLijnKenmerkenTAX">
+<FormalSpec>MaatwerkLijn:WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PasAanMaatwerkLijnKenmerkenLBX">
+<FormalSpec>MaatwerkLijn:WS.Vhisie4.WinkelkarExport.dto.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_geleider")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponblumotionset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset") = "true"){
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_tiponsynchronisatieset")
+	}
+	If $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_koppeling") = "true") && $$$Not(MaatwerkLijn.EconConfiguratie.GetAt("Data.Kenmerken.Isbinnenlade") = "true")  {
+		Do MaatwerkLijn.EconConfiguratie.SetAt("true","Data.Kenmerken.Nietmeeleveren.Nietmeeleveren_frontbevestiging")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/KlantInstellingenServiceKleiner.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceKleiner.cls.xml	(revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceKleiner.cls.xml	(revision 59055)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.KlantInstellingenServiceKleiner">
+<Super>APPS.common.impl.KlantInstellingenService</Super>
+
+<Method name="MagKlantLBXVerpakkingTypeBestellen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.LBXVerpakkingType</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()) || (VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()))
+]]></Implementation>
+</Method>
+
+<Method name="MagKlantTAORVerpakkingTypeBestellen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()) || (VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58718)
+++ vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 59055)
@@ -136,6 +136,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkNoteborn">
 <FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkNoteborn",NotebornPersonality)
Index: DOM/VKP/impl/LayerKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/LayerKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/LayerKlantData.cls.xml	(revision 59055)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.LayerKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml
===================================================================
diff -u -r58210 -r59055
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 58210)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 59055)
@@ -44,6 +44,14 @@
 <Default>32503</Default>
 </Parameter>
 
+<Parameter name="KleinerKlantNummer">
+<Default>666</Default>
+</Parameter>
+
+<Parameter name="LayerKlantNummer">
+<Default>6666</Default>
+</Parameter>
+
 <Parameter name="DummyKlantNummer">
 <Default>123</Default>
 </Parameter>
@@ -197,6 +205,42 @@
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.JBarth).%ClassName(1) )
 ]]></Implementation>
 </Method>
+
+<Method name="Test Kleiner personality VH">
+<Implementation><![CDATA[
+	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
+	
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#KleinerKlantnummer)
+	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner).%ClassName(1) )
+]]></Implementation>
+</Method>
+
+<Method name="Test Kleiner personality Hein">
+<Implementation><![CDATA[
+	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
+	
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.Hein,..#DummyKlantNummer,..Personality.Kleiner)
+	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Kleiner).%ClassName(1) )
+]]></Implementation>
+</Method>
+
+<Method name="Test Layer personality VH">
+<Implementation><![CDATA[
+	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
+	
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#LayerKlantnummer)
+	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer).%ClassName(1) )
+]]></Implementation>
+</Method>
+
+<Method name="Test Layer personality Hein">
+<Implementation><![CDATA[
+	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
+	
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.Hein,..#DummyKlantNummer,..Personality.Layer)
+	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Layer).%ClassName(1) )
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Layer.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Layer.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Layer.cls.xml	(revision 59055)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.Test.Layer">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Personality Zweygart wordt bepaald door Hostname">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatLayer"
+	
+	#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).Layer())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen Ref voor Personality Layer">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatLayer"
+	Set DecrypteerRequest.Ref = ""
+	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
+	
+	#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 $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen DataOpt voor Personality Layer">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatLayer"
+	Set DecrypteerRequest.Ref = "RandomRef"
+	Set DecrypteerRequest.DataOpt = ""
+	
+	#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 $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geldig indien Ref en DataOpt voor Personality Layer">
+<Implementation><![CDATA[
+	Set LoginParameters = ##class(WSimpl.Unishop.Login.ParametersHandel).%New()
+	Set LoginParameters.GebruikerID = "1"
+	Set LoginParameters.KlantID = "Layer_5"
+	Set LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).Layer()
+	Set LoginParameters.RemoteIP = "127.0.0.257"
+	Set LoginParameters.Taal = "E"
+
+	Set KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
+	Set KlantData.ID = "5"
+	Set KlantData.Naam = "Een Naam"
+
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatLayer"
+	Set DecrypteerRequest.Ref = "RandomRef"
+	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
+	
+	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(LoginParameters)
+	
+	#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()
+
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Layer())
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("Layer_")
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanReturn(KlantData)
+
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Layer()).DanReturn(HandelPersonalityStub)
+	
+	#dim HandelKlantDataRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelKlantDataRepositoryStub.IndienMethodCall("GeefViaID", LoginParameters.KlantID).DanReturn(KlantData)
+	Do HandelKlantDataRepositoryStub.IndienMethodCall("BestaatViaID", LoginParameters.KlantID).DanReturn($$$True)
+	
+	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,,HandelPersonalityRepositoryStub,,KortingBewaarderStub,,,KlantDataBewaarderStub,HandelKlantDataRepositoryStub)
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertTrue(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml
===================================================================
diff -u -r58528 -r59055
--- vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 58528)
+++ vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
@@ -93,11 +93,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestJBart">
+<Method name="TestJBarth">
 <Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.JBarth,..Enum.Personality.Hein,"hein_55160")
 ]]></Implementation>
 </Method>
 
+<Method name="TestKleiner">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.Kleiner,..Enum.Personality.Hein,"hein_26385")
+]]></Implementation>
+</Method>
+
+<Method name="TestLayer">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.Layer,..Enum.Personality.Hein,"hein_30563")
+]]></Implementation>
+</Method>
+
 <Method name="AssertGeefLeverancierData">
 <FormalSpec>PersonalityID:DOM.common.enu.Personality,VerwachtePersonalityId:DOM.common.enu.Personality,VerwachteId:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml	(.../ResultaatBepalerNietOpgegevenGebruiker.cls.xml)	(revision 58718)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml	(.../ResultaatBepalerNietOpgegevenGebruiker.cls.xml)	(revision 59055)
@@ -117,6 +117,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBiemarBois">
 <Private>1</Private>
 <Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
Index: APPS/EC/impl/ECommerceAPI.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 58718)
+++ APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 59055)
@@ -136,6 +136,10 @@
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceYachtSupplier).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.HaefeleDE) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceHaefeleDE).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.Kleiner) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceKleiner).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.Layer) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceLayer).%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: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml
===================================================================
diff -u -r58210 -r59055
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 59055)
@@ -23,6 +23,20 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Kleiner">
+<Type>%String</Type>
+<InitialExpression>"34"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Layer">
+<Type>%String</Type>
+<InitialExpression>"35"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Seefelder">
 <Type>%String</Type>
 <InitialExpression>"13"</InitialExpression>
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58718 -r59055
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58718)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 59055)
@@ -136,6 +136,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPavanello">
 <FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkPavanello",PavanelloPersonality)
Index: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r58718 -r59055
--- DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58718)
+++ DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 59055)
@@ -52,6 +52,10 @@
 		Do ..VerwerkJBarth()
 	} ElseIf Personality = "5" {
 		Do ..VerwerkKisch()
+	} ElseIf Personality = "34" {
+		Do ..VerwerkKleiner()
+	} ElseIf Personality = "35" {
+		Do ..VerwerkLayer()
 	} ElseIf Personality = "9" {
 		Do ..VerwerkNoteborn()
 	} ElseIf Personality = "18" {
@@ -201,6 +205,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkNoteborn">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhDeploy/D20191203xLayerPersonalityAanmaken.cls.xml
===================================================================
diff -u
--- vhDeploy/D20191203xLayerPersonalityAanmaken.cls.xml	(revision 0)
+++ vhDeploy/D20191203xLayerPersonalityAanmaken.cls.xml	(revision 59055)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20191203xLayerPersonalityAanmaken">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+<Default>35</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van Personality voor Layer (ID=35)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.LayerPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).Layer()
+																				 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58718 -r59055
--- APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58718)
+++ APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 59055)
@@ -347,6 +347,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerReedsBesteld()
+	Do ..ControleerToegangEnPrijzen()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerReedsBesteld()
+	Do ..ControleerToegangEnPrijzen()
+]]></Implementation>
+</Method>
+
 <Method name="ControleerToegangEnPrijzen">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r58821 -r59055
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58821)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 59055)
@@ -129,7 +129,7 @@
 			Set ..Response.IsGeldig = $$$True	
 		}
 		Set Resultaat = ..Response.IsGeldig
-	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname),"hein","seefelder","zweygart","jbarth")) && ((DecrypteerRequest.DataOpt = "")){
+	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname),"hein","seefelder","zweygart","jbarth","kleiner","layer")) && ((DecrypteerRequest.DataOpt = "")){
 		If ##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "hein" {
 			Set ..Response.PersonalityId = Personality.Hein
 			Set ..Response.IsLoginFormulierNodig = $$$True
@@ -140,6 +140,10 @@
 				Set ..Response.PersonalityId = Personality.Seefelder
 			} Elseif (##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "jbarth") {
 				Set ..Response.PersonalityId = Personality.JBarth
+			} Elseif (##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "kleiner") {
+				Set ..Response.PersonalityId = Personality.Kleiner
+			} Elseif (##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "layer") {
+				Set ..Response.PersonalityId = Personality.Layer
 			} Else {
 				Set ..Response.PersonalityId = Personality.Zweygart
 			}