Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r55411 -r57107
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 55411)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 57107)
@@ -1156,7 +1156,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New B
-	Set B(1) = ^KPR(ProductNummer,$Order(^KPR(ProductNummer,"J")))
+	Set B(1) = ^KPR(ProductNummer,$Order(^KPR(ProductNummer,"J"))) // Is nodig voor achterliggende old school code
 	Do DLOGMOD^LOG("PR",ProductNummer,BIndex,OudGegeven,NieuwGegeven,,)
 ]]></Implementation>
 </Method>