Index: BL/Prod/VoorraadBewegingService.cls.xml
===================================================================
diff -u -r41536 -r41593
--- BL/Prod/VoorraadBewegingService.cls.xml	(.../VoorraadBewegingService.cls.xml)	(revision 41536)
+++ BL/Prod/VoorraadBewegingService.cls.xml	(.../VoorraadBewegingService.cls.xml)	(revision 41593)
@@ -6,7 +6,10 @@
 <Method name="GeefEersteVoorraadBeweging">
 <FormalSpec>ProductId:%String,Type:Prod.enu.VoorraadBewegingActie=""</FormalSpec>
 <ReturnType>Prod.VoorraadBeweging</ReturnType>
-<Implementation><![CDATA[	quit ##class(Prod.VoorraadBeweging).%New()
+<Implementation><![CDATA[
+	#dim Id As %String = $O(^PRHIST(ProductId,""))
+	do:Id="" ##class(TECH.Exceptions.IllegalUsageException).Throw("Geen eerste voorraadbeweging voor product '"_ProductId_"'")
+	quit ##class(Prod.VoorraadBeweging).%OpenId(ProductId_"||"_Id)
 ]]></Implementation>
 </Method>
 </Class>