Index: APPS/EC/enu/WebShopVerwerker.cls.xml
===================================================================
diff -u -r70628 -r70667
--- APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 70628)
+++ APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 70667)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;BETE;BIBO;JBAR;CAMP;RINI;FURN;YSPL;DSGR;DBSP;DCDF;PIER;HFLD;KLNR;LAYR;HAHL;HFLSE;HFLFI;HFLIT;HFLAT;OPO;HFLFR;HFLDK;HFLCH;HFLNO;MART;DOZON</Default>
+<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;BETE;BIBO;JBAR;CAMP;RINI;FURN;YSPL;DSGR;DBSP;DCDF;PIER;HFLD;KLNR;LAYR;HAHL;HFLSE;HFLFI;HFLIT;HFLAT;OPO;HFLFR;HFLDK;HFLCH;HFLNO;MART;DOZON;BPL</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;Beslagteknikk;BiemarBois;JBarth;CampeTonny;Rini;Furnifit;YachtSupplier;DSGroup;DeBisschop;DeceuninckDeforce;Pierard;HaefeleDuitsland;Kleiner;Layer;HahleOy;HaefeleZweden;HaefeleFinland;HaefeleItalie;HaefeleOostenrijk;OPO;HaefeleFrankrijk;HaefeleDenemarken;HaefeleZwitserland;HaefeleNoorwegen;Martens;Dozon</Default>
+<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;Beslagteknikk;BiemarBois;JBarth;CampeTonny;Rini;Furnifit;YachtSupplier;DSGroup;DeBisschop;DeceuninckDeforce;Pierard;HaefeleDuitsland;Kleiner;Layer;HahleOy;HaefeleZweden;HaefeleFinland;HaefeleItalie;HaefeleOostenrijk;OPO;HaefeleFrankrijk;HaefeleDenemarken;HaefeleZwitserland;HaefeleNoorwegen;Martens;Dozon;BlumPolen</Default>
 </Parameter>
 
 <Method name="VHEPN">
@@ -321,6 +321,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BlumPolen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit "BPL"
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r70628 -r70667
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 70628)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 70667)
@@ -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</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</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</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</Default>
 </Parameter>
 
 <Method name="VanHoecke">
@@ -347,6 +347,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BlumPL">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	Quit 48
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: DOM/VKP/enu/Klant/AutoComplete.cls.xml
===================================================================
diff -u -r70628 -r70667
--- DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 70628)
+++ DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 70667)
@@ -37,6 +37,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BlumPolen">
+<Type>%String</Type>
+<InitialExpression>"K||37598"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="BlumPortugal">
 <Type>%String</Type>
 <InitialExpression>"K||24755"</InitialExpression>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/BlumPLPrijsFactorBepaler.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/BlumPLPrijsFactorBepaler.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/BlumPLPrijsFactorBepaler.cls.xml	(revision 70667)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.BlumPLPrijsFactorBepaler">
+<Super>APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.GeenPrijsFactorBepaler,DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+
+<Parameter name="Factor">
+<Type>%Numeric</Type>
+<Default>2.0</Default>
+</Parameter>
+
+<Method name="GeefPrijsFactor">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..#Factor
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrgaluxPrijsFactor">
+<ReturnType>%Numeric</ReturnType>
+<Implementation><![CDATA[	Quit ..#Factor
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r70636 -r70667
--- vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 70636)
+++ vhTest/Fake/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 70667)
@@ -19,6 +19,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDozon">
 <FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r70628 -r70667
--- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 70628)
+++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 70667)
@@ -21,6 +21,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDozon">
 <FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml
===================================================================
diff -u -r70628 -r70667
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 70628)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 70667)
@@ -273,6 +273,12 @@
 <Implementation><![CDATA[	Set ..PrijsFactorBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.DozonPrijsFactorBepaler).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..PrijsFactorBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBepaler.BlumPLPrijsFactorBepaler).%New()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/impl/PersonalityService.cls.xml
===================================================================
diff -u -r70628 -r70667
--- DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 70628)
+++ DOM/common/impl/PersonalityService.cls.xml	(.../PersonalityService.cls.xml)	(revision 70667)
@@ -127,6 +127,7 @@
 	Quit:(PersonalityID = Personality.DSGroup) $$$True
 	Quit:(PersonalityID = Personality.Martens) $$$True
 	Quit:(PersonalityID = Personality.Dozon) $$$True
+	Quit:(PersonalityID = Personality.BlumPL) $$$True
 	If ..ProjectSettingsAPI.IsActiefDuPontNaarEindklant() {
 		Quit:(PersonalityID = ##class(DOM.common.enu.Personality).Dupont()) $$$True
 	}
@@ -169,7 +170,7 @@
 	Quit:(PersonalityID = Personality.Daro) $$$True
 	Quit:(PersonalityID = Personality.Dupont) $$$True
 	Quit:(PersonalityID = Personality.Martens) $$$True
-	
+	Quit:(PersonalityID = Personality.BlumPL) $$$True
 	Quit $$$False
 ]]></Implementation>
 </Method>
Index: DOM/VKP/impl/BlumPLKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/BlumPLKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/BlumPLKlantData.cls.xml	(revision 70667)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.BlumPLKlantData">
+<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/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 70652)
+++ vhTest/Mock/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 70667)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBlumPL",BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
Index: cspBasis/TBX/Lib.mac.rou
===================================================================
diff -u -r70637 -r70667
--- cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 70637)
+++ cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 70667)
@@ -169,6 +169,7 @@
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).HaefeleNoorwegen() $$$HafeleNOKey
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).Martens() $$$MartensKey
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).Dozon() $$$DozonKey
+	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).BlumPolen() $$$BlumPLKey
 	Quit "DummyKey"
 	
 
Index: vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r70636 -r70667
--- vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 70636)
+++ vhTest/Mock/DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 70667)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBlumPL",BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
Index: PRGACNTs.inc.rou
===================================================================
diff -u -r70628 -r70667
--- PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 70628)
+++ PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 70667)
@@ -145,6 +145,7 @@
 	#define HafeleNOKey				   "`sb$+)z6u4Yn9qJ/"
 	#define MartensKey				   "9X73W$ta#aTnAFFU"
 	#define DozonKey				   "nz>HG`CYLK*49FsH"
+	#define BlumPLKey				   "bv[Q)@8uBg]bYMT<"
 	
 	; Toegang voor OptimaFIX page : beperkt via controle op IP-adres 
 	;   !!! Te compileren in routines :           
Index: APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml
===================================================================
diff -u -r70652 -r70667
--- APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 70652)
+++ APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 70667)
@@ -118,6 +118,8 @@
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Martens()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Dozon() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Dozon()
+	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).BlumPolen() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).BlumPL()
 	} Else {
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan de personalityID niet ophalen voor de WebShopVerwerker " _ DomeinVerwerker)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
Index: vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 70652)
+++ vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 70667)
@@ -19,6 +19,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDozon">
 <FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 70652)
+++ WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 70667)
@@ -280,6 +280,12 @@
 <Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Dozon()
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..WebshopVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).BlumPolen()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r70652 -r70667
--- vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 70652)
+++ vhTest/Mock/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 70667)
@@ -39,6 +39,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBlumPL",BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
Index: vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r70652 -r70667
--- vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 70652)
+++ vhTest/Fake/WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 70667)
@@ -17,6 +17,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDozon">
 <FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/common/BlumPLPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BlumPLPersonality.cls.xml	(revision 0)
+++ DOM/common/BlumPLPersonality.cls.xml	(revision 70667)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.BlumPLPersonality">
+<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).BlumPL())
+]]></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 "BPL_"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSimpl/Unishop/Login/KortingBewaarder.cls.xml
===================================================================
diff -u -r70652 -r70667
--- WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 70652)
+++ WSimpl/Unishop/Login/KortingBewaarder.cls.xml	(.../KortingBewaarder.cls.xml)	(revision 70667)
@@ -344,6 +344,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelMetVerificatie(BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="BewaarOptioneleKortingMetVariant">
 <FormalSpec>Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant</FormalSpec>
 <Private>1</Private>
Index: DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml
===================================================================
diff -u -r70628 -r70667
--- DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 70628)
+++ DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 70667)
@@ -271,6 +271,12 @@
 <Implementation><![CDATA[	do ..VerwerkAnderePersonality(DozonPersonality)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkAnderePersonality(BlumPLPersonality)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml
===================================================================
diff -u -r70628 -r70667
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 70628)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 70667)
@@ -33,6 +33,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBlumPL",BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
Index: DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml
===================================================================
diff -u -r70636 -r70667
--- DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 70636)
+++ DOM/VKP/impl/HandelToegelatenLadetypesBepaler.cls.xml	(.../HandelToegelatenLadetypesBepaler.cls.xml)	(revision 70667)
@@ -466,6 +466,10 @@
 <Method name="VerwerkDozon">
 <FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 70652)
+++ vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 70667)
@@ -19,6 +19,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDozon">
 <FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 70652)
+++ vhTest/Mock/DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 70667)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBlumPL",BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
Index: APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r70628 -r70667
--- APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 70628)
+++ APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 70667)
@@ -18,6 +18,8 @@
 		Do ..VerwerkBeslagteknikk()
 	} ElseIf WebShopVerwerker = "BIBO" {
 		Do ..VerwerkBiemarBois()
+	} ElseIf WebShopVerwerker = "BPL" {
+		Do ..VerwerkBlumPolen()
 	} ElseIf WebShopVerwerker = "CAMP" {
 		Do ..VerwerkCampeTonny()
 	} ElseIf WebShopVerwerker = "DSGR" {
@@ -125,6 +127,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPolen">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/VKP/enu/Klant/Verwerker.cls.xml
===================================================================
diff -u -r70628 -r70667
--- DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 70628)
+++ DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 70667)
@@ -20,6 +20,8 @@
 		Do ..VerwerkBeslagteknikk()
 	} ElseIf Klant = "K||4943" {
 		Do ..VerwerkBiemarBois()
+	} ElseIf Klant = "K||37598" {
+		Do ..VerwerkBlumPolen()
 	} ElseIf Klant = "K||24755" {
 		Do ..VerwerkBlumPortugal()
 	} ElseIf Klant = "K||15260" {
@@ -269,6 +271,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPolen">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkBlumPortugal">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r70628 -r70667
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 70628)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 70667)
@@ -499,6 +499,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim LeverancierData As DOM.common.LeverancierPersonalityData = BlumPLPersonality.GeefLeverancierData()
+	Set ..AankoopPrijs = ..GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting(..PersonalityRepo.GeefViaID(LeverancierData.PersonalityId),LeverancierData.EigenKlantId)
+	Set ..VerkoopPrijs = ..GeefLijstPrijsInclKortingEnFactor(BlumPLPersonality,..Winkelkar.KlantID)
+	Set ..LijstPrijs = ..GeefEchteLijstPrijs()  * ..GeefPrijsFactorVoorPersonality(BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAankoopPrijsBijPersonalityLeverancierInclusiefKorting">
 <Description>
 prijs die aan de handelsklant aangerekend wordt door leverancier (in principe vh aan klant personality, tenzij de Hein SubPersonalities)</Description>
Index: WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 70652)
+++ WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 70667)
@@ -358,6 +358,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkHandelZonderVerificatie(##class(WSimpl.Unishop.Login.ParametersHandel).%New(), BlumPLPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHandelMetVerificatie">
 <FormalSpec>LoginParameters:WSimpl.Unishop.Login.Parameters,PrefixHandel:%String</FormalSpec>
 <Private>1</Private>
Index: vhDeploy/Deploy20230314xBlumPLPersonalityAanmaken.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230314xBlumPLPersonalityAanmaken.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230314xBlumPLPersonalityAanmaken.cls.xml	(revision 70667)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230314xBlumPLPersonalityAanmaken">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+<Default>48</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van Personality voor Blum Polen (ID = 48)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(..#PersonalityID,
+																				  ##class(DOM.common.BlumPLPersonality).%ClassName($$$True),
+																				  ##class(DOM.VKP.enu.Klant).BlumPolen()
+																				 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 70652)
+++ vhTest/Fake/WSimpl/Unishop/Login/ParameterBepaler.cls.xml	(.../ParameterBepaler.cls.xml)	(revision 70667)
@@ -19,6 +19,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDozon">
 <FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 70652)
+++ vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml	(.../WebshopVerwerkerBepaler.cls.xml)	(revision 70667)
@@ -33,6 +33,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBlumPL",BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml
===================================================================
diff -u -r70628 -r70667
--- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 70628)
+++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsFactorBepalerFactory.cls.xml	(.../PrijsFactorBepalerFactory.cls.xml)	(revision 70667)
@@ -19,6 +19,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDozon">
 <FormalSpec>DozonPersonality:DOM.common.DozonPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r70654 -r70667
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 70654)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 70667)
@@ -476,6 +476,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, BlumPLPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, BlumPLPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantData">
 <FormalSpec>KlantId:TECH.String,Personality:DOM.common.Personality</FormalSpec>
 <Private>1</Private>
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r70628 -r70667
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 70628)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 70667)
@@ -40,6 +40,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkBlumPL",BlumPLPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <FormalSpec>CampeTonnyPersonality:DOM.common.CampeTonnyPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkCampeTonny",CampeTonnyPersonality)
Index: APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r70628 -r70667
--- APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 70628)
+++ APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 70667)
@@ -30,6 +30,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BlumPolen">
+<Type>%String</Type>
+<InitialExpression>"BPL"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="CampeTonny">
 <Type>%String</Type>
 <InitialExpression>"CAMP"</InitialExpression>
Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r70652 -r70667
--- DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 70652)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml	(.../KlantDataBepaler.cls.xml)	(revision 70667)
@@ -500,6 +500,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<FormalSpec>BlumPLPersonality:DOM.common.BlumPLPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantDataDto = ##class(DOM.common.dto.KlantData).%New()
+	
+	#dim KlantData As DOM.VKP.impl.BlumPLKlantData = ..OpenKlantData(..KlantID, BlumPLPersonality)
+	
+	Do ..StelInKlantDataDtoVoorHandel(KlantData, BlumPLPersonality.GeefPrefix())
+]]></Implementation>
+</Method>
+
 <Method name="StelInKlantDataDtoVoorHandel">
 <FormalSpec>KlantData:DOM.VKP.impl.KlantData,HandelPrefix:%String</FormalSpec>
 <Private>1</Private>
Index: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r70628 -r70667
--- DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 70628)
+++ DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 70667)
@@ -18,6 +18,8 @@
 		Do ..VerwerkBeslagteknikk()
 	} ElseIf Personality = "21" {
 		Do ..VerwerkBiemarBois()
+	} ElseIf Personality = "48" {
+		Do ..VerwerkBlumPL()
 	} ElseIf Personality = "22" {
 		Do ..VerwerkCampeTonny()
 	} ElseIf Personality = "28" {
@@ -127,6 +129,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBlumPL">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkCampeTonny">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r70628 -r70667
--- DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 70628)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 70667)
@@ -30,6 +30,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="BlumPL">
+<Type>%String</Type>
+<InitialExpression>"48"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="CampeTonny">
 <Type>%String</Type>
 <InitialExpression>"22"</InitialExpression>
Index: DOM/VKP/enu/Klant.cls.xml
===================================================================
diff -u -r70628 -r70667
--- DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 70628)
+++ DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 70667)
@@ -7,7 +7,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,K||1239,K||4682,K||1000,K||11708,K||4875,K||2671,K||6279,K||12130,K||7587,K||9365,K||12486,K||2523,K||1571,K||4451,K||4855,K||4830,K||9366,K||11211,K||12853,K||2999,K||6780,K||7833,K||1523,K||2669,K||6819,K||6820,K||6821,K||18455,K||27132,K||2009,K||23486,K||7606,K||23112,K||9382,K||18417,K||4073,K||1390,K||9197,K||3814,K||1387,K||8869,K||23968,K||11171,K||6261,K||24315,K||25868,K||24755,K||9905,K||10387,K||12983,K||9798,K||8092,K||3145,K||2265,K||4943,K||19485,K||1736,K||4875,K||4598,K||2254,K||2595,K||4026,K||14604,K||13446,K||13823,K||29070,K||30531,K||31008,K||14348,K||23930,K||30935,K||30924,K||30961,K||29009,K||25319,K||19454,K||24402,K||19455,K||15260,K||7189,K||32503,K||4826,K||3878,K||2865,K||29279,K||10421,K||21672,K||22062,K||3513,K||32672,K||1445,K||32903,K||32915,K||19422,K||2856,K||2264,K||8868,K||14292,K||1254,K||3042,K||17999,K||35412,K||35415,K||30467,K||35697,K||35698,K||35864,K||26329,K||36412,K||36413,K||36605,K||2913,K||32383,K||34258</Default>
+<Default>,K||1239,K||4682,K||1000,K||11708,K||4875,K||2671,K||6279,K||12130,K||7587,K||9365,K||12486,K||2523,K||1571,K||4451,K||4855,K||4830,K||9366,K||11211,K||12853,K||2999,K||6780,K||7833,K||1523,K||2669,K||6819,K||6820,K||6821,K||18455,K||27132,K||2009,K||23486,K||7606,K||23112,K||9382,K||18417,K||4073,K||1390,K||9197,K||3814,K||1387,K||8869,K||23968,K||11171,K||6261,K||24315,K||25868,K||24755,K||9905,K||10387,K||12983,K||9798,K||8092,K||3145,K||2265,K||4943,K||19485,K||1736,K||4875,K||4598,K||2254,K||2595,K||4026,K||14604,K||13446,K||13823,K||29070,K||30531,K||31008,K||14348,K||23930,K||30935,K||30924,K||30961,K||29009,K||25319,K||19454,K||24402,K||19455,K||15260,K||7189,K||32503,K||4826,K||3878,K||2865,K||29279,K||10421,K||21672,K||22062,K||3513,K||32672,K||1445,K||32903,K||32915,K||19422,K||2856,K||2264,K||8868,K||14292,K||1254,K||3042,K||17999,K||35412,K||35415,K||30467,K||35697,K||35698,K||35864,K||26329,K||36412,K||36413,K||36605,K||2913,K||32383,K||34258,K||37598</Default>
 </Parameter>
 
 <Method name="Keller">
@@ -803,6 +803,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BlumPolen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(37598)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>