<%
function getDepInvestInfoFinanceira()
'Lista Categorias da área de Investidores/Informações Financeiras
dim sql
'Seleciona as categorias que possuem documentos publicados
SQL = ""
SQL = SQL & " select Dpt.nome,Dpt.departamento_id "
SQL = SQL & " from dct_Departamento Dpt "
SQL = SQL & " where (Dpt.departamento_id =" & DPT_DCT_INFO_FINANC_LIGHTSA & " "
SQL = SQL & " or Dpt.departamento_id = "& DPT_DCT_INFO_FINANC_LIGHTSESA & " "
SQL = SQL & " or Dpt.departamento_id = "& DPT_DCT_INFO_FINANC_LIGHTENERGIA & ") "
SQL = SQL & " and Dpt.departamento_id in "
SQL = SQL & " (select departamento_id "
SQL = SQL & " from dct_documento Dct "
SQL = SQL & " Where Dct.dtDataIni <= Now() "
SQL = SQL & " and Dct.dtDataFim >= Now()) "
SQL = SQL & " order by ordem "
'Retorna um array de dictionary
getDepInvestInfoFinanceira = RsToArr(SQL,cnnDef)
end function
function getDepInvPressReleases()
'Lista Categorias da área de Investidores/Press Releases
dim sql
'Seleciona as categorias que possuem documentos publicados
SQL = ""
SQL = SQL & " select nome,departamento_id "
SQL = SQL & " from dct_Departamento Dpt "
SQL = SQL & " where (Dpt.departamento_id =" & DPT_DCT_PRESS_RELEASES_LIGHTSA & " "
SQL = SQL & " or Dpt.departamento_id = "& DPT_DCT_PRESS_RELEASES_LIGHTSESA & " "
SQL = SQL & " or Dpt.departamento_id = "& DPT_DCT_PRESS_RELEASES_LIGHTENERGIA & ") "
SQL = SQL & " and Dpt.departamento_id in "
SQL = SQL & " (select departamento_id "
SQL = SQL & " from dct_documento Dct "
SQL = SQL & " Where Dct.dtDataIni <= Now() "
SQL = SQL & " and Dct.dtDataFim >= Now()) "
SQL = SQL & " order by ordem "
'Retorna um array de dictionary
getDepInvPressReleases = RsToArr(SQL,cnnDef)
end function
function getDepInvDivulgacao()
'Lista Categorias da área de Investidores/Divulgação
dim SQL
SQL = " SELECT nome,departamento_id " & _
" FROM dct_Departamento " & _
" WHERE " & _
" area_id = " & Area_Investidores_Divulgacao_Documentos & " AND " & _
" departamento_id IN (SELECT departamento_id FROM dct_Documento WHERE dtDataIni<=Now() and dtDataFim>=Now()) "& _
" ORDER BY ordem "
'Retorna um array de dictionary
getDepInvDivulgacao = RsToArr(SQL,cnnDef)
end function
function RsToArr(ByVal sql, ByRef conexao)
dim rs
set rs = conexao.execute(sql)
'Caso não enconte nenhum registro retorna empty
if (rs.EOF) then
RsToArr = empty
exit function
end if
'Percorre o recordSet populando o Array com diconários de dados
dim item,i
dim arrReg()
i=0
While not (rs.EOF)
redim preserve arrReg(i)
set arrReg(i) = server.CreateObject("Scripting.Dictionary")
'Cria uma chava para cada coluna do recordset com os dados do registro corrente
for each item in rs.Fields
arrReg(i).Add Ucase(item.name), item.value
next
i=i+1'incrementa contador do Array
rs.MoveNext
wend
'Retorna o Array populado
RsToArr = arrReg
end function
sub inspecArray(x)
dim n_linas,n_colunas, i
if isArray(x) then
n_linas = ubound(x)+1
dim str
str = str & "Inspeção de Array"
str = str & " "
str = str & "
"
str = str & "
"
for each iten in x(i)
n_colunas = x(i).count
str = str & "
O Grupo Light
