Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r72648 -r72726
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 72648)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 72726)
@@ -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,BlumPLHorst</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,BlumPLIntar</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,66</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,67</Default>
 </Parameter>
 
 <Method name="VanHoecke">
@@ -480,6 +480,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BlumPLIntar">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit 67
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml
===================================================================
diff -u -r72648 -r72726
--- vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
+++ vhUnitTest/DOM/common/impl/PersonalityService/IsRechtstreekseLeveringDoorVanHoeckeAanKlantVanHandel/Test.cls.xml	(.../Test.cls.xml)	(revision 72726)
@@ -76,7 +76,8 @@
 											..Personality.BlumPLDrewno,
 											..Personality.BlumPLBiuroStyl,
 											..Personality.HaefeleES,
-											..Personality.BlumPLHorst) {
+											..Personality.BlumPLHorst,
+											..Personality.BlumPLIntar) {
 			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")
@@ -150,7 +151,8 @@
 											..Personality.BlumPLDrewno,
 											..Personality.BlumPLBiuroStyl,
 											..Personality.HaefeleES,
-											..Personality.BlumPLHorst) {
+											..Personality.BlumPLHorst,
+											..Personality.BlumPLIntar) {
 			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: vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml
===================================================================
diff -u -r72648 -r72726
--- vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
+++ vhUnitTest/DOM/VKP/impl/KlantDataFactory/Test.cls.xml	(.../Test.cls.xml)	(revision 72726)
@@ -86,6 +86,7 @@
 	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).BlumPLIntar())
 	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())
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r72648 -r72726
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72726)
@@ -95,6 +95,7 @@
 	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).BlumPLIntar())
 	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: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r72648 -r72726
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 72726)
@@ -96,6 +96,7 @@
 	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).BlumPLIntar())
 	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/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt
===================================================================
diff -u -r72648 -r72726
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt	(.../WS.EC.SessionService.txt)	(revision 72648)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.EC.SessionService.txt	(.../WS.EC.SessionService.txt)	(revision 72726)
@@ -164,6 +164,7 @@
                     <s:enumeration value="64"/>
                     <s:enumeration value="65"/>
                     <s:enumeration value="66"/>
+                    <s:enumeration value="67"/>
                 </s:restriction>
             </s:simpleType>
             <s:complexType name="WebshopSessieSettings">
Index: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r72648 -r72726
--- DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 72648)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 72726)
@@ -86,6 +86,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BlumPLIntar">
+<Type>%String</Type>
+<InitialExpression>"67"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="BlumPLMeble">
 <Type>%String</Type>
 <InitialExpression>"56"</InitialExpression>
Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r72648 -r72726
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 72648)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 72726)
@@ -136,6 +136,7 @@
 	Quit:(PersonalityID = Personality.BlumPLDrewno) $$$True
 	Quit:(PersonalityID = Personality.BlumPLDrewTrans) $$$True
 	Quit:(PersonalityID = Personality.BlumPLHorst) $$$True
+	Quit:(PersonalityID = Personality.BlumPLIntar) $$$True
 	Quit:(PersonalityID = Personality.BlumPLMeble) $$$True
 	Quit:(PersonalityID = Personality.BlumPLMebloa) $$$True
 	Quit:(PersonalityID = Personality.BlumPLMeblolux) $$$True
Index: DOM/common/BlumPLIntarPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLIntarPersonality.cls.xml	(revision 0)
+++ DOM/common/BlumPLIntarPersonality.cls.xml	(revision 72726)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.BlumPLIntarPersonality">
+<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).BlumPLIntar())
+]]></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: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r72648 -r72726
--- DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 72648)
+++ DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 72726)
@@ -34,6 +34,8 @@
 		Do ..VerwerkBlumPLDrewno()
 	} ElseIf Personality = "66" {
 		Do ..VerwerkBlumPLHorst()
+	} ElseIf Personality = "67" {
+		Do ..VerwerkBlumPLIntar()
 	} ElseIf Personality = "56" {
 		Do ..VerwerkBlumPLMeble()
 	} ElseIf Personality = "55" {
@@ -213,6 +215,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPLIntar">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkBlumPLMeble">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r72648 -r72726
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72726)
@@ -93,6 +93,7 @@
 	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).BlumPLIntar())
 	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/APPS/CRM/impl/KlantIDValidator/Test.cls.xml
===================================================================
diff -u -r72648 -r72726
--- vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 72648)
+++ vhUnitTest/APPS/CRM/impl/KlantIDValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 72726)
@@ -39,6 +39,7 @@
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLDrewno)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLDrewTrans)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLHorst)
+			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLIntar)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMeble)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMebloa)
 			continue:(Personality.GeefID() = ..Enum.Personality.BlumPLMeblolux)
Index: vhDeploy/Deploy20240312xLogosNieuweDistributeursBlumPolen.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20240312xLogosNieuweDistributeursBlumPolen.cls.xml	(revision 0)
+++ vhDeploy/Deploy20240312xLogosNieuweDistributeursBlumPolen.cls.xml	(revision 72726)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20240312xLogosNieuweDistributeursBlumPolen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nieuwe mapping voor logos van Meurer en BlumPLDrewTrans, voor alle etiketten en leverbon.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^IPCom("CS","LOGO_BPL_67",0) = "Logo BlumPL Intar.jpg"
+	
+	Set ^IPCom("CS","LOGO_BPL_67",0,"LogoOpAlleBeslagEtiketten")=1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/Deploy20240312xAanmakenNieuweDistributeursBlumPolen.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20240312xAanmakenNieuweDistributeursBlumPolen.cls.xml	(revision 0)
+++ vhDeploy/Deploy20240312xAanmakenNieuweDistributeursBlumPolen.cls.xml	(revision 72726)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20240312xAanmakenNieuweDistributeursBlumPolen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van personality Blum Polen Intar</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ..MaakBlumPLPersonality(67, ##class(DOM.common.BlumPLIntarPersonality).%ClassName($$$True))
+]]></Implementation>
+</Method>
+
+<Method name="MaakBlumPLPersonality">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PersonalityId:%Integer,PersonalityClassname:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(PersonalityId, PersonalityClassname, ##class(DOM.VKP.enu.Klant).BlumPolen())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>