Aplicaciones prácticas de TI en el centro de trabajo (página 3)

Enviado por Jes�s Humberto Mart�nez Obreg�n

Partes: 1, 2, 3, 4

Observaciones: Este programa tiene una rutina en PHP y cuenta con una base de datos para la recopilación de estos datos.

– Encabezado

– Parte Izquierda

– Parte central

<td>

<fieldset> .:Contáctanos:.</fieldset>

Escribenos tus comentarios para saber tus inquietudes o proporcionarte información y comunicarnos contigo.

Para nosotros es importante tu opinión y estar cerca de la gente.

<tr><td style="width: 240px; height: 25px;">Nombre:</td><td style="height: 25px; width: 332px;"><input type="text" name="nombre" size=45> </td>

<tr><td style="width: 240px; height: 25px;">Direccion:</td><td style="height: 25px; width: 332px;"><input type="text" name="direcc" size=45></td>

<tr><td style="width: 240px; height: 20px">Teléfono:</td><td style="height: 20px; width: 332px;"><input type="text" name="tel" size=10> </td>

<tr><td style="width: 240px">Correo Electrónico: <td style="width: 332px">

Comentarios:

</form>

<legend>Enlaces de Interés</legend>

&nbsp &nbsp <a href="http://www.sep.gob.mx" Target="_blank"><img src="sep1.gif" heigth="165" width="130" border=0></a>

&nbsp &nbsp<a href="http://www.conevyt.org.mx" Target="_blank"><img src="conevyt.gif" heigth="180" width="128" border=0></a>

&nbsp &nbsp<a href="http://www.inea.gob.mx" Target="_blank"><img src="inea.gif" heigth="180" width="128" border=0></a></marquee>

</fieldset>

</td>

Programa para guardar los datos en la base de datos.

Nombre de programa: contacto.php

Descripción: Rutina de PHP para guardar los datos en una base de datos.

Fecha de creación: 20/03/2008.

– Encabezado

– Parte Izquierda

– Parte central

<td>

<fieldset> .:Contactanos:.</fieldset>

La Información ha sido Enviada, nos Comunicaremos contigo en breve…..

<?php

//Establecer Conexion con la BD

$conex=odbc_connect("comentarios","usr"," ") or die('No se realizó Conexión');

//Insertar datos en la tabla

$nom = strtoupper($_POST['nombre']);

$dom = strtoupper($_POST['direcc']);

$tel = $_POST['tel'];

$mail = $_POST['email'];

$texto = strtoupper($_POST['texto']);

$fdia=date("d");

$fmes=date("m");

$fanio=date("Y");

$cons = "INSERT INTO comentarios VALUES(' $nom ',' $dom ',' $tel ',' $mail ',' $texto ',' $fdia ',' $fmes ',' $fanio ')";

//Ejecutar sentencia SQL

$resultado=odbc_exec($conex, $cons);

echo "Se Agregó con éxito: ";

echo strtoupper($_POST['nombre'])," ";

odbc_close($conex);

<legend>Enlaces de Interés</legend>

&nbsp &nbsp <a href="http://www.sep.gob.mx" Target="_blank"><img src="sep1.gif" heigth="165" width="130" border=0></a>

&nbsp &nbsp<a href="http://www.conevyt.org.mx" Target="_blank"><img src="conevyt.gif" heigth="180" width="128" border=0></a>

&nbsp &nbsp<a href="http://www.inea.gob.mx" Target="_blank"><img src="inea.gif" heigth="180" width="128" border=0></a>

</marquee>

</fieldset>

</td>

– Directorio, este despliega información del Staff y teléfono del instituto.

Página Directorio

Nombre de archivo: direct.htm

Descripción: Muestra información del staff y teléfono del instituto.

Fecha de creación: 20/03/2007

Observaciones: Este programa tiene una rutina en PHP y cuenta con una base de datos para la recopilación de estos datos.

– Encabezado

– Parte Izquierda

– Parte central

<td>

<fieldset><center> .:Directorio:.</center></fieldset>

Teléfonos:

<ul>

<li>(844) 438-69-00

</ul>

<fieldset><center>.:Staff:.</center></fieldset>

Profr. Víctor Manuel Zamora Rodríguez.

Director General.

Lic. Carlos Alejandro Robles.

Director de Acreditación y Sistemas.

Profr. Carlos A. Castillo Garza.

Director de Operación.

Lic. Rodolfo de León Salas

Director de Administración

C.P. Rubén González Rodríguez

Director de Planeación

<legend>Enlaces de Interés</legend>

&nbsp &nbsp <a href="http://www.sep.gob.mx" Target="_blank"><img src="sep1.gif" heigth="165" width="130" border=0></a>

&nbsp &nbsp<a href="http://www.conevyt.org.mx" Target="_blank"><img src="conevyt.gif" heigth="180" width="128" border=0></a>

&nbsp &nbsp<a href="http://www.inea.gob.mx" Target="_blank"><img src="inea.gif" heigth="180" width="128" border=0></a></marquee>

</fieldset>

</td>

- Mapa del Sitio, este muestra un acceso directo a cualquier parte del sitio web.

Página Directorio

Nombre de archivo: direct.htm

Descripción: Muestra información del staff y teléfono del instituto.

Fecha de creación: 20/03/2007

Observaciones: Este programa tiene una rutina en PHP y cuenta con una base de datos para la recopilación de estos datos.

– Encabezado

<!– URL's used in the movie–>

<!– text used in the movie–>

<!–INSTITUTO ESTATAL DE EDUCACION PARA ADULTOSPor un Coahuila sin Rezago Educativo–><OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"

WIDTH="685" HEIGHT="120" id="cabecera" ALIGN="top">

<PARAM NAME=movie VALUE="cabecera.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=scale VALUE=exactfit> <PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED src="cabecera.swf" quality=high scale=exactfit bgcolor=#FFFFFF WIDTH="550" HEIGHT="105" NAME="cabecera" ALIGN="top"

TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>

</OBJECT>

<td>

<center>.:Mapa del Sitio:.</center>

</fieldset>

<tr bgcolor="gray"><th>Vistitantes</th><th>Educandos</th><th>Herramientas</th><th>Noticias</th><th>Enlaces de Interés</th></tr>

<li> <a href="acerca.htm" style="color:black">Acerca de IEEA</a>

<li> <a href="mision.htm" style="color:black">Misión y Visión</a>

<li> <a href="programas.htm" style="color:black">Programas y Servicios</a>

<li> <a href="pcom.htm" style="color:black">Pl@zas Comunitarias</a>

<li> <a href="czonas.htm" style="color:black">Coordinaciones de Zona</a>

</ul></td>

<li> <a href="http://www.conevyt.org.mx/cursos/" style="color:black" target="_blank">Módulos INEA</a>

<li> <a href="http://bibliotecadigital.conevyt.org.mx" style="color:black" target="_blank">Biblioteca Digital</a>

<li> <a href="http://adcursos.inea.gob.mx/inea/" style="color:black" target="_blank">Exámenes en Línea</a>

<li> <a href="http://www.sec-coahuila.gob.mx/edu_media/edu_media_index.htm" style="color:black" target="_blank">¿Dónde puedo seguir estudiando?</a>

</ul> </td>

<li> <a href="encab.htm" style="color:black" target="_blank">Búsquedas de Históricos</a>

<li> <a href="actas.htm" style="color:black" target="_blank">Actas de Nacimiento</a>

<li> <a href="foto.htm" style="color:black" target="_blank">Fotografía de Educando</a>

<li> <a href="http://www.sasa.inea.gob.mx" style="color:black" target="_blank">SASA en Línea</a>

</ul> </td>

<td> <a href="noticias.htm" style="color:black">Entrar a esta Sección</a></td>

<li> <a href="http://www.coahuila.gob.mx" style="color:black" target="_blank">Gobierno del Estado de Coahuila</a>

<li> <a href="http://www.sep.gob.mx" style="color:black" target="_blank">Secretaría de Educación Pública</a>

<li> <a href="http://www.conevyt.org.mx" style="color:black" target="_blank">CONEVyT</a>

</ul> </td>

</tr>

<tr bgcolor="gray"><th><a href="inicio.htm" style="color:black">Inicio</a></th>

<th><a href="contacto.htm" style="color:black">Contáctanos</a></th>

<th><a href="direct.htm" style="color:black">Directorio</a></th><th><——Menú Principal</tr>

</table>

</td>

Aquí se da fin al diseño, este mismo es remitido para su revisión y autorización por parte de Dirección General.

1.3 Selección y configuración del servidor web.

Ya una vez autorizado el diseño de la página web se procede a seleccionar el equipo servidor para hospedar el nuevo sitio web. De los equipos con los que se cuenta dentro del instituto se seleccionó un servidor marca IBM que cuenta con dos procesadores Pentium Xeon de 700 Mhz cada uno, 1 Gigabyte de memoria RAM, CD-Rom, unidad de respaldo, disco duro de 80 GB, con Windows 2000 Server como sistema operativo.

Una vez seleccionado se depuró la información que hay dentro de este para optimizar recursos y espacio en el disco duro, se procedió a configurar el programa para servir la página web IIS (Internet Information Service) y crear el DNS (Dynamic Name System) con el cual se dará a conocer el nombre de dominio para la página el cual es http://coahuila.inea.gob.mx (además este mismo es proporcionado por Oficinas Centrales de INEA en México, D.F.); además como la red de datos del instituto depende de la red nacional de INEA se procedió a realizar el trámite para la liberación de salida para el servidor a Internet.

La configuración se realizó de la siguiente manera:

- Se instaló la característica de IIS (Internet Information Service) dentro del Sistema operativo del servidor.

- En la configuración se determina el directorio que contendrá el sitio web, así como establecer el documento con el cual iniciará el servicio, permisos de acceso y dirección IP del servidor que se utiliza para el servicio de Internet.

- El Servicio DNS también tiene que agregarse, para configurar se proporciona al programa la dirección IP, el directorio donde se encuentra la información del sitio web y la máscara con la que se desea ingresar al sitio (nombre de la página) en este caso fue "coahuila.inea,gob.mx".

- Después se copian los archivos que componen el sitio web dentro del servidor, incluyendo las bases de datos de apoyo, rutinas y documentos de hipertexto.

1.4 Implementación.

Una vez liberado el servicio por parte de INEA la página web está lista para operar. Ya que por cuestiones de seguridad dentro de la red nacional se deben registrar las direcciones que tiene el acceso de salida a Internet para su supervisión por medio de su firewall principal. En este caso como no se tenía un sitio anterior su implementación fue directa.

Ademas la actualización para la sección de noticias, la información será enviada a la oficina de informática por medio de correo electrónico por parte de la Coordinación de Difusión Educativa de IEEA.

2. Implementación de aplicaciones auxiliares para apoyo en la operación

1.2. Planteamiento y Análisis de requerimientos.

Dentro de las actividades del IEEA una de ellas es la incorporación de adultos para que concluyan su educación básica dentro de este sistema de educación. Una de las problemáticas que se presenta muy a menudo al realizar la incorporación es la incidencia de educandos duplicados, es decir, adultos que se inscribieron en años anteriores, vuelven a ser incorporados nuevamente en otra base de datos de cualquiera de las 21 coordinaciones existentes, o sea si un adulto se inscribió en 1998 Saltillo, Coah. , pero este mismo se cambió a Monclova, Coah. y se vuelve a incorporar en el 2008, dentro de esta situación se encuentra que tienen por lógica dos certificados emitidos en distintas ciudades y esto no es correcto. Por lo que se procedió a realizar un análisis para evitar estas duplicidades antes de poder capturar los adultos dentro del Sistema de Acreditación y Seguimiento Automatizado (SASA). Por otro lado también se pide una aplicación para consulta de actas de nacimiento, ya que dentro del sistema SASA se puede registrar un cotejo digital para que si el educando con cuenta con copia de su acta de nacimiento que es un documento requerido para incorporarse dentro de INEA así como para su trámite de certificación. Por lo que en un convenio con la Dirección Estatal del Registro Civil del Estado de Coahuila, se obtuvo una base de datos de esta documentación y también será incluida dentro de este conjunto de programas de apoyo para la operación.

En un principio se implementaron unas aplicaciones con bases de datos locales que contienen la siguiente información:

- Base de datos en formato DBF con información de los certificados emitidos por INEA e IEEA del año 1981 a 2001.

- Base de datos en formato DBF con información de los certificados emitidos por la Secretaría de Educación del Estado de Coahuila de 1998 a 2007; proporcionada por esta misma instancia.

- Base de datos en formato DBF con información de educandos que concluyeron nivel en IEEA de 1997 a 2008, esta base de datos se actualiza mensualmente con la información del mes inmediato anterior mediante el sistema SASA.

- Base de datos en formato DBF con información de las actas de nacimiento del Estado de Coahuila de Zaragoza, México de 1920 a 2007.

Como se comentaba anteriormente de estas bases de datos se realizaron 3 aplicaciones que funcionaban a nivel local en cada una de las 21 coordinaciones de zona, esto a veces traía un desfase en la información de hasta más de 2 meses, ya que por la carga de trabajo de los encargados del sistema en ocasiones no se actualizaba. Por lo que se acordó aprovechar las implementaciones recientes de TI, como la página web; la idea es realizar un buscador de estos educandos en las 3 bases de datos proporcionadas con el fin de evitar estas duplicidades.

Cada base de datos cuenta con información vital para determinar la captura del educando, contienen nombre del educando, folio de certificado, promedio. Pero deben presentarse datos particulares que presentan también las 3 bases de datos.

Las búsquedas dentro de las aplicaciones con las que se cuentan son programas que buscan una búsqueda por medio del nombre para poder realizar la consulta, después tienen que entrar a otro programa y volver a realizar la búsqueda y así también con la tercera aplicación., por lo que se pide que la información aparezca en una sola búsqueda.

Una vez recopilada esta información se procede al diseño y desarrollo de la aplicación de apoyo.

2.2 Diseño

En cuanto al diseño según la recopilación de los datos se procede a ver la información de las bases de datos con las que se cuenta actualmente, de las cuales se expondrá el diseño existente para después realizar el diseño de las pantallas.

Las tablas existentes son las siguientes:

Una vez establecidas las bases de datos estas trabajarán por medio de una conexión DSN (Data Source Name) de sistema para establecer la comunicación de las bases de datos con los programasque se realizarán.

La configuración para las bases de datos se realiza de la siguiente manera:

Se entra al panel de control de Microsoft Windows, en la sección de "Herramientas administrativas", después se entra a la sección de "Orígenes de Datos (ODBC)", se selecciona la pestaña de "DSN de Sistema", se hace clic en el botón de agregar, seleccionar Microsoft Visual Fox Pro Driver, se proporciona el nombre de la conexión y la ruta en donde se encuentran las bases de datos y se selecciona que se van a utilizar tablas libres (en la gráfica puede verse en las áreas marcadas en rojo); con esto se establece la comunicación entre el lenguaje de programación VBScript y las bases de datos.

Las pantallas se realizarán de la siguiente manera:

Para las búsquedas de los educandos estas contarán con:

- Encabezado de la página.

- Fecha actual.

- Selector para la base de datos que se desea consultar.

- Cuadro de texto para proporcionar el nombre para consulta, esta puede ser por apellidos o por nombres.

- Botón para ejecutar la búsqueda.

- Pie de página.

La pantalla de los resultados de la búsqueda de educandos contendrá lo siguiente:

- Encabezado de página.

- Fecha Actual.

- Resultado en tabla para desplegar la información

- Liga para regresar a realizar una nueva búsqueda

- Pie de página.

Para la aplicación de la búsqueda para actas de nacimiento la pantalla contendrá:

- Encabezado de página.

- Fecha actual.

- Cuadro de texto para ingresar nombre de la persona.

- Botón para activar la búsqueda.

- Pie de Página.

La pantalla de los resultados de la búsqueda de actas de nacimeinto contendrá lo siguiente:

- Encabezado de página.

- Fecha Actual.

- Resultado en tabla para desplegar la información

- Liga para regresar a realizar una nueva búsqueda

- Pie de página.

Los diseños resultantes se pueden ver en las siguientes ligas:

- Para "Búsqueda de Educandos", http://coahuila.inea.gob.mx/encab.htm

- Para "Búsqueda de Actas de Nacimiento" http://coahuila.inea.gob.mx/actas.htm

Además estas ligas están disponibles dentro de la página http://coahuila.inea.gob.mx en la sección de Herramientas.

2.3 Selección de lenguaje de programación y manejador de bases de datos.

En cuanto a la selección del lenguaje de programación para realizar las rutinas de datos y por la facilidad de compatibilidad con las bases de datos proporcionadas se optó por seleccionar el lenguaje de programación por scripts nativo en el sistema operativo Microsoft Windows VBScript (Visual Basic Script) con archivos ASP (Active Server Page), con ello también se cubre la recomendación de utilizar recursos que no generen una inversión económica.

Además se utilizará alternamente el manejador de bases de datos Microsoft Visual Fox Pro para actualizar las bases de datos y así poder realizar procesos para el mantenimiento de estas mismas.

2.4 Desarrollo.

Ahora se muestra el desarrollo del código de las páginas y rutinas que se utilizarán para estas herramientas.

Sistema de Búsquedas de Apoyo.

Interfaz para iniciar búsqueda de educandos.

Nombre de Archivo: encab.htm

Descripción: Programa para interfaz de entrada de datos para búsqueda de educandos.

Fecha de creación: 18/08/2008

Observaciones: este se apoya en una rutina en VBScript para realizar la consulta de los datos.

– Fecha Actual

– Encabezado

– Parte central

Base de Datos:<select name=elige>

<option value="1">Históricos de INEA de 1981-2002

<option value="2">Históricos de SEyC 1995-2007

<option value="3">Históricos de UCN's SASA

</select>

Nombre:<Input name=busca size=45>

Teclea el Nombre del educando empezando por los apellidos, Última actualización UCN's hasta el mes de Julio 2008

</Marquee>

</table>

ÃŸPie de Páginaá

Programa ASP para búsqueda de educandos.

Nombre de archivo: busca.aspx

Descripción: Programa con rutina para la búsqueda de los educandos en las bases de datos de IEEA.

Fecha de creación: 18/08/2008.

ÃŸ Fecha Actual á

ÃŸ Encabezado á

ÃŸ Parte central á

<td>

<center>.:Búsqueda de Educandos—->Resultados:.</center>

</fieldset>

<%@ Page Language="VBScript" Debug="true" %>

Dim conn,sconn,sgrid

Dim Rst,comm,szona

Dim i,semision,sprom,setapa,smodelo,ssubpro

Dim ins,snombre,sfolio,scurp,scadena,snivel,scoord,srfe,srfc,tdnombre,scirest

Dim sperclave

Dim v_sel

Dim fcon,fent,fcan

scadena=ucase(request.form("busca"))

v_sel=request.form("elige")

select Case v_sel

Case 1

v_sel=request.form("elige")

i=0

conn=CreateObject("ADODB.Connection")

conn.open=("DSN=plantilla")

comm=CreateObject("ADODB.Command")

Rst=CreateObject("ADODB.RecordSet")

comm.CommandText="Select * from bdhisinea where nlargo like '%"& scadena &"%' Order by nlargo"

comm.ActiveConnection = conn

Rst=comm.execute

On Error Resume Next

Rst.movefirst %>

<tr bgcolor="green"><th>Folio</th><th>Nombre</th><th>Nivel</th><th>Emisión</th><th>Coordinación</th></tr>

Do while Not Rst.Eof

i=i+1

semision=0

sfolio=rst.fields("folio").value

snombre=rst.fields("nlargo").value

snivel=rst.fields("nivel").value

semision=rst.fields("emision").value

scoord=rst.fields("coordinaci").value %>

Rst.Movenext

Loop

Err.Clear

if i=0 then

Response.write("No se Encontraron Coincidencias…………")

End If

<%Case 2

v_sel=request.form("elige")

i=0

conn=CreateObject("ADODB.Connection")

conn.open=("DSN=plantilla")

comm=CreateObject("ADODB.Command")

Rst=CreateObject("ADODB.RecordSet")

comm.CommandText="Select * from cert0006 where nomlargo like '%"& scadena &"%' Order by nomlargo"

comm.ActiveConnection = conn

Rst=comm.execute

On Error Resume Next

Rst.movefirst %>

<tr bgcolor="green"><th>Folio</th><th>Curp</th><th>Nombre</th><th>Nivel</th><th>Periódo</th><th>Promedio</th></tr>

Do while Not Rst.Eof

i=i+1

semision=0

sfolio=rst.fields("cer_folio").value

scurp=rst.fields("curp").value

snombre=rst.fields("nomlargo").value

snivel=rst.fields("nivel").value

sperclave=rst.fields("per_clave").value

sprom=rst.fields("reg_promed").value %>

Rst.Movenext

Loop

Err.Clear

if i=0 then

Response.write("No se Encontraron Coincidencias…………")

End If

<%Case 3

v_sel=request.form("elige")

i=0

conn=CreateObject("ADODB.Connection")

conn.open=("DSN=plantilla")

comm=CreateObject("ADODB.Command")

Rst=CreateObject("ADODB.RecordSet")

comm.CommandText="Select * from bducn where nombre like '%"& scadena &"%' Order by nombre"

comm.ActiveConnection = conn

Rst=comm.execute

On Error Resume Next

Rst.movefirst %>

<tr bgcolor="green"><th>C.Zona</th><th>Folio</th><th>Rfe</th><th>Nombre</th><th>Etapa</th><th>Modelo</th><th>Subproy</th><th>C. Estudio</th><th>Conclusión</th><th>Entrega</th><th>Cancelado</th><th>Téc. Docente</th><td>Rfc</td> </tr>

Do while Not Rst.Eof

i=i+1

szona=0

semision=0

setapa=0

smodelo=0

ssubpro=0

szona=rst.fields("cveczona").value

sfolio=rst.fields("folio").value

scurp=rst.fields("crfe").value

snombre=rst.fields("nombre").value

setapa=rst.fields("cveetapa").value

smodelo=rst.fields("cvemodelo").value

ssubpro=rst.fields("cvesubpro").value

scirest=rst.fields("cvecirest").value

fcon=rst.fields("fconcluye").value

fent=rst.fields("fentrega").value

fcan=rst.fields("fcancela").value

tdnombre=rst.fields("nombretd").value

srfc=rst.fields("crfc").value%>

<td><% if year(fent)>1899 then

response.write(day(fent) & "/" & month(fent) & "/" & year(fent))

Else

response.write("Sin Fecha")

End If %></td>

<td><%

if year(fcan)>1899 then

response.write(day(fcan) & "/" & month(fcan) & "/" & year(fcan))

Else

Response.write("Sin Fecha")

End If%></td>

Rst.Movenext

Loop

Err.Clear

if i=0 then

Response.write("No se Encontraron Coincidencias…………")

End If

End Select

Rst.Close

Conn.close

<a href="encab.htm"> NUEVA BÚSQUEDA </a>

</table>

</td>

Programa de interfaz para búsqueda de actas de nacimiento.

Nombre de archivo: actas.htm

Descripción: Programa de interface para introducir datos para búsqueda de acta de nacimiento.

Fecha de creación: 20/08/2008

Observaciones: este programa se apoya en una rutina ASP en VBScript para la búsqueda de actas de nacimiento en la base de datos proporcionada por la Dirección Estatal del Registro Civil del Estado de Coahuila.

ÃŸ Fecha actual á

ÃŸ Encabezado á

ÃŸ Parte Central á

<td>

<center>.:Búsqueda de Actas de Nacimiento—->SISTEMA:.</center>

</fieldset>

<center> Nombre:<Input name=busca size=45><center>

Teclea el Nombre del educando empezando por los apellidos, Para buscar con la letra Ñ o ñ sustituyela por un %

</Marquee>

</Center>

</table>

</td>

ÃŸ Pie de página á

Programa de rutina para busqueda en base de datos de actas de nacimiento.

Nombre de archivo: actas.aspx

Descripción: Rutina para búsqueda de actas de nacimiento en base de datos del registro civil.

Fecha de creación: 20/08/2008.

ÃŸ Fecha Actual á

ÃŸ Encabezado á

ÃŸ Parte central á

<td>

<center>.:Búsqueda de Actas de Nacimiento—->Resultados:.</center>

</fieldset>

<%@ Page Language="VBScript" Debug="true" %>

Dim conn,sconn,sgrid

Dim Rst,comm

Dim i,semision,sent

Dim ins,snombre,sloc,scurp,scadena,scont,ssexo,slibro

Dim sfecha

Dim sacta,shoja

scadena=ucase(request.form("busca"))

i=0

conn=CreateObject("ADODB.Connection")

conn.open=("DSN=plantilla")

comm=CreateObject("ADODB.Command")

Rst=CreateObject("ADODB.RecordSet")

comm.CommandText="Select * from ieea_nac where nlargo like '%"& scadena &"%' Order by nlargo"

comm.ActiveConnection = conn

Rst=comm.execute

On Error Resume Next

Rst.movefirst %>

<tr bgcolor="green"><th>CURP</th><th>Nombre</th><th>Acta</th><th>Hoja</th><th>Libro</th><th>fecha</th><th>Sexo</th><th>Entidad</th><th>Localidad</th><th>País</th></tr>

Do while Not Rst.Eof

i=i+1

semision=0

scurp=rst.fields("CURP").value

snombre=rst.fields("nlargo").value

sacta=rst.fields("nacta").value

shoja=rst.fields("hoja").value

sfecha=rst.fields("fnac").value

sloc=rst.fields("localidad").value

scont=rst.fields("nacion").value

sent=rst.fields("entidad").Value

ssexo=rst.fields("sexo").value

slibro=rst.fields("libro").value %>

<td><% Select case sent

case 1

response.write("AGUASCALIENTES")

case 2

response.write("BAJA CALIFORNIA")

Case 3

response.write("BAJA CALIFORNIA SUR")

Case 4

response.write("CAMPECHE")

Case 5

response.write("COAHUILA")

case 6

response.write("COLIMA")

case 7

response.write("CHIAPAS")

case 8

response.write("CHIHUAHUA")

case 9

response.write("DISTRITO FEDERAL")

case 10

response.write("DURANGO")

case 11

response.write("GUANAJUATO")

case 12

response.write("GUERRERO")

case 13

response.write("HIDALGO")

case 14

response.write("JALISCO")

case 15

response.write("MEXICO")

case 16

response.write("MICHOACAN")

case 17

response.write("MORELOS")

case 18

response.write("NAYARIT")

case 19

response.write("NUEVO LEON")

case 20

response.write("OAXACA")

case 21

response.write("PUEBLA")

case 22

response.write("QUERETARO")

case 23

response.write("QUINTANA ROO")

case 24

response.write("SAN LUIS POTOSI")

case 25

response.write("SINALOA")

case 26

response.write("SONORA")

case 27

response.write("TABASCO")

case 28

response.write("TAMAULIPAS")

case 29

response.write("TLAXCALA")

Case 30

response.write("VERACRUZ")

case 31

response.write("YUCATAN")

case 32

response.write("ZACATECAS")

case 0

response.write("S/N")

End Select %></td>

<td><% If scont=223

response.write("MEXICO")

Else

response.write("E.U.A.")

End If

%></td></tr>

Rst.Movenext

Loop

Err.Clear

if i=0 then

Response.write("No se Encontraron Coincidencias…………")

End If

rst.close

conn.close

<a href="actas.htm"> NUEVA BÚSQUEDA </a>

</table>

</td>

ÃŸPie de página á

2.4 Implementación.

Como se comentó al principio ya se contaba con aplicaciones a nivel local en cada coordinación de zona, al terminar estas aplicaciones se publicaron dentro de la página web http://coahuila.inea.gob.mx en la sección de "Herramientas". Además se dió aviso a las coordinaciones de zona que dejen de operar los programas locales para que se utilicen las nuevas búsquedas por medio de la página web, aquí la implementación se tuvo que realizar por sustitución directa ya que la información de las bases de datos de las aplicaciones locales no se encuentra actualizada; esto en cuanto a los de búsquedas de educandos.

La implementación para la búsqueda de actas es directa ya que de esta no existía una aplicación previa de este tipo.

Por otro lado para la actualización de la información será de la siguiente manera:

- Para las bases de datos de adultos que concluyeron por IEEA, la acutalización será al finalizar el cierre mensual dentro del sistema SASA. Esta será enviada a la oficina de informática para realizar la acutalización de la información.

- Para la base de datos de la Secretaría de Educación Pública de Coahuila se realizará por medio de información que esta instancia envíe al término de cada ciclo escolar y remitida a informática para incluírla en sus bases de datos.

- Para las actas de nacimiento, se tiene que requerir la información por parte de la Dirección General de IEEA a la Dirección Estatal del Registro Civil, pero esta será periódica, ya que la normatividad de INEA permite solo personas mayores de 15 años. Al recibirla será remitida a informática para realizar la actualización de la base de datos.

3. Implementación de aplicación para actualización y consulta de plantilla de personal

3.1 Problemática y analisis de requerimientos.

Una de las áreas que cuenta con problemas de información es la Subdirección de Personal del IEEA en la cual al pedir información a cerca de los expedientes de los trabajadores así como su ubicación dentro de la institución, no se contaba con ella y de los que se encontraban no tenían su información actualizada en cuanto a datos personales, datos laborales, sueldos mensuales, no se cuenta con fotografías de los empleados. Además dentro del instituto se hace el pago de los trabajadores por medio de cuatro rubros de nómina los cuales son:

- INEA: por este rubro se realiza el pago a personas que cuentan con una plaza de base o confianza enviada por la federación.

- Patronato: Compsensación por gratificación como promotor de apoyo en la operación del IEEA.

- Honorarios: Rubro con el cual se paga a empleados que perciben gratificación por este tipo de pago.

- Burócrata: Pago expedido por el Gobierno del Estado de Coahuila para pagar al personal al servcio de este.

Además no se contaba con un registro de los empleados que perciben por más de dos rubros de nómina, vigentes dentro del instituto.

Se tuvo una reunión con el departamento de informática para exponer esta situación, con el fin de elaborar una solución con una aplicación para organizar esta información, que es de vital importancia dentro del instituto.

Dentro del análisis de requerimientos pidió que el sistema contara con lo siguiente:

- Datos personales del empleado que a continuación se mencionan: CURP (Clave única de registro de población), apellido paterno, materno, nombre, domicilio, colonia, Ciudad y Estado, Código postal, familiar directo (en caso de accidente), teléfono y fotografía.

- En cuanto a datos laborales se requiere: Área de adscripción, departamento, clave de plaza burócrata (si cuenta con pago por este rubro), puesto que ocupa el empleado, sueldo que percibe el empleado por cada rubro de nómina y su total mensual.

- El sistema debe contar con la posibilidad de realizar, modificaciones a los datos anteriores, eliminar información, presentar un listado del personal de cada área de adscripción por departamento, agragar empleados de nuevo ingreso.

- Una interfase para realizar solamente búsquedas por nombre del empleado ya que esta interfase va a ser utilizada por el Director General y el Director de Administración.

Dentro de estas características se pidió que el sistema no fuera hecho para interfase por Internet si no que se diseñe para utilizarlo solamente en la red local con acceso solamante para el Director General, Director de Administración y Subdirección de Personal.

Ya establecidos los requerimeintos se realizará el diseño del sistema.

3.2 Diseño

Para el diseño de este sistema se cuenta con el programa manejador de bases de datos Microsoft Visual Fox Pro ver 7.0 Profesional, ya que este además de ofrecer el manejo de estas, también ofrece herramientas para diseño de pantallas y ademas de ello programar cada rutina dentro de los objetos que se utilicen para el módulo.

En primer lugar se realizará el diseño de las bases de datos; las cuales se muestran a continuación:

Dentro del diseño de pantallas de la aplicación esta contará con los siguientes módulos:

Consulta de Empleados. Con este programa se reaizará la consulta de datos de los empleados esta interfase contará con:

- Cuadro de texto para realizar la consulta por nombre del empleado.

- Tabla donde se muestran los nombres de los empleados

- La vista principal contentdrá los datos laborales, así como sueldos percibidos

- Botón para mostrar los datos personales del empleado.

- Boton para salir del módulo.

- Debe mostrarse la fotografía del empleado.

Captura de Plantilla de Personal. Dentro de este programa se realizarán las altas, cambios y modificaciones para el sistema; contará con lo siguiente:

- Cuadro de texto para búsquedas por CURP (clave única de registro de población).

- Cuadros de texto para búsquedas por los apellidos del empleado.

- Tabla donde se mostrarán CURP, apellidos y nombre.

- Cuadro de pestañas la primera para captura de los datos personales y la segunda para los datos laborales.

- Botones de control para agregar, modificar, eliminar, guardar cambios y adjuntar fotografía.

- Área para ver la fotografía del empleado.

- Botón para salir del módulo.

Pestaña para datos laborales.

Catálogo de Adscripciónes. Este programa es para almacenar cada uno de las adscripciones existentes en el instituto, contiene:

- Tabla para visualizar las adcripciones.

- Cuadros de texto para captura de la información

- Botones para agregar, modificar, eliminar, guardar cambios, salir del módulo.

Catálogo de Departamentos. Este programa es para almacenar cada uno de departamentos existentes en el instituto, contiene:

- Tabla para visualizar las adcripciones.

- Cuadros de texto para captura de la información

- Lista para seleccionar la adscripción a la que pertenece el empleado.

- Botones para agregar, modificar, eliminar, guardar cambios, salir del módulo.

Catálogo de Plaza Burócrata. Este programa es para almacenar cada una de las claves de plaza burócrata disponibles para el instituto, contiene:

- Tabla para visualizar las adcripciones.

- Cuadros de texto para captura de la información

- Botones para agregar, modificar, eliminar, guardar cambios, salir del módulo.

Módulo para Reporte por Adscripción y Departamento. Este programa es para generar un reporte del personal que tiene cada departamento del instituto, seleccionando adscripción y departamento

- Lista para seleccionar adscripción.

- Lista para seleccionar departamento

- Botones para vista previa, enviar a impresora, salir del módulo.

Menú de Opciones del Sistema. Este programa es para dar acceso a cada uno de los módulos correspondientes al sistema, contiene

- Botón para entrar a módulo de consulta.

- Botón de parámetros el cual tiene un menú que para accesar a los módulos de: Captura de plantilla y catálogos de adscripción, departamento, claves de burócrata

- Botón para activar el reporte que se genera por departamento.

- Botón para salir del sistema.

El formato del reporte generado será el siguiente:

- Contendrá solamente los datos laborales del empleado.

- Sueldo percibido por el empleado en cada rubro de nómina y su total.

- Fotografía del empleado.

- Dato del familiar directo y teléfono.

3.3 Desarrollo de la aplicación.

Después de terminar con el diseño de pantallas se pasará al desarrollo del sistema. Cada programa se compone por un formulario generado con el diseño, cada componente es un objeto en el cual se insertará el código de programación necesario para que realice la función que se desea, por lo que asi se hace más dinámica la programación e inclusive reutilizar código de programación en otros programas. El programa seleccionadio para el desarrollo de este sistema es Visual Fox Pro 7.0 de Microsoft, por ser un manejador útil para este tipo de desarrollo y facilidad para manipular los datos. A continuación presentaremos el desarrollo de los programas que componen el sistema.

Programa: Formuliario de Consulta.

Nombre de archivo: frmconsulta.scx

Descripción: Rutinas de los objetos que componen el formulario: Rutina al activar el formulario, rutina al cambiar de renglon en la tabla de empleados, búsqueda, despliegue de los datos personales y salir del módulo.

Fecha de creación: 21/05/2008

Rutina ejecutada al activar el formulario.

thisform.image1.Picture=bdplant.foto2

PUBLIC sumaq

sumaq=0

thisform.text4.Value=bdnomina.patronato * 2

thisform.text5.Value=bdnomina.inea *2

thisform.text6.Value=bdnomina.honorarios * 2

thisform.text7.Value=bdnomina.burocrata * 2

sumaq=(bdnomina.patronato)*2 + (bdnomina.inea)*2+(bdnomina.honorarios)*2+(bdnomina.burocrata)*2

thisform.text16.Value=sumaq

thisform.label21.Caption=catadsc.descadsc

thisform.label22.Caption=catdepto.descdepto

thisform.label23.Caption=catcata.desccat

thisform.Refresh

Rutina ejecutada al cambiar de renglones en la tabla. Son dos una al desplazar hacia abajo el cursor (AfterRowColChange) y otra hacia arriba (BeforeRowColChange).

AfterRowColChange

sumaq=0

thisform.label21.Caption=catadsc.descadsc

thisform.label22.Caption=catdepto.descdepto

thisform.text4.Value=bdnomina.patronato * 2

thisform.text5.Value=bdnomina.inea *2

thisform.text6.Value=bdnomina.honorarios * 2

thisform.text7.Value=bdnomina.burocrata * 2

sumaq=(bdnomina.patronato)*2 + (bdnomina.inea)*2+(bdnomina.honorarios)*2+(bdnomina.burocrata)*2

thisform.text16.Value=sumaq

thisform.image1.Picture=bdplant.foto2

thisform.Refresh

BeforeRowCol Change

thisform.image1.Picture=bdplant.foto2

sumaq=bdnomina.patronato+bdnomina.inea+bdnomina.honorarios+bdnomina.burocrata

thisform.label21.Caption=catadsc.descadsc

thisform.label22.Caption=catdepto.descdepto

thisform.text4.Value=bdnomina.patronato * 2

thisform.text5.Value=bdnomina.inea *2

thisform.text6.Value=bdnomina.honorarios * 2

thisform.text7.Value=bdnomina.burocrata * 2

thisform.text16.Value=sumaq

thisform.refresh

Rutina para búsqueda de empleados.

PUBLIC pal as String

set compatible on

pal=SPACE(65)

pal=thisform.text1.value

IF LASTKEY() =13

SET FILTER TO bdplant.nomlargo=RTRIM(pal)in bdplant

GO top

thisform.grid1.SetFocus

thisform.Refresh

ENDIF

thisform.refresh

Rutina para desplegar los datos personales.

DEFINE WINDOW v1 FROM 15,25 TO 35,105 Title"DATOS GENERALES" SYSTEM CLOSE FLOAT NOGROW ICON FILE "inea.ico" COLOR scheme 7

ACTIVATE WINDOW v1

@ 2,4 say "Domicilio:" font "Arial black",9

@ 5,4 say " Colonia:" font "Arial black",9

@ 7,4 say " C.P.:" font "Arial black",9

@ 9,4 Say " Ciudad:" font "Arial black",9

@12,4 say " Estado:" font "Arial black",9

@ 2,14 say bdplant.domicilio font "Arial",9

@ 5,14 say bdplant.colonia font "Arial",9

@ 7,14 say bdplant.postal font "Arial",9

@ 9,14 say bdplant.ciudad font "Arial",9

@12,14 say bdplant.estado font "Arial",9

@ 2,45 say "En caso de Accidente Avisar" font "Arial black",9

@ 5,45 say "Familiar:" font "Arial black",9

@ 7,45 say "Teléfono:" font "Arial black",9

@ 5,55 say bdplant.familiar font "Arial",9

@ 7,55 say bdplant.telefonf font "Arial",9 pict"!!!!!!!!!!"

op=0

@16,35 get op Function "* Aceptar" size 2,14 font "Arial",9

READ

DEACTIVATE WINDOW v1

Rutina para salir de módulo

RELEASE thisform

Programa: Formulario para plantilla de empleados.

Nombre de archivo: frmplantilla2.scx

Descripción: Realiza rutinas para capturar, modificar, eliminar, guardar, buscar empleados dentro del programa.

Fecha de creación: 22/05/2008

Rutina para agragar datos personales de los empleados.

PUBLIC _flag as Integer

PUBLIC _curp,_pat,_mat,_nom,_dom,_col,_ciu,_edo,_fnac,_fing,_cp,_puesto,_patron,_inea,_honor,_buroc,_cat

PUBLIC _adsc,_dpto

thisform.pageframe1.page1.text1.SetFocus

_flag=0

_flag=1

thisform.pageframe1.page1.Text1.ReadOnly= .F.

thisform.pageframe1.page1.text2.ReadOnly= .F.

thisform.pageframe1.page1.text3.ReadOnly= .F.

thisform.pageframe1.page1.text4.ReadOnly= .F.

thisform.pageframe1.page1.text5.ReadOnly= .F.

thisform.pageframe1.page1.text6.ReadOnly= .F.

thisform.pageframe1.page1.text7.ReadOnly= .f.

thisform.pageframe1.page1.text8.ReadOnly= .f.

thisform.pageframe1.page1.text9.ReadOnly= .F.

thisform.pageframe1.page1.text10.ReadOnly= .F.

thisform.pageframe1.page1.text11.ReadOnly= .F.

thisform.pageframe1.page1.text12.ReadOnly= .F.

thisform.pageframe1.page1.text13.ReadOnly= .F.

thisform.pageframe1.page1.commandgroup1.command1.Enabled= .F.

thisform.pageframe1.page1.commandgroup1.command2.Enabled= .F.

thisform.pageframe1.page1.commandgroup1.command3.Enabled= .F.

thisform.pageframe1.page1.commandgroup1.command4.Visible= .T.

GO BOTTOM in bdplant

APPEND BLANK IN bdplant

SCATTER MEMVAR blank

thisform.pageframe1.page1.text9.value=DATE()

thisform.pageframe1.page1.text10.value=DATE()

thisform.pageframe1.page2.Enabled= .F.

thisform.pageframe1.page1.Command1.Enabled= .T.

Thisform.Refresh

Rutina para modificar datos personales de los empleados.

PUBLIC _puesto,_patron,_inea,_honor,_buroc,_cat,_fam,_telf

PUBLIC _adsc,_dpto

PUBLIC _curp,_pat,_mat,_nom,_dom,_col,_ciu,_edo,_fnac,_fing,_fam,_telf,_cp

thisform.pageframe1.page1.text1.SetFocus

thisform.pageframe1.page1.text1.ReadOnly= .F.

thisform.pageframe1.page1.text2.ReadOnly= .F.

thisform.pageframe1.page1.text3.ReadOnly= .F.

thisform.pageframe1.page1.text4.ReadOnly= .F.

thisform.pageframe1.page1.text5.ReadOnly= .F.

thisform.pageframe1.page1.text6.ReadOnly= .F.

Partes: 1, 2, 3, 4

Página anterior

Volver al principio del trabajo

Página siguiente