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