Abaixo os Tipos de Movimento de Atos Legais - " & VetData2(0) & "
"
retorno = retorno & "
Deverá ser informado todos os códigos de Tipos de Movimento de Atos Legais separados por vírgula ( , )
"
retorno = retorno & DesenhaLinhaVinculos(3, "trlinhadois cdVinculos", "Tela_" & VetData2(1) & "_TipoAtoAdimissao", true, "0", false, 0)
retorno = retorno & DesenhaLinhaVinculos(3, "trlinhadois cdVinculos", "Tela_" & VetData2(1) & "_TipoAtoNomeacao", true, "0", false, 0)
retorno = retorno & DesenhaLinhaVinculos(3, "trlinhadois cdVinculos", "Tela_" & VetData2(1) & "_TipoAtoExoneracao", true, "0", false, 0)
retorno = retorno & DesenhaLinhaVinculos(3, "trlinhadois cdVinculos", "Tela_" & VetData2(1) & "_TipoAtoDetalhamentoCargo", true, "0", false, 0)
retorno = retorno & DesenhaLinhaVinculos(3, "trlinhadois cdVinculos", "Tela_" & VetData2(1) & "_TipoAtoCessao", true, "0", false, 0)
End If
Next
End If
MontaTiposServidoresGP = retorno
End Function
Private Function MontaUnidadesGestoras
Dim Retorno
retorno = ""
Dim objFuncoes
set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
VetData = Split(objFuncoes.BuscaTdasUgsFinanceira() ,"|")
If Ubound(VetData) > 0 Then
retorno = retorno & DesenhaLinhaSemDescritivo(1, "trlegendadestacada", "Comando_Unidades_Gestoras", true, "Unidades Gestoras")
For x = 0 To Ubound(VetData) - 1
VetData2 = split(vetdata(x), "#")
If (x MOD 2) = 0 Then
retorno = retorno & DesenhaLinhaSemDescritivo(2, "trlinhadois", "Tela_" & CStr(VetData2(2))& "_" & CStr(VetData2(0)), true, VetData2(1))
Else
retorno = retorno & DesenhaLinhaSemDescritivo(2, "trlinhaum", "Tela_" & CStr(VetData2(2)) & "_" & CStr(VetData2(0)), true, VetData2(1))
End If
Next
End If
MontaUnidadesGestoras = retorno
End Function
'Niveis Receita Dinamicos
Private Function MontaEstruturaNiveisReceita(Natureza)
Dim Retorno
Dim objFuncoes
Dim iQtNiveisXML
Dim iQtNiveisDimensoes
Dim iResultado
Dim objNiveis
retorno = ""
iRetornoNiveis = 0
Set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
' Valida a quantidade de niveis do XML
VetDataXML = Split(objFuncoes.RetornaNiveisXML("Tela_" + Natureza) ,"|")
If Ubound(VetDataXML) > 0 Then
For x = 0 To Ubound(VetDataXML)
iQtNiveisXML = x + 1
Next
End If
' Valida a quantidade de niveis da dimensão
VetData = Split(objFuncoes.BuscaEstruturaNiveisReceita() ,"|")
If Ubound(VetData) > 0 Then
For x = 0 To Ubound(VetData)
iQtNiveisDimensoes = x + 1
Next
End If
' Se a dimensão for menor que os níveis do XML então as informações são alteradas
' para que o XML passe a ter a mesma quantidade de níveis da dimensão.
IF (iQtNiveisDimensoes < iQtNiveisXML ) Then
If Ubound(VetData) > 0 Then
For x = 0 To Ubound(VetData)
VetData4 = split(vetdata(x), "#")
If (x MOD 2) = 0 Then
retorno = retorno & DesenhaLinhaNiveis(4, "trlinhadois", "Tela_" & Natureza & x + 1 , true, CStr(VetData4(1)))
Else
retorno = retorno & DesenhaLinhaNiveis(4, "trlinhaum", "Tela_" & Natureza & x + 1, true, CStr(VetData4(1)))
End If
Next
End If
End IF
' Se a quantidade de níveis do XML for menor ou igual as da dimensões
' então ele substitui as informações do XML.
IF (iQtNiveisDimensoes >= iQtNiveisXML ) Then
If Ubound(VetData) > 0 Then
For x = 0 To Ubound(VetData)
VetData2 = split(VetData(x), "#")
' O vetor esta lento do retorno das dimensões para atualizar a descrição do nome
VetDataMudaDescricao = split(vetdata(x), "#")
' Cria o HTML dos niveis
If (x MOD 2) = 0 Then
retorno = retorno & DesenhaLinhaNiveis(4, "trlinhadois", "Tela_" & Natureza & x + 1 , CStr(VetData2(1)), CStr(VetDataMudaDescricao(1)))
Else
retorno = retorno & DesenhaLinhaNiveis(4, "trlinhaum", "Tela_" & Natureza & x + 1, CStr(VetData2(1)), CStr(VetDataMudaDescricao(1)))
End If
Next
End If
End IF
MontaEstruturaNiveisReceita = retorno
End Function
'Niveis Receita Dinamicos
Private Function MontaEstruturaNiveisDespesa(Natureza)
Dim Retorno
Dim objFuncoes
Dim iContador
retorno = ""
iContador = 0
Set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
' Valida a quantidade de niveis da dimensão
VetData = Split(objFuncoes.BuscaEstruturaNiveisDespesa() ,"|")
' Faz a leitura das dimensões - Se a quantidade de niveis da dimensão for
' maior que os niveis do XML a rotina atualiza o HTML com as dimensões faltantes
If Ubound(VetData) > 0 Then
For x = 0 To Ubound(VetData) - 1
VetData3 = split(vetdata(x), "#")
If (x MOD 2) = 0 Then
retorno = retorno & DesenhaLinhaNiveisDespesa(3, "trlinhadois", "Tela_" & Natureza & x + 1 , true, CStr(VetData3(1)))
Else
retorno = retorno & DesenhaLinhaNiveisDespesa(3, "trlinhaum", "Tela_" & Natureza & x + 1, true, CStr(VetData3(1)))
End If
iContador = iContador + 1
if (iContador = 4) then
exit for
end if
Next
End If
MontaEstruturaNiveisDespesa = retorno
End Function
Private Function DesenhaLinha(ordem, classe, id, exibir, texto, temrepeticoes, qtdrepeticoes)
Dim ehtela
ehtela = LCase(Left(id, 5)) = "tela_"
Dim objFuncoes
set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
Dim tela
Set tela = objFuncoes.BuscaTela(ehtela, id)
'if id = "Tela_LotacaoCargos" then
' id = "Gestão de Pessoas / Cargo"
'end if
'if id = "Tela_CargoLotacaoNiveis" then
' id = "Gestão de Pessoas / Lotação"
'end if
If tela.Titulo = id Then
tela.Titulo = texto
tela.Repeticoes = qtdrepeticoes
End If
Dim retorno
retorno = ""
retorno = retorno & "
"
end if
Else
retorno = retorno & " "
End If
retorno = retorno & " "
retorno = retorno & ""
DesenhaLinha = retorno
End Function
Private Function DesenhaLinhaVinculos(ordem, classe, id, exibir, texto, temrepeticoes, qtdrepeticoes)
Dim ehtela
ehtela = LCase(Left(id, 5)) = "tela_"
Dim objFuncoes
set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
Dim tela
Set tela = objFuncoes.BuscaTela(ehtela, id)
'if id = "Tela_LotacaoCargos" then
' id = "Gestão de Pessoas / Cargo"
'end if
'if id = "Tela_CargoLotacaoNiveis" then
' id = "Gestão de Pessoas / Lotação"
'end if
If tela.Titulo = id Then
tela.Titulo = texto
tela.Repeticoes = qtdrepeticoes
End If
Dim retorno
retorno = ""
retorno = retorno & "
"
end if
Else
retorno = retorno & " "
End If
retorno = retorno & " "
retorno = retorno & ""
DesenhaLinhaVinculos = retorno
End Function
Private Function DesenhaLinhaTp(ordem, classe, id, exibir, texto, temrepeticoes, qtdrepeticoes, textoMostrar, numerico, chk, multilinha, txtExibir, maxLen, script)
Dim ehtela
ehtela = LCase(Left(id, 5)) = "tela_"
Dim objFuncoes
set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
Dim tela
Set tela = objFuncoes.BuscaTela(false, id)
'if id = "Tela_LotacaoCargos" then
' id = "Gestão de Pessoas / Cargo"
'end if
'if id = "Tela_CargoLotacaoNiveis" then
' id = "Gestão de Pessoas / Lotação"
'end if
If tela.Titulo = id Then
tela.Titulo = texto
tela.Repeticoes = qtdrepeticoes
End If
If tela.Conteudo = "" Then
tela.Conteudo = texto
End If
Dim retorno
retorno = ""
retorno = retorno & "
"
Else
if numerico then
if txtExibir then
retorno = retorno & " "
else
retorno = retorno & " "
end if
else
if multilinha then
retorno = retorno & " "
else
if txtExibir then
retorno = retorno & " "
else
retorno = retorno & " "
end if
end if
end if
End If
retorno = retorno & " "
retorno = retorno & ""
DesenhaLinhaTp = retorno
End Function
Private Function DesenhaLinhaComTipo(ordem, classe, id, texto, textoDefault, numerico, checkBox, multilinha)
Dim ehtela
ehtela = LCase(Left(id, 5)) = "tela_"
Dim objFuncoes
set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
Dim tela
Set tela = objFuncoes.BuscaTela(ehtela, id)
If tela.Titulo = id Then
tela.Titulo = texto
tela.Repeticoes = qtdrepeticoes
End If
Dim retorno
retorno = ""
retorno = retorno & "
"
if checkBox then
retorno = retorno & " "
end if
retorno = retorno & "
"
retorno = retorno & "
"
if numerico then
retorno = retorno & " "
else
if multilinha then
retorno = retorno & " "
else
retorno = retorno & " "
end if
End If
retorno = retorno & "
"
retorno = retorno & "
"
DesenhaLinhaComTipo = retorno
End Function
Private Function DesenhaLinhaSemDescritivo(ordem, classe, id, exibir, texto)
Dim ehtela
ehtela = LCase(Left(id, 5)) = "tela_"
Dim objFuncoes
set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
Dim tela
Set tela = objFuncoes.BuscaTela(ehtela, id)
If tela.Titulo = id Then
tela.Titulo = texto
tela.Repeticoes = 0
End If
Dim retorno
retorno = ""
retorno = retorno & "
"
If ordem <> 1 Then
retorno = retorno & " "
End If
retorno = retorno & "
"
retorno = retorno & "
"
retorno = retorno & " "
retorno = retorno & "
"
retorno = retorno & "
"
DesenhaLinhaSemDescritivo = retorno
End Function
Private Function DesenhaLinhaNiveisDespesa(ordem, classe, id, exibir, texto)
Dim ehtela
ehtela = LCase(Left(id, 5)) = "tela_"
Dim objFuncoes
set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
Dim tela
Set tela = objFuncoes.BuscaTela(ehtela, id)
Dim retorno
retorno = ""
retorno = retorno & "
"
'Define o Titulo quando a tela não existe no banco de dados nem no arquivo aplicacao.xml
'TODO: Testar quando ele entra na tela se a tela.existe for 'false' qual é o nome do campo texto, e como ele é apresentado no config asp
'pois no codigo alterei para ele colocar '"Receita por" texto', e ver se ao gravar ele vai alterar para 'Receita por 'Texto' ou se vai manter o nome original do 'texto'
'if tela.Existe = false then
' tela.titulo = texto
'end if
retorno = retorno & " "
retorno = retorno & "
"
retorno = retorno & "
"
DesenhaLinhaNiveisDespesa = retorno
End Function
Private Function DesenhaLinhaNiveis(ordem, classe, id, exibir, texto)
Dim ehtela
ehtela = LCase(Left(id, 5)) = "tela_"
Dim objFuncoes
set objFuncoes = Server.CreateObject("TransparenciaBR.Funcoes")
objFuncoes.caminhoAplicacao = Request.ServerVariables("APPL_PHYSICAL_PATH")
objFuncoes.strConn = Config_Source
objFuncoes.strData = "MASTER_DW"
Dim tela
Set tela = objFuncoes.BuscaTela(ehtela, id)
Dim retorno
retorno = ""
retorno = retorno & "
"
'Define o Titulo quando a tela não existe no banco de dados nem no arquivo aplicacao.xml
'TODO: Testar quando ele entra na tela se a tela.existe for 'false' qual é o nome do campo texto, e como ele é apresentado no config asp
'pois no codigo alterei para ele colocar '"Receita por" texto', e ver se ao gravar ele vai alterar para 'Receita por 'Texto' ou se vai manter o nome original do 'texto'
if tela.Existe = false then
tela.titulo = texto
end if
retorno = retorno & " "
retorno = retorno & "