Index: DOM/PM/impl/DataM/DataMProduct.cls.xml =================================================================== diff -u -r50678 -r50706 --- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 50678) +++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 50706) @@ -134,13 +134,15 @@ #dim IsGewijzigdProduct As %Boolean = 0 #dim IsGewijzigdeNode As %Boolean = 0 + #dim BestaatSubscript As %Boolean = 0 #Dim RecalcProduktNodig as %Boolean = ..DataJ.IsGewijzigd() // check voor gewijzigde leverancier ? -> subscript van de j-node wijzigt dan. #dim NodeIndex As %String For NodeIndex = 0,1,2,3,4,5,15,"I1","J","G" { Set IsGewijzigdeNode = $method($property($this,"Data"_NodeIndex),"IsGewijzigd") Set:IsGewijzigdProduct=0 IsGewijzigdProduct = IsGewijzigdeNode - If ((IsGewijzigdeNode) && ($$$Not(..IsNieuwProduct))) { + Set BestaatSubscript = $Data(^KPR(..ProductNummer,$Select(NodeIndex="J":"J"_$Piece(..GeefLeverancierID(),"||",2),1:NodeIndex))) + If (BestaatSubscript && IsGewijzigdeNode && ($$$Not(..IsNieuwProduct))) { #dim OrigineleGegevens As %String = ^KPR(..ProductNummer,$Select(NodeIndex="J":"J"_$Piece(..GeefLeverancierID(),"||",2),1:NodeIndex)) #dim Node As TECH.Persistentie.GlobalNode = ..GeefNode(NodeIndex) Do ..LogWijzigingen(..ProductNummer, NodeIndex, OrigineleGegevens, Node.GeefDelimitedString())