Index: WSimpl/OBJT/MESService.cls.xml =================================================================== diff -u -r72966 -r72987 --- WSimpl/OBJT/MESService.cls.xml (.../MESService.cls.xml) (revision 72966) +++ WSimpl/OBJT/MESService.cls.xml (.../MESService.cls.xml) (revision 72987) @@ -29,8 +29,13 @@ Try { #dim DataOphaler As APPS.VKP.Maatwerk.LadeRegistratie.impl.IDataOphaler = ..BepaalDataOphaler("") #dim IsOlTagUniek As %Boolean = ..LadeRegistratieService.IsRegistratieCodeUniek(DataOphaler.ExtractRegistratieCodeVanURL(ValidateOlTag.OlTag)) + #dim Werkpost As APPS.Halux.common.enu.Werkpost = "" - If (IsOlTagUniek) { + If $$$Not(ValidateOlTag.WerkPost = "") { + Set Werkpost = ..BepaalCacheBekendeWerkpost(ValidateOlTag.WerkPost) + } + + If ((IsOlTagUniek) && $$$Not(Werkpost = "")) { Set Reponse.Result = "VALID" } Else { Set Reponse.Result = "INVALID" Index: vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml =================================================================== diff -u -r72708 -r72987 --- vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml (.../Test.cls.xml) (revision 72708) +++ vhUnitTest/WSimpl/OBJT/MESService/ValideerOlTag/Test.cls.xml (.../Test.cls.xml) (revision 72987) @@ -7,6 +7,7 @@ - + + + + +