Index: vhTest/Mock/DOM/PM/Product.cls.xml
===================================================================
diff -u -r45761 -r45918
--- vhTest/Mock/DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 45761)
+++ vhTest/Mock/DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 45918)
@@ -371,6 +371,11 @@
]]>
+
+
+
+
IdentNr:%String
+
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
DOM.PM.impl.DataM.DataMProduct
@@ -11,6 +14,337 @@
%Integer
+
+%Integer
+
+
+
+
+%Integer
+
+
+
+
+%Integer
+
+
+
+
+DOM.PM.enu.ActiefStatus
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Float
+
+
+
+
+DOM.VKP.enu.PrijsCodex
+
+
+
+
+DOM.VKP.enu.PrijsCodex
+
+
+
+
+%Float
+
+
+
+
+DOM.PM.ClassificatieKnoop
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+%Float
+
+
+
+
+DOM.PM.enu.GrootteOrde
+
+
+
+
+DOM.PM.enu.GrootteOrde
+
+
+
+
+TECH.Iterator
+
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+DOM.PM.enu.KSProductStatus
+
+
+
+
+TECH.Iterator
+
+
+
+
+%Float
+
+
+
+
+%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+TECH.Iterator
+
+
+
+
+Taal:%String="N",RemoveCRLF:%Boolean=1
+%String
+
+
+
+
+DOM.common.PartijID
+
+
+
+
+%String
+
+
+
+
+%Float
+
+
+
+
+%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+%Float
+
+
+
+
+NodeIndex:%Integer
+TECH.Persistentie.GlobalNode
+
+
+
+
+%String
+
+
+
+
+%Date
+
+
+
+
+%Integer
+
+
+
+
+Prod.ProductTekst
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Float
+
+
+
+
+DOM.PM.enu.StockType
+
+
+
+
+TECH.String
+
+
+
+
+%Date
+
+
+
+
+%Float
+
+
+
+
+%Boolean
+
+
+
+
+
+
+
+
+%Boolean
+
+
+
+
+ProductNummer:%Integer
+
+
+
+
+%Status
+
+
+
+
+IdentNr:%String
+
+
+
+
+Korttekst:%String
+
+
+
MultipleGroep:%String
%ListOfDataTypes
Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml (revision 0)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml (revision 45918)
@@ -0,0 +1,41 @@
+
+
+
+vhUnitTest.TestCase
+
+
+%String
+1000
+
+
+
+aTestName:%String
+
+
+
+
+aTestName:%String
+
+
+
+
+
+
+
+
+
+
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r45761 -r45918
--- DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 45761)
+++ DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 45918)
@@ -28,13 +28,13 @@
-ProductId:%Integer=""
+ProductId:%Integer="",Product:%CacheString
1
1
%Status
1
@@ -49,6 +49,14 @@
]]>
+
+%Status
+
+
+
%Boolean
BL.Kenm.Common
1
-TECH.RegisteredObject
+TECH.RegisteredObject,TECH.Mockable
TECH.Persistentie.GlobalNode
@@ -41,12 +41,22 @@
1
+
+%String
+1
+
+
%Boolean
1
1
+
+%String
+1
+
+
%Integer
1
@@ -94,6 +104,10 @@
]]>
+
+%Status
+
+
@@ -531,13 +545,20 @@
IdentNr:%String
-
Korttekst:%String
- 25) {
+ Do ##class(TECH.Exceptions.InvalidInputException).Throw("Maximum toegelaten aantal karakters is 25. De ingegeven tekst is "_$Length(Korttekst)_" lang.")
+ }
+ Set ..Korttekst = Korttekst
+ Do ..Data0.ZetPiece(1, Korttekst)
]]>
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r45761 -r45918
--- DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 45761)
+++ DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 45918)
@@ -326,6 +326,10 @@
1
Korttekst:%String
+
+
+1
+
Index: vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml (revision 0)
+++ vhTest/Mock/DOM/PM/impl/DataM/DataMProduct.cls.xml (revision 45918)
@@ -0,0 +1,344 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+1
+DOM.PM.impl.DataM.DataMProduct,Tools.Mock.MockClassBase
+right
+
+
+%Integer
+
+
+
+
+%Integer
+
+
+
+
+%Integer
+
+
+
+
+DOM.PM.enu.ActiefStatus
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Float
+
+
+
+
+DOM.VKP.enu.PrijsCodex
+
+
+
+
+DOM.VKP.enu.PrijsCodex
+
+
+
+
+%Float
+
+
+
+
+DOM.PM.ClassificatieKnoop
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+%Float
+
+
+
+
+DOM.PM.enu.GrootteOrde
+
+
+
+
+DOM.PM.enu.GrootteOrde
+
+
+
+
+TECH.Iterator
+
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+DOM.PM.enu.KSProductStatus
+
+
+
+
+TECH.Iterator
+
+
+
+
+%Float
+
+
+
+
+%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+TECH.Iterator
+
+
+
+
+Taal:%String="N",RemoveCRLF:%Boolean=1
+%String
+
+
+
+
+DOM.common.PartijID
+
+
+
+
+%String
+
+
+
+
+%Float
+
+
+
+
+%String
+
+
+
+
+TECH.Iterator
+
+
+
+
+MultipleGroep:%String
+%ListOfDataTypes
+
+
+
+
+%Float
+
+
+
+
+%String
+
+
+
+
+%Date
+
+
+
+
+%Integer
+
+
+
+
+Prod.ProductTekst
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Float
+
+
+
+
+DOM.PM.enu.StockType
+
+
+
+
+TECH.String
+
+
+
+
+%Date
+
+
+
+
+%Float
+
+
+
+
+%Boolean
+
+
+
+
+
+
+
+
+%Boolean
+
+
+
+
+ProductNummer:%Integer
+
+
+
+
+%Status
+
+
+
+
+IdentNr:%String
+
+
+
+
+Korttekst:%String
+
+
+
+
+
+
Index: vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml
===================================================================
diff -u -r45761 -r45918
--- vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml (.../Test.cls.xml) (revision 45761)
+++ vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml (.../Test.cls.xml) (revision 45918)
@@ -104,6 +104,19 @@
Do $$$AssertEquals(Product.GeefIdentNr(),"IdentNummer2")
]]>
+
+
+
+