Monografias.com > Sin categoría
Descargar Imprimir Comentar Ver trabajos relacionados

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



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>

<br>

<fieldset><font face="Arial" size=2><strong>
.:Contáctanos:.</strong></font></fieldset>

<font face="Arial" size=2>

<p align="Justify"> Escribenos tus comentarios para
saber tus inquietudes o proporcionarte información y comunicarnos
contigo.</p>

<p align="Justify"> Para nosotros es importante tu
opinión y estar cerca de la gente.</p>

<form Method="POST" Action="contacto.php">

<table border=0 style="width: 14%" >

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

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

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

<tr><td style="width: 240px"><font face="Arial"
size=2>Correo
Electrónico:</font><br><td
style="width: 332px">

<input type="text" name="email"
size=30></table>

Comentarios:<br>

<textarea name="texto" rows=5
cols=45></textarea><br><br>

<Input Type="Submit" name="busca" value="Enviar
Datos">

</form>

</font>

<br>

<br>

<br>

<br>

<fieldset>

 <legend><Strong><font face="Arial" size=2
color="black">Enlaces de Interés</font></strong></legend>

<marquee scrolldelay="200">

 <a href="http://www.coahuila.gob.mx"
Target="_blank"><img src="gob_gente.jpg" heigth="100"
width="128" border=0></a>

 &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>

<br>

<fieldset><font face="Arial" size=2><strong>
.:Contactanos:.</strong></font></fieldset>

<font face="Arial" size=2>

<p align="Justify">La Información ha sido
Enviada, nos Comunicaremos contigo en breve…..</p>

<?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:
<br><br>";

         echo
strtoupper($_POST['nombre']),"<br />";

        
odbc_close($conex);

?>

</font>

<br>

<br>

<br>

<br>

<br>

<br>

<fieldset>

 <legend><Strong><font face="Arial" size=2
color="black">Enlaces de
Interés</font></strong></legend>

<marquee scrolldelay="200">

 <a href="http://www.coahuila.gob.mx"
Target="_blank"><img src="gobestado.gif" heigth="100"
width="128" border=0></a>

 &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>

<br> 

<fieldset><font face="Arial"
size=2><strong><center>
.:Directorio:.</center></strong></font></fieldset>

<font face="Arial" size=2>

<strong>Teléfonos:</strong>

<ul>

  <li>(844) 438-69-00

  </ul>

<fieldset><font face="Arial"
size=2><strong><center>.:Staff:.</center></strong></font></fieldset>

<strong>

Profr. Víctor Manuel Zamora
Rodríguez.<br>

Director General.<br><br>

Lic. Carlos Alejandro Robles.<br>

Director de Acreditación y Sistemas.<br><br>

Profr. Carlos A. Castillo Garza.<br>

Director de Operación.<br> <br>

Lic. Rodolfo de León Salas <br>

Director de Administración <br><br>

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

Director de Planeación

</strong>

</font>

<font face="Arial" size=2>

</font>

<br>

<br>

<br>

<br>

<br>

<fieldset>

 <legend><Strong><font face="Arial" size=2
color="black">Enlaces de
Interés</font></strong></legend>

<marquee scrolldelay="200">

 <a href="http://www.coahuila.gob.mx"
Target="_blank"><img src="gob_gente.jpg" heigth="100"
width="128" border=0></a>

 &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

<BODY bgcolor="#FFFFFF">

<center>

<BODY bgcolor="#FFFFFF">

<!– 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>

<table width="665" cellspacing=0 border=1 cellpaddig=0
align="CENTER">

<td>

<fieldset>

   <font face="Arial"
size=2><strong><center>.:Mapa del
Sitio:.</center></strong></font>

</fieldset>

<br>

 <font face="Arial" size=2>

 <table width="600" cellspacing=0 border=1
cellpaddig=0 align="CENTER">

  <tr bgcolor="gray"><th><font
face="Arial"
size=2>Vistitantes</font></th><th><font
face="Arial"
size=2>Educandos</font></th><th><font
face="Arial" size=2>Herramientas</font></th><th><font
face="Arial" size=2>Noticias</font></th><th><font
face="Arial" size=2>Enlaces de
Interés</font></th></tr>

  <tr><td> <ul>

          
<li> <font face="Arial" size=1><a
href="acerca.htm" style="color:black">Acerca de
IEEA</a></font>

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

          
<li> <font face="Arial" size=1><a href="programas.htm"
style="color:black">Programas y Servicios</a></font>

          
<li> <font face="Arial" size=1><a href="pcom.htm"
style="color:black">Pl@zas
Comunitarias</a></font>

          
<li> <font face="Arial" size=1><a href="sasa.htm"
style="color:black">SASA</a></font>

          
<li> <font face="Arial" size=1><a
href="czonas.htm" style="color:black">Coordinaciones de
Zona</a></font>

          
</ul></td>

      <td> <ul>

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

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

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

          
<li> <font face="Arial" size=1><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></font>

          
</ul> </td>

      <td> <ul>

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

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

          
<li> <font face="Arial" size=1><a
href="http://www.gobernacion.gob.mx/CurpPS_HTML/jsp/CurpTDP.html"
style="color:black"
target="_blank">CURP</a></font>

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

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

          
</ul> </td>

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

      <td> <ul>

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

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

          
<li> <font face="Arial" size=1><a
href="http://www.inea.gob.mx" style="color:black"
target="_blank">INEA</a></font>

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

          
</ul> </td>

  </tr>

 <tr bgcolor="gray"><th><font face="Arial"
size=2><a href="inicio.htm"
style="color:black">Inicio</a></font></th>

 <th><font face="Arial" size=2><a
href="contacto.htm"
style="color:black">Contáctanos</a></font></th>

 <th><font face="Arial" size=2><a
href="direct.htm"
style="color:black">Directorio</a></font></th><th><font
face="Arial" size=2
color="White"><strong><——Menú
Principal</strong></font></tr>

 </table>

</font>

</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

<font face="Arial" size=2>

 <table width="400" cellspacing=0 border=0
cellpaddig=0 align="CENTER">

 <FORM Method="POST" ACTION="busca.aspx">

 <strong>Base de Datos:</strong><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><br><br>

 <strong>Nombre:</strong><Input name=busca
size=45><br><br><br>

 <center><Input type=submit
Value="Buscar"></center> <br><br>

 <Marquee BGCOLOR="Yellow" Align="Center"
scrolldelay=300>

 

  <font size=3 face="Arial Narrow" color="green">
<strong>Teclea el Nombre del educando empezando por los
apellidos, Última actualización UCN's hasta el mes
de Julio 2008</strong></Font>

 </Marquee>

</table>

</font>

ß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 á

<table width="665" cellspacing=0 border="0" cellpaddig=0
align="CENTER">

<td>

<fieldset>

   <font face="Arial"
size=2><strong><center>.:Búsqueda de
Educandos—->Resultados:.</center></strong></font>

</fieldset>

<br>

 <font face="Arial" size=2>

 <table width="400" cellspacing=0 border=0
cellpaddig=0 align="CENTER">

  <%@ 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 %>

     <font face="Arial Narrow"
size=3>

     <table border=1 width=700
align="CENTER">

     <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 %>

       <tr
bgcolor="yellow"><td><% response.write(sfolio)
%></td><td><% response.write(snombre)
%></td><td><%
  response.write(snivel)
%></td><td><% response.write(semision)
%></td><td><% response.write(scoord)
%></td></tr>

    <%

      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 %>

     <font face="Arial Narrow"
size=3>

     <table border=1 width=700
align="CENTER">

     <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 %>

       <tr
bgcolor="yellow"><td><% response.write(sfolio)
%></td><td><%response.write(scurp)%></td><td><%
response.write(snombre) %></td><td><%
response.write(snivel) %></td><td><%
response.write(sperclave) %></td><td><%
response.write(sprom) %></td></tr>

   <%

      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 %>

     <font face="Arial Narrow"
size=3>

     <table border=1 width=1500
align="CENTER">

     <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%>

       <font face="Arial
Narrow" size=1>

       <tr
bgcolor="yellow">

       <td><%
response.write(szona)  %></td>

       <td><%
response.write(sfolio) %></td>

       <td><%
response.write(scurp)  %></td>

       <td><%
response.write(snombre)%></td>

       <td><%
response.write(setapa) %></td>

       <td><%
response.write(smodelo)%></td>

       <td><%
response.write(ssubpro)%></td>

      
<td><%response.write(scirest) %></td>

       <td><%
response.write(Day(fcon) & "/" & Month(fcon) & "/"
& Year(fcon))%></td>

       <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>

       
<td><%response.write(tdnombre) %></td>

       
<td><%response.write(srfc)
%></td></tr>

        
</font>

   <%

      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>

</font>

</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 á

<table width="665" cellspacing=0 border="0" cellpaddig=0
align="CENTER">

<td>

<fieldset>

   <font face="Arial"
size=2><strong><center>.:Búsqueda de Actas
de
Nacimiento—->SISTEMA:.</center></strong></font>

</fieldset>

<br>

 <font face="Arial" size=2>

 <table width="400" cellspacing=0 border=0
cellpaddig=0 align="CENTER">

 <center>

 <FORM Method="POST" ACTION="actas.aspx">

 <center> <strong>Nombre:<Input name=busca
size=45></strong><center><br><br>

 <center><Input type=submit Value="Buscar">
</center><br><br>

 <Marquee BGCOLOR="Yellow" Align="Center"
scrolldelay=300>

 

  <font size=3 face="Arial Narrow">
<strong>Teclea el Nombre del educando empezando por los
apellidos, Para buscar con la letra Ñ o ñ
sustituyela por un %  </strong></Font>

 </Marquee>

</Center>

</table>

</font>      

</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 á

<table width="665" cellspacing=0 border="0" cellpaddig=0
align="CENTER">

<td>

<fieldset>

   <font face="Arial"
size=2><strong><center>.:Búsqueda de Actas
de
Nacimiento—->Resultados:.</center></strong></font>

</fieldset>

<br>

 <font face="Arial" size=2>

 <table width="400" cellspacing=0 border=0
cellpaddig=0 align="CENTER">

  <%@ 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 %>

     <font face="Arial Narrow"
size=3>

     <table border=1 width=900
align="CENTER">

     <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 %>

       <tr
bgcolor="yellow"><td><% response.write(scurp)
%></td>

       <td><%
response.write(snombre) %></td>

       <td><%
response.write(sacta)%></td>

       <td><%
response.write(shoja)%></td>

       <td><%
response.write(slibro)%></td>

       <td><%
response.write(day(sfecha) & "/" & month(sfecha) &
"/" & year(sfecha)) %></td>

       <td><%
response.write(ssexo)%></td>

       <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><%
response.write(sloc) %></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>

</font>

</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 trabajoPágina siguiente 

Nota al lector: es posible que esta página no contenga todos los componentes del trabajo original (pies de página, avanzadas formulas matemáticas, esquemas o tablas complejas, etc.). Recuerde que para ver el trabajo en su versión original completa, puede descargarlo desde el menú superior.

Todos los documentos disponibles en este sitio expresan los puntos de vista de sus respectivos autores y no de Monografias.com. El objetivo de Monografias.com es poner el conocimiento a disposición de toda su comunidad. Queda bajo la responsabilidad de cada lector el eventual uso que se le de a esta información. Asimismo, es obligatoria la cita del autor del contenido y de Monografias.com como fuentes de información.

Categorias
Newsletter