Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r67229 -r67750
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 67229)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 67750)
@@ -33,13 +33,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OPOVerzendwijzeBepaler">
+<Type>APPS.EC.impl.OPOVerzendwijzeBepaler</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=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler="",OPOVerzendwijzeBepaler:APPS.EC.impl.OPOVerzendwijzeBepaler="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -48,6 +53,7 @@
 	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 ..LegacyPartijApi = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
 	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI,##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI())	
 	Quit $$$OK
@@ -151,7 +157,12 @@
 					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.GeefPersonality().GeefLeverancierData().PersonalityId = Personality.VanHoecke {
 				Set VerzendWijze =  ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
 			} Else {
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r65203 -r67750
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 65203)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 67750)
@@ -80,7 +80,7 @@
 	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
 	Set ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
 	Do ProjectSettingsAPI.VerwachtMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
-	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,,ProjectSettingsAPI)
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,,,ProjectSettingsAPI)
 	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar)
 	Do ProjectSettingsAPI.Verifieer()
 	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DI1")
@@ -250,15 +250,22 @@
 
 <Method name="Test: Winkelkar voor handelsklant (OPO)">
 <Implementation><![CDATA[
+	Set OPOVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.OPOVerzendwijzeBepaler).%New()
+	Do OPOVerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze","8280").DanReturn("DO4")
+	
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).OPO())
-		
+	
 	Set PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
 	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
 	
-	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub)
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar)
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,,OPOVerzendwijzeBepalerMock)
+	#dim LeverAdresDummy as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Zwitsers()
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar,LeverAdresDummy)
 	
-	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"EX")
+	Do OPOVerzendwijzeBepalerMock.Verifieer()	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DO4")
+	
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).OPO())
 ]]></Implementation>
 </Method>