Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r53652 -r54143
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 53652)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 54143)
@@ -256,8 +256,8 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#define IsTijdelijkOrder(%id)   (%id < 110000)
-	Quit $S($$$IsTijdelijkOrder(Offerte.OrderID):"tijdelijk order '" _ Offerte.OrderID _ "' in Admin", 1:"order '" _ Offerte.OrderID _ "'")
+	#dim IsTijdelijkOrder As %Boolean = ##class(APPS.VKP.impl.AdminOrderService).IsTijdelijkOrder(Offerte.OrderID)
+	Quit $S(IsTijdelijkOrder:"tijdelijk order '" _ Offerte.OrderID _ "' in Admin", 1:"order '" _ Offerte.OrderID _ "'")
 ]]></Implementation>
 </Method>