Index: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r72621 -r72648
--- DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 72621)
+++ DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 72648)
@@ -32,6 +32,8 @@
 		Do ..VerwerkBlumPLDrewTrans()
 	} ElseIf Personality = "64" {
 		Do ..VerwerkBlumPLDrewno()
+	} ElseIf Personality = "66" {
+		Do ..VerwerkBlumPLHorst()
 	} ElseIf Personality = "56" {
 		Do ..VerwerkBlumPLMeble()
 	} ElseIf Personality = "55" {
@@ -205,6 +207,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPLHorst">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkBlumPLMeble">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml
===================================================================
diff -u -r72598 -r72648
--- vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 72598)
+++ vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
@@ -38,6 +38,7 @@
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLDemo)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLDrewno)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLDrewTrans)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLHorst)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMeble)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMebloa)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMeblolux)
Index: vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestLBXMPprijzen/LBX_BlumPLHorst.txt
===================================================================
diff -u
--- vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestLBXMPprijzen/LBX_BlumPLHorst.txt	(revision 0)
+++ vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestLBXMPprijzen/LBX_BlumPLHorst.txt	(revision 72648)
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<PrijsBerekeningPrijzen>
+  <AankoopPrijs>170.77</AankoopPrijs>
+  <VerkoopPrijs>168.36</VerkoopPrijs>
+  <LijstPrijs>168.36</LijstPrijs>
+</PrijsBerekeningPrijzen>
\ No newline at end of file
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r72621 -r72648
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72621)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
@@ -92,6 +92,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLDemo())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLDrewno())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLDrewTrans())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLHorst())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMeble())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMebloa())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMeblolux())
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r72621 -r72648
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 72621)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
@@ -75,7 +75,8 @@
 											..Personality.BlumPLWior,
 											..Personality.BlumPLDrewno,
 											..Personality.BlumPLBiuroStyl,
-											..Personality.HaefeleES) {
+											..Personality.HaefeleES,
+											..Personality.BlumPLHorst) {
 			Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
 		} ElseIf ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.VanHoecke,..Personality.VanHoeckeVoorHalux,..Personality.SFS,..Personality.OPO,..Personality.Kisch,..Personality.Destil,..Personality.HaefeleBE,..Personality.VanRaemdonck,..Personality.Noteborn,..Personality.Daro,..Personality.BeslagDesign,..Personality.Demo,..Personality.Galimberti,..Personality.Pavanello,..Personality.Ferexpert,..Personality.Beslagteknikk,..Personality.YachtSupplier,..Personality.DeceuninckDeforce,..Personality.Pierard,..Personality.HahleOy,..Personality.BiemarBois,..Personality.CampeTonny, ..Personality.Dupont) {
 			Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
@@ -148,7 +149,8 @@
 											..Personality.BlumPLWior,
 											..Personality.BlumPLDrewno,
 											..Personality.BlumPLBiuroStyl,
-											..Personality.HaefeleES) {
+											..Personality.HaefeleES,
+											..Personality.BlumPLHorst) {
 			Do $$$AssertTrue(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
 		} ElseIf ##class(TECH.StringUtils).Equals(PersonalityId,..Personality.VanHoecke,..Personality.VanHoeckeVoorHalux,..Personality.SFS,..Personality.OPO,..Personality.Kisch,..Personality.Destil,..Personality.Noteborn,..Personality.Daro,..Personality.BeslagDesign,..Personality.Demo,..Personality.Galimberti,..Personality.Beslagteknikk,..Personality.YachtSupplier,..Personality.DeceuninckDeforce,..Personality.Pierard,..Personality.HahleOy,..Personality.BiemarBois,..Personality.CampeTonny) {
 			Do $$$AssertFalse(Service.IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel(PersonalityId),"Personality "_ ##class(DOM.common.enu.Personality).DisplayList().GetAt(PersonalityId) _ " Fout")
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r72621 -r72648
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 72621)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 72648)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="DISPLAYLIST">
-<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,BiemarBois,CampeTonny,Rini,Furnifit,YachtSupplier,DSGroup,DeBisschop,DeceuninckDeforce,Pierard,JBarth,HaefeleDE,Kleiner,Layer,HahleOy,HaefeleSE,HaefeleFI,HaefeleIT,HaefeleAT,OPO,HaefeleFR,HaefeleDK,HaefeleCH,HaefeleNO,Martens,Dozon,BlumPL,BlumPLMerkur,BlumPLCMeube,BlumPLDemo,BlumPLSAS,BlumPLSchach,BlumPLMebloa,BlumPLMeble,BlumPLPakdrew,BlumPLMeblolux,BlumPLAbler,BlumPLWiP,Meurer,BlumPLDrewTrans,HaefeleES,BlumPLWior,BlumPLDrewno,BlumPLBiuroStyl</Default>
+<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk,BiemarBois,CampeTonny,Rini,Furnifit,YachtSupplier,DSGroup,DeBisschop,DeceuninckDeforce,Pierard,JBarth,HaefeleDE,Kleiner,Layer,HahleOy,HaefeleSE,HaefeleFI,HaefeleIT,HaefeleAT,OPO,HaefeleFR,HaefeleDK,HaefeleCH,HaefeleNO,Martens,Dozon,BlumPL,BlumPLMerkur,BlumPLCMeube,BlumPLDemo,BlumPLSAS,BlumPLSchach,BlumPLMebloa,BlumPLMeble,BlumPLPakdrew,BlumPLMeblolux,BlumPLAbler,BlumPLWiP,Meurer,BlumPLDrewTrans,HaefeleES,BlumPLWior,BlumPLDrewno,BlumPLBiuroStyl,BlumPLHorst</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
-<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65</Default>
+<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66</Default>
 </Parameter>
 
 <Method name="VanHoecke">
@@ -473,6 +473,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BlumPLHorst">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit 66
+]]></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 -r72621 -r72648
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72621)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
@@ -94,6 +94,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLDemo())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLDrewno())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLDrewTrans())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLHorst())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMeble())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMebloa())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).BlumPLMeblolux())
Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r72621 -r72648
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 72621)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 72648)
@@ -135,6 +135,7 @@
 	Quit:(PersonalityID = Personality.BlumPLDemo) $$$True
 	Quit:(PersonalityID = Personality.BlumPLDrewno) $$$True
 	Quit:(PersonalityID = Personality.BlumPLDrewTrans) $$$True
+	Quit:(PersonalityID = Personality.BlumPLHorst) $$$True
 	Quit:(PersonalityID = Personality.BlumPLMeble) $$$True
 	Quit:(PersonalityID = Personality.BlumPLMebloa) $$$True
 	Quit:(PersonalityID = Personality.BlumPLMeblolux) $$$True
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r72621 -r72648
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 72621)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
@@ -95,6 +95,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLDemo())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLDrewno())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLDrewTrans())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLHorst())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLMeble())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLMebloa())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).BlumPLMeblolux())
Index: vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTBXMPprijzen/TBX_BlumPLHorst.txt
===================================================================
diff -u
--- vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTBXMPprijzen/TBX_BlumPLHorst.txt	(revision 0)
+++ vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTBXMPprijzen/TBX_BlumPLHorst.txt	(revision 72648)
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<PrijsBerekeningPrijzen>
+  <AankoopPrijs>145.68</AankoopPrijs>
+  <VerkoopPrijs>145.68</VerkoopPrijs>
+  <LijstPrijs>145.68</LijstPrijs>
+</PrijsBerekeningPrijzen>
\ No newline at end of file
Index: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r72621 -r72648
--- DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 72621)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 72648)
@@ -79,6 +79,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BlumPLHorst">
+<Type>%String</Type>
+<InitialExpression>"66"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="BlumPLMeble">
 <Type>%String</Type>
 <InitialExpression>"56"</InitialExpression>
Index: vhDeploy/Deploy20240216xAanmakenNieuweDistributeursBlumPolen.cls.xml
===================================================================
diff -u -r72598 -r72648
--- vhDeploy/Deploy20240216xAanmakenNieuweDistributeursBlumPolen.cls.xml	(.../Deploy20240216xAanmakenNieuweDistributeursBlumPolen.cls.xml)	(revision 72598)
+++ vhDeploy/Deploy20240216xAanmakenNieuweDistributeursBlumPolen.cls.xml	(.../Deploy20240216xAanmakenNieuweDistributeursBlumPolen.cls.xml)	(revision 72648)
@@ -10,10 +10,7 @@
 
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Do ..MaakBlumPLPersonality(63, ##class(DOM.common.BlumPLWiorPersonality).%ClassName($$$True))
-	Do ..MaakBlumPLPersonality(64, ##class(DOM.common.BlumPLDrewnoPersonality).%ClassName($$$True))
-	Do ..MaakBlumPLPersonality(65, ##class(DOM.common.BlumPLBiuroStylPersonality).%ClassName($$$True))
+<Implementation><![CDATA[	Do ..MaakBlumPLPersonality(66, ##class(DOM.common.BlumPLHorstPersonality).%ClassName($$$True))
 ]]></Implementation>
 </Method>
 
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt
===================================================================
diff -u -r72621 -r72648
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt	(.../WS.EC.SessionService.txt)	(revision 72621)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt	(.../WS.EC.SessionService.txt)	(revision 72648)
@@ -163,6 +163,7 @@
                     <s:enumeration value="63"/>
                     <s:enumeration value="64"/>
                     <s:enumeration value="65"/>
+                    <s:enumeration value="66"/>
                 </s:restriction>
             </s:simpleType>
             <s:complexType name="WebshopSessieSettings">
Index: vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTAXMPprijzen/TAX_BlumPLHorst.txt
===================================================================
diff -u
--- vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTAXMPprijzen/TAX_BlumPLHorst.txt	(revision 0)
+++ vhTestFiles/UnitTests/APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler/MPTest/TestTAXMPprijzen/TAX_BlumPLHorst.txt	(revision 72648)
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<PrijsBerekeningPrijzen>
+  <AankoopPrijs>323.99</AankoopPrijs>
+  <VerkoopPrijs>324</VerkoopPrijs>
+  <LijstPrijs>324</LijstPrijs>
+</PrijsBerekeningPrijzen>
\ No newline at end of file
Index: vhDeploy/Deploy20240216xLogosNieuweDistributeursBlumPolen.cls.xml
===================================================================
diff -u -r72598 -r72648
--- vhDeploy/Deploy20240216xLogosNieuweDistributeursBlumPolen.cls.xml	(.../Deploy20240216xLogosNieuweDistributeursBlumPolen.cls.xml)	(revision 72598)
+++ vhDeploy/Deploy20240216xLogosNieuweDistributeursBlumPolen.cls.xml	(.../Deploy20240216xLogosNieuweDistributeursBlumPolen.cls.xml)	(revision 72648)
@@ -5,19 +5,15 @@
 
 <Parameter name="Omschrijving">
 <Type>%String</Type>
-<Default>Nieuwe mapping voor logos van Meurer en BlumPLDrewTrans, voor alle etiketten en leverbon.</Default>
+<Default>Nieuwe mapping voor logos van BlumPLHorst, voor alle etiketten en leverbon.</Default>
 </Parameter>
 
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set ^IPCom("CS","LOGO_BPL_63",0) = "Logo BlumPL Wior.jpg"
-	Set ^IPCom("CS","LOGO_BPL_64",0) = "Logo BlumPL Drewno.jpg"
-	Set ^IPCom("CS","LOGO_BPL_65",0) = "Logo BlumPL BiuroStyl.jpg"
+	Set ^IPCom("CS","LOGO_BPL_66",0) = "Logo BlumPL Horst.jpg"
 	
-	Set ^IPCom("CS","LOGO_BPL_63",0,"LogoOpAlleBeslagEtiketten")=1
-	Set ^IPCom("CS","LOGO_BPL_64",0,"LogoOpAlleBeslagEtiketten")=1
-	Set ^IPCom("CS","LOGO_BPL_65",0,"LogoOpAlleBeslagEtiketten")=1
+	Set ^IPCom("CS","LOGO_BPL_66",0,"LogoOpAlleBeslagEtiketten")=1
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/common/BlumPLHorstPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLHorstPersonality.cls.xml	(revision 0)
+++ DOM/common/BlumPLHorstPersonality.cls.xml	(revision 72648)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.BlumPLHorstPersonality">
+<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).BlumPLHorst())
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.enu.Taal).Pools()
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[	do Visitor.VerwerkBlumPL($this)
+]]></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).BlumPolen())
+]]></Implementation>
+</Method>
+
+<Method name="IsHandel">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Blum Poland"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "BPLD_"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml
===================================================================
diff -u -r72598 -r72648
--- vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 72598)
+++ vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
@@ -85,6 +85,7 @@
 	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLDemo())
 	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLDrewno())
 	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLDrewTrans())
+	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLHorst())
 	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMeble())
 	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMebloa())
 	Do Uitzonderingen.Insert(##class(DOM.common.enu.Personality).BlumPLMeblolux())