Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r39869 -r71039
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 39869)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 71039)
@@ -13,7 +13,187 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HaefeleDEVerzendwijzeBepaler">
+<Type>APPS.EC.impl.HaefeleDEVerzendwijzeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OPOVerzendwijzeBepaler">
+<Type>APPS.EC.impl.OPOVerzendwijzeBepaler</Type>
+<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="",BlumPLVerzendwijzeBepaler:APPS.EC.impl.BlumPLVerzendwijzeBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	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
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerzendWijze">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
+<ReturnType>APPS.VKP.VerzendWijze</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendWijze As APPS.VKP.VerzendWijze
+	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
+	Set KlantEnum=##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	
+	If (LeverAdres="") || (LeverAdres.GeefVerzendingWijze()="") || (Winkelkar.HeeftHerbestellingBijProbleem()) {
+		If Winkelkar.GeefPersonalityID() = Personality.VanHoecke {
+			If Winkelkar.HeeftHerbestellingBijProbleem() {
+				#dim KlantID As DOM.common.PartijID = Winkelkar.GeefKlantID()
+				#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantID)
+				Do ##class(vhLib.Logger).%New().Info("VerzendwijzeBepaler","Verzendwijze op DI1 gezet wegens HerbestellingBijProbleem.")
+				Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			} Else {
+				If (Winkelkar.GeefKlantID() = KlantEnum.DuPont) || (Winkelkar.GeefKlantID() = KlantEnum.VanRaemdonck)  {
+					If ($$$Not($IsObject(LeverAdres)) || $$$HasLength(LeverAdres.GeefID()) || (Winkelkar.ExterneId = "")) {
+						Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())
+					} Else {
+						Set KlantID = Winkelkar.GeefKlantID()
+						Set Partij = ..PartijApi.GeefPartij(KlantID)
+						Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+					}
+				} Else {
+					Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())
+				}
+			}
+		} Else {
+			If Winkelkar.GeefPersonalityID() = Personality.HaefeleNL{
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleBE) && ..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant(){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleDE){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				#dim VerzendWijzeID as %String = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleSE){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleZweden()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleFI){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleFinland()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleNO){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNoorwegen()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleIT){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleItalie()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleAT){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleOostenrijk()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleFR){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleFrankrijk()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleDK){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDenemarken()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleCH){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleZwitserland()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf Winkelkar.GeefPersonalityID() = Personality.Dupont {
+				If ($$$Not($IsObject(LeverAdres)) || $$$HasLength(LeverAdres.GeefID()) || (Winkelkar.ExterneId = "")) {
+					Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(KlantEnum.DuPont)
+				} Else {
+					Set KlantID = KlantEnum.DuPont
+					Set Partij = ..PartijApi.GeefPartij(KlantID)
+					Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+				}
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.VanRaemdonck) {
+				If ($$$Not($IsObject(LeverAdres)) || $$$HasLength(LeverAdres.GeefID()) || (Winkelkar.ExterneId = "")) {
+					Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(KlantEnum.VanRaemdonck)
+				} Else {
+					Set KlantID = KlantEnum.VanRaemdonck
+					Set Partij = ..PartijApi.GeefPartij(KlantID)
+					Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+				}
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.OPO) {
+				Set KlantID = ##class(DOM.VKP.enu.Klant).OPO()
+				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 {
+				Set KlantID = ##class(DOM.VKP.enu.Klant).Hein()
+				#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantID)
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),Klant.GeefVerzendingWijze(),Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			}
+
+		}
+	
+	} Else {
+		Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(Winkelkar.GeefKlantID()), LeverAdres.GeefVerzendingWijze(), LeverAdres.GeefLand().GeefCode(), LeverAdres.GeefPostcode())
+	}	
+	
+	Quit VerzendWijze
+]]></Implementation>
+</Method>
+
+<Method name="aGeefVerzendWijze">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
@@ -40,9 +220,9 @@
 <Private>1</Private>
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
-	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(KlantID)
-	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantID)
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantID)
+	#dim KlantNr As %String = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID)
 	
 	Set VerzendWijze =##class(APPS.VKP.VerzendWijze).%New(KlantNr,Klant.GeefVerzendingWijze(),Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
 	Quit VerzendWijze