Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/JBarth.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/JBarth.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/JBarth.cls.xml	(revision 58210)
@@ -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.JBarth">
+<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 = "HostnameBevatJBarth"
+	
+	#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).JBarth())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen Ref voor Personality JBarth">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatJBarth"
+	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 JBarth">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatJBarth"
+	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 JBarth">
+<Implementation><![CDATA[
+	Set LoginParameters = ##class(WSimpl.Unishop.Login.ParametersHandel).%New()
+	Set LoginParameters.GebruikerID = "1"
+	Set LoginParameters.KlantID = "JBarth_5"
+	Set LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).JBarth()
+	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 = "HostnameBevatZweygart"
+	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).JBarth())
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("JBarth_")
+	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).JBarth()).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: vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r57720 -r58210
--- vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 57720)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58210)
@@ -88,6 +88,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkJBarth",JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml
===================================================================
diff -u -r58088 -r58210
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 58088)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 58210)
@@ -42,11 +42,14 @@
 		Quit:(KlantID=Klant.Ferexpert) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Ferexpert).%New()
 		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()
 		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 ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Standaard).%New()
 ]]></Implementation>
Index: WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r57766 -r58210
--- WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 57766)
+++ WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58210)
@@ -208,6 +208,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(##class(WSimpl.Unishop.Login.ParametersHandel).%New(), JBarthPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHandelMetVerificatie">
 <FormalSpec>LoginParameters:WSimpl.Unishop.Login.Parameters,PrefixHandel:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r57715 -r58210
--- APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 57715)
+++ APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58210)
@@ -227,6 +227,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerReedsBesteld()
+	Do ..ControleerToegangEnPrijzen()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml
===================================================================
diff -u -r58032 -r58210
--- APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml	(.../DoorHandelMeeleverenBepalerFactory.cls.xml)	(revision 58032)
+++ APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory.cls.xml	(.../DoorHandelMeeleverenBepalerFactory.cls.xml)	(revision 58210)
@@ -32,6 +32,7 @@
 	Quit:(PersonalityId = Personality.Ferexpert) ..GeefNietBeneluxBepaler()
 	Quit:(PersonalityId = Personality.Hein) ..GeefNietBeneluxBepaler()
 	Quit:(PersonalityId = Personality.Zweygart) ..GeefNietBeneluxBepaler()
+	Quit:(PersonalityId = Personality.JBarth) ..GeefNietBeneluxBepaler()
 	If (PersonalityId = Personality.Daro){
 		Quit:(..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ..GeefNietBeneluxBepaler()
 	}
Index: APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml
===================================================================
diff -u -r57771 -r58210
--- APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 57771)
+++ APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 58210)
@@ -126,6 +126,10 @@
 <FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.ZweygartPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 </Method>
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r57710 -r58210
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 57710)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58210)
@@ -130,14 +130,23 @@
 </Method>
 
 <Method name="VerwerkZweygart">
-<FormalSpec>SeefelderPersonality:DOM.common.ZweygartPersonality</FormalSpec>
+<FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
 <Implementation><![CDATA[
 	Set ..ToegelatenLadetypes = ##class(%ListOfDataTypes).%New()
 	
 	Do ..ToegelatenLadetypes.Insert("TAX")
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</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: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r57660 -r58210
--- DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 57660)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
@@ -86,6 +86,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="JBarth">
+<Type>%String</Type>
+<InitialExpression>"32"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Kisch">
 <Type>%String</Type>
 <InitialExpression>"5"</InitialExpression>
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r57716 -r58210
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 57716)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58210)
@@ -82,6 +82,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkJBarth",JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u -r57713 -r58210
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 57713)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58210)
@@ -33,8 +33,9 @@
 <Implementation><![CDATA[
 	#dim KlantData As DOM.VKP.impl.HandelKlantData
 	#dim KlantId As %String = ""
+	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	
-	If ##class(TECH.StringUtils).Equals(RegistreerContactGegevensRequest.Header.PersonalityId,##class(DOM.common.enu.Personality).Beslagteknikk(),##class(DOM.common.enu.Personality).Dupont(),##class(DOM.common.enu.Personality).Ferexpert(),##class(DOM.common.enu.Personality).Pavanello(),##class(DOM.common.enu.Personality).Galimberti(),##class(DOM.common.enu.Personality).Destil(),##class(DOM.common.enu.Personality).Hein(),##class(DOM.common.enu.Personality).Seefelder(),##class(DOM.common.enu.Personality).Zweygart(),##class(DOM.common.enu.Personality).BeslagDesign()) && $$$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) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
 		Set KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
 		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
 	} ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r57719 -r58210
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 57719)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 58210)
@@ -196,6 +196,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, JBarthPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, JBarthPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r55952 -r58210
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 55952)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -38,6 +38,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: JBarth levert rechtstreeks">
+<Implementation><![CDATA[
+	Set Service = ##class(DOM.common.impl.PersonalityService).%New()
+	Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(##class(DOM.common.enu.Personality).JBarth()))
+]]></Implementation>
+</Method>
+
 <Method name="Test: Dupont levert rechtstreeks ifv ProjectSetting">
 <Implementation><![CDATA[
 	Set ProjectSettingsApiMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml
===================================================================
diff -u -r55418 -r58210
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml	(.../ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml)	(revision 55418)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml	(.../ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml)	(revision 58210)
@@ -93,6 +93,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..GebruikerID = "jbar_1000_1"
+	Set ..VerwachteGebruikerID = ..GebruikerID
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r57660 -r58210
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 57660)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 58210)
@@ -6,101 +6,101 @@
 <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</Default>
+<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,JBarth</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
-<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20</Default>
+<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,32</Default>
 </Parameter>
 
 <Method name="VanHoecke">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 1
+<Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>
 
 <Method name="VanHoeckeVoorHalux">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 2
+<Implementation><![CDATA[	Quit 2
 ]]></Implementation>
 </Method>
 
 <Method name="SFS">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 3
+<Implementation><![CDATA[	Quit 3
 ]]></Implementation>
 </Method>
 
 <Method name="Dupont">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 4
+<Implementation><![CDATA[	Quit 4
 ]]></Implementation>
 </Method>
 
 <Method name="Kisch">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 5
+<Implementation><![CDATA[	Quit 5
 ]]></Implementation>
 </Method>
 
 <Method name="Destil">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 6
+<Implementation><![CDATA[	Quit 6
 ]]></Implementation>
 </Method>
 
 <Method name="HaefeleBE">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 7
+<Implementation><![CDATA[	Quit 7
 ]]></Implementation>
 </Method>
 
 <Method name="VanRaemdonck">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 8
+<Implementation><![CDATA[	Quit 8
 ]]></Implementation>
 </Method>
 
 <Method name="Noteborn">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 9
+<Implementation><![CDATA[	Quit 9
 ]]></Implementation>
 </Method>
 
 <Method name="Daro">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 10
+<Implementation><![CDATA[	Quit 10
 ]]></Implementation>
 </Method>
 
 <Method name="Hein">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 11
+<Implementation><![CDATA[	Quit 11
 ]]></Implementation>
 </Method>
 
 <Method name="HaefeleNL">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 12
+<Implementation><![CDATA[	Quit 12
 ]]></Implementation>
 </Method>
 
 <Method name="Seefelder">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 13
+<Implementation><![CDATA[	Quit 13
 ]]></Implementation>
 </Method>
 
@@ -121,35 +121,35 @@
 <Method name="Zweygart">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 16
+<Implementation><![CDATA[	Quit 16
 ]]></Implementation>
 </Method>
 
 <Method name="Galimberti">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 17
+<Implementation><![CDATA[	Quit 17
 ]]></Implementation>
 </Method>
 
 <Method name="Pavanello">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 18
+<Implementation><![CDATA[	Quit 18
 ]]></Implementation>
 </Method>
 
 <Method name="Ferexpert">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 19
+<Implementation><![CDATA[	Quit 19
 ]]></Implementation>
 </Method>
 
 <Method name="Beslagteknikk">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.common.enu.Personality</ReturnType>
-<Implementation><![CDATA[	quit 20
+<Implementation><![CDATA[	Quit 20
 ]]></Implementation>
 </Method>
 
@@ -159,62 +159,69 @@
 Voorlopige toekenning van de nummerkes, nog te vervolledigen bij de implemetatie van de personalities.
 ClassMethod BiemarBois() As DOM.common.enu.Personality
 {
-	quit 21
+	Quit 21
 }
 
 ClassMethod CampeTonny() As DOM.common.enu.Personality
 {
-	quit 22
+	Quit 22
 }
 
 ClassMethod Rini() As DOM.common.enu.Personality
 {
-	quit 23
+	Quit 23
 }
 
 ClassMethod Furnifit() As DOM.common.enu.Personality
 {
-	quit 24
+	Quit 24
 }
 
 ClassMethod Yachtsupplier() As DOM.common.enu.Personality
 {
-	quit 25
+	Quit 25
 }
 
 ClassMethod Aelle() As DOM.common.enu.Personality
 {
-	quit 26
+	Quit 26
 }
 
 ClassMethod Palmieri() As DOM.common.enu.Personality
 {
-	quit 27
+	Quit 27
 }
 
 ClassMethod DSGroup() As DOM.common.enu.Personality
 {
-	quit 28
+	Quit 28
 }
 
 ClassMethod DeBisschop() As DOM.common.enu.Personality
 {
-	quit 29
+	Quit 29
 }
 
 ClassMethod DeceuninckDeforce() As DOM.common.enu.Personality
 {
-	quit 30
+	Quit 30
 }
 
 ClassMethod Pierard() As DOM.common.enu.Personality
 {
-	quit 31
+	Quit 31
 }
 */
 ]]></Content>
 </UDLText>
 
+<Method name="JBarth">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit 32
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt
===================================================================
diff -u -r57657 -r58210
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt	(.../WS.EC.SessionService.txt)	(revision 57657)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt	(.../WS.EC.SessionService.txt)	(revision 58210)
@@ -118,6 +118,7 @@
                     <s:enumeration value="18"/>
                     <s:enumeration value="19"/>
                     <s:enumeration value="20"/>
+                    <s:enumeration value="32"/>
                 </s:restriction>
             </s:simpleType>
             <s:complexType name="WebshopSessieSettings">
Index: vhDeploy/D20190924xJBarthKorting.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xJBarthKorting.cls.xml	(revision 0)
+++ vhDeploy/D20190924xJBarthKorting.cls.xml	(revision 58210)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xJBarthKorting">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update Kortingpercentage JBarth (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_55160"
+	
+	#dim KortingPercentage As %String = 55.84 / 100
+	
+	Do KortingService.StelInKorting(KortingSpecificatie,KortingPercentage)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/enu/Klant/Verwerker.cls.xml
===================================================================
diff -u -r56497 -r58210
--- DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 56497)
+++ DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
@@ -82,6 +82,8 @@
 		Do ..VerwerkIntosBV()
 	} ElseIf Klant = "K||23486" {
 		Do ..VerwerkIntracto()
+	} ElseIf Klant = "K||32503" {
+		Do ..VerwerkJBarth()
 	} ElseIf Klant = "K||4073" {
 		Do ..VerwerkJongen()
 	} ElseIf Klant = "K||9366" {
@@ -387,6 +389,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkJongen">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r57713 -r58210
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 57713)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -86,6 +86,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: JBarth heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
+<Implementation><![CDATA[	Do ..AssertHandelKlantDataAangemaaktVoorPersonality(..Personality.JBarth)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Dupont heeft KlantId ingevuld en bestaat niet: alsnog aanmaken">
 <Implementation><![CDATA[	Do ..AssertHandelKlantDataAangemaaktVoorPersonality(..Personality.Dupont)
 ]]></Implementation>
@@ -147,6 +152,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: JBarth heeft KlantId niet ingevuld: nieuw nummer genereren">
+<Implementation><![CDATA[	Do ..AssertNieuwNummerGegenereerdBinnenPersonality(..Personality.JBarth)
+]]></Implementation>
+</Method>
+
 <Method name="AssertNieuwNummerGegenereerdBinnenPersonality">
 <FormalSpec>PersonalityId:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml
===================================================================
diff -u -r57716 -r58210
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 57716)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 58210)
@@ -100,6 +100,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..PrijsFactorBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.JBarthPrijsFactorBepaler).%New()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[	Set ..PrijsFactorBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.GalimbertiPrijsFactorBepaler).%New()
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r57760 -r58210
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 57760)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58210)
@@ -114,8 +114,9 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As %Boolean = $$$False
+	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	If (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "daro")) {
-		Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Daro()
+		Set ..Response.PersonalityId = Personality.Daro
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Engels()
 		
 		If ((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = "")) {
@@ -124,41 +125,44 @@
 			Set ..Response.IsGeldig = $$$True	
 		}
 		Set Resultaat = ..Response.IsGeldig
-	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname),"hein","seefelder","zweygart")) && ((DecrypteerRequest.DataOpt = "")){
+	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname),"hein","seefelder","zweygart","jbarth")) && ((DecrypteerRequest.DataOpt = "")){
 		If ##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "hein" {
-			Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Hein()
+			Set ..Response.PersonalityId = Personality.Hein
 			Set ..Response.IsLoginFormulierNodig = $$$True
 		} Else {
 			Set ..Response.IsContactGegevensFormulierNodig = $$$False
 			Set ..Response.IsLoginFormulierNodig = $$$False
 			If ##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "seefelder" {
-				Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Seefelder()
+				Set ..Response.PersonalityId = Personality.Seefelder
+			} Elseif (##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "jbarth") {
+				Set ..Response.PersonalityId = Personality.JBarth
 			} Else {
-				Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Zweygart()
+			
+				Set ..Response.PersonalityId = Personality.Zweygart
 			}
 		}
 		Set ..Response.IsGeldig = $$$True
 		Set ..Response.Taal = "D"
 		Set ..Response.ToegelatenLadetypes = ..HandelToegelatenLadetypesBepaler.Bepaal(..Response.PersonalityId)
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "kisch")) {
-		Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Kisch()
+		Set ..Response.PersonalityId = Personality.Kisch
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
 		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
 		
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "beslagdesign")) {
-		Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).BeslagDesign()
+		Set ..Response.PersonalityId = Personality.BeslagDesign
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Zweeds()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
 		Set ..Response.IsGeldig = $$$True
 		
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "beslagteknikk")) {
-		Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Beslagteknikk()
+		Set ..Response.PersonalityId = Personality.Beslagteknikk
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Noors()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
@@ -167,23 +171,23 @@
 		Set Resultaat = ..Response.IsGeldig
 
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "galimberti")) {
-		Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Galimberti()
+		Set ..Response.PersonalityId = Personality.Galimberti
 		Set ..Response.Taal = "I" // niet ##class(DOM.enu.Taal).Italiaans() gebruiken, want dat is 'IT' en niet afgesproken met ITR
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
 		Set ..Response.IsGeldig = $$$True
 		
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "pavanello")) {
-		Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Pavanello()
+		Set ..Response.PersonalityId = Personality.Pavanello
 		Set ..Response.Taal = "I" // niet ##class(DOM.enu.Taal).Italiaans() gebruiken, want dat is 'IT' en niet afgesproken met ITR
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$True
 		Set ..Response.IsGeldig = $$$True
 
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "ferexpert")) {
-		Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Ferexpert()
+		Set ..Response.PersonalityId = Personality.Ferexpert
 		Set ..Response.Taal = "I" // niet ##class(DOM.enu.Taal).Italiaans() gebruiken, want dat is 'IT' en niet afgesproken met ITR
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$True
@@ -192,7 +196,7 @@
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (DecrypteerRequest.Hostname = "") {
 		Set ..Response.IsGeldig = $$$False
-	} ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(##class(TECH.StringUtils).Equals(DecrypteerRequest.Header.PersonalityId,##class(DOM.common.enu.Personality).Hein(),##class(DOM.common.enu.Personality).Seefelder(),##class(DOM.common.enu.Personality).Zweygart()))) {
+	} ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(##class(TECH.StringUtils).Equals(DecrypteerRequest.Header.PersonalityId,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.JBarth))) {
 		Set ..Response.IsGeldig = $$$False
 	} ElseIf (DecrypteerRequest.DataOpt = "") {
 		Set ..Response.IsContactGegevensFormulierNodig = $$$True
Index: vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r57770 -r58210
--- vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 57770)
+++ vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58210)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkFerexpert">
 <FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml
===================================================================
diff -u -r29059 -r58210
--- vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml	(.../TestGeefKlantInstellingenService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/OV/impl/OrderVerwerkingAPI/TestGeefKlantInstellingenService.cls.xml	(.../TestGeefKlantInstellingenService.cls.xml)	(revision 58210)
@@ -3,6 +3,14 @@
 <Class name="vhUnitTest.APPS.OV.impl.OrderVerwerkingAPI.TestGeefKlantInstellingenService">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="TestPersonalityJBarth">
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.Personality = ##class(DOM.common.JBarthPersonality).Instance()
+	#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.EC.impl.ECommerceAPI).%New().GeefKlantInstellingenService(Personality)
+	Do $$$AssertContains(KlantInstellingenService.%ClassName(1),"JBarth")
+]]></Implementation>
+</Method>
+
 <Method name="TestPersonalitySFS">
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ##class(DOM.common.SFSPersonality).Instance()
Index: APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r55422 -r58210
--- APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 55422)
+++ APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
@@ -31,6 +31,8 @@
 		Do ..VerwerkHaefeleNederland()
 	} ElseIf UniShopVerwerker = "HEIN" {
 		Do ..VerwerkHein()
+	} ElseIf UniShopVerwerker = "JBAR" {
+		Do ..VerwerkJBarth()
 	} ElseIf UniShopVerwerker = "KISCH" {
 		Do ..VerwerkKisch()
 	} ElseIf UniShopVerwerker = "PAVA" {
@@ -76,7 +78,7 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkFerexert">
+<Method name="VerwerkFerexpert">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
@@ -106,6 +108,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/common/JBarthPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/JBarthPersonality.cls.xml	(revision 0)
+++ DOM/common/JBarthPersonality.cls.xml	(revision 58210)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.JBarthPersonality">
+<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).JBarth())
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkJBarth($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 "JBarth"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "JBar_"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r57722 -r58210
--- vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 57722)
+++ vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58210)
@@ -27,6 +27,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkFerexpert">
 <FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r57712 -r58210
--- vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 57712)
+++ vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58210)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkFerexpert">
 <FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml
===================================================================
diff -u -r58032 -r58210
--- DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 58032)
+++ DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 58210)
@@ -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 ))
+		If ((##class(TECH.StringUtils).Equals(KlantID,Klant.Ferexpert,Klant.Pavanello,Klant.Galimberti,Klant.Hein,Klant.Zweygart,Klant.JBarth ))
 			|| ( ( (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))
+		If ((##class(TECH.StringUtils).Equals(KlantID,Klant.Hein,Klant.Zweygart,Klant.JBarth))
 			|| ((KlantID = Klant.DaroFactors) & ..ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ){
 				
 			Set LBXNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXNietMeeleveren.AutoComplete).%New()
Index: APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r55394 -r58210
--- APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 55394)
+++ APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
@@ -37,7 +37,7 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
-<Property name="Ferexert">
+<Property name="Ferexpert">
 <Type>%String</Type>
 <InitialExpression>"FERE"</InitialExpression>
 <Transient>1</Transient>
@@ -72,6 +72,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="JBarth">
+<Type>%String</Type>
+<InitialExpression>"JBAR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Kisch">
 <Type>%String</Type>
 <InitialExpression>"KISCH"</InitialExpression>
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r57710 -r58210
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57710)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -51,6 +51,7 @@
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Ferexpert, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Hein, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Zweygart, VerwachteLadetypes)
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.JBarth, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Seefelder, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Beslagteknikk, VerwachteLadetypes)
 ]]></Implementation>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml
===================================================================
diff -u -r58032 -r58210
--- vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml	(.../GeefDoorHandelMeeleverenBepaler.cls.xml)	(revision 58032)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepalerFactory/GeefDoorHandelMeeleverenBepaler.cls.xml	(.../GeefDoorHandelMeeleverenBepaler.cls.xml)	(revision 58210)
@@ -49,6 +49,8 @@
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"Ferexpert")
 		} elseif (PersonalityId = 20) {	
 			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")
 		} else {
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Geen"))
 		}
@@ -86,6 +88,8 @@
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.NietBenelux"),"Ferexpert")
 		} elseif (PersonalityId = 20) {	
 			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")
 		} else {
 			Do $$$AssertTrue(Bepaler.%IsA("APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Geen"))
 		}
Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml
===================================================================
diff -u -r58032 -r58210
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58032)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -143,6 +143,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test JBarth 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).JBarth()
+	#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: AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml
===================================================================
diff -u -r55712 -r58210
--- AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 55712)
+++ AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 58210)
@@ -215,13 +215,13 @@
 <Method name="VertaalVerzendwijzeNaarTransporteur">
 <Implementation><![CDATA[
     If ..BonLevering.Verzendwijze?1"OD".E Set ..BonLevering.TransporteurCode="OD"
-    If ..BonLevering.Verzendwijze?1"R"2N.E Set ..BonLevering.TransporteurCode="VTW"
+    ;If ..BonLevering.Verzendwijze?1"R"2N.E Set ..BonLevering.TransporteurCode="VTW"
     If ..BonLevering.Verzendwijze?1"AF".E Set ..BonLevering.TransporteurCode="AFH"
     ;
     If ..BonLevering.Verzendwijze?1"DD1".E Set ..BonLevering.Verzendwijze="DI1"
     If ..BonLevering.Verzendwijze?1"GL4".E Set ..BonLevering.Verzendwijze="DI1"
     
-    If ..BonLevering.Verzendwijze?1"SRV".E Set ..BonLevering.Verzendwijze="VTW"
+    ;If ..BonLevering.Verzendwijze?1"SRV".E Set ..BonLevering.Verzendwijze="VTW"
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r57712 -r58210
--- vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 57712)
+++ vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58210)
@@ -75,6 +75,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkJBarth",JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
Index: APPS/EC/enu/UniShopVerwerker.cls.xml
===================================================================
diff -u -r55405 -r58210
--- APPS/EC/enu/UniShopVerwerker.cls.xml	(.../UniShopVerwerker.cls.xml)	(revision 55405)
+++ APPS/EC/enu/UniShopVerwerker.cls.xml	(.../UniShopVerwerker.cls.xml)	(revision 58210)
@@ -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</Default>
+<Default>;SFS;HFLB;HFLE;VHEPN;DUPO;KISCH;HELMY;RAEM;DARO;HEIN;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;JBAR</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;SFS;HaefeleBelgie;HaefeleNederland;VHEPN;Dupont;Kisch;Destil;VanRaemdonck;Daro;Hein;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert</Default>
+<Default>;SFS;HaefeleBelgie;HaefeleNederland;VHEPN;Dupont;Kisch;Destil;VanRaemdonck;Daro;Hein;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;JBarth</Default>
 </Parameter>
 
 <Method name="SFS">
@@ -105,6 +105,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="JBarth">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.UniShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).JBarth()
+]]></Implementation>
+</Method>
+
 <Method name="Galimberti">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EC.enu.UniShopVerwerker</ReturnType>
@@ -119,7 +126,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Ferexert">
+<Method name="Ferexpert">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EC.enu.UniShopVerwerker</ReturnType>
 <Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).Ferexpert()
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58108 -r58210
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58108)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58210)
@@ -201,6 +201,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = JBarthPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefEindklantEenheidsPrijs(JBarthPersonality,..Winkelkar.GeefKlantID())
+	Set ..LijstPrijs = ..GeefBrutoPrijs(..Winkelkar.GeefPersonality(), ..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r55952 -r58210
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 55952)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 58210)
@@ -107,6 +107,7 @@
 	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Seefelder()) $$$True
 	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL()) $$$True
 	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Zweygart()) $$$True
+	Quit:(PersonalityID = ##class(DOM.common.enu.Personality).JBarth()) $$$True
 	If ..ProjectSettingsAPI.IsActiefDuPontNaarEindklant() {
 		Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Dupont()) $$$True
 	}
Index: vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r57722 -r58210
--- vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 57722)
+++ vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58210)
@@ -95,6 +95,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkJBarth",JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
Index: vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r57710 -r58210
--- vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 57710)
+++ vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58210)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkteknikkDesign">
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/impl/KlantInstellingenServiceJBarth.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceJBarth.cls.xml	(revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceJBarth.cls.xml	(revision 58210)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.KlantInstellingenServiceJBarth">
+<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/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml
===================================================================
diff -u -r58054 -r58210
--- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 58054)
+++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -8,6 +8,13 @@
 <Default>2</Default>
 </Parameter>
 
+<UDLText name="T">
+<Content><![CDATA[
+// of niet Hein subhandel
+
+]]></Content>
+</UDLText>
+
 <Method name="Test: Standaardgedrag gewone,niet subhandel, personality">
 <Implementation><![CDATA[
 	#dim KlantBestelling As vhTest.Dummy.APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
@@ -129,6 +136,66 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaardgedrag SubHandel JBarth - 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).JBarth()
+
+	#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).JBarth()).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>
+</Method>
+
 <Method name="Test: Indien bewaren niet lukt -&gt; Exception Rethrowen">
 <Implementation><![CDATA[
 	#dim KlantBestelling As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml
===================================================================
diff -u -r58054 -r58210
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 58054)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 58210)
@@ -40,6 +40,10 @@
 <Default>31008</Default>
 </Parameter>
 
+<Parameter name="JBarthKlantNummer">
+<Default>32503</Default>
+</Parameter>
+
 <Parameter name="DummyKlantNummer">
 <Default>123</Default>
 </Parameter>
@@ -175,6 +179,24 @@
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%ClassName(1) )
 ]]></Implementation>
 </Method>
+
+<Method name="Test JBarth 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,..#JBarthKlantNummer)
+	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.JBarth).%ClassName(1) )
+]]></Implementation>
+</Method>
+
+<Method name="Test JBarth 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.JBarth)
+	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.JBarth).%ClassName(1) )
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r57719 -r58210
--- vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 57719)
+++ vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58210)
@@ -81,6 +81,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkJBarth",JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58166 -r58210
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58166)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58210)
@@ -238,6 +238,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("hoellmann@jbarth.de")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>Galimbertiersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("webshop@galimbertiferramenta.com")
Index: vhDeploy/D20190924xUrlsVhisie4JBarth1.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xUrlsVhisie4JBarth1.cls.xml	(revision 0)
+++ vhDeploy/D20190924xUrlsVhisie4JBarth1.cls.xml	(revision 58210)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xUrlsVhisie4JBarth1">
+<Super>vhDeploy.Deploy</Super>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If ($$$Server = "CACHE01") {
+		Do ..ZetSleutel("JBarth", "https://jbarth.drawerconfigurator.com")
+	} Else {
+		Do ..ZetSleutel("JBarth", "http://jbarth.website.testing.vanhoecke.be")
+	}
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("Personality_WebshopVersie_JBarth", "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/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r57771 -r58210
--- vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 57771)
+++ vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58210)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkFerexpert">
 <FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality.cls.xml
===================================================================
diff -u -r53788 -r58210
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality.cls.xml	(.../CheckoutTypeMetTransportKeuzePersonality.cls.xml)	(revision 53788)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality.cls.xml	(.../CheckoutTypeMetTransportKeuzePersonality.cls.xml)	(revision 58210)
@@ -5,12 +5,12 @@
 
 <Parameter name="DISPLAYLIST">
 <Type>%String</Type>
-<Default>,11,13,16</Default>
+<Default>,11,13,16,32</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
 <Type>%String</Type>
-<Default>,11,13,16</Default>
+<Default>,11,13,16,32</Default>
 </Parameter>
 
 <Method name="Hein">
@@ -33,6 +33,13 @@
 <Implementation><![CDATA[	Quit ##class(DOM.common.enu.Personality).Zweygart()
 ]]></Implementation>
 </Method>
+
+<Method name="JBarth">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.CheckoutTypeMetTransportKeuzePersonality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.enu.Personality).JBarth()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhDeploy/D20190924xJBarthPersonalityAanmaken.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xJBarthPersonalityAanmaken.cls.xml	(revision 0)
+++ vhDeploy/D20190924xJBarthPersonalityAanmaken.cls.xml	(revision 58210)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xJBarthPersonalityAanmaken">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+<Default>32</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van Personality voor JBarth (ID=32)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.JBarthPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).JBarth()
+																				 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml
===================================================================
diff -u -r57719 -r58210
--- APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 57719)
+++ APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 58210)
@@ -60,6 +60,8 @@
 		Set PersonalityID = ##class(DOM.common.enu.Personality).BeslagDesign()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Zweygart() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Zweygart()
+	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).JBarth() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).JBarth()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Galimberti() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Galimberti()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Pavanello() {
@@ -110,6 +112,8 @@
 		Set Verwerker = ##class(APPS.EC.enu.WebShopVerwerker).BeslagDesign()
 	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).Zweygart() {
 		Set Verwerker = ##class(APPS.EC.enu.WebShopVerwerker).Zweygart()	
+	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).JBarth() {
+		Set Verwerker = ##class(APPS.EC.enu.WebShopVerwerker).JBarth()	
 	} Else {
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan de WebShopVerwerker niet ophalen voor de personalityID " _ PersonalityID)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r57716 -r58210
--- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 57716)
+++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58210)
@@ -27,6 +27,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkFerexpert">
 <FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r57660 -r58210
--- DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 57660)
+++ DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
@@ -34,6 +34,8 @@
 		Do ..VerwerkHaefeleNL()
 	} ElseIf Personality = "11" {
 		Do ..VerwerkHein()
+	} ElseIf Personality = "32" {
+		Do ..VerwerkJBarth()
 	} ElseIf Personality = "5" {
 		Do ..VerwerkKisch()
 	} ElseIf Personality = "9" {
@@ -125,6 +127,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r57660 -r58210
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57660)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -66,6 +66,7 @@
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Hein())
 	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())
 
 	Set LandenBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
 
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk/PasAanTest.cls.xml
===================================================================
diff -u -r57711 -r58210
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk/PasAanTest.cls.xml	(.../PasAanTest.cls.xml)	(revision 57711)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/Beslagteknikk/PasAanTest.cls.xml	(.../PasAanTest.cls.xml)	(revision 58210)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Beslagteknikk.PasAanTest">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="aTest dat NietMeeleverens worden aangepast gewone lade">
+<Method name="Test dat NietMeeleverens worden aangepast gewone lade">
 <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")
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml
===================================================================
diff -u -r55418 -r58210
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml	(.../ResultaatBepalerNietOpgegevenGebruiker.cls.xml)	(revision 55418)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml	(.../ResultaatBepalerNietOpgegevenGebruiker.cls.xml)	(revision 58210)
@@ -104,6 +104,12 @@
 <Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkJBarth">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r57712 -r58210
--- WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 57712)
+++ WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58210)
@@ -113,6 +113,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).JBarth()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Galimberti()
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r57660 -r58210
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 57660)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -69,6 +69,7 @@
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Hein())
 	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())
 
 	Set Factory = ##class(APPS.EC.Transport.impl.Factory).%New()
 
Index: APPS/EC/enu/WebShopVerwerker.cls.xml
===================================================================
diff -u -r57660 -r58210
--- APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 57660)
+++ APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 58210)
@@ -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</Default>
+<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;BETE;JBAR</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</Default>
+<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;Beslagteknikk;JBarth</Default>
 </Parameter>
 
 <Method name="VHEPN">
@@ -146,6 +146,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="JBarth">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit "JBAR"
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r57660 -r58210
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57660)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -68,6 +68,7 @@
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Hein())
 	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())
 
 	#dim TransportFirmaBepalerFactory As APPS.EC.Transport.impl.Factory
 	Set TransportFirmaBepalerFactory = ##class(APPS.EC.Transport.impl.Factory).%New()
Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r57771 -r58210
--- DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 57771)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58210)
@@ -192,6 +192,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.HandelKlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.JBarthKlantData = ..OpenKlantData(..KlantID, JBarthPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandelAnoniem(KlantData, JBarthPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/PersonalityVisitor.cls.xml
===================================================================
diff -u -r57660 -r58210
--- DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 57660)
+++ DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 58210)
@@ -98,6 +98,11 @@
 <Abstract>1</Abstract>
 <FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkJBarth">
+<Abstract>1</Abstract>
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r57719 -r58210
--- vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 57719)
+++ vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58210)
@@ -23,6 +23,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkFerexpert">
 <FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r57719 -r58210
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 57719)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58210)
@@ -150,6 +150,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagDesign">
 <FormalSpec>BeslagDesignPersonality:DOM.common.BeslagDesignPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(BeslagDesignPersonality)
Index: DOM/VKP/enu/Klant/AutoComplete.cls.xml
===================================================================
diff -u -r56497 -r58210
--- DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 56497)
+++ DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
@@ -254,6 +254,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="JBarth">
+<Type>%String</Type>
+<InitialExpression>"K||32503"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Jongen">
 <Type>%String</Type>
 <InitialExpression>"K||4073"</InitialExpression>
Index: vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml
===================================================================
diff -u -r57660 -r58210
--- vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 57660)
+++ vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -43,6 +43,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestZweygart">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.Zweygart,..Enum.Personality.Hein,"hein_55936")
+]]></Implementation>
+</Method>
+
+<Method name="TestJBart">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.JBarth,..Enum.Personality.Hein,"hein_55160")
+]]></Implementation>
+</Method>
+
 <Method name="AssertGeefLeverancierData">
 <FormalSpec>PersonalityID:DOM.common.enu.Personality,VerwachtePersonalityId:DOM.common.enu.Personality,VerwachteId:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r57660 -r58210
--- APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 57660)
+++ APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
@@ -32,6 +32,8 @@
 		Do ..VerwerkHaefeleNederland()
 	} ElseIf WebShopVerwerker = "HEIN" {
 		Do ..VerwerkHein()
+	} ElseIf WebShopVerwerker = "JBAR" {
+		Do ..VerwerkJBarth()
 	} ElseIf WebShopVerwerker = "KISCH" {
 		Do ..VerwerkKisch()
 	} ElseIf WebShopVerwerker = "MBHO" {
@@ -117,6 +119,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: APPS/EC/impl/ECommerceAPI.cls.xml
===================================================================
diff -u -r57714 -r58210
--- APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 57714)
+++ APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 58210)
@@ -106,6 +106,8 @@
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceBeslagDesign).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.Zweygart) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceZweygart).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.JBarth) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceJBarth).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.Galimberti) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceGalimberti).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.Pavanello) {
Index: vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r57770 -r58210
--- vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 57770)
+++ vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58210)
@@ -82,6 +82,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkJBarth",JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml
===================================================================
diff -u -r53788 -r58210
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 53788)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
@@ -14,6 +14,8 @@
 <Implementation><![CDATA[
 	If CheckoutTypeMetTransportKeuzePersonality = "11" {
 		Do ..VerwerkHein()
+	} ElseIf CheckoutTypeMetTransportKeuzePersonality = "32" {
+		Do ..VerwerkJBarth()
 	} ElseIf CheckoutTypeMetTransportKeuzePersonality = "13" {
 		Do ..VerwerkSeefelder()
 	} ElseIf CheckoutTypeMetTransportKeuzePersonality = "16" {
@@ -31,6 +33,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkSeefelder">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml
===================================================================
diff -u -r53788 -r58210
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 53788)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
@@ -16,6 +16,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="JBarth">
+<Type>%String</Type>
+<InitialExpression>"32"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Seefelder">
 <Type>%String</Type>
 <InitialExpression>"13"</InitialExpression>
Index: APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r57660 -r58210
--- APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 57660)
+++ APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
@@ -79,6 +79,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="JBarth">
+<Type>%String</Type>
+<InitialExpression>"JBAR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Kisch">
 <Type>%String</Type>
 <InitialExpression>"KISCH"</InitialExpression>
Index: vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r57771 -r58210
--- vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 57771)
+++ vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58210)
@@ -82,6 +82,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkJBarth",JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
Index: vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r57710 -r58210
--- vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 57710)
+++ vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58210)
@@ -82,6 +82,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkJBarth",JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKisch",KischPersonality)
@@ -131,8 +137,8 @@
 </Method>
 
 <Method name="VerwerkZweygart">
-<FormalSpec>SeefelderPersonality:DOM.common.ZweygartPersonality</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkZweygart",SeefelderPersonality)
+<FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkZweygart",ZweygartPersonality)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r56635 -r58210
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 56635)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
@@ -125,6 +125,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Winkelkar voor JBarth (niet HäfeleNL)">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).JBarth())
+		
+	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: DOM/VKP/enu/Klant.cls.xml
===================================================================
diff -u -r56497 -r58210
--- DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 56497)
+++ DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 58210)
@@ -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</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</Default>
 </Parameter>
 
 <Method name="Keller">
@@ -565,6 +565,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="JBarth">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(32503)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>
Index: DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml
===================================================================
diff -u -r57660 -r58210
--- DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 57660)
+++ DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 58210)
@@ -121,6 +121,12 @@
 <Implementation><![CDATA[	Do ..VerwerkAnderePersonality(BeslagteknikkPersonality)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkAnderePersonality(JBarthPersonality)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/JBarth.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/JBarth.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/JBarth.cls.xml	(revision 58210)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.JBarth">
+<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 JBarth","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/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r57720 -r58210
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 57720)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 58210)
@@ -168,6 +168,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/JBarthPrijsFactorBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/JBarthPrijsFactorBepaler.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/JBarthPrijsFactorBepaler.cls.xml	(revision 58210)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.JBarthPrijsFactorBepaler">
+<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/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r57720 -r58210
--- vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 57720)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58210)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBeslagDesign">
 <FormalSpec>BeslagDesignPersonality:DOM.common.BeslagDesignPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: DOM/VKP/impl/JBarthKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/JBarthKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/JBarthKlantData.cls.xml	(revision 58210)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.JBarthKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml
===================================================================
diff -u -r57778 -r58210
--- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 57778)
+++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 58210)
@@ -142,6 +142,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkJBarth">
+<FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelMetVerificatieEnEmail(JBarthPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleBE">
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/JBarth/PasAanTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/JBarth/PasAanTest.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasser/JBarth/PasAanTest.cls.xml	(revision 58210)
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.JBarth.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.JBarth).%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.JBarth).%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.JBarth).%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.JBarth).%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>