Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1723 -r1724
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1723)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1724)
@@ -98,19 +98,22 @@
 <ReturnType>DOM.PM.Classificatie</ReturnType>
 <Implementation><![CDATA[
 	Set Classificatie = ""
-	Set Niveau = $Piece(^KLAS("K",ClassificatieID),"\")
-	If (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Hoofdgroep())
+	If (ClassificatieID '= "")
 	{
-		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMHoofdgroepClassificatie).%New(ClassificatieID)
+		Set Niveau = $Piece($Get(^KLAS("K",ClassificatieID)),"\")
+		If (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Hoofdgroep())
+		{
+			Set Classificatie = ##class(DOM.PM.impl.DataM.DataMHoofdgroepClassificatie).%New(ClassificatieID)
+		}
+		ElseIf (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Groep())
+		{
+			Set Classificatie = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New(ClassificatieID)
+		}
+		ElseIf (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Subgroep())
+		{
+			Set Classificatie = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(ClassificatieID)
+		}
 	}
-	ElseIf (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Groep())
-	{
-		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New(ClassificatieID)
-	}
-	ElseIf (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Subgroep())
-	{
-		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(ClassificatieID)
-	}
 	Quit Classificatie
 ]]></Implementation>
 </Method>
@@ -178,7 +181,7 @@
 
 <Method name="GeefOrgaluxProductIterator">
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.DataM.DataMHGProductIterator).%New("15OL ")
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.DataM.DataMHGProductIterator).%New(837)
 ]]></Implementation>
 </Method>