Index: DOM/PM/impl/DataM/KindBouwsteen.cls.xml
===================================================================
diff -u -r1336 -r1339
--- DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1336)
+++ DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1339)
@@ -59,26 +59,30 @@
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-	If (..BouwsteenID = "")
+	Set Status = $$$OK
+	If (..IsModified())
 	{
-		Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)
-		Set $Piece(BouwsteenID,".",2) = $Translate($J($Piece(BouwsteenID,".",2)+1,3)," ","0")
-		Set ..BouwsteenID = BouwsteenID
+		Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+		If (..BouwsteenID = "")
+		{
+			Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)
+			Set $Piece(BouwsteenID,".",2) = $Translate($J($Piece(BouwsteenID,".",2)+1,3)," ","0")
+			Set ..BouwsteenID = BouwsteenID
+		}
+		Set Status = ##class(DOM.PM.impl.DataM.Bouwsteen)##this.Save()
+		If ($$$ISOK(Status))
+		{
+			Set ^PRBS("IP",..Product.GeefPRNr(),..MoederProduct.GeefPRNr(),..BouwsteenID) = $Piece(..BouwsteenRecord,"\",3)
+			Set ^PRLINK("D",..MoederProduct.GeefPRNr(),..Product.GeefPRNr()) = $Piece(..BouwsteenRecord,"\",2)_"\"_$Piece(..BouwsteenRecord,"\",12)
+			Set ^PRLINK("IKM",..Product.GeefPRNr(),..MoederProduct.GeefPRNr()) = ""
+			Do OperatieScope.Gelukt()
+		}
+		Else
+		{
+			Do OperatieScope.Gefaald()
+			Set ..BouwsteenID = ""
+		}
 	}
-	Set Status = ##class(DOM.PM.impl.DataM.Bouwsteen)##this.Save()
-	If ($$$ISOK(Status))
-	{
-		Set ^PRBS("IP",..Product.GeefPRNr(),..MoederProduct.GeefPRNr(),..BouwsteenID) = $Piece(..BouwsteenRecord,"\",3)
-		Set ^PRLINK("D",..MoederProduct.GeefPRNr(),..Product.GeefPRNr()) = $Piece(..BouwsteenRecord,"\",2)_"\"_$Piece(..BouwsteenRecord,"\",12)
-		Set ^PRLINK("IKM",..Product.GeefPRNr(),..MoederProduct.GeefPRNr()) = ""
-		Do OperatieScope.Gelukt()
-	}
-	Else
-	{
-		Do OperatieScope.Gefaald()
-		Set ..BouwsteenID = ""
-	}
 	Quit Status
 ]]></Implementation>
 </Method>