Index: vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml =================================================================== diff -u -r72987 -r73345 --- vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml (.../Test.cls.xml) (revision 72987) +++ vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml (.../Test.cls.xml) (revision 73345) @@ -33,6 +33,7 @@ #dim Response As WS.OBJT.MES.dto.ValidateOlTagResponse = MESService.ValideerOlTag(RegisterOlTagRequest) Do $$$AssertEquals(Response.Result,"INVALID") + Do $$$AssertEquals(Response.ValidatieError,"OlTag not unique.") Do LadeRegistratieMock.Verifieer() ]]> Index: WSimpl/OBJT/MESService.cls.xml =================================================================== diff -u -r73300 -r73345 --- WSimpl/OBJT/MESService.cls.xml (.../MESService.cls.xml) (revision 73300) +++ WSimpl/OBJT/MESService.cls.xml (.../MESService.cls.xml) (revision 73345) @@ -39,10 +39,11 @@ Set Reponse.Result = "VALID" } Else { Set Reponse.Result = "INVALID" + Set Reponse.ValidatieError = "OlTag not unique." } } Catch { Set Reponse.Result = "INVALID" - Set Reponse.ValidatieError = "Er is een fout opgetreden tijdens het valideren van de OlTag." + Set Reponse.ValidatieError = "An unexpected error occured during the validation of the OlTag." #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ##class(vhLib.Logger).%New("MESService - Valideer OL Tag").Error(Reponse.ValidatieError,Exception.ToString())