Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r53104 -r54290
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 53104)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 54290)
@@ -46,7 +46,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..GeefVerzendWijze(Winkelkar, LeverAdres)
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar, LeverAdres)
 	#dim Datum As %Date = ..VroegsteLeverDatumBepaler.GeefVroegsteLeverdatum(Winkelkar, VerzendWijze)
 	
 	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = ..LeveringsTermijnFactory.MaakLeveringsTermijn(..DateTimeApi.CurrentHorolog(), VerzendWijze, Winkelkar.GeefKlantID(), Winkelkar.GeefPersonality().GeefID())
@@ -59,7 +59,7 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..GeefVerzendWijze(Winkelkar, LeverAdres)
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar, LeverAdres)
 	
 	Set FreqTabel = ##class(TECH.FrequentieTabel).%New()
 	
@@ -72,18 +72,6 @@
 	Quit (FreqTabel.GeefAantalVerschillendeItems()>1)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefVerzendWijze">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.VKP.VerzendWijze</ReturnType>
-<Implementation><![CDATA[
-	Quit:(LeverAdres="") ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
-	Quit:(LeverAdres.GeefVerzendingWijze()="") ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
-	Quit:(Winkelkar.HeeftHerbestellingBijProbleem()) ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
-	Quit ##class(APPS.VKP.VerzendWijze).%New(Winkelkar.GeefKlantID(), LeverAdres.GeefVerzendingWijze(), LeverAdres.GeefLand().GeefCode(), LeverAdres.GeefPostcode())
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml
===================================================================
diff -u -r52709 -r54290
--- vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 52709)
+++ vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 54290)
@@ -49,7 +49,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set VerzendWijzeBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
-	Do VerzendWijzeBepalerStub.IndienMethodCall("GeefVerzendWijze", $$$ElkeWaarde).DanReturn("")
+	Do VerzendWijzeBepalerStub.IndienMethodCall("GeefVerzendWijze", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn("")
 	
 	Set VroegsteLeverDatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
 	Do VroegsteLeverDatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatumPerLijn",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VroegsteLeverdatumList)
@@ -68,7 +68,7 @@
 	#dim LeegLeverAdres As DOM.VKP.LeverAdres = ""
 	
 	Set VerzendWijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
-	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar).ExactAantalKeer(1).DanReturn("")
+	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar, LeegLeverAdres).ExactAantalKeer(1).DanReturn("")
 	
 	Set VroegsteLeverDatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
 	Do VroegsteLeverDatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatumPerLijn",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
@@ -88,7 +88,7 @@
 	Do LeverAdres.ZetVerzendingWijze("")
 	
 	Set VerzendWijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
-	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar).ExactAantalKeer(1).DanReturn("")
+	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar, LeverAdres).ExactAantalKeer(1).DanReturn("")
 	
 	Set VroegsteLeverDatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
 	Do VroegsteLeverDatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatumPerLijn",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
@@ -108,7 +108,7 @@
 	Do LeverAdres.ZetVerzendingWijze("DI1")
 	
 	Set VerzendWijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
-	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar).ExactAantalKeer(0)
+	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar, LeverAdres).ExactAantalKeer(1).DanReturn("")
 	
 	Set VroegsteLeverDatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
 	Do VroegsteLeverDatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatumPerLijn",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
@@ -125,13 +125,13 @@
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).WinkelkarMetHerbestellingBijProbleem()
 
+	#dim LeverAdres as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do LeverAdres.ZetVerzendingWijze("AFH")
+
 	Set VerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
 	#dim DeVerzendwijze as APPS.VKP.VerzendWijze = ##class(vhTest.Utils.APPS.VKP.VerzendWijze).GeefVerzendWijze()
-	Do VerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze",Winkelkar).DanReturn(DeVerzendwijze)
+	Do VerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze",Winkelkar, LeverAdres).DanReturn(DeVerzendwijze)
 	
-	#dim LeverAdres as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
-	Do LeverAdres.ZetVerzendingWijze("AFH")
-	
 	Set VroegsteLeverDatumBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
 	Do VroegsteLeverDatumBepalerMock.IndienMethodCall("GeefVroegsteLeverdatum",Winkelkar,DeVerzendwijze).DanReturn($h)
 
Index: vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r52719 -r54290
--- vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 52719)
+++ vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 54290)
@@ -19,6 +19,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkZweygart">
+<FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r52688 -r54290
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 52688)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 54290)
@@ -44,36 +44,43 @@
 </Method>
 
 <Method name="GeefVerzendWijze">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzendWijze As APPS.VKP.VerzendWijze
 	
-	If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.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 {
-			Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())		
-		}
-	} Else {
-		
-		If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.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.GeefPersonality().GeefLeverancierData().PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke() {
-			Set VerzendWijze =  ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
+	If (LeverAdres="") || (LeverAdres.GeefVerzendingWijze()="") || (Winkelkar.HeeftHerbestellingBijProbleem()) {
+	
+		If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.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 {
+				Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())		
+			}
 		} 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())
-		}
+			
+			If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.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.GeefPersonality().GeefLeverancierData().PersonalityId = ##class(DOM.common.enu.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>
Index: vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r52719 -r54290
--- vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 52719)
+++ vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 54290)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefVerzendWijze">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerzendWijze",Winkelkar)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerzendWijze",Winkelkar,LeverAdres)
 ]]></Implementation>
 </Method>
 
@@ -105,6 +105,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkZweygart">
+<FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkZweygart",ZweygartPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="aGeefVerzendWijze">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>