Index: APPS/EC/Webshop/impl/OfferteUrlBepaler.cls.xml
===================================================================
diff -u -r50826 -r50828
--- APPS/EC/Webshop/impl/OfferteUrlBepaler.cls.xml (.../OfferteUrlBepaler.cls.xml) (revision 50826)
+++ APPS/EC/Webshop/impl/OfferteUrlBepaler.cls.xml (.../OfferteUrlBepaler.cls.xml) (revision 50828)
@@ -90,13 +90,16 @@
Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
#dim Url As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("VhisieURL")_"?REF=" _ ..GeefRef(KlantID, Personality.GeefID(), Modus, Offerte.GeefID())
} elseif WebshopVersie = ##class(APPS.EC.enu.WebshopVersie).V4() {
+ #dim Taalcode As %String
If $IsObject(Offerte.GeefOfferteVanHandel()) {
Set Url = ..UrlBepaler.GeefUrl(Offerte.GeefOfferteVanHandel().GeefPersonalityID(),WebshopVersie)
+ Set Taalcode = ..ConverteerTaal(Offerte.GeefOfferteVanHandel().GeefPersonality().GeefTaal())
+ Set Url = Url_"/user/login?destination=cart/switch/"_Offerte.GeefOfferteVanHandel().GeefExterneId()_"?destination="_Taalcode_"/cart"
} Else {
Set Url = ..UrlBepaler.GeefUrl(Offerte.GeefPersonalityID(),WebshopVersie)
+ Set Taalcode = ..ConverteerTaal(Offerte.GeefPersonality().GeefTaal())
+ Set Url = Url_"/user/login?destination=cart/switch/"_Offerte.GeefExterneId()_"?destination="_Taalcode_"/cart"
}
- #dim Taalcode As %String = ..ConverteerTaal(Personality.GeefTaal())
- Set Url = Url_"/user/login?destination=cart/switch/"_Offerte.GeefOfferteVanHandel().GeefExterneId()_"?destination="_Taalcode_"/cart"
} else {
do ##class(TECH.Exceptions.IllegalUsageException).Throw("Url kan niet bepaald worden voor webshopversie '"_WebshopVersie_"' en personality '"_Personality.GeefNaam()_"'.")
}
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/TestSeefelder.cls.xml
===================================================================
diff -u -r50511 -r50828
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/TestSeefelder.cls.xml (.../TestSeefelder.cls.xml) (revision 50511)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/TestSeefelder.cls.xml (.../TestSeefelder.cls.xml) (revision 50828)
@@ -55,14 +55,14 @@
1
%String
-
1
%String
-
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/TestHein.cls.xml
===================================================================
diff -u -r50511 -r50828
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/TestHein.cls.xml (.../TestHein.cls.xml) (revision 50511)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/TestHein.cls.xml (.../TestHein.cls.xml) (revision 50828)
@@ -56,14 +56,14 @@
1
%String
-
1
%String
-
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/Base.cls.xml
===================================================================
diff -u -r50511 -r50828
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/Base.cls.xml (.../Base.cls.xml) (revision 50511)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel/Base.cls.xml (.../Base.cls.xml) (revision 50828)
@@ -35,7 +35,6 @@
Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..GeefPersonalityID())
Set ..HandelPrefix = ..Personality.GeefPrefix()
- Set ..Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..GeefPersonalityID())
#Dim UrlBepaler As vhTest.Fake.APPS.EC.Webshop.UrlBepaler = ##class(vhTest.Fake.APPS.EC.Webshop.UrlBepaler).%New()
@@ -64,6 +63,7 @@
#Dim OfferteVanHandelDummy As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
Do OfferteVanHandelDummy.IndienMethodCall("GeefExterneId").DanReturn(789654)
Do OfferteVanHandelDummy.IndienMethodCall("GeefPersonalityID").DanReturn(..GeefPersonalityIdVanOfferteVanHandel())
+ Do OfferteVanHandelDummy.IndienMethodCall("GeefPersonality").DanReturn(..Personality)
Set DocumentReferenties.OrderReferentie = "DummyOrderRef"