Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml =================================================================== diff -u -r50156 -r50157 --- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml (.../Decrypteerder.cls.xml) (revision 50156) +++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml (.../Decrypteerder.cls.xml) (revision 50157) @@ -188,14 +188,13 @@ #dim HandelPersonality As DOM.common.impl.HandelPersonality = ..HandelPersonalityRepository.GeefViaID(LoginParameters.PersonalityID) If (LoginParameters.KlantID = "") { - Set KlantData = ..GeefHandelKlantDataVoorDecrypteer(LoginParameters) + Set KlantData = ..GeefHandelKlantDataDto(LoginParameters) Set KlantData.ID = HandelPersonality.GeefPrefix()_..WebshopSessionService.GeefVolgendeKlantID(HandelPersonality.GeefID()) Do ..KlantDataBewaarder.Bewaar(HandelPersonality, KlantData) } ElseIf $$$Not(..KlantDataRepository.BestaatViaID(LoginParameters.KlantID)){ - Set KlantData = ..GeefHandelKlantDataVoorDecrypteer(LoginParameters) + Set KlantData = ..GeefHandelKlantDataDto(LoginParameters) #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ..KlantDataBewaarder.Bewaar(HandelPersonality, KlantData) - Do ##class(Tools.Wlip).%New(127).String("bewaarde!"_KlantData.%ClassName(1)) } Else { If ##class(TECH.StringUtils).Contains(LoginParameters.KlantID,"_") { Set KlantData = ..HandelKlantDataRepository.GeefViaID(LoginParameters.KlantID) @@ -208,7 +207,7 @@ ]]> - + LoginParameters:WSimpl.Unishop.Login.ParametersHandel 1 DOM.common.dto.HandelKlantData