%
dim Msg
Msg=""
if request.form("enviado")="true" then
dim rs, rsx, rsr, rsa
consultartabla rs,"USUARIO,COD_PERFIL,COD_EVENTO","TBWB_USUARIOS","USUARIO='"& request.form("txUser") &"' AND CLAVE = '"& request.form("txClave") &"' AND FEC_VIG > CAST("& DATE() &" AS DATETIME)","","",""
if not rs.eof then
session("Perfil")=rs.fields.item("COD_PERFIL").value
session("Evento")=rs.fields.item("COD_EVENTO").value
consultartabla rsx,"DESC_PERFIL,RUTA_PERFIL","TBWB_PERFILES","COD_PERFIL=" & SESSION("Perfil"),"","",""
consultartabla rsr,"RUTA_FORMULARIO","TBWB_RUTAS","COD_EVENTO=" & session("Evento"),"","",""
consultartabla rsa,"RUTA_ADMIN", "TBWB_RUTAS_ADMIN", "COD_EVENTO = " & session("Evento") & " AND COD_PERFIL = " & session("Perfil"),"","",""
if not rsr.eof then
session("RutaFRM")=rsr.fields.item("RUTA_FORMULARIO")
end if
if not rsx.eof and session("RutaFRM")<> "" then
'escribir rsx.fields.item("RUTA_PERFIL"),"01.txt"
' ya rsa.fields.item("RUTA_ADMIN")
session("DescPerfil")=rsx.fields.item("DESC_PERFIL")
response.Redirect(rsa.fields.item("RUTA_ADMIN"))
else
Msg="Problemas con el servidor, por favor contactese con el administrador de la página"
end if
else
Msg="Usuario o clave incorrectas, por favor intente de nuevo"
end if
end if%>
<%
if request.Form("Formulario") <> "true" then
if request.form("Buscar")="true" and request.form("txtBusqueda") <>"" then
session("Frase") = request.form("txtBusqueda")
response.Redirect("Resultados_Busqueda.asp")
end if
end if
%>
.: Módulo de Reportes - Sistema Celta - Goldentech Ltda.
|
|
|
|
| |
<< Ver anterior módulo: Archivo CELTA ® |
|
|
| |
|
| MODULO DE REPORTES |
|
| |
|
La generalidad de los reportes del Sistema CELTA® se encuentran centralizados en este módulo. El sistema permite seleccionar módulos, submódulos y funcionalidades para desplegar los informes asociados. Al realizar una selección, se carga la información en un reporte en Cristal Reports, que en gran parte de los casos permite ingresar diversos parámetros amplían su funcionalidad. |
|
| |
|
| |
<< Ver anterior módulo: Archivo CELTA ® |
|
|
|
|
| |
|
|
|
|
|
|
Ultima actualización: <%response.write(date)%> |
|
|
|
| |
|
|
|
|
|
|
|
|
|