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
-