Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml =================================================================== diff -u -r40969 -r40970 --- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml (.../Test.cls.xml) (revision 40969) +++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml (.../Test.cls.xml) (revision 40970) @@ -19,7 +19,7 @@ Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", "K||KlantID").DanReturn(VanHoeckeKlant) Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New() - Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", "dummy@dum.my").DanReturn(..GeefGebruikerIDLijst()) + Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", "dummy@dum.my").DanReturn(..GeefGebruikerIDLijst(1)) Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", "GebruikerID").DanReturn(Toegang) Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorMock, LegacyPartijAPIMock, VerkoopAPIMock,ToegangRepositoryMock) @@ -44,7 +44,7 @@ Do UserCartValidatorStub.IndienMethodCall("GeefGebruikerID", $$$ElkeWaarde).DanReturn("") Set ToegangRepositoryStub = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New() - Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", "dummy@dum.my").DanReturn(..GeefGebruikerIDLijst()) + Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", "dummy@dum.my").DanReturn(..GeefGebruikerIDLijst(1)) Do ToegangRepositoryStub.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(Toegang) #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen ondersteuning voor meerdere klanten") @@ -89,11 +89,15 @@ +Aantal:%Integer 1 %ListOfDataTypes Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml =================================================================== diff -u -r40969 -r40970 --- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml (.../KlantBepaler.cls.xml) (revision 40969) +++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml (.../KlantBepaler.cls.xml) (revision 40970) @@ -64,13 +64,13 @@ Do ..ValideerAantalKlanten(Klant.Toegang.Klanten.Count()) Set KlantID = Klant.Toegang.GetKlant() } else { - ;Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4() - ;Set Klant.Toegang = ..ToegangRepository.GeefViaID(..#DefaultToegangIDVoorVhisie4) - ;Set KlantID = ..Vhisie4KlantInfoOphaler.getCustomerFromEmail(UserCart.userName).customerId - ;If (KlantID = "") { - ; Set Exceptie = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%New(UserCart.userName) - ; Do ##class(TECH.ExceptionHandler).Throw(Exceptie) - ;} + Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4() + Set Klant.Toegang = ..ToegangRepository.GeefViaID(..#DefaultToegangIDVoorVhisie4) + Set KlantID = ..Vhisie4KlantInfoOphaler.getCustomerFromEmail(UserCart.userName).customerId + If (KlantID = "") { + Set Exceptie = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%New(UserCart.userName) + Do ##class(TECH.ExceptionHandler).Throw(Exceptie) + } } Set Klant.Klant = ..VerkoopAPI.GeefKlant(..LegacyPartijAPI.GeefKlantPartijID(KlantID)) @@ -83,7 +83,7 @@ Email:%String 1 %Boolean - 0) + 0) ]]>