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)