Index: DOM/PM/Maatwerk/ProductUtils.cls.xml
===================================================================
diff -u -r1908 -r1910
--- DOM/PM/Maatwerk/ProductUtils.cls.xml (.../ProductUtils.cls.xml) (revision 1908)
+++ DOM/PM/Maatwerk/ProductUtils.cls.xml (.../ProductUtils.cls.xml) (revision 1910)
@@ -10,13 +10,10 @@
Node:%String
%String
error te vermijden :
- /*
- If Node="" {
- ; Throw exception
+ If ((Node = "") || ('$Data(^KPR(0,Node))))
+ {
+ Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Onbekende KPR node "_Node_" om dossiercode te bepalen"))
}
- */
Lock +^KPR(0,Node)
Set DosNr=$G(^KPR(0,Node))+1