Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r35039 -r45737
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 35039)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45737)
@@ -48,6 +48,12 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="IsNieuwProduct">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductNummer">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -62,24 +68,36 @@
 <FormalSpec>ProductNummer:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = $$$OK
-	If ($Data(^KPR(ProductNummer)))
-	{
-		Set ..ProductNummer = ProductNummer
+	Set ..IsNieuwProduct = 1
+	Set ..ProductNummer = ProductNummer
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Open">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Status As %Status = $$$OK
+	If ($data(^KPR(..ProductNummer))){
+		Set ..IsNieuwProduct = 0
+	} Else {
+		Set Status = '($$$OK)
 	}
-	Else
-	{
-		Set Status = $$$ERROR("Geen bestaand product")
-	}
 	Quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="IsNieuwProduct">
+<Implementation><![CDATA[	quit ..IsNieuwProduct
+]]></Implementation>
+</Method>
+
 <Method name="DataGet">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (i%Data = "") {
+	If ( i%Data = "")  {
 		Set i%Data = ^KPR(..ProductNummer,0)
 	}
 	Quit i%Data
@@ -101,8 +119,8 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (i%Data2 = "") {
-		Set i%Data2 = ^KPR(..ProductNummer,2)
+	If ( i%Data2 = "") {
+			Set i%Data2 = ^KPR(..ProductNummer,2)
 	}
 	Quit i%Data2
 ]]></Implementation>