Index: vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml =================================================================== diff -u -r55519 -r55528 --- vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml (.../Test.cls.xml) (revision 55519) +++ vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml (.../Test.cls.xml) (revision 55528) @@ -25,8 +25,8 @@ Set GebruikerService = ##class(WSimpl.Halux.AAP.GebruikerService).%New(AanmeldingRepositoryMock) #dim Antwoord As WS.Halux.AAP.GebruikerAanmeldenResponse = GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest) - Do $$$AssertEquals(Antwoord.Status,"200") - Do $$$AssertEquals(Antwoord.Omschrijving,"") + Do $$$AssertEquals(Antwoord.Header.Status,"200") + Do $$$AssertEquals(Antwoord.Header.Omschrijving,"") Do AanmeldingRepositoryMock.Verifieer() ]]> @@ -55,8 +55,8 @@ Set GebruikerService = ##class(WSimpl.Halux.AAP.GebruikerService).%New(AanmeldingRepositoryMock) #dim Antwoord As WS.Halux.AAP.GebruikerAanmeldenResponse = GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest) - Do $$$AssertEquals(Antwoord.Status,"1005:InvalidUserInput") - Do $$$AssertEquals(Antwoord.Omschrijving,"Deze logincode is reeds aangemeld") + Do $$$AssertEquals(Antwoord.Header.Status,"1005:InvalidUserInput") + Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Deze logincode is reeds aangemeld") Do AanmeldingRepositoryMock.Verifieer() ]]> Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt =================================================================== diff -u -r55519 -r55528 --- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt (.../WS.Halux.AAP.GebruikerService.txt) (revision 55519) +++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Halux.AAP.GebruikerService.txt (.../WS.Halux.AAP.GebruikerService.txt) (revision 55528) @@ -38,13 +38,18 @@ - - + + + + + + + @@ -69,7 +74,11 @@ - + + + + + Index: WS/Halux/AAP/GebruikerAfmeldenResponse.cls.xml =================================================================== diff -u -r55493 -r55528 --- WS/Halux/AAP/GebruikerAfmeldenResponse.cls.xml (.../GebruikerAfmeldenResponse.cls.xml) (revision 55493) +++ WS/Halux/AAP/GebruikerAfmeldenResponse.cls.xml (.../GebruikerAfmeldenResponse.cls.xml) (revision 55528) @@ -2,6 +2,11 @@ TECH.DataTransferObject + + +WS.Halux.AAP.ResponseHeader +1 + Index: WSimpl/Halux/AAP/GebruikerService.cls.xml =================================================================== diff -u -r55519 -r55528 --- WSimpl/Halux/AAP/GebruikerService.cls.xml (.../GebruikerService.cls.xml) (revision 55519) +++ WSimpl/Halux/AAP/GebruikerService.cls.xml (.../GebruikerService.cls.xml) (revision 55528) @@ -34,8 +34,8 @@ Set Antwoord = ##class(WS.Halux.AAP.GebruikerAanmeldenResponse).%New() If ..AanmeldingRepository.ZoekViaLoginCode(GebruikerAanmeldenRequest.LoginCode).HasNext() { - Set Antwoord.Status = ##class(TECH.enu.ExceptionCode).InvalidUserInput() - Set Antwoord.Omschrijving = "Deze logincode is reeds aangemeld" + Set Antwoord.Header.Status = ##class(TECH.enu.ExceptionCode).InvalidUserInput() + Set Antwoord.Header.Omschrijving = "Deze logincode is reeds aangemeld" Quit Antwoord } @@ -47,7 +47,7 @@ Do ..AanmeldingRepository.Bewaar(Aanmelding) - Set Antwoord.Status = "200" + Set Antwoord.Header.Status = "200" Quit Antwoord ]]> Index: WS/Halux/AAP/ResponseHeader.cls.xml =================================================================== diff -u --- WS/Halux/AAP/ResponseHeader.cls.xml (revision 0) +++ WS/Halux/AAP/ResponseHeader.cls.xml (revision 55528) @@ -0,0 +1,37 @@ + + + +%SerialObject,%XML.Adaptor + + +STRING +1 + + + +TECH.String +1 + + + +TECH.String +1 + + + +%Library.CacheSerialState +ResponseHeaderState +^WS.Halux.AAP.ResponseHeaderS + + +Status + + +Omschrijving + + + + + + + Index: WS/Halux/AAP/GebruikerAanmeldenResponse.cls.xml =================================================================== diff -u -r55519 -r55528 --- WS/Halux/AAP/GebruikerAanmeldenResponse.cls.xml (.../GebruikerAanmeldenResponse.cls.xml) (revision 55519) +++ WS/Halux/AAP/GebruikerAanmeldenResponse.cls.xml (.../GebruikerAanmeldenResponse.cls.xml) (revision 55528) @@ -3,14 +3,10 @@ TECH.DataTransferObject - -%String + +WS.Halux.AAP.ResponseHeader 1 - - -%String -