Return widget's dataProperties if available.

Required to draw scorecard widgets

Author: eduard93

MDX2JSON/Dashboard.cls.xml

@@ -167,7 +167,7 @@ Converts relevant parts of %DeepSee.Dashboard.Widget object into %ZEN.proxyObjec
 	if Widget.type = "portlet" {
 		set portletClass = Widget.subtypeClass
 		set:portletClass="" portletClass = Widget.subtype
-		set obj.settings = ..PortletSettongsToArray(portletClass)
+		set obj.settings = ..PortletSettingsToArray(portletClass)
 	}
 
 	set obj.mdx = $g(mdx)
@@ -180,6 +180,7 @@ Converts relevant parts of %DeepSee.Dashboard.Widget object into %ZEN.proxyObjec
 	set obj.cube = CubeName
 	set obj.displayInfo = ..GetWidgetDisplayInfo(Widget)
 	set obj.controls = $$$NewDynObjList
+	set obj.dataProperties = $$$NewDynObjList
 
 	for i=1:1:Widget.controls.Count()
 	{
@@ -188,6 +189,14 @@ Converts relevant parts of %DeepSee.Dashboard.Widget object into %ZEN.proxyObjec
 			$$$Insert(obj.controls,control)
 		}
 	}
+	
+	for i=1:1:Widget.dataProperties.Count()
+	{
+		set dataProperty = ..WidgetDataPropertyToProxyObject(Widget.dataProperties.GetAt(i))
+		if $IsObject(dataProperty) {
+			$$$Insert(obj.dataProperties,dataProperty)
+		}
+	}
 
 	if ##class(%Dictionary.CompiledMethod).%ExistsId("MDX2JSON.Dashboard||Process"_Widget.subtype) {
 		do $ClassMethod("MDX2JSON.Dashboard", "Process"_Widget.subtype, Widget, obj)
@@ -206,6 +215,35 @@ Converts relevant parts of %DeepSee.Dashboard.Widget object into %ZEN.proxyObjec
 ]]></Implementation>
 </Method>
 
+<Method name="WidgetDataPropertyToProxyObject">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>dataProperty:%DeepSee.Dashboard.DataProperty</FormalSpec>
+<Implementation><![CDATA[
+	set obj = $$$NewDynObj
+	set obj.align = dataProperty.align
+	set obj.baseValue = dataProperty.baseValue
+	set obj.dataValue = dataProperty.dataValue
+	set obj.display = dataProperty.display
+	set obj.format = dataProperty.format
+	set obj.label = dataProperty.label
+	set obj.name = dataProperty.name
+	set obj.override = dataProperty.override
+	set obj.rangeLower = dataProperty.rangeLower
+	set obj.rangeUpper = dataProperty.rangeUpper
+	set obj.showAs = dataProperty.showAs
+	set obj.style = dataProperty.style
+	set obj.subtype = dataProperty.subtype
+	set obj.summary = dataProperty.summary
+	set obj.summaryValue = dataProperty.summaryValue
+	set obj.targetValue = dataProperty.targetValue
+	set obj.thresholdLower = dataProperty.thresholdLower
+	set obj.thresholdUpper = dataProperty.thresholdUpper
+	set obj.valueColumn = dataProperty.valueColumn
+	set obj.width = dataProperty.width
+	quit obj
+]]></Implementation>
+</Method>
+
 <Method name="ProcesscomboChart">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Widget:%DeepSee.Dashboard.Widget,Obj:%ZEN.proxyObject</FormalSpec>
@@ -463,7 +501,7 @@ Determines position of a widget in dashboard's widget list. </Description>
 ]]></Implementation>
 </Method>
 
-<Method name="PortletSettongsToArray">
+<Method name="PortletSettingsToArray">
 <Description><![CDATA[
 On return, <var>pInfo</var> can contain a list of settings in the form:<br/>
 pInfo(n) = $LB(name,value,type,caption,title)<br/>

MDX2JSON/Tests.cls.xml

@@ -8,12 +8,12 @@ Classes with support methods for testing MDX2JSON</Description>
 
 <Parameter name="LastCommit">
 <Type>%String</Type>
-<Default>3037ee3022e6a49a2cc5003c5e0c8313732b6aef</Default>
+<Default>744520a21a4b0ba4599aa7d2faf5e6544c656501</Default>
 </Parameter>
 
 <Parameter name="LastCommitTS">
 <Type>%TimeStamp</Type>
-<Default>2020-04-01 14:52:39.840</Default>
+<Default>2020-11-10 07:10:54.899</Default>
 </Parameter>
 
 <Method name="ProjectLength">