Index: DOM/common/PersonalityVisitor.cls.xml
===================================================================
diff -u -r36060 -r46643
--- DOM/common/PersonalityVisitor.cls.xml (.../PersonalityVisitor.cls.xml) (revision 36060)
+++ DOM/common/PersonalityVisitor.cls.xml (.../PersonalityVisitor.cls.xml) (revision 46643)
@@ -60,6 +60,11 @@
1
HeinPersonality:DOM.common.HeinPersonality
+
+
+1
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
Index: APPS/EC/Transport/Service.cls.xml
===================================================================
diff -u -r46515 -r46643
--- APPS/EC/Transport/Service.cls.xml (.../Service.cls.xml) (revision 46515)
+++ APPS/EC/Transport/Service.cls.xml (.../Service.cls.xml) (revision 46643)
@@ -183,7 +183,9 @@
#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
#dim VerzendingMogelijkheid As APPS.EC.Transport.data.VerzendingMogelijkheid
+
Set VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaOfferteIDEnVerzendingMogelijkheidID(..GeefOrigineleOfferte(Offerte).GeefID(),VerzendingMogelijkheidID)
+
Do Offerte.ZetVerzendingItem($$ConstructClone^vhLib.Class(VerzendingMogelijkheid.Verzending,##class(APPS.VKP.impl.Offerte.VerzendingItem).%ClassName(1)))
#dim GeselecteerdeOptie As APPS.EC.Transport.dto.Selectie = ..GeefGeselecteerdeOptie(VerzendingMogelijkheid, OptieKeuze)
@@ -200,10 +202,10 @@
1
APPS.VKP.Offerte
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r46621 -r46643
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 46621)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml (.../BestelWinkelkar.cls.xml) (revision 46643)
@@ -63,21 +63,19 @@
Lock +^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id):0 Else Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar '" _BestelWinkelkarRequest.Winkelkar.Id _"' is gelocked door een andere webservice call. Probeer later opnieuw."))
Try {
- #dim PersonalityId As %String = $$$If($Length(BestelWinkelkarRequest.Header.PersonalityId),BestelWinkelkarRequest.Header.PersonalityId,##class(DOM.common.enu.Personality).VanHoecke())
-
- #dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BestelWinkelkarRequest.Header.KlantId,PersonalityId)
+ #dim KlantId As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BestelWinkelkarRequest.Header.KlantId,BestelWinkelkarRequest.Header.PersonalityId)
#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(BestelWinkelkarRequest.Winkelkar.Id)
Do ..Synchroniseer.Synchroniseer(BestelWinkelkarRequest.Winkelkar, ..#AlleTypes)
Do ..VerkoopService.ZetTotaalBedragWebshop(OfferteID, ..BerekenTotaalPrijs(BestelWinkelkarRequest))
Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BestelWinkelkarRequest))
- If ..CheckoutTypeBepaler.Bepaal(BestelWinkelkarRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() {
+ If ..CheckoutTypeBepaler.Bepaal(BestelWinkelkarRequest.Header.PersonalityId, KlantId) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() {
Do ..TransportService.ZetGekozenVerzendingMogelijkheid(OfferteID, BestelWinkelkarRequest.VerzendingMogelijkheidID, BestelWinkelkarRequest.OptieKeuze)
}
- Do ..VerkoopService.BestelOfferte(OfferteID, KlantPartijID, PersonalityId)
+ Do ..VerkoopService.BestelOfferte(OfferteID, KlantId, BestelWinkelkarRequest.Header.PersonalityId)
} Catch {
Lock -^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id)
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml
===================================================================
diff -u -r43587 -r46643
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 43587)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 46643)
@@ -16,10 +16,12 @@
1
-
-%Library.CacheSerialState
-^WSimpl.Unisho701F.AutoCompleteS
-
+
+%String
+"13"
+1
+1
+
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefKlantPartijID/Test.cls.xml
===================================================================
diff -u -r45873 -r46643
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefKlantPartijID/Test.cls.xml (.../Test.cls.xml) (revision 45873)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefKlantPartijID/Test.cls.xml (.../Test.cls.xml) (revision 46643)
@@ -3,85 +3,30 @@
vhUnitTest.TestCase
-
-
-
-
-
-
-
-
-
-
-
-
Index: WSimpl/Unishop/Login/ParameterBepaler.cls.xml
===================================================================
diff -u -r46621 -r46643
--- WSimpl/Unishop/Login/ParameterBepaler.cls.xml (.../ParameterBepaler.cls.xml) (revision 46621)
+++ WSimpl/Unishop/Login/ParameterBepaler.cls.xml (.../ParameterBepaler.cls.xml) (revision 46643)
@@ -8,11 +8,6 @@
1
-
-DOM.common.PersonalityService
-1
-
-
WSimpl.Unishop.Login.Parameters
1
@@ -46,7 +41,6 @@
1
@@ -82,100 +76,118 @@
]]>
+
+DataOpt:%String
+1
+
+
+
+
+Ref:%String
+1
+
+
+
+
+Taal:%String=""
+1
+
+
+
SFSPersonality:DOM.common.SFSPersonality
-
HaefeleBEPersonality:DOM.common.HaefeleBEPersonality
-
HaefeleNLPersonality:DOM.common.HaefeleNLPersonality
-
VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality
-
KischPersonality:DOM.common.KischPersonality
-
DaroPersonality:DOM.common.DaroPersonality
-
DestilPersonality:DOM.common.DestilPersonality
-
DupontPersonality:DOM.common.DupontPersonality
-
HeinPersonality:DOM.common.HeinPersonality
-
-
-VanHoeckePersonality:DOM.common.VanHoeckePersonality
-
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
-
-VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality
-
-
-
-
-LoginParameters:WSimpl.Unishop.Login.Parameters,Personality:DOM.common.Personality
+
+LoginParameters:WSimpl.Unishop.Login.Parameters,PrefixHandel:%String
1
-
-LoginParameters:WSimpl.Unishop.Login.ParametersHandel,Personality:DOM.common.Personality
+
+LoginParameters:WSimpl.Unishop.Login.ParametersHandel,PrefixHandel:%String
1
-LoginParameters:WSimpl.Unishop.Login.Parameters,Personality:DOM.common.Personality
+LoginParameters:WSimpl.Unishop.Login.Parameters,KlantIDPrefix:%String
1
-LoginParameters:WSimpl.Unishop.Login.Parameters,Personality:DOM.common.Personality
+LoginParameters:WSimpl.Unishop.Login.Parameters,KlantIDPrefix:%String
1
-
-DataOpt:%String
-1
+
+VanHoeckePersonality:DOM.common.VanHoeckePersonality
-
-Ref:%String
-1
-
+VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality
+
-
-
-Taal:%String=""
-1
-
-
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml
===================================================================
diff -u -r45880 -r46643
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml (.../Test.cls.xml) (revision 45880)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml (.../Test.cls.xml) (revision 46643)
@@ -71,7 +71,7 @@
]]>
-
+
-
+
-
+
-
+
%Stream
Index: vhTest/Mock/APPS/EC/Verkoop/ExterneVerkoopService.cls.xml
===================================================================
diff -u -r45092 -r46643
--- vhTest/Mock/APPS/EC/Verkoop/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 45092)
+++ vhTest/Mock/APPS/EC/Verkoop/ExterneVerkoopService.cls.xml (.../ExterneVerkoopService.cls.xml) (revision 46643)
@@ -9,7 +9,7 @@
right
-OfferteID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality
+OfferteID:%String,KlantID:DOM.VKP.KlantID,PersonalityID:DOM.common.enu.Personality
Index: APPS/EC/impl/KlantInstellingenServiceSeefelder.cls.xml
===================================================================
diff -u
--- APPS/EC/impl/KlantInstellingenServiceSeefelder.cls.xml (revision 0)
+++ APPS/EC/impl/KlantInstellingenServiceSeefelder.cls.xml (revision 46643)
@@ -0,0 +1,22 @@
+
+
+
+APPS.common.impl.KlantInstellingenService
+
+
+KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.LBXVerpakkingType
+%Boolean
+
+
+
+
+KlantID:DOM.VKP.VanHoeckeKlantID,VerpakkingType:DOM.PM.enu.TAORVerpakkingType
+%Boolean
+
+
+
+
+
+
Index: WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r45886 -r46643
--- WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml (.../WebshopVerwerkerBepaler.cls.xml) (revision 45886)
+++ WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml (.../WebshopVerwerkerBepaler.cls.xml) (revision 46643)
@@ -83,6 +83,12 @@
]]>
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
DestilPersonality:DOM.common.DestilPersonality
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
1
+
+
+TECH.RegisteredObject,APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepaler
+
+
+%Numeric
+1
+
+
+
+MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn
+%Numeric
+
+
+
+
+
+
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml
===================================================================
diff -u -r46231 -r46643
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml (.../KlantDataBepaler.cls.xml) (revision 46231)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler.cls.xml (.../KlantDataBepaler.cls.xml) (revision 46643)
@@ -34,28 +34,18 @@
#dim KlantData As DOM.VKP.impl.HandelKlantData
#dim KlantId As %String = ""
- If (RegistreerContactGegevensRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein()){
- If $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId) {
- Set KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
- Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
- } Else {
- Do ##class(TECH.Exceptions.InvalidInputException).Throw("KlantID moet ingevuld zijn")
- }
+ If ##class(TECH.StringUtils).Equals(RegistreerContactGegevensRequest.Header.PersonalityId,##class(DOM.common.enu.Personality).Hein(),##class(DOM.common.enu.Personality).Seefelder()) && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId){
+ Set KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
+ Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
+ } ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
+ Set KlantId = HandelPersonality.GeefPrefix()_..WebshopSessionService.GeefVolgendeKlantID(RegistreerContactGegevensRequest.Header.PersonalityId)
+ Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
} Else {
- If ((RegistreerContactGegevensRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein() && $$$HasLength(RegistreerContactGegevensRequest.Header.KlantId))){
- Set KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
- Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
- } ElseIf (RegistreerContactGegevensRequest.Header.KlantId = "") {
- Set KlantId = HandelPersonality.GeefPrefix()_..WebshopSessionService.GeefVolgendeKlantID(RegistreerContactGegevensRequest.Header.PersonalityId)
- Set KlantData = ..MaakHandelKlantData(KlantId,RegistreerContactGegevensRequest)
- } Else {
- Try {
- Set KlantData = ..HandelKlantDataRepository.GeefViaID(HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId)
- Set KlantData.KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId
- } Catch {
- Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon geen klantdata openen met id '"_RegistreerContactGegevensRequest.Header.KlantId_"'")
- }
- }
+ Try {
+ Set KlantData = ..HandelKlantDataRepository.GeefViaID(HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.Header.KlantId)
+ } Catch {
+ Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon geen klantdata openen met id '"_RegistreerContactGegevensRequest.Header.KlantId_"'")
+ }
}
Quit KlantData
@@ -70,6 +60,7 @@
#dim HandelKlantData As DOM.VKP.impl.HandelKlantData = ..HandelKlantDataRepository.Maak()
Set HandelKlantData.ID = KlantId
+ Set HandelKlantData.KlantId = KlantId
Set HandelKlantData.EmailAdres = RegistreerContactGegevensRequest.EmailAdres
Set HandelKlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
Set HandelKlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r39869 -r46643
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml (.../VerzendWijzeBepaler.cls.xml) (revision 39869)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml (.../VerzendWijzeBepaler.cls.xml) (revision 46643)
@@ -17,6 +17,24 @@
Winkelkar:DOM.EC.Winkelkar.Winkelkar
APPS.VKP.VerzendWijze
+
+
+
+Winkelkar:DOM.EC.Winkelkar.Winkelkar
+APPS.VKP.VerzendWijze
+
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
VanHoeckePersonality:DOM.common.VanHoeckePersonality
1
-OfferteID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality
+OfferteID:%String,KlantID:DOM.VKP.KlantID,PersonalityID:DOM.common.enu.Personality
Index: vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r42917 -r46643
--- vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml (.../KlantDataBepaler.cls.xml) (revision 42917)
+++ vhTest/Fake/DOM/VKP/impl/KlantDataBepaler.cls.xml (.../KlantDataBepaler.cls.xml) (revision 46643)
@@ -19,6 +19,12 @@
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
DestilPersonality:DOM.common.DestilPersonality
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml
===================================================================
diff -u -r46474 -r46643
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml (.../Converter.cls.xml) (revision 46474)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml (.../Converter.cls.xml) (revision 46643)
@@ -44,6 +44,7 @@
set Winkelkar.Referentie = Offerte.Hoofding.Referentie.OrderReferentie
Set Winkelkar.Status = Offerte.Status
Set Winkelkar.PersonalityId = Offerte.Winkelkar.Personality.ID
+ Set Winkelkar.Leveradres = Offerte.Leveradres
set Winkelkar.VerzendMogelijkheid = $$ConstructClone^vhLib.Class(Offerte.VerzendingMogelijkheid,"WS.Vhisie4.WinkelkarExport.dto.VerzendingMogelijkheid")
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r46013 -r46643
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml (.../Test.cls.xml) (revision 46013)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/ContactGegevensRegistreerder/KlantDataBepaler/Bepaal/Test.cls.xml (.../Test.cls.xml) (revision 46643)
@@ -82,25 +82,23 @@
]]>
-
+
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
HaefeleNLPersonality:DOM.common.HaefeleNLPersonality
Index: DOM/VKP/impl/KlantDataBepaler.cls.xml
===================================================================
diff -u -r45864 -r46643
--- DOM/VKP/impl/KlantDataBepaler.cls.xml (.../KlantDataBepaler.cls.xml) (revision 45864)
+++ DOM/VKP/impl/KlantDataBepaler.cls.xml (.../KlantDataBepaler.cls.xml) (revision 46643)
@@ -76,6 +76,17 @@
]]>
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
SFSPersonality:DOM.common.SFSPersonality
+
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
Index: APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml
===================================================================
diff -u -r46423 -r46643
--- APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 46423)
+++ APPS/EC/Verkoop/impl/Externe/VerkoopService.cls.xml (.../VerkoopService.cls.xml) (revision 46643)
@@ -208,7 +208,7 @@
-OfferteID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality
+OfferteID:%String,KlantID:DOM.VKP.KlantID,PersonalityID:DOM.common.enu.Personality
+
+TECH.String
+
+
+
TECH.String
1
Index: vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r45886 -r46643
--- vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml (.../WebshopVerwerkerBepaler.cls.xml) (revision 45886)
+++ vhTest/Fake/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml (.../WebshopVerwerkerBepaler.cls.xml) (revision 46643)
@@ -68,6 +68,12 @@
]]>
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
VanHoeckePersonality:DOM.common.VanHoeckePersonality
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
VanHoeckePersonality:DOM.common.VanHoeckePersonality
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
HaefeleNLPersonality:DOM.common.HaefeleNLPersonality
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r44518 -r46643
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 44518)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 46643)
@@ -63,6 +63,12 @@
]]>
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
VanHoeckePersonality:DOM.common.VanHoeckePersonality
%String
-,11
+,11,13
%String
-,11
+,11,13
@@ -19,6 +19,13 @@
+
+
+1
+WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.enu.CheckoutTypeMetTransportKeuzePersonality
+
+
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r44846 -r46643
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml (.../Test.cls.xml) (revision 44846)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml (.../Test.cls.xml) (revision 46643)
@@ -13,7 +13,7 @@
Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
Do VerzendingServiceMock.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..GeefEenMogelijkeLeverdatum())
- Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1000").DanReturn($$$False)
+ Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1234").DanReturn($$$False)
Set VerkoopServiceStub = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
@@ -41,7 +41,7 @@
Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
Do VerzendingServiceMock.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..GeefTweeMogelijkeLeverdatums())
- Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1000").DanReturn($$$True)
+ Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1234").DanReturn($$$True)
Set VerkoopServiceStub = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
@@ -65,14 +65,14 @@
Set BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
- Do VerzendingServiceMock.VerwachtMethodCall("GeefMogelijkeLeverDatums", BereidVoorBestellingRequest, "K||1000").DanReturn(..GeefTweeMogelijkeLeverdatums())
- Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1000").DanDoeNiks()
+ Do VerzendingServiceMock.VerwachtMethodCall("GeefMogelijkeLeverDatums", BereidVoorBestellingRequest, "K||1234").DanReturn(..GeefTweeMogelijkeLeverdatums())
+ Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1234").DanDoeNiks()
Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", 1).DanReturn("InterneId")
Set WinkelkarServiceHelperMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()
- Do WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID","K||1000","").DanReturn("K||1000")
+ Do WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID","1234",##class(DOM.common.enu.Personality).VanHoecke()).DanReturn("K||1234")
#Dim Hoofding as APPS.EC.dto.Hoofding = ..GeefHoofding()
@@ -106,9 +106,9 @@
Do VerkoopServiceDummy.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
Set CheckoutTypeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()
- Do CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal", "1","K||1000").DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+ Do CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal", "1","K||1234").DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
- #dim KlantIdentificatie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(1,"K||1000")
+ #dim KlantIdentificatie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(1,"K||1234")
Set WebshopSessieMatcher = ##class(Tools.Mock.ArgumentMatchers.ObjectMatcher).%New(KlantIdentificatie)
#dim VerzendingMogelijkheden = ##class(vhTest.Utils.APPS.EC.Transport.dto.VerzendingMogelijkheden).StandaardVerzendingMogelijkheden()
@@ -158,7 +158,7 @@
Do VerkoopServiceDummy.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
Set CheckoutTypeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()
- Do CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", "1","K||1000").DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+ Do CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", "1","K||1234").DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
Set TransportServiceMock = ##class(vhTest.Mock.APPS.EC.Transport.Service).%New()
Do TransportServiceMock.VerwachtMethodCall("GeefMogelijkeZendingen",$$$ElkeWaarde,$$$ElkeWaarde, $$$ElkeWaarde).Nooit()
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r46473 -r46643
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml (.../Decrypteerder.cls.xml) (revision 46473)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml (.../Decrypteerder.cls.xml) (revision 46643)
@@ -92,14 +92,17 @@
Set ..Response.IsGeldig = 1
If ##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "hein" {
Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Hein()
+ Set ..Response.IsLoginFormulierNodig = 1
} Else {
- Set ..Response.PersonalityId = 13
+ Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Seefelder()
+ Set ..Response.IsContactGegevensFormulierNodig = 0
+ Set ..Response.IsLoginFormulierNodig = 0
}
+ Set ..Response.IsGeldig = 1
Set ..Response.Taal = "D"
- Set ..Response.IsLoginFormulierNodig = 1
} ElseIf (DecrypteerRequest.Hostname = "") {
Set ..Response.IsGeldig = 0
- } ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(DecrypteerRequest.Header.PersonalityId = ##class(DOM.common.enu.Personality).Hein())) {
+ } ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(##class(TECH.StringUtils).Equals(DecrypteerRequest.Header.PersonalityId,##class(DOM.common.enu.Personality).Hein(),##class(DOM.common.enu.Personality).Seefelder()))) {
Set ..Response.IsGeldig = 0
} ElseIf (DecrypteerRequest.DataOpt = "") {
Set ..Response.IsContactGegevensFormulierNodig = 1
@@ -111,6 +114,12 @@
Set Resultaat = $$$True
}
+ Do ..Response.ToegelatenLadetypes.Clear()
+
+ Do ..Response.ToegelatenLadetypes.Insert("LBX")
+ Do ..Response.ToegelatenLadetypes.Insert("TBX")
+ Do ..Response.ToegelatenLadetypes.Insert("TAX")
+
Quit Resultaat
]]>
Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml
===================================================================
diff -u -r37223 -r46643
--- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 37223)
+++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/enu/CheckoutTypeMetTransportKeuzePersonality/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 46643)
@@ -14,6 +14,8 @@
1
+
+
+1
+1
+
+
Index: vhTest/Utils/WS/Vhisie4/RequestHeader.cls.xml
===================================================================
diff -u -r41305 -r46643
--- vhTest/Utils/WS/Vhisie4/RequestHeader.cls.xml (.../RequestHeader.cls.xml) (revision 41305)
+++ vhTest/Utils/WS/Vhisie4/RequestHeader.cls.xml (.../RequestHeader.cls.xml) (revision 46643)
@@ -8,8 +8,8 @@
WS.Vhisie4.RequestHeader
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
1
%Integer
Index: vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml
===================================================================
diff -u -r45886 -r46643
--- vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml (.../WebshopVerwerkerBepaler.cls.xml) (revision 45886)
+++ vhTest/Mock/WSimpl/Vhisie4/SettingsManager/WebshopVerwerkerBepaler.cls.xml (.../WebshopVerwerkerBepaler.cls.xml) (revision 46643)
@@ -69,6 +69,12 @@
]]>
+
+SeefelderPersonality:DOM.common.SeefelderPersonality
+
+
+
VanHoeckePersonality:DOM.common.VanHoeckePersonality
1
+
+DOM.common.PersonalityService
+1
+
+
HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,KlantDataBewaarder:APPS.VKP.KlantDataBewaarder,WebshopVerwerkerBepaler:WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler,KortingService:DOM.VKP.KortingService,KlantSessieDataBepaler:APPS.EC.KlantSessieDataBepaler,KlantDataBepaler:WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler
1
@@ -51,6 +56,7 @@
Set ..KlantSessieDataBepaler = $$$Inject(KlantSessieDataBepaler,##class(APPS.EC.impl.KlantSessieDataBepaler).%New())
Set ..KlantDataBepaler = $$$Inject(KlantDataBepaler,##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.ContactGegevensRegistreerder.KlantDataBepaler).%New())
Set ..WebshopVerwerkerBepaler = $$$Inject(WebshopVerwerkerBepaler,##class(WSimpl.Vhisie4.SettingsManager.WebshopVerwerkerBepaler).%New())
+ Set ..PersonalityService = ##class(DOM.common.impl.PersonalityService).%New()
Quit $$$OK
]]>
@@ -78,13 +84,13 @@
Set KlantData.Gemeente = RegistreerContactGegevensRequest.Gemeente
Set KlantData.TelefoonNummer = RegistreerContactGegevensRequest.TelefoonNummer
Set KlantData.FaxNummer = RegistreerContactGegevensRequest.FaxNummer
- Set KlantData.KlantId = HandelPersonality.GeefPrefix()_RegistreerContactGegevensRequest.KlantId
+ Set:$$$HasLength(RegistreerContactGegevensRequest.KlantId) KlantData.KlantId = ..PersonalityService.GeefKlantIdViaKlantCode(HandelPersonality,RegistreerContactGegevensRequest.KlantId)
Set KlantData.GebruikerId = KlantData.KlantId_"_"_RegistreerContactGegevensRequest.GebruikerId
Set KlantData.KortingPercentage = RegistreerContactGegevensRequest.KortingPercentage
Do ..BewaarKlant(HandelPersonality,KlantData)
- Set Response.KlantId = ##class(TECH.StringUtils).Replace(KlantData.KlantId,HandelPersonality.GeefPrefix(),"")
+ Set Response.KlantId = ..PersonalityService.GeefKlantCodeViaKlantId(HandelPersonality,KlantData.KlantId)
Set Response.GebruikerId = RegistreerContactGegevensRequest.GebruikerId
Set Response.GebruikerNaam = ""
Set Response.KlantNaam = KlantData.Naam
@@ -133,7 +139,7 @@
Set KortingSpecificatie.Variant = Variant
Set KortingSpecificatie.PersonalityID = Personality.GeefID()
Set KortingSpecificatie.KlantID = KlantData.KlantId
- Do ..KortingService.StelInKorting(KortingSpecificatie,KlantData.KortingPercentage)
+ Do ..KortingService.StelInKorting(KortingSpecificatie,+KlantData.KortingPercentage)
]]>
Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml
===================================================================
diff -u -r45816 -r46643
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml (.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml) (revision 45816)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml (.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml) (revision 46643)
@@ -74,7 +74,7 @@
GeconverteerdeOfferte:APPS.VKP.Offerte,Bestelling:APPS.VKP.Offerte
1
Index: DOM/VKP/impl/SeefelderKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/SeefelderKlantData.cls.xml (revision 0)
+++ DOM/VKP/impl/SeefelderKlantData.cls.xml (revision 46643)
@@ -0,0 +1,13 @@
+
+
+
+DOM.VKP.impl.HandelKlantData
+
+
+%Library.CacheStorage
+
+
+
+
+
+
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening/Test.cls.xml
===================================================================
diff -u -r44845 -r46643
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening/Test.cls.xml (.../Test.cls.xml) (revision 44845)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening/Test.cls.xml (.../Test.cls.xml) (revision 46643)
@@ -14,10 +14,10 @@
Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID","1").DanReturn("DummyOfferteId")
Set CheckoutTypeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()
- Do CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal","1","K||1000" ).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+ Do CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal","1","K||1234" ).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
Set WinkelkarServiceHelperMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()
- Do WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID","K||1000","").DanReturn("K||1000")
+ Do WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID","1234",##class(DOM.common.enu.Personality).VanHoecke()).DanReturn("K||1234")
Set StartVerpakkingBerekening = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.StartVerpakkingBerekening).%New(WinkelkarRepositoryMock, CheckoutTypeBepalerMock, TransportServiceMock, WinkelkarServiceHelperMock)
Do StartVerpakkingBerekening.StartVerpakkingBerekening(StartVerpakkingBerekeningRequest)
@@ -43,7 +43,7 @@
Do CheckoutTypeBepalerStub.IndienMethodCall("Bepaal","1",$$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
Set WinkelkarServiceHelperMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()
- Do WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID","K||1000","").DanReturn("K||1000")
+ Do WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID","1234",##class(DOM.common.enu.Personality).VanHoecke()).DanReturn("K||1234")
Set StartVerpakkingBerekening = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.StartVerpakkingBerekening).%New(WinkelkarRepositoryMock, CheckoutTypeBepalerStub, TransportServiceMock, WinkelkarServiceHelperMock)
Do StartVerpakkingBerekening.StartVerpakkingBerekening(StartVerpakkingBerekeningRequest)