EsbGetCellDrillThruReports

Gets the drill-through reports associated with a data cell as a list of URL XMLs, given the cell's member combination.

Syntax

Declare Function EsbGetCellDrillThruReports Lib "esbapin" (ByVal hCtx As Long, ByRef pMbrs() As String, ByRef ppURLXMLLen As Variant, ByRef ppURLXML As Variant) As Long

Parameter	Description
hCtx	Visual Basic API context handle
pMbrs	List of member names (or Aliases)
ppURLXMLLen	Returns length of URL XML generated
ppURLXML	Returns pointers to the URL XML byte stream

Notes

The application database needs to be set to Active for this call. This function needs to be extended to support any additional information needed by the clients.

Return Value

If successful, gets the list of URL XMLs.
If unsuccessful, returns an error code.

Access

Caller must have database Read privilege (ESB_PRIV_READ) for the specified database.
Caller must have selected the specified database as their active database using EsbSetActive().

Example

Sub ESB_GetCellDrillThruReports()
   Dim intX           As Integer
   Dim mbrs(0 To 4)   As String
   Dim pURLXMLLens    As Variant
   Dim pURLXMLs       As Variant

   mbrs(0) = "sales"
   mbrs(1) = "jan"
   mbrs(2) = "New York"
   mbrs(3) = "actual"
   mbrs(4) = "100-10"

   sts = EsbGetCellDrillThruReports(hCtx, mbrs, pURLXMLLens, pURLXMLs)

   If sts = 0 Then

       Debug.Print "EsbGetCellDrillThruReports sts: " & sts
       For intX = LBound(pURLXMLLens) To UBound(pURLXMLLens)

       Debug.Print "URL XML: " & intX
       Debug.Print "URL XML Len: " & pURLXMLLens(intX)
       Debug.Print "URL XML String: " & pURLXMLs(intX)

       Next
   End If

   mbrs(0) = "profit"
   sts = EsbGetCellDrillThruReports(hCtx, mbrs, pURLXMLLens, pURLXMLs)
   If sts = 0 Then
       Debug.Print "EsbGetCellDrillThruReports sts: " & sts
       For intX = LBound(pURLXMLLens) To UBound(pURLXMLLens)
       Debug.Print "URL XML: " & intX
       Debug.Print "URL XML Len: " & pURLXMLLens(intX)
       Debug.Print "URL XML String: " & pURLXMLs(intX)
       Next
   End If
End Sub

See also an extended example in Drill-through Visual Basic API Example.