Buenas tardes,
Estoy haciendo una personalizacion para un programa que se llama eroom es de documentum y necesito saber como puedo sacar unos datos ya que los quiero llevar a otra pagina para que sean graficados, ya logre que me aparescan todos los datos pero no puedo sacarlos solo verlos mi cadigo es el siguiente
<%
'Determinación de las variables
Dim AppO
Dim Loguser
Dim Nomroom
Dim NomFacility
Dim DbName
Dim Cadena
Dim dashboard, dashboardresults
'Determinación de cada nivel de eroom
Set AppO = CreateObject("eRoom.Application")
Set Loguser = AppO.LoginUser("ricardo guerra")
set NomFacility = AppO.GetFacilityByName("facility")
set Nomroom = NomFacility.GetRoomByName("pruebas")
set DbName = Nomroom.GetItem("0_99c")
cadena = "."& NomFacility & "." & Nomroom & "." & DbName
Call CalendarDashboardShowResults (DbName)
%>
<%
Sub CalendarDashboardShowResults (item)
Dim dashColums
Dim dashfirts
Dim dashcell
Dim srcitem
Dim foundCount
Dim dashrow
Dim cells
Dim srccount
foundCount = 0
Response.Write(Cadena)
Set dashboard = item
Set dashboardresults = dashboard.GetDashboardResults()
'Set dashfirts = dashboardresults.GetFirst ()
'Set dashcell = dashfirts.DashboardCells
Set dashrow = dashboardresults.GetFirst()
While Not (dashrow Is Nothing)
foundCount = foundCount + 1
Set srcitem = dashrow.sourceitem
srccount = dashrow.SourceResultCount
If dashrow.sourceitem Is Nothing Then
Response.Write "DASHBOARD ROW # " + CStr(foundCount) + ", SourceItem=NOTHING; (TOTALS ROW)"& "<br>"
Else
Response.Write "DASHBOARD ROW # " + CStr(foundCount) + ", SourceItem=" + dashrow.sourceitem.Name & "<br>"
End If
Response.Write "SourceResultCount=" + CStr(srccount) & "<br>"
Set cells = dashrow.DashboardCells
Response.Write "DASHBOARD CELLS: count=" + CStr(cells.Count) & "<br>"
For Each cell In cells
Response.Write cell.column.Name & "<br>"
Response.Write CSTR(cell.DashboardOperator)& "<br>"
Response.Write cell.ColumnLabel & "<br>"
Response.Write cell.DisplayContent & "<br>"
Response.Write "cell.Content: (" + TypeName(cell.Content) + ") " + CStr(cell.Content) & "<br>"
Next
Set dashrow = dashboardresults.GetNext()
Wend
End Sub
%>
y me aparece esto en pantalla:
facility.pruebas.testDASHBOARD ROW # 1, SourceItem=test
SourceResultCount=3
DASHBOARD CELLS: count=32
nuem
1
min
1.00
cell.Content: (Double) 1
nuem
2
max
3.00
cell.Content: (Double) 3
nuem
32
non-blank
3
cell.Content: (Long) 3
est
64
a
2
cell.Content: (Long) 2
est
64
c
1
cell.Content: (Long) 1
usua
64
dos
1
cell.Content: (Long) 1
usua
64
tres
1
cell.Content: (Long) 1
usua
64
uno
1
cell.Content: (Long) 1
pi/loc
64
d
3
cell.Content: (Long) 3
neg
64
h
2
cell.Content: (Long) 2
neg
64
j
1
cell.Content: (Long) 1
resp
64
cinco
1
cell.Content: (Long) 1
resp
64
dos
1
cell.Content: (Long) 1
resp
64
uno
1
cell.Content: (Long) 1
turu
64
(none selected)
1
cell.Content: (Long) 1
turu
64
l
2
cell.Content: (Long) 2
hecha
1
earliest
1 Feb 08
cell.Content: (Date) 2/1/2008
hecha
2
latest
17 Feb 08
cell.Content: (Date) 2/17/2008
hecha
32
non-blank
3
cell.Content: (Long) 3
hecha
64
done
0
cell.Content: (Long) 0
hecha
64
not done
3
cell.Content: (Long) 3
cat
64
o
2
cell.Content: (Long) 2
cat
64
q
1
cell.Content: (Long) 1
pais
64
r
2
cell.Content: (Long) 2
pais
64
t
1
cell.Content: (Long) 1
serv
64
u
1
cell.Content: (Long) 1
serv
64
v
2
cell.Content: (Long) 2
desco
64
x
1
cell.Content: (Long) 1
desco
64
z
2
cell.Content: (Long) 2
acciones recom
32
non-blank
3
cell.Content: (Long) 3
status
64
ab
1
cell.Content: (Long) 1
status
64
ef
2
cell.Content: (Long) 2
y yo solo quiero los datos de usua y unos numeros