Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r34035 -r34040
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 34035)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 34040)
@@ -705,10 +705,10 @@
 ItemLabel is bijvoorbeeld "PRTOBSET" </Description>
 <FormalSpec>ItemLabel:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
-<ReturnType>DOM.common.ProductID</ReturnType>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ProductID As DOM.common.ProductID = ""
-	#dim DItem As Prod.GAData.Item = ..LookUp("IL",ItemLabel)
+	Set ProductID = ""
+	Set DItem = ..LookUp("IL",ItemLabel)
 	If $IsObject(DItem) {
 		Set ProductID = DItem.Eval("PRNr",ItemLabel,,0)
 	}