Index: APPS/common/impl/StockNiveauService.cls.xml
===================================================================
diff -u -r43671 -r49341
--- APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 43671)
+++ APPS/common/impl/StockNiveauService.cls.xml	(.../StockNiveauService.cls.xml)	(revision 49341)
@@ -316,7 +316,17 @@
 <FormalSpec>OrderNr</FormalSpec>
 <Implementation><![CDATA[
 	set KlantNr = $piece(^KO1(OrderNr,"F"),"\",1)
-	set Result = $piece(^KOD(KlantNr,"F",OrderNr,1),"\",25)="T"
+	Set OrderNode1 = $Get(^KOD(KlantNr,"F",OrderNr,1))
+	If (""=OrderNode1) {
+		If ($$$Not("" = $piece(^KO1(OrderNr,"F"),"\",2))) {
+			Do ##class(vhLib.Logger).%New("StockNiveauService").Debug("Order al op bon","KO1='"_^KO1(OrderNr,"F")_"'." _ $$$CRLF _ ##class(TECH.Context).Instance().GeefSystemAPI().GeefStackTrace(1))
+			Set Result = ""
+		} Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataCorruptException).%New("KO1 verwijst naar ^KOD met onbestaande 1-node. KO1='"_^KO1(OrderNr,"F")_"'."))
+		}
+	} Else {
+		set Result = ($piece(OrderNode1,"\",25)="T")
+	}
 	quit Result
 ]]></Implementation>
 </Method>