FishEye: Tag 39619 refers to a dead (removed) revision in file `ECONimpl/PM/Maatwerk/EconPropertyBuilder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml
===================================================================
diff -u -r39616 -r39619
--- ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 39616)
+++ ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(.../TbxKenmerken.cls.xml)	(revision 39619)
@@ -226,29 +226,27 @@
 </UDLText>
 
 <Method name="FromArray">
+<CodeMode>objectgenerator</CodeMode>
 <FormalSpec>KenmerkenArray:%ArrayOfDataTypes</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	new tmpKeys,Key,Keys,Properties,Property
+	new Key,Keys,Properties,Property,Code
 	
-	new Builder set Builder = ##class(ECONimpl.PM.Maatwerk.EconPropertyBuilder).%New()
-	do Builder.arrProperties("ECON.PM.Maatwerk.dto.TbxKenmerken",.tmpKeys,"A","A","A",1)
+	new Builder set Builder = ##class(ECONimpl.PM.Maatwerk.EconConfiguratieKeysBuilder).%New()
+	do Builder.BuildKeys("ECON.PM.Maatwerk.dto.TbxKenmerken",.Keys,"A","A","A",1)
 	
-	set Property=""
-	for {  set Property = $order(tmpKeys(Property)) quit:Property=""
-		set Keys("Data."_Property) = tmpKeys(Property)
-	}
-
 	do arrProperties^vhLib.Class("ECON.PM.Maatwerk.dto.TbxKenmerken",.Properties,"A","A","A",1)
 	
 	set (Property,Key)=""
 	for { set Property=$order(Properties(Property)) quit:Property=""
 		set Key=$order(Keys(Key))
 		set Code = "set .."_Property_" = KenmerkenArray.GetAt("""_Key_""")"
-		xecute Code
+		Do %code.WriteLine($$$TAB_Code)
 	}
+	
+	do %code.WriteLine($$$TAB_"quit")
 
-	Quit
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
Index: ECONimpl/PM/Maatwerk/EconPropertyBuilder.cls.xml
===================================================================
diff -u -r39616 -r39619
--- ECONimpl/PM/Maatwerk/EconPropertyBuilder.cls.xml	(.../EconPropertyBuilder.cls.xml)	(revision 39616)
+++ ECONimpl/PM/Maatwerk/EconPropertyBuilder.cls.xml	(.../EconConfiguratieKeysBuilder.cls.xml)	(revision 39619)
@@ -1,38 +1,34 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="ECONimpl.PM.Maatwerk.EconPropertyBuilder">
+<Class name="ECONimpl.PM.Maatwerk.EconConfiguratieKeysBuilder">
 <IncludeCode>vhLib.Class,vhLib.Macro</IncludeCode>
 <ProcedureBlock>0</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="arrProperties">
-<FormalSpec>ClassName,arrProperties,flagRequired,flagCalculated,flagEmbeddedOnly,flagDeeperLevel</FormalSpec>
+<Method name="BuildKeys">
+<FormalSpec>ClassName,Properties,flagRequired,flagCalculated,flagEmbeddedOnly,flagDeeperLevel</FormalSpec>
 <Implementation><![CDATA[
- set flagRequired = $get(flagRequired , "A")
- set flagCalculated = $get(flagCalculated , "A" )
- set flagEmbeddedOnly = $get(flagEmbeddedOnly, 0 )
- set flagDeeperLevel = $get(flagDeeperLevel, 1 )
- 
- set Node = flagRequired_flagCalculated_flagEmbeddedOnly_flagDeeperLevel
- 
- kill arrHULP($job)
- Kill arrXmlHulp($job)
- kill arrProperties
+	set flagRequired = $get(flagRequired , "A")
+	set flagCalculated = $get(flagCalculated , "A" )
+	set flagEmbeddedOnly = $get(flagEmbeddedOnly, 0 )
+	set flagDeeperLevel = $get(flagDeeperLevel, 1 )
 
- 
- if $get(^tmp.ECONPROPERTIES(ClassName,Node)) '= ##class(TECH.CompiledClassUtils).GetCompiledTimeStamp(ClassName) {
-	 kill ^tmp.ECONPROPERTIES(ClassName,Node)
- }
- 
- kill ^tmp.ECONPROPERTIES
- 
- if '$data(^tmp.ECONPROPERTIES(ClassName,Node))	{
-	 do ..BuildarrProperties(ClassName,.arrProperties,flagRequired,flagCalculated,flagEmbeddedOnly,flagDeeperLevel)
-	 merge ^tmp.ECONPROPERTIES(ClassName,Node) = arrProperties
-	 set ^tmp.ECONPROPERTIES(ClassName,Node) = ##class(TECH.CompiledClassUtils).GetCompiledTimeStamp(ClassName)
- }
- merge arrProperties=^tmp.ECONPROPERTIES(ClassName,Node)
- quit
+	set Node = flagRequired_flagCalculated_flagEmbeddedOnly_flagDeeperLevel
+
+	kill arrHULP($job)
+	Kill arrXmlHulp($job)
+	kill arrProperties
+
+    do ..BuildarrProperties(ClassName,.arrProperties,flagRequired,flagCalculated,flagEmbeddedOnly,flagDeeperLevel)
+
+	set Property=""
+	for {  set Property = $order(arrProperties(Property)) quit:Property=""
+		set Properties("Data."_Property) = arrProperties(Property)
+	}
+	
+	kill arrProperties
+
+	quit
 ]]></Implementation>
 </Method>