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)
]]>