Index: WSimpl/Halux/AAP/GebruikerService.cls.xml =================================================================== diff -u -r55570 -r56503 --- WSimpl/Halux/AAP/GebruikerService.cls.xml (.../GebruikerService.cls.xml) (revision 55570) +++ WSimpl/Halux/AAP/GebruikerService.cls.xml (.../GebruikerService.cls.xml) (revision 56503) @@ -51,9 +51,11 @@ Quit Antwoord } - If ..AanmeldingRepository.ZoekViaLoginCodeEnInitialen(GebruikerAanmeldenRequest.LoginCode, GebruikerAanmeldenRequest.Initialen).HasNext() { + #dim AanmeldingenIterator As TECH.Iteraotr = ..AanmeldingRepository.ZoekViaLoginCodeEnInitialen(GebruikerAanmeldenRequest.LoginCode, GebruikerAanmeldenRequest.Initialen) + If AanmeldingenIterator.HasNext() { + #dim Aanmelding As DOM.Halux.AAP.Aanmelding = AanmeldingenIterator.Next() Set Antwoord.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidUserInput() - Set Antwoord.Header.Omschrijving = "Deze logincode is reeds aangemeld" + Set Antwoord.Header.Omschrijving = "Deze logincode is reeds aangemeld ("_Aanmelding.ComputerNaam_")" Quit Antwoord } Index: vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml =================================================================== diff -u -r56055 -r56503 --- vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml (.../Test.cls.xml) (revision 56055) +++ vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml (.../Test.cls.xml) (revision 56503) @@ -66,7 +66,7 @@ #dim Antwoord As WS.Halux.AAP.GebruikerAanmeldenResponse = GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest) Do $$$AssertEquals(Antwoord.Header.Status,"1005:InvalidUserInput") - Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Deze logincode is reeds aangemeld") + Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Deze logincode is reeds aangemeld (Een computernaam)") Do AanmeldingRepositoryMock.Verifieer() ]]>