Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r50461 -r50464
--- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 50461)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 50464)
@@ -140,7 +140,7 @@
Set IsGewijzigdeNode = $method($property($this,"Data"_NodeIndex),"IsGewijzigd")
Set:IsGewijzigdProduct=0 IsGewijzigdProduct = IsGewijzigdeNode
If ((IsGewijzigdeNode) && ($$$Not(..IsNieuwProduct))) {
- #dim OrigineleGegevens As %String = ^KPR(..ProductNummer,NodeIndex)
+ #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())
}
@@ -1066,7 +1066,6 @@
#dim JIndex As %String = "J"_..LeverancierNr
If $Length(JIndex)<2 Set JIndex = $Order(^KPR(..ProductNummer,"J"))
Set:($Length(JIndex)>1) r%DataJ = ..PersistentMgr.GeefNode("^KPR",..ProductNummer,JIndex)
- Do:($Length(JIndex)<2) ##class(Tools.Wlip).%New(207).String("J node : leverancier "_ ..LeverancierNr _" niet gekend")
}
Quit r%DataJ
]]>
@@ -1106,15 +1105,15 @@
-NodeIndex:%Integer
+NodeIndex:%String
1
TECH.Persistentie.GlobalNode
-ProductNummer:%Integer,Node:%Integer,OudeGegevens:%String,NieuweGegevens:%String
+ProductNummer:%Integer,Node:%String,OudeGegevens:%String,NieuweGegevens:%String
1
Merk:%String
-
+
@@ -508,13 +507,6 @@
]]>
-
-NodeIndex:%Integer
-TECH.Persistentie.GlobalNode
-
-
-
%String