Index: TECH/enu/ExceptionCode.cls.xml
===================================================================
diff -u -r2333 -r2372
--- TECH/enu/ExceptionCode.cls.xml (.../ExceptionCode.cls.xml) (revision 2333)
+++ TECH/enu/ExceptionCode.cls.xml (.../ExceptionCode.cls.xml) (revision 2372)
@@ -6,7 +6,7 @@
%String
-;-1000;-1001;-1002;-1003;-1004;-1005;-1006;1005:InvalidUserInput;-1008;-1009;-1010;-1011;-1012;-1013;-1014;-1015;-1016;-1017;-1018;-1019;-1020;-3000;-3001;-5000;-5005;-5804;-4000;-6001;-6002;-7001
+;-1000;-1001;-1002;-1003;-1004;-1005;-1006;1005:InvalidUserInput;-1008;-1009;-1010;-1011;-1012;-1013;-1014;-1015;-1016;-1017;-1018;-1019;-1020;-1021;-3000;-3001;-5000;-5005;-5804;-4000;-6001;-6002;-7001
@@ -156,6 +156,13 @@
]]>
+
+1
+TECH.enu.ExceptionCode
+
+
+
1
TECH.enu.ExceptionCode
Index: TECH/Exceptions/DataNotFoundException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/DataNotFoundException.cls.xml (revision 0)
+++ TECH/Exceptions/DataNotFoundException.cls.xml (revision 2372)
@@ -0,0 +1,14 @@
+
+
+
+TECH.Exceptions.AbstractOmschrijvingException
+
+
+TECH.enu.ExceptionCode
+
+
+
+
+
+
Index: TECH/Persistentie/Repository.cls.xml
===================================================================
diff -u -r2370 -r2372
--- TECH/Persistentie/Repository.cls.xml (.../Repository.cls.xml) (revision 2370)
+++ TECH/Persistentie/Repository.cls.xml (.../Repository.cls.xml) (revision 2372)
@@ -88,10 +88,16 @@
#dim ResultSetIterator As TECH.ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
#dim Result As TECH.Persistent = ""
+
Set:ResultSetIterator.HasNext() Result = $classMethod(..#DataClassName,"%OpenId",ResultSetIterator.Next().Data("ID"))
- Quit:('ResultSetIterator.HasNext()) Result
-
- // Throw exception more then one item found !!!
+
+ if ResultSetIterator.HasNext() {
+ Do ##class(TECH.Exceptions.DataNotFoundException).Throw("geen unieke data gevonden voor " _..#DataClassName)
+ } ElseIf Result="" {
+ Do ##class(TECH.Exceptions.DataNotFoundException).Throw("'geen data gevonden voor " _..#DataClassName)
+ }
+
+ Quit Result
]]>