Merge pull request #115 from Frisle/patch-11

FIX: not documented issue. Crash when accessed to specific global
intersystems-community · May 23, 2023 · ee69344 · ee69344
2 parents 9787697 + 4174f0b
commit ee69344
Showing 1 changed file with 22 additions and 20 deletions.
diff --git a/MDX2JSON/Dashboard.cls b/MDX2JSON/Dashboard.cls
@@ -105,28 +105,30 @@ ClassMethod GetCubeMeasuresDataType(Widget, Number, CubeName, Output DataType As
 
 	set st = $$$OK
 	set dataSource = $piece(Widget.dataSource, ".", *) // get dataSource type
+	try{
+		if ((dataSource '= "kpi") && (dataSource '= "")){
+			if ($FIND(Widget.controls.GetAt(Number).targetProperty, "[") && $FIND(Widget.controls.GetAt(Number).targetProperty, ".")){
+				set tMeasure = $TRANSLATE(Widget.controls.GetAt(Number).targetProperty, "[]", "")
+
+				set st = ##class(%DeepSee.Utils).%GetDimensionInfo(CubeName,tMeasure,.pDimNo,.pHierNo,.pLevelNo) // get positional info about dimension
+
+				Set tMbrInfo = $G($$$DeepSeeMetaGLVN("cubes",$$$UPPER(CubeName),"mbr#",pDimNo,pHierNo,pLevelNo))
+				set DataType = $LG(tMbrInfo,6) // get data type
+				if '($FIND(DataType, "%")){ // if DataType return cube fact search for dataType in "star"
+					Set tMbrInfo = $G($$$DeepSeeMetaGLVN("cubes", $$$UPPER(CubeName), "star", DataType, "prop", $LG(tMbrInfo,7), "type")) 
+					set DataType = tMbrInfo 
+				}
+		}else{
+
+			set DataType = ""
+		}
+		}else{
 
-	if ((dataSource '= "kpi") && (dataSource '= "")){
-		if ($FIND(Widget.controls.GetAt(Number).targetProperty, "[") && $FIND(Widget.controls.GetAt(Number).targetProperty, ".")){
-			set tMeasure = $TRANSLATE(Widget.controls.GetAt(Number).targetProperty, "[]", "")
-
-			set st = ##class(%DeepSee.Utils).%GetDimensionInfo(CubeName,tMeasure,.pDimNo,.pHierNo,.pLevelNo) // get positional info about dimension
-
-			Set tMbrInfo = $G($$$DeepSeeMetaGLVN("cubes",$$$UPPER(CubeName),"mbr#",pDimNo,pHierNo,pLevelNo))
-			set DataType = $LG(tMbrInfo,6) // get data type
-			if '($FIND(DataType, "%")){ // if DataType return cube fact search for dataType in "star"
-				Set tMbrInfo = $G($$$DeepSeeMetaGLVN("cubes", $$$UPPER(CubeName), "star", DataType, "prop", $LG(tMbrInfo,7), "type")) 
-				set DataType = tMbrInfo 
-			}
-	}else{
-
-		set DataType = ""
-	}
-	}else{
-
-		set DataType = ""
+			set DataType = ""
+		}
+	}catch ex {
+		set st = ex.AsStatus()
 	}
-
 	return st
 }