Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r29059 -r34031
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 29059)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 34031)
@@ -708,6 +708,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHalffabProductID">
+<Description>
+ItemLabel is bijvoorbeeld "PRTOBSET" </Description>
+<FormalSpec>ItemLabel:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>DOM.common.ProductID</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductID As DOM.common.ProductID = ""
+	#dim DItem As Prod.GAData.Item = ..LookUp("IL",ItemLabel)
+	If $IsObject(DItem) {
+		Set ProductID = DItem.Eval("PRNr",ItemLabel,,0)
+	}
+	Quit ProductID
+]]></Implementation>
+</Method>
+
 <Method name="NewDataItem">
 <Description>
 Gebruik voor opbouw van de Items in een nieuwe Template (product).</Description>