Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/BiemarBois.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/BiemarBois.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/BiemarBois.cls.xml	(revision 58241)
@@ -0,0 +1,144 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.Test.BiemarBois">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Personality Kisch wordt bepaald door Hostname">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatBiemar"
+	
+	#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).BiemarBois())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality BiemarBois heeft Taal Frans">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatBiemar"
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertEquals(DecrypteerResponse.Taal, ##class(DOM.enu.Taal).Frans())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geldigheid van requests voor Personality BiemarBois">
+<Implementation><![CDATA[
+	Do ..AssertRequestIsGeldig("", "", $$$False, "Ongeldig indien geen Ref en Dataopt voor Personality BiemarBois")
+	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$False, "Ongeldig indien geen Ref voor Personality BiemarBois")
+	Do ..AssertRequestIsGeldig("DummyRef", "", $$$False, "Ongeldig indien geen Dataopt voor Personality BiemarBois")
+	Do ..AssertRequestIsGeldig("DummyRef", "DummyDataOpt", $$$True, "Geldig indien Ref en Dataopt voor Personality BiemarBois")
+]]></Implementation>
+</Method>
+
+<Method name="AssertRequestIsGeldig">
+<FormalSpec>Ref:%String,DataOpt:%String,IsGeldig:%Boolean,Message:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatBiemar"
+	Set DecrypteerRequest.Ref = Ref
+	Set DecrypteerRequest.DataOpt = DataOpt
+	
+	#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ..GeefLoginParameters()
+	#dim ParameterBepalerStub As vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do ParameterBepalerStub.IndienMethodCall("GeefLoginParameters", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).DanReturn(LoginParameters)
+	
+	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..GeefHandelPersonality()
+	#dim HandelPersonalityRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", LoginParameters.PersonalityID).DanReturn(HandelPersonality)
+	
+	#dim HandelToegelatenLadetypesBepalerStub As vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler = ##class(vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler).%New()
+	Do HandelToegelatenLadetypesBepalerStub.IndienMethodCall("Bepaal", LoginParameters.PersonalityID).DanDoeNiks() //(DummyToegelatenLadetypes)
+	
+	#dim KortingBewaarderStub As vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
+	Do KortingBewaarderStub.IndienMethodCall("BewaarMeegegevenKorting", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(ParameterBepalerStub, "", HandelPersonalityRepositoryStub, "", KortingBewaarderStub, "", HandelToegelatenLadetypesBepalerStub)
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertEquals(IsGeldig, DecrypteerResponse.IsGeldig, Message)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geldig indien Ref en DataOpt voor Personality Kisch">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatKisch"
+	Set DecrypteerRequest.Ref = "DummyRef"
+	Set DecrypteerRequest.DataOpt = "DummyDataOpt"
+	Set DecrypteerRequest.Header.Taal = "DummyTaal"
+	Set DecrypteerRequest.Header.GebruikerIp = "DummyGebruikerIp"
+	
+	#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ..GeefLoginParameters()
+	#dim ParameterBepalerMock As vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do ParameterBepalerMock.VerwachtMethodCall("GeefLoginParameters", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).DanReturn(LoginParameters)
+	
+	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..GeefHandelPersonality()
+	#dim HandelPersonalityRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryMock.VerwachtMethodCall("GeefViaID", LoginParameters.PersonalityID).DanReturn(HandelPersonality)
+	
+	#dim KlantDataBewaarderMock As vhTest.Mock.APPS.VKP.KlantDataBewaarder = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderMock.VerwachtMethodCall("Bewaar", HandelPersonality, ..Matches.IsA("DOM.common.dto.HandelKlantData")).DanDoeNiks()
+	
+	#dim DummyToegelatenLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyLadetype1", "DummyLadetype2")
+	#dim HandelToegelatenLadetypesBepalerMock As vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler = ##class(vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler).%New()
+	Do HandelToegelatenLadetypesBepalerMock.VerwachtMethodCall("Bepaal", LoginParameters.PersonalityID).DanReturn(DummyToegelatenLadetypes)
+	
+	#dim KortingBewaarderMock As vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
+	Do KortingBewaarderMock.VerwachtMethodCall("BewaarMeegegevenKorting", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(ParameterBepalerMock, "", HandelPersonalityRepositoryMock, "", KortingBewaarderMock, "", HandelToegelatenLadetypesBepalerMock, KlantDataBewaarderMock)
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertTrue(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+	Do $$$AssertEquals(DecrypteerResponse.PersonalityId, LoginParameters.PersonalityID)
+	Do $$$AssertEquals(DecrypteerResponse.KlantId, LoginParameters.KlantID)
+	Do $$$AssertEquals(DecrypteerResponse.KlantNaam, LoginParameters.KlantNaam)
+	Do $$$AssertEquals(DecrypteerResponse.GebruikerId, 1)
+	Do $$$AssertEquals(DecrypteerResponse.GebruikerNaam, "")
+	Do $$$AssertEquals(DecrypteerResponse.Taal, LoginParameters.Taal)
+	Do $$$AssertEqualsList(DecrypteerResponse.ToegelatenLadetypes, DummyToegelatenLadetypes)
+	
+	Do ParameterBepalerMock.Verifieer()
+	Do HandelPersonalityRepositoryMock.Verifieer()
+	Do KlantDataBewaarderMock.Verifieer()
+	Do KortingBewaarderMock.Verifieer()
+	Do HandelToegelatenLadetypesBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLoginParameters">
+<Private>1</Private>
+<ReturnType>WSimpl.Unishop.Login.ParametersHandel</ReturnType>
+<Implementation><![CDATA[
+	#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ##class(WSimpl.Unishop.Login.ParametersHandel).%New()
+	
+	Set LoginParameters.PersonalityID = "DummyPersonalityId"
+	Set LoginParameters.KlantID = "DummyKlantId"
+	Set LoginParameters.KlantNaam = "DummyKlantNaam"
+	Set LoginParameters.Taal = ##class(DOM.enu.Taal).Nederlands()
+	
+	Quit LoginParameters
+]]></Implementation>
+</Method>
+
+<Method name="GeefHandelPersonality">
+<Private>1</Private>
+<ReturnType>DOM.common.impl.HandelPersonality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.BiemarBoisPersonality).Instance()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58210)
+++ WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58241)
@@ -160,6 +160,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(##class(WSimpl.Unishop.Login.ParametersHandel).%New(),BiemarBoisPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(##class(WSimpl.Unishop.Login.ParametersHandel).%New(), HeinPersonality.GeefPrefix())
Index: DOM/common/PersonalityVisitor.cls.xml
===================================================================
diff -u -r58210 -r58241
--- DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 58210)
+++ DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 58241)
@@ -103,6 +103,11 @@
 <Abstract>1</Abstract>
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkBiemarBois">
+<Abstract>1</Abstract>
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58210)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58241)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBiemarBois",BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
@@ -65,6 +65,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Pavanello())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Ferexpert())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BiemarBois())
 
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58210)
+++ vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58241)
@@ -23,6 +23,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml
===================================================================
diff -u -r58210 -r58241
--- DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 58210)
+++ DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 58241)
@@ -127,6 +127,12 @@
 <Implementation><![CDATA[	Do ..VerwerkAnderePersonality(JBarthPersonality)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkAnderePersonality(BiemarBoisPersonality)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58210)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58241)
@@ -168,6 +168,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("nicholas@biemar.be")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("info@du-pont.be")
Index: vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58210)
+++ vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58241)
@@ -27,6 +27,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBiemarBois",BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58210 -r58241
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58210)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58241)
@@ -120,6 +120,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(DupontPersonality)
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r58210 -r58241
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58210)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58241)
@@ -194,6 +194,16 @@
 		Set ..Response.IsGeldig = $$$True
 		
 		Set Resultaat = ..Response.IsGeldig
+
+	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "biemar")) {
+		Set ..Response.PersonalityId = Personality.BiemarBois
+		Set ..Response.Taal = ##class(DOM.enu.Taal).Frans()
+		Set ..Response.IsContactGegevensFormulierNodig = $$$False
+		Set ..Response.IsLoginFormulierNodig = $$$False
+		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		
+		Set Resultaat = ..Response.IsGeldig
+
 	} ElseIf (DecrypteerRequest.Hostname = "") {
 		Set ..Response.IsGeldig = $$$False
 	} ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(##class(TECH.StringUtils).Equals(DecrypteerRequest.Header.PersonalityId,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.JBarth))) {
Index: DOM/VKP/impl/BiemarBoisKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/BiemarBoisKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/BiemarBoisKlantData.cls.xml	(revision 58241)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.BiemarBoisKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58210)
+++ vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58241)
@@ -27,6 +27,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
@@ -64,6 +64,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Pavanello())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Ferexpert())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BiemarBois())
 	
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: DOM/common/impl/GebruikerAPIimpl.cls.xml
===================================================================
diff -u -r57719 -r58241
--- DOM/common/impl/GebruikerAPIimpl.cls.xml	(.../GebruikerAPIimpl.cls.xml)	(revision 57719)
+++ DOM/common/impl/GebruikerAPIimpl.cls.xml	(.../GebruikerAPIimpl.cls.xml)	(revision 58241)
@@ -120,6 +120,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..StelInDummyGebruiker()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..StelInDummyGebruiker()
Index: vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58210)
+++ vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58241)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhDeploy/D20190924xUrlsVhisie4BiemarBois.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190924xUrlsVhisie4BiemarBois.cls.xml	(revision 0)
+++ vhDeploy/D20190924xUrlsVhisie4BiemarBois.cls.xml	(revision 58241)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190924xUrlsVhisie4BiemarBois">
+<Super>vhDeploy.Deploy</Super>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If ($$$Server = "CACHE01") {
+		Do ..ZetSleutel("BiemarBois", "https://biemar.drawerconfigurator.com")
+	} Else {
+		Do ..ZetSleutel("BiemarBois", "http://biemar.website.testing.vanhoecke.be")
+	}
+	
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("Personality_WebshopVersie_BiemarBois", "V4")
+]]></Implementation>
+</Method>
+
+<Method name="ZetSleutel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Personality:%String,Url:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.EC.impl.Webshop.UrlBepaler_V4_"_Personality, Url)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58210)
+++ vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58241)
@@ -34,6 +34,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBiemarBois",BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58210)
+++ vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58241)
@@ -34,6 +34,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBiemarBois",BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: APPS/EC/impl/ECommerceAPI.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 58210)
+++ APPS/EC/impl/ECommerceAPI.cls.xml	(.../ECommerceAPI.cls.xml)	(revision 58241)
@@ -116,6 +116,8 @@
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceFerexpert).%New()
 	} ElseIf (Personality.GeefID() = ..Personality.Beslagteknikk) {
 		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceBeslagteknikk).%New()
+	} ElseIf (Personality.GeefID() = ..Personality.BiemarBois) {
+		Set KlantInstellingenService = ##class(APPS.EC.impl.KlantInstellingenServiceBiemarBois).%New()
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor Personality '" _ $Select($IsObject(Personality):Personality.GeefID(),1:"[geen object]") _ "' bestaat geen KlantInstellingenService."))
 	}
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml	(.../ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml)	(revision 58210)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml	(.../ResultaatBepalerVoorOpgegevenGebruikerID.cls.xml)	(revision 58241)
@@ -101,6 +101,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..GebruikerID = "bibo_1000_1"
+	Set ..VerwachteGebruikerID = ..GebruikerID
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGalimberti">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58210)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58241)
@@ -35,7 +35,7 @@
 	#dim KlantId As %String = ""
 	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	
-	If ##class(TECH.StringUtils).Equals(RegistreerContactGegevensRequest.Header.PersonalityId,Personality.Beslagteknikk,Personality.Dupont,Personality.Ferexpert,Personality.Pavanello,Personality.Galimberti,Personality.Destil,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.BeslagDesign,Personality.JBarth) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
+	If ##class(TECH.StringUtils).Equals(RegistreerContactGegevensRequest.Header.PersonalityId,Personality.Beslagteknikk,Personality.Dupont,Personality.Ferexpert,Personality.Pavanello,Personality.Galimberti,Personality.Destil,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.BeslagDesign,Personality.JBarth,Personality.BiemarBois) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
 		Set KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
 		Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
 	} ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/Verwerker.cls.xml
===================================================================
diff -u -r57709 -r58241
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 57709)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58241)
@@ -16,6 +16,8 @@
 		Do ..VerwerkBeslagDesign()
 	} ElseIf CheckoutTypeStandaardKlant = "K||25319" {
 		Do ..VerwerkBeslagteknikk()
+	} ElseIf CheckoutTypeStandaardKlant = "K||4943" {
+		Do ..VerwerkBiemarBois()
 	} ElseIf CheckoutTypeStandaardKlant = "K||23968" {
 		Do ..VerwerkDaroFactors()
 	} ElseIf CheckoutTypeStandaardKlant = "K||7833" {
@@ -45,6 +47,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaroFactors">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58210)
+++ WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58241)
@@ -136,6 +136,12 @@
 <Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Ferexpert()
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).BiemarBois()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml
===================================================================
diff -u -r55147 -r58241
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 55147)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder.cls.xml	(.../ContactGegevensRegistreerder.cls.xml)	(revision 58241)
@@ -67,7 +67,6 @@
 <ReturnType>WS.Vhisie4.Auth.RegistreerContactGegevensResponse</ReturnType>
 <Implementation><![CDATA[
 	#dim Response As WS.Vhisie4.Auth.RegistreerContactGegevensResponse = ##class(WS.Vhisie4.Auth.RegistreerContactGegevensResponse).%New()
-	
 	If (RegistreerContactGegevensRequest.Naam = "") {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Naam is verplicht")
 	} Else {
Index: APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 58210)
+++ APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 58241)
@@ -44,6 +44,8 @@
 		Set PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Destil() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Destil()
+	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).BiemarBois() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).BiemarBois()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Dupont() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Dupont()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Kisch() {
@@ -96,6 +98,8 @@
 		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).HaefeleNederland()
 	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).Destil() {
 		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).Destil()
+	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).BiemarBois() {
+		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).BiemarBois()
 	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).Dupont() {
 		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).Dupont()
 	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).Kisch() {
Index: BL/Legacy/FactuurMailAfzenderBepaler.cls.xml
===================================================================
diff -u -r57719 -r58241
--- BL/Legacy/FactuurMailAfzenderBepaler.cls.xml	(.../FactuurMailAfzenderBepaler.cls.xml)	(revision 57719)
+++ BL/Legacy/FactuurMailAfzenderBepaler.cls.xml	(.../FactuurMailAfzenderBepaler.cls.xml)	(revision 58241)
@@ -47,6 +47,10 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58210)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58241)
@@ -34,6 +34,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBiemarBois",BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58210)
+++ vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 58241)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/enu/UniShopVerwerker.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/enu/UniShopVerwerker.cls.xml	(.../UniShopVerwerker.cls.xml)	(revision 58210)
+++ APPS/EC/enu/UniShopVerwerker.cls.xml	(.../UniShopVerwerker.cls.xml)	(revision 58241)
@@ -7,11 +7,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;SFS;HFLB;HFLE;VHEPN;DUPO;KISCH;HELMY;RAEM;DARO;HEIN;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;JBAR</Default>
+<Default>;SFS;HFLB;HFLE;VHEPN;DUPO;KISCH;HELMY;RAEM;DARO;HEIN;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;JBAR;BIBO</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;SFS;HaefeleBelgie;HaefeleNederland;VHEPN;Dupont;Kisch;Destil;VanRaemdonck;Daro;Hein;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;JBarth</Default>
+<Default>;SFS;HaefeleBelgie;HaefeleNederland;VHEPN;Dupont;Kisch;Destil;VanRaemdonck;Daro;Hein;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;JBarth;BiemarBois</Default>
 </Parameter>
 
 <Method name="SFS">
@@ -132,6 +132,13 @@
 <Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).Ferexpert()
 ]]></Implementation>
 </Method>
+
+<Method name="BiemarBois">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.UniShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).BiemarBois()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58210)
+++ vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58241)
@@ -47,6 +47,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBiemarBois",BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/AutoComplete.cls.xml
===================================================================
diff -u -r57709 -r58241
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 57709)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58241)
@@ -23,6 +23,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BiemarBois">
+<Type>%String</Type>
+<InitialExpression>"K||4943"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="DaroFactors">
 <Type>%String</Type>
 <InitialExpression>"K||23968"</InitialExpression>
Index: vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
@@ -43,6 +43,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestBiemarBois">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.BiemarBois,..Enum.Personality.VanHoecke,..Enum.Klant.BiemarBois)
+]]></Implementation>
+</Method>
+
 <Method name="TestZweygart">
 <Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.Zweygart,..Enum.Personality.Hein,"hein_55936")
 ]]></Implementation>
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt
===================================================================
diff -u -r58210 -r58241
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt	(.../WS.EC.SessionService.txt)	(revision 58210)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt	(.../WS.EC.SessionService.txt)	(revision 58241)
@@ -118,6 +118,7 @@
                     <s:enumeration value="18"/>
                     <s:enumeration value="19"/>
                     <s:enumeration value="20"/>
+                    <s:enumeration value="21"/>
                     <s:enumeration value="32"/>
                 </s:restriction>
             </s:simpleType>
Index: vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58210)
+++ vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58241)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
+++ APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58241)
@@ -23,6 +23,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BiemarBois">
+<Type>%String</Type>
+<InitialExpression>"BIBO"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Daro">
 <Type>%String</Type>
 <InitialExpression>"DARO"</InitialExpression>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
@@ -62,6 +62,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Pavanello())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Ferexpert())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BiemarBois())
 	
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
+++ APPS/EC/enu/UniShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58241)
@@ -15,6 +15,8 @@
 <Implementation><![CDATA[
 	If UniShopVerwerker = "BEDE" {
 		Do ..VerwerkBeslagDesign()
+	} ElseIf UniShopVerwerker = "BIBO" {
+		Do ..VerwerkBiemarBois()
 	} ElseIf UniShopVerwerker = "DARO" {
 		Do ..VerwerkDaro()
 	} ElseIf UniShopVerwerker = "HELMY" {
@@ -60,6 +62,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58210)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 58241)
@@ -173,6 +173,10 @@
 	Do ..ToegelatenLadetypes.Insert("TAX")
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 58210)
+++ APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 58241)
@@ -62,6 +62,10 @@
 <FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 </Method>
Index: vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58210)
+++ vhUnitTest/DOM/VKP/impl/HandelToegelatenLadetypesBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
@@ -25,6 +25,7 @@
 <Implementation><![CDATA[
 	#dim VerwachteLadetypes As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LBX", "TAX", "TBX")
 	
+	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.BiemarBois, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Daro, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Destil, VerwachteLadetypes)
 	Do ..AssertToegelatenLadeTypes(..PersonalityEnum.Dupont, VerwachteLadetypes)
Index: APPS/EC/impl/KlantInstellingenServiceBiemarBois.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceBiemarBois.cls.xml	(revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceBiemarBois.cls.xml	(revision 58241)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.impl.KlantInstellingenServiceBiemarBois">
+<Super>APPS.common.impl.KlantInstellingenService</Super>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 58210)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 58241)
@@ -64,6 +64,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..StelInGeenPrijsFactorBepaler()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..StelInGeenPrijsFactorBepaler()
Index: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r58210 -r58241
--- DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58241)
@@ -23,6 +23,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BiemarBois">
+<Type>%String</Type>
+<InitialExpression>"21"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Daro">
 <Type>%String</Type>
 <InitialExpression>"10"</InitialExpression>
Index: vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58210)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 58241)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r57719 -r58241
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 57719)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 58241)
@@ -50,6 +50,10 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="BiemarBoisDestil">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r58210 -r58241
--- DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
+++ DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58241)
@@ -16,6 +16,8 @@
 		Do ..VerwerkBeslagDesign()
 	} ElseIf Personality = "20" {
 		Do ..VerwerkBeslagteknikk()
+	} ElseIf Personality = "21" {
+		Do ..VerwerkBiemarBois()
 	} ElseIf Personality = "10" {
 		Do ..VerwerkDaro()
 	} ElseIf Personality = "15" {
@@ -73,6 +75,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: PRGACNTs.inc.rou
===================================================================
diff -u -r58213 -r58241
--- PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 58213)
+++ PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 58241)
@@ -121,6 +121,7 @@
 	#define FerexpertOptKey            "TdXA{Du(Xqy7L`J\"
 	#define BeslagteknikkOptKey        "F8zan2R/MXQ#Ts7L"
 	#define JBarthKey                  "m57!p#}a)t6gbTHJ"
+	#define BiemarBoisKey              "PAh*Zu~naLnv#7<H"
 	
 	; Toegang voor OptimaFIX page : beperkt via controle op IP-adres 
 	;   !!! Te compileren in routines :           
Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 58210)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 58241)
@@ -126,6 +126,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, BiemarBoisPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, BiemarBoisPersonality)
+	Do ..ConverteerHandelKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant.cls.xml
===================================================================
diff -u -r57709 -r58241
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant.cls.xml	(.../CheckoutTypeStandaardKlant.cls.xml)	(revision 57709)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeStandaardKlant.cls.xml	(.../CheckoutTypeStandaardKlant.cls.xml)	(revision 58241)
@@ -62,6 +62,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BiemarBois">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.CheckoutTypeStandaardKlant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(4943)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml
===================================================================
diff -u -r55147 -r58241
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 55147)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/Registreer/Test.cls.xml	(.../Test.cls.xml)	(revision 58241)
@@ -89,7 +89,6 @@
 	
 	#dim KlantDataBewaarderStub As vhTest.Mock.APPS.VKP.KlantDataBewaarder = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
 	Do KlantDataBewaarderStub.VerwachtMethodCall("Bewaar", HandelPersonalityStub, ..Matches.DataTransferObject(HandelKlantDataDummy)).DanDoeNiks()
-	
 	#dim RegistreerContactGegevensRequestStub As WS.Vhisie4.Auth.RegistreerContactGegevensRequest = ##class(vhTest.Utils.WS.Vhisie4.Auth.RegistreerContactGegevensRequest).GalimbertiKlantMetKorting()
 	
 	#dim KlantDataBepalerMock As vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler = ##class(vhTest.Mock.WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New()
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58210)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58241)
@@ -135,6 +135,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = BiemarBoisPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefVerkoopPrijs(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKorting(BiemarBoisPersonality,..Winkelkar.GeefKlantID())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58210)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 58241)
@@ -65,6 +65,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.HandelKlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.DupontKlantData = ..OpenKlantData(..KlantID, BiemarBoisPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandelAnoniem(KlantData, BiemarBoisPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/BiemarBoisPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BiemarBoisPersonality.cls.xml	(revision 0)
+++ DOM/common/BiemarBoisPersonality.cls.xml	(revision 58241)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.BiemarBoisPersonality">
+<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).BiemarBois())
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[	do Visitor.VerwerkBiemarBois($this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.enu.Taal).Frans()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).BiemarBois())
+]]></Implementation>
+</Method>
+
+<Method name="IsHandel">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Biemar Bois SA"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "BiemarBois_"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 58210)
+++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 58241)
@@ -106,6 +106,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkHandelMetVerificatieEnEmail(HeinPersonality)
Index: vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58210)
+++ vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58241)
@@ -34,6 +34,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBiemarBois",BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58210)
+++ APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 58241)
@@ -171,6 +171,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerReedsBesteld()
+	Do ..ControleerToegangEnPrijzen()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58210)
+++ APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 58241)
@@ -16,6 +16,8 @@
 		Do ..VerwerkBeslagDesign()
 	} ElseIf WebShopVerwerker = "BETE" {
 		Do ..VerwerkBeslagteknikk()
+	} ElseIf WebShopVerwerker = "BIBO" {
+		Do ..VerwerkBiemarBois()
 	} ElseIf WebShopVerwerker = "DARO" {
 		Do ..VerwerkDaro()
 	} ElseIf WebShopVerwerker = "HELMY" {
@@ -71,6 +73,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhDeploy/D20190925xBiemarBoisPersonalityAanmaken.cls.xml
===================================================================
diff -u
--- vhDeploy/D20190925xBiemarBoisPersonalityAanmaken.cls.xml	(revision 0)
+++ vhDeploy/D20190925xBiemarBoisPersonalityAanmaken.cls.xml	(revision 58241)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20190925xBiemarBoisPersonalityAanmaken">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+<Default>21</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van Personality voor Biemar Bois (ID=21)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.BiemarBoisPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).BiemarBois()
+																				 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58210)
+++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 58241)
@@ -27,6 +27,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58210)
+++ vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 58241)
@@ -25,6 +25,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58210)
+++ APPS/EC/enu/UniShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 58241)
@@ -16,6 +16,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BiemarBois">
+<Type>%String</Type>
+<InitialExpression>"BIBO"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Daro">
 <Type>%String</Type>
 <InitialExpression>"DARO"</InitialExpression>
Index: vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml	(.../ResultaatBepalerNietOpgegevenGebruiker.cls.xml)	(revision 58210)
+++ vhUnitTest/WSimpl/Unishop/Login/ParameterBepalerGebruikerID/ResultaatBepalerNietOpgegevenGebruiker.cls.xml	(.../ResultaatBepalerNietOpgegevenGebruiker.cls.xml)	(revision 58241)
@@ -110,6 +110,12 @@
 <Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBiemarBois">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerwachteGebruikerID = ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/enu/WebShopVerwerker.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 58210)
+++ APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 58241)
@@ -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;JBAR</Default>
+<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;BETE;BIBO;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;JBarth</Default>
+<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;Beslagteknikk;BiemarBois;JBarth</Default>
 </Parameter>
 
 <Method name="VHEPN">
@@ -153,6 +153,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BiemarBois">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit "BIBO"
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: cspBasis/TBX/Lib.mac.rou
===================================================================
diff -u -r58213 -r58241
--- cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 58213)
+++ cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 58241)
@@ -145,6 +145,7 @@
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).Ferexpert() $$$FerexpertOptKey
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).Beslagteknikk() $$$BeslagteknikkOptKey
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).JBarth() $$$JBarthKey
+	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).BiemarBois() $$$BiemarBoisKey
 	Quit "DummyKey"
 	
 
Index: vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r58210 -r58241
--- vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58210)
+++ vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 58241)
@@ -33,6 +33,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBiemarBois",BiemarBoisPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkDaro",DaroPersonality)
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r58210 -r58241
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 58210)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 58241)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="DISPLAYLIST">
-<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,JBarth</Default>
+<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,BiemarBois,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,32</Default>
+<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,32</Default>
 </Parameter>
 
 <Method name="VanHoecke">
@@ -153,14 +153,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BiemarBois">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit 21
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*
 Voorlopige toekenning van de nummerkes, nog te vervolledigen bij de implemetatie van de personalities.
-ClassMethod BiemarBois() As DOM.common.enu.Personality
-{
-	Quit 21
-}
 
 ClassMethod CampeTonny() As DOM.common.enu.Personality
 {
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r58210 -r58241
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 58210)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 58241)
@@ -90,6 +90,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<FormalSpec>BiemarBoisPersonality:DOM.common.BiemarBoisPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDupont">
 <FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)