Backend <%=c_empresa%>

<%response.expires=0%> Backend <%=c_empresa%> <% 'CHEQUEA LOS PERMISOS DE LA APLICACION****************************************** id_aplicacion = request("id_aplicacion") accion = request("accion") query = " select permiso from TE_perfil_aplicacion pa, TE_aplicacion a " &_ " where pa.id_aplicacion = a.id_aplicacion " &_ " and pa.id_perfil = '" & trim(session("id_perfil")) & "'" &_ " and a.id_aplicacion = " & id_aplicacion 'Response.Write query 'response.end set rsPermiso = getrs(query,con) permiso = "NNNN" if not rsPermiso.eof then permiso = rsPermiso("permiso") end if set rsPermiso = nothing if trim(permiso) = "NNNN" then%> <%end if 'FIN PERMISOS DE LA APLICACION************************************************** c_titulo = "Indicadores Económicos Diarios" permiso = "SSSS" accion = request("accion") pag = request("pag") if trim(pag) = "" then pag = 0 end if pagina_actual = request("pagina_actual") if pagina_actual = "" then pagina_actual = 1 end if id_indicador_diario = request("id_indicador_diario") fecha = request("fecha") xdia = request("dia") xmes = request("mes") xano = request("ano") if trim(fecha) <> "" then arr_fecha = split(fecha,"/") xdia = arr_fecha(0) xmes = arr_fecha(1) xano = arr_fecha(2) end if valor = request("valor") id_tipo_indicador = request("id_tipo_indicador") publicado = request("publicado") mostrar_resultado = request("mostrar_resultado") orden = request("orden") if trim(orden) = "" then orden = "fecha desc" end if if trim(id_indicador_diario) = "" then id_indicador_diario = 0 %> <%if trim(accion) = "Listar" then%> <%else%> <%end if%>

<% if trim(accion) = "Actualizar" then 'RECORRE LOS INDICADORES query = "select * from TE_Tipo_Indicador where periodo = 'D' order by nombre" set rsP = getrs(query,con) if not rsP.eof then do while not rsP.eof if trim(request("valor_" & rsP("id_tipo_indicador"))) = "" then xvalor = "-" else xvalor = request("valor_" & rsP("id_tipo_indicador")) end if 'Response.Write rsP("nombre") & "--" & xvalor & "

" 'GRABA EL REGISTRO query = "select * from TE_Indicador_Diario where fecha = '" & xmes & "/" & xdia & "/" & xano & "' and id_tipo_indicador = " & rsP("id_tipo_indicador") set rs=GetRs(query,con) if not rs.eof then rs("valor") = xvalor rs("publicado") = publicado rs.update else rs.addnew rs("fecha") = xmes & "/" & xdia & "/" & xano rs("valor") = xvalor rs("id_tipo_indicador") = rsP("id_tipo_indicador") rs("publicado") = publicado rs.update end if rs.close set rs = nothing rsP.movenext loop end if rsP.close set rsP = nothing %> <%end if if trim(accion) = "Eliminar" then query = "delete from TE_Indicador_Diario where fecha = '" & xano & "/" & xmes & "/" & xdia & "'" response.Write query con.execute(query) Response.Write "" end if if trim(accion) = "Grabar" then 'VERIFICA QUE LA FECHA SEA UNICA query = "select * from TE_Indicador_Diario where fecha = '" & xmes & "/" & xdia & "/" & xano & "'" 'response.Write query 'response.End set rsF = getrs(query,con) if not rsF.eof then Response.Write "" response.End end if set rsF = nothing 'RECORRE LOS INDICADORES query = "select * from TE_Tipo_Indicador where periodo = 'D' order by nombre" set rsP = getrs(query,con) if not rsP.eof then do while not rsP.eof if trim(request("valor_" & rsP("id_tipo_indicador"))) = "" then xvalor = "-" else xvalor = request("valor_" & rsP("id_tipo_indicador")) end if 'GRABA EL REGISTRO query = "select * from TE_Indicador_Diario where id_indicador_diario = 0" set rs=GetRs(query,con) if rs.eof then rs.addnew rs("fecha") = xano & "-" & xmes & "/" & xdia rs("valor") = xvalor rs("id_tipo_indicador") = rsP("id_tipo_indicador") rs("publicado") = publicado rs.update end if rs.close set rs = nothing rsP.movenext loop end if rsP.close set rsP = nothing %> <%end if%> <%if trim(accion) = "Nuevo" or trim(accion) = "Editar" then%>

<%if trim(mid(permiso,2,1)) = "S" then%> Agregar | <%end if%> <%if trim(mid(permiso,1,1)) = "S" then%> Listar | <%end if%> Menú

<%=accion%> <%=c_titulo%>

(*) Campos Obligatorios
<%if trim(accion) = "Nuevo" then%> <%else%> <%end if%> <%query = "select * from TE_Tipo_Indicador where periodo = 'D' and publicado = 'S' order by nombre" set rsP = getrs(query,con) if not rsP.eof then do while not rsP.eof 'OBTIENE LOS DATOS SI EL INDICADOR SE ESTA EDITANDO Xvalor = "" if trim(accion) = "Editar" then query = "select * from TE_Indicador_Diario where fecha = '" & xmes & "/" & xdia & "/" & xano & "' and id_tipo_indicador = " & rsP("id_tipo_indicador") set rsV = getrs(query,con) if not rsV.eof then Xvalor = rsV("valor") publicado = rsV("publicado") end if rsV.close set rsV = nothing end if%> <% rsP.movenext loop end if set rsP = nothing %> <%if trim(accion) = "Nuevo" and trim(mid(permiso,2,1)) = "S" then%> <%end if%> <%if trim(accion) = "Editar" then%> <%end if%>

Fecha *	/ /
Fecha *	<%=fecha%>
<%=rsP("nombre")%>	" value="<%=Xvalor%>" size="12" maxlength="10" onblur="trim(this);"> Max. 10 caracteres
Publicado	checked<%end if%>>Si checked<%end if%>>No

<%if trim(mid(permiso,3,1)) = "S" then%> <%end if%> <%if trim(mid(permiso,4,1)) = "S" then%> <%end if%>

<%end if%> <%if trim(accion) = "Listar" then query = "select distinct fecha, publicado from TE_Indicador_Diario order by " & orden set rs=GetRs(query,con)%>

Listado de Indicadores Económicos Diarios

<%if trim(mid(permiso,2,1)) = "S" then%> Agregar | <%end if%> <%if trim(mid(permiso,1,1)) = "S" then%> Listar | <%end if%> Menú

<%if not rs.eof then Rs.movefirst tPageSize = 20 tRecordsProcessed = 0 Rs.PageSize = tPageSize Rs.Move pag contador=0%> <%query = "select * from TE_Tipo_Indicador where periodo = 'D' and publicado = 'S' order by nombre" set rsP = getrs(query,con) if not rsP.eof then do while not rsP.eof%> <%rsP.movenext loop end if set rsP = nothing%> <%if trim(mid(permiso,3,1)) = "S" then%> <%end if%> <%if trim(mid(permiso,4,1)) = "S" then%> <%end if%> <%do while not rs.eof contador = contador + 1 If tRecordsProcessed = tPageSize Then Exit Do If RS.EOF Then exit do tRecordsProcessed = tRecordsProcessed + 1%> <%query = "select * from TE_Tipo_Indicador where periodo = 'D' and publicado = 'S' order by nombre" set rsP = getrs(query,con) if not rsP.eof then do while not rsP.eof 'MUESTRA LOS VALORES query = "select valor from TE_Indicador_Diario where fecha = '" & month(rs("fecha")) & "/" & day(rs("fecha")) & "/" & year(rs("fecha")) & "' and id_tipo_indicador = " & rsP("id_tipo_indicador") set rsV = getrs(query,con) if not rsV.eof then xvalor = rsV("valor") else xvalor = " " end if set rsV = nothing %> <%rsP.movenext loop end if set rsP = nothing%> <%if trim(mid(permiso,3,1)) = "S" then%> <%end if%> <%if trim(mid(permiso,4,1)) = "S" then%> <%end if%> <%rs.movenext Loop%> <%end if%> <% ' Inicio del Paginador If tPageSize > 0 Then If Not fHideNavBar Then if rs.recordcount > tPageSize then%> <%end if End If end If rs.close%>

<%=replace(rsP("nombre")," ","
")%>

<%=day(rs("fecha"))%>/<%=nmes(month(rs("fecha")))%>/<%=year(rs("fecha"))%>

<%=xvalor%>

<%=rs("publicado")%>

/<%=month(rs("fecha"))%>/<%=year(rs("fecha"))%>');">

/<%=month(rs("fecha"))%>/<%=year(rs("fecha"))%>');">

Páginas: <%xpaginas = 0%> <%for pag = 1 to RS.pagecount%> <%if trim(pagina_actual) = trim(pag) then%> <%=pag%> <%else%> <%=pag%> <%end if%> <%xpaginas = xpaginas + tPageSize%> <%next%>

<%end if if trim(accion) = "Buscar" then%>

Buscar <%=c_titulo%>

Fecha *	Formato: dd/mm/aaaa
Valor



<%if trim(mid(permiso,2,1)) = "S" then%> Nuevo \| <%end if%> <%if trim(mid(permiso,1,1)) = "S" then%> Listar \| Buscar \| <%end if%> Menú

<% if trim(mostrar_resultado) = "S" then query = "select distinct fecha, publicado from TE_Indicador_Diario where id_indicador_diario <> 0" if trim(fecha) <> "" then query = query & " and fecha = '" & xmes & "/" & xdia & "/" & xano & "'" end if if trim(valor) <> "" then valor = replace(valor,"'","") query = query & " and (valor like '" & valor & "' or valor like '" & valor & "%' or valor like '%" & valor & "'" & " or valor like '%" & valor & "%')" end if query = query & " order by " & orden 'response.write query 'response.End set rs=GetRs(query,con)%>

Resultado de la Búsqueda <%if not rs.eof then%> <%=rs.recordcount%> Registros Encontrados

<%query = "select * from TE_Tipo_Indicador where periodo = 'D' order by nombre" set rsP = getrs(query,con) if not rsP.eof then do while not rsP.eof%> <%rsP.movenext loop end if set rsP = nothing%> <%if trim(mid(permiso,3,1)) = "S" then%> <%end if%> <%if trim(mid(permiso,4,1)) = "S" then%> <%end if%> <%do while not rs.eof%> <%query = "select * from TE_Tipo_Indicador where periodo = 'D' order by nombre" set rsP = getrs(query,con) if not rsP.eof then do while not rsP.eof 'MUESTRA LOS VALORES query = "select valor from TE_Indicador_Diario where fecha = '" & month(rs("fecha")) & "/" & day(rs("fecha")) & "/" & year(rs("fecha")) & "' and id_tipo_indicador = " & rsP("id_tipo_indicador") set rsV = getrs(query,con) if not rsV.eof then xvalor = rsV("valor") else xvalor = " " end if set rsV = nothing %> <%rsP.movenext loop end if set rsP = nothing%> <%if trim(mid(permiso,3,1)) = "S" then%> <%end if%> <%if trim(mid(permiso,4,1)) = "S" then%> <%end if%> <%rs.movenext Loop%> <%else%> <%end if%> <%end if%>

FECHA	<%=replace(rsP("nombre")," "," ")%>	PUBLICADO
<%=day(rs("fecha"))%>/<%=nmes(month(rs("fecha")))%>/<%=year(rs("fecha"))%>	<%=xvalor%>	<%=rs("publicado")%>	/<%=month(rs("fecha"))%>/<%=year(rs("fecha"))%>');">	/<%=month(rs("fecha"))%>/<%=year(rs("fecha"))%>');">
No existen coindicencias

<%end if con.close set con = nothing %>