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 @@
-
+
+
+
+
+