Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r67832 -r71039
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 67832)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 71039)
@@ -38,13 +38,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BlumPLVerzendwijzeBepaler">
+<Type>APPS.EC.impl.BlumPLVerzendwijzeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProjectSettingsAPI">
 <Type>DOM.common.ProjectSettingsAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="",OPOVerzendwijzeBepaler:APPS.EC.impl.OPOVerzendwijzeBepaler=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="",OPOVerzendwijzeBepaler:APPS.EC.impl.OPOVerzendwijzeBepaler="",BlumPLVerzendwijzeBepaler:APPS.EC.impl.BlumPLVerzendwijzeBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -54,6 +59,7 @@
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..HaefeleDEVerzendwijzeBepaler = $$$Inject(HaefeleDEVerzendwijzeBepaler,##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New())
 	Set ..OPOVerzendwijzeBepaler = $$$Inject(OPOVerzendwijzeBepaler,##class(APPS.EC.impl.OPOVerzendwijzeBepaler).%New())
+	Set ..BlumPLVerzendwijzeBepaler = $$$Inject(BlumPLVerzendwijzeBepaler,##class(APPS.EC.impl.BlumPLVerzendwijzeBepaler).%New())
 	Set ..LegacyPartijApi = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
 	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI,##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI())	
 	Quit $$$OK
@@ -163,6 +169,11 @@
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
 				Set VerzendWijzeID = ..OPOVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefPostcode())
 				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.BlumPL) {
+				Set KlantID = ##class(DOM.VKP.enu.Klant).BlumPolen()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..BlumPLVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
 			} ElseIf Winkelkar.GeefPersonality().GeefLeverancierData().PersonalityId = Personality.VanHoecke {
 				Set VerzendWijze =  ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
 			} Else {