Tesis De Grado - Control Automatizado De Ingreso Salida - Cadav 716b3g

PONTIFICIA UNIVERSIDAD CATÓLICA DEL ECUADOR SEDE SANTO DOMINGO ESCUELA DE SISTEMAS

Disertación de Grado Previa la obtención del título de Ingeniero en Sistemas y Computación

DESAROLLO DE UN SOFTWARE PARA EL CONTROL AUTOMATIZADO DEL INGRESO Y SALIDA DE VEHÍCULOS EN EL CAMPUS DE LA PUCE SD, DEMOSTRANDO SU FUNCIONALIDAD MEDIANTE UN PROTOTIPO

AUTORES: CRISTIAN FERNANDO BARRENO RAMIREZ PAÚL FERNANDO TAPIA PEÑA

DIRECTOR: ING. JOSÉ LUIS CENTENO

SANTO DOMINGO- ECUADOR, 2013

ii

PONTIFICIA UNIVERSIDAD CATÓLICA DEL ECUADOR SEDE SANTO DOMINGO APROBACIÓN DE LA DISERTACION DE GRADO DESAROLLO DE UN SOFTWARE PARA EL CONTROL AUTOMATIZADO DEL INGRESO Y SALIDA DE VEHÍCULOS EN EL CAMPUS

DE LA PUCE SD,

DEMOSTRANDO SU FUNCIONALIDAD MEDIANTE UN PROTOTIPO

AUTORES: CRISTIAN FERNANDO BARRENO RAMIREZ PAÚL FERNANDO TAPIA PEÑA TRIBUNAL

ING. JOSÉ LUIS CENTENO

ING. MILTON ANDRADE Ms.

ING. RAMIRO HURTADO

Santo Domingo, Diciembre 2012

iii

AUTORÍA Nosotros Paúl Fernando Tapia Peña con C.I.171896632-6 y Cristian Fernando Barreno Ramírez con C.I. 180368237-4, egresados de la Escuela de Sistemas de la Pontificia Universidad Católica del Ecuador sede Santo Domingo; declaramos que el presente trabajo de investigación previo a la obtención del título de Ingenieros en Sistemas y Computación, es inédito por lo que liberamos de cualquier responsabilidad a la PUCE SD, siendo la disertación responsabilidad de los autores; y el patrimonio intelectual de la misma a la Pontificia Universidad Católica Sede Santo Domingo.

Atentamente,

Paúl Fernando Tapia Peña

Cristian Fernando Barreno Ramírez

iv

DEDICATORIA La presente Tesis se la dedico a Dios y a mi familia. A mi madre, pilar fundamental en mi vida, por quien todo esto ha sido posible. A mi hijo Alex por regalarme la fuerza necesaria a través de su sonrisa y palabras.

PAÚL FERNANDO TAPIA PEÑA

Este trabajo está dedicado a las personas más importantes de mi vida, mis padres en agradecimiento a su esfuerzo, cariño y sacrificio, de quienes me llevo el mejor ejemplo de esfuerzo y superación. A mis hermanos por su solidaridad y apoyo en todos los buenos y malos momentos.

CRISTIAN FERNANDO BARRENO RAMIREZ

v

AGRADECIMIENTOS El más sincero agradecimiento a la empresa EVISEL automatismos, equipos de vigilancia y seguridad electrónica y de forma especial al Sr. Gerente Juan Carlos Alvia, por haber facilitado información necesaria y por demás valiosa, para el desarrollo del presente trabajo, sobre equipos de automatismos. Un agradecimiento especial a todos y cada una de las personas que con sus consejos aportaron para que el trabajo avance y en especial al Ingeniero José Luis Centeno Director de la Disertación, por su apoyo y empuje sin el cual el presente trabajo no hubiera podido ser concluido.

vi

RESUMEN El presente trabajo de grado comprende el desarrollo de un software para el control del proceso de ingreso y salida vehicular del Campus universitario de la PUCE SD, su funcionalidad se demuestra a través de un prototipo, el cual simula el funcionamiento de un control de barrera. Se considera que el prototipo simule la sección del control de entrada vehicular, garita de guardianía; en pro de mejorar los niveles de seguridad existentes. El software está diseñado para la istración del control, a través del cual se registra las entradas y salidas de los vehículos en el Campus, además de toda lo información necesaria para asegurar un correcto control vehicular. La interface para el está hecha en Visual Basic.Net 2008 el código utilizado para el desarrollo es Visual Basic.Net. Cuenta con una base de datos desarrollada en Oracle 10g bajo el lenguaje SQL. La parte física del trabajo realizado comprende a la maqueta que representa la sección de guardianía, en la que se encuentra un modelo del control de barrera propuesto, así como la circuitería necesaria para la interacción del software con los componentes del control, tal y como son los motores de la barrera y el lector de tarjetas.

vii

ABSTRACT This current work includes the development degree of software for process control vehicular entrance and exit of the PUCE SD, its functionality is demonstrated through a prototype, which simulates the operation of a control of barrier. It is considered that the prototype simulating the control section of driveway, gated guardianship; towards improving existing safety levels. The software is designed to control management, through which you the inputs and outputs of the vehicles on campus, plus all the information necessary to ensure proper vehicle control. The interface is made in Visual Basic.Net 2008 the code used for development is Visual Basic.Net. It has developed a database in Oracle 10g on SQL. The physical part of the work includes the model representing guardianship section, which is a model of the proposed barrier control and the circuitry needed for software interaction control components, as are engines of the barrier and the card reader.

viii

INDICE DE CONTENIDOS AUTORÍA.......................................................................................................................... iii DEDICATORIA ................................................................................................................. iv AGRADECIMIENTOS ........................................................................................................ v RESUMEN ........................................................................................................................ vi ABSTRACT ..................................................................................................................... vii INDICE DE CONTENIDOS……………………………………………………………………. viii LISTA DE FIGURAS ........................................................................................................ xii LISTA DE TABLAS ......................................................................................................... xiv ANTECEDENTES Y JUSTIFICACIÓN .............................................................................15 OBJETIVO GENERAL .....................................................................................................17 OBJETIVOS ESPECÍFICOS ............................................................................................17 PROCESO DE DESARROLLO ........................................................................................18 MARCO TEÓRICO ..........................................................................................................20 INTRODUCCION .............................................................................................................20 1.1. CONTROL AUTOMÁTICO ........................................................................................20 1.1.1. Definición ...............................................................................................................20 1.1.2. Variables ................................................................................................................21 1.1.3. Diagramas de bloque .............................................................................................22 1.1.4. Tipos de controles Automáticos .............................................................................23 1.2. SOFTWARE .............................................................................................................24 1.2.1. Ciclos de Vida del Software ...................................................................................24

ix

1.2.2. Clases de Software ................................................................................................27 1.3. SISTEMAS DE ALMACENAMIENTO DE DATOS.....................................................28 1.3.1. Base de datos ........................................................................................................28 1.4.1. Codificación ...........................................................................................................30 1.4.2. Tecnología .NET ....................................................................................................30 1.5. GESTORES DE BASE DE DATOS...........................................................................31 1.5.1. Oracle ....................................................................................................................32 1.5.2. Lenguaje SQL ........................................................................................................32 1.6. CIRCUITO ELECTRÓNICO ......................................................................................33 1.6.1. Elementos de un circuito ........................................................................................33 1.7. MODELOS ................................................................................................................34 1.7.1. Modelos Verbales ..................................................................................................34 1.7.2. Modelos de Simulación ..........................................................................................35 1.7.3. Modelos Analíticos .................................................................................................35 1.8. ANÁLISIS DE LA INFORMACIÓN ............................................................................36 METODOLOGIA ..............................................................................................................38 2.1. DETERMINACIÓN DE REQUERIMIENTOS .............................................................38 2.1.1. Población y Muestra ..............................................................................................39 2.1.2. Resultados de la encuesta .....................................................................................40 2.1.3. Contextualización del Sistema para mejorar el control vehicular ............................50 2.1.4. Requerimientos Funcionales ..................................................................................54

x

2.1.5. Requerimientos No Funcionales ............................................................................60 2.2. ANALISIS Y DISEÑO DE LA SOLUCIÒN .................................................................61 2.2.1. Arquitectura ...........................................................................................................61 2.2.2. Modelado ...............................................................................................................62 RESULTADOS Y DISCUSION ........................................................................................66 3.1. RESULTADOS .........................................................................................................66 3.2. ESTRUCTURA DEL SOFTWARE ............................................................................67 3.2.1. Conectividad con la Base de Datos........................................................................67 3.2.2. Método de Desarrollo .............................................................................................68 3.2.3. Módulos del Sistema ..............................................................................................68 3.3. ESTRUCTURA DEL PROTOTIPO ............................................................................70 3.4. MODO DE OPERACIÓN ..........................................................................................73 3.5. DISCUSIÓN ..............................................................................................................74 CONCLUSIONES Y RECOMENDACIONES ...................................................................76 CONCLUSIONES ............................................................................................................76 RECOMENDACIONES ....................................................................................................76 BIBLIOGRAFÍA ................................................................................................................78 LIBROS ...........................................................................................................................78 REVISTAS .......................................................................................................................78 SOPORTE ELECTRÓNICO.............................................................................................78 GLOSARIO ......................................................................................................................79

xi

ANEXOS..........................................................................................................................81 ANEXO 1 .........................................................................................................................81 ENTREVISTA DIRECTORA RECURSOS FÍSICOS ........................................................81 ANEXO 2 .........................................................................................................................85 ENCUESTA SOBRE EL USO DE PARQUEADERO........................................................85 ANEXO 3 .........................................................................................................................87 INFORME DEPARTAMENTO RECURSOS FÍSICOS......................................................87 ANEXO 4 .........................................................................................................................88 CODIFICACIÓN DEL SISTEMA CADAV .........................................................................88 ANEXO 5 .......................................................................................................................128 Manual Técnico de Instalación y Configuración .............................................................128 ANEXO 6 .......................................................................................................................158 Manual de CADAV ............................................................................................158

xii

LISTA DE FIGURAS Figura 1. 1 Tipos de Variables .........................................................................................21 Figura 1. 2 Diagrama de Bloque ......................................................................................23 Figura 1. 3 Control Automático de Lazo Abierto ...............................................................23 Figura 1. 4 Control Automático de Lazo Cerrado .............................................................24 Figura 1. 5 Modelo de Cascada .......................................................................................25 Figura 1. 6 Ciclo de Vida del Software – Modelo Cascada con retroalimentación ............27 Figura 1. 7 Sistemas de Almacenamiento de datos .........................................................28 Figura 1. 8 Base de Datos ...............................................................................................29 Figura 1. 9 Entorno Visual Basic.NET ..............................................................................31 Figura 1. 10 Sistema Gestor de Base de Datos ...............................................................32 Figura 1. 11 Circuito Electrónico ......................................................................................33 Figura 1. 12 Elementos de un circuito electrónico ............................................................33 Figura 1. 13 Modelo de Simulación ..................................................................................35 Figura 1. 14 Modelo Analítico ..........................................................................................36 Figura 1. 15 Análisis de la Información ............................................................................36 Figura 2- 1 Diagrama de flujo procedimiento propuesto Vehicular .......................50 Figura 2- 2 Diagrama de Clases Diagrama Prototipo CADAV ..........................................51 Figura 2- 3Diagrama posibles Casos de Uso ...................................................................56 Figura 2- 4 Diagrama CU-01 ............................................................................................57 Figura 2- 5 Diagrama CU-02 ............................................................................................58

xiii

Figura 2- 6 Diagrama CU-03 ............................................................................................58 Figura 2- 7 Diagrama CU-04 ............................................................................................58 Figura 2- 8 Diagrama CU-05 ............................................................................................59 Figura 2- 9 Diagrama CU-06 ............................................................................................59 Figura 2- 10 Diagrama CU-07 ..........................................................................................59 Figura 2- 11 Diagrama CU-08 ..........................................................................................60 Figura 2- 12Requerimientos para el Sistema ...................................................................63 Figura 2- 13Funciones Actores del Control ......................................................................63 Figura 2- 14Diagrama Base de Datos CADAV .................................................................65 Figura 3- 1Sistema de Control de Vehicular ........................................................66 Figura 3- 2Esquema del Sistema de Control de ..................................................67 Figura 3- 3 Formulario para acceder al sistema (Loggin) .................................................69 Figura 3- 4 Formulario de Gestión del Sistema ................................................................69 Figura 3- 5 Formulario de CADAV Consola .....................................................................70

xiv

LISTA DE TABLAS Tabla 2- 1 Clase .............................................................................................52 Tabla 2- 2 Clase ROL ......................................................................................................51 Tabla 2- 3 Clase CLIENTE...............................................................................................52 Tabla 2- 4 Clase TARJETA ..............................................................................................53 Tabla 2- 5 Clase PASE ....................................................................................................53 Tabla 2- 6 Clase VEHÍCULO ...........................................................................................53 Tabla 2- 7 Clase PARQUEADERO ..................................................................................54 Tabla 2- 8 Clase ESPACIO ..............................................................................................54 Tabla 2- 9 Clase TRANSACCIONES ...............................................................................54 Tabla 2- 10 Actores .........................................................................................................55 Tabla 2- 11 Listado Casos de Uso ...................................................................................56 Tabla 2- 12 Diagrama de Casos de Uso CADAV .............................................................57

15

ANTECEDENTES Y JUSTIFICACIÓN Actualmente nuestra sociedad se encuentra en una capacidad de desarrollo y evolución como nunca antes se pensó, esto ha sido gracias al fácil a la información con la que contamos ahora. Tomando en cuenta que podemos acceder desde cualquier lugar del planeta, sea con algún dispositivo fijo o móvil, a un sin número de bancos de datos, donde su fuente puede estar ubicada de igual manera en cualquier lugar de nuestro planeta. Esto ha desencadenado por lógica en un enorme incremento en nuestra capacidad de procesamiento de información, lo que nos permite demandar mejores sistemas con mayores tasas de rendimiento, fiabilidad, seguridad, etc.; En especial en aquellos que están destinados a realizar tareas de monitoreo. Ya que deben poder contar con la capacidad de registrar todo lo que sucede, en los entornos para los que fueron creados. Enfoquémonos en especial en los Sistemas de control de Vehicular, ya que estos deben ser lo suficientemente robustos para asegurar que la empresa, institución o persona que los emplee pueda contar con información completa y precisa para salir avante de cualquier situación que pueda comprometer la seguridad de su

parque

automotor, El contar con un control que permita tener un registro eficiente del parque automotor que ingresa y sale de las instalaciones de una empresa o cualquier tipo de institución ya sea pública o privada siempre resulta de vital importancia para garantizar y precautelar la integridad y seguridad del establecimiento que se encuentra bajo el control aplicado. Existen muchas instituciones que utilizan controles obsoletos para este fin o simplemente no tienen un sistema de control que les garantice una mayor seguridad de los vehículos que ingresan o salen de sus instalaciones. El proceso de control vehicular que actualmente se lleva a cabo en el Campus de la Pontificia Universidad Católica del Ecuador Sede Santo Domingo (PUCE SD) se lo realiza mediante distintivos que son colocados en los vehículos registrados por el departamento de Recursos Físicos. El procedimiento a seguir para el ingreso en caso de que el vehículo se encuentre debidamente registrado es: el conductor recibirá por parte del personal de seguridad un carné al ingresar al Campus, el cual deberá ser presentado y devuelto al momento de la

16

salida. En caso de no estar registrado, el conductor deberá entregar un documento de identificación personal, con el cual se registrará y validará su ingreso, este también recibirá un carné, para poder canjear el documento entregado a su salida del Campus. Al aplicar este control no se puede contar con un completo historial del parque automotor que ingresa y sale del Campus universitario, debido a que solo se registra el ingreso de los vehículos que no poseen el respectivo distintivo de la Universidad, es así que se han evidenciado varios problemas de tipo istrativos, por ejemplo con los datos que actualmente se tiene resulta imposible establecer la real demanda de parqueaderos en la Institución. Así también se han podido identificar algunos problemas con respecto a la seguridad del parque automotor en los interiores de la Universidad, esto como consecuencia de contar con un limitado control que no permite determinar posibles responsables o implicados, en actos delictivos cometidos en contra del parque automotor que ingresa al Campus, como ha sucedido en varias ocasiones1. Además cabe destacar que aplicar el procedimiento durante las horas pico provoca demoras en el proceso, tanto en la entrada como en la salida del Campus Universitario e incluso ocasiona molestos embotellamientos. Por lo tanto se hace imperiosa la necesidad de una mejora en el proceso de vehicular al Campus, la cual debe permitir registrar, almacenar y dar a conocer el número de vehículos en tránsito, así como su tiempo de permanencia en las instalaciones; lo cual desencadenaría en un incremento considerable en los niveles de seguridad del Campus de la Pontificia Universidad Católica del Ecuador Sede Santo Domingo (PUCE SD). Por lo antes dicho se plantea automatizar el proceso de ingreso y salida al Campus Universitario a través de una solución tecnológica compuesta por dos partes: la primera, constituida por un software diseñado para la istración del sistema, con el que se realizan tareas como el registro, almacenamiento y edición de datos a través de los que se concederá o negará la autorización para acceder o abandonar las instalaciones universitarias; mientras que la segunda, es el dispositivo de seguridad de control de

1

Anexo 3 Informe de Eventos por Parte de Recursos Físicos

17

barrera, que constituye la parte mecánica. Todo esto bajo la supervisión del operador de la solución. Este proyecto realizado en el marco de los requerimientos del proceso investigativo final de graduación, permite conocer y contar con un eficiente registro del parque automotor existente en el Campus, mejorando el nivel de seguridad de control de vehicular que brinda el Campus de la PUCE SD. Los principales beneficios alcanzados a través del proyecto son: la obtención exacta e inmediata de la información necesaria para la toma de decisiones en cuanto al control vehicular, la emisión de reportes con los que pueda conocer los detalles sobre el proceso de vehicular, el ingreso de vehículos debidamente autorizados e identificados al Campus de la PUCE SD. Lo que permitirá precautelar eficazmente el parque automotor en las Instalaciones. Los beneficiarios directos de este proyecto son: el personal istrativo, docentes y estudiantes de la Pontificia Universidad Católica del Ecuador Sede Santo Domingo y de forma indirecta la ciudadanía santodomingueña que visita las instalaciones. El principal resultado de implementar el prototipo en el Campus Universitario es: contar con un control eficiente del ingreso y salida vehicular.

OBJETIVO GENERAL Desarrollar un software que permita la automatización del control del ingreso y salida de vehículos en el Campus de la PUCE SD, facilitando el ordenamiento del vehicular y la optimización de tiempos de parqueo en el campus universitario, lo cual ayudará a mejoría en la seguridad del parque automotor que hace uso de los parqueaderos de la Institución.

OBJETIVOS ESPECÍFICOS Desarrollar el programa Control Automatizado De Vehicular (CADAV) con una interface gráfica amigable que permita istrar el proceso de ingreso y salida vehicular al Campus universitario. Crear una base de datos que almacene información, la misma que permitirá obtener

18

reportes de acuerdo a los requerimientos de la unidad responsable del control de vehículos. Construir un prototipo que permita simular el proceso real del sistema automatizado propuesto.

PROCESO DE DESARROLLO Equipo de Trabajo Para el desarrollo de la Disertación se formó un equipo de trabajo formado por Paúl Tapia y Cristian Barreno egresados de la Escuela de Sistemas de la PUCE SD y el Ing. José Luis Centeno, quien dirigió y supervisó todo el proceso de desarrollo del presente trabajo. Asignación del Tema La Institución como tal asignó el tema para la disertación de grado previo a la obtención del título Ingeniero de Sistemas y Computación, el cual consiste en el Desarrollo de un software para el control automatizado del ingreso y salida de vehículos en el campus de la PUCE SD, demostrando su funcionalidad mediante un prototipo. Documentación Se inició con el proceso de recopilación de información, con el fin de establecer la necesidad de la elaboración del software para la Universidad, es así que se procedió a realizar encuestas a los de la comunidad universitaria (Estudiantes, Docentes, istrativos, Otros), cuyo resultado obtenido indicó la necesidad del desarrollo del producto para la universidad. Para establecer los requerimientos del software se llevó a cabo una entrevista con la Directora del Departamento de Recursos Físicos2, a través de la cual se obtuvieron resultados favorables y de extrema importancia para el desarrollo y la realización del Proyecto, ya que se corroboró la problemática existente por no contar con un software exclusivo que almacene los datos que se generan en cada una de las etapas y

2

Anexo 1 Entrevista con la Directora del departamento de Recursos Físicos

19

situaciones suscitadas durante la ejecución del proceso de ingreso y salida del parque automotor del Campus universitario. Análisis de la información La siguiente etapa fue la del análisis de la información obtenida, esta etapa comprendió la clasificación, análisis, investigación y estudio de la información, ya que se buscaba abarcar cada uno de los requerimientos identificados de forma eficiente, beneficiando a cada uno de los actores del proceso. Diseño del Software y de la base de datos Se procedió a realizar el diseño del software, la elección de las herramientas a utilizarse y el gestor de base de datos para el desarrollo del software. Se acordó utilizar herramientas de modelamiento gráfico, ORACLE 10G como el gestor de Base de datos y para el software se utilizará Visual Basic.NET 2008. La arquitectura a utilizarse es la de cliente servidor. Para la parte mecánica se empleará los dispositivos de seguridad de control de barrera, activados mediante tarjetas de códigos de barras, tomando en todo momento a consideración para la implementación del mismo, factores como seguridad y rendimiento Construcción del Prototipo Una vez desarrollado el software, con el fin de evaluar y demostrar su funcionamiento se construyó una maqueta que represente el punto de a las instalaciones universitarias (garita de guardianía), así también con la asesoría de un experto electrónico se procedió al desarrollo la circuitería necesaria para generar movimiento en el dispositivo de seguridad vehicular (control de barrera) Pruebas y Ajustes Por último y contando ya, tanto con el software así como con la maqueta, se procedió a realizar las pruebas y ajustes necesarios con los que se asegure su correcto funcionamiento ante las diferentes situaciones a presentarse, sincronizando de esta forma su accionar en virtud de lo requerido. Quedando así listo el Software y el Prototipo para su entrega.

20

I MARCO TEÓRICO INTRODUCCION Desde hace algunos años atrás nos encontramos inmersos en una enorme evolución tecnológica sin precedente alguno, esto ha permitido que la mayoría de los procesos, llevados plenamente por seres humanos, si es que no son todos; cuenten con el soporte y monitoreo de algún componente tecnológico. Esto ha permitido un mayor y mejor desarrollo en cada una de las etapas de los diferentes procesos en cada área existente. Sin lugar a dudas el área de la seguridad vehicular no se ha quedado atrás de esta evolución, esto se ve claramente reflejado en los sistemas de control de vehicular lo que permite identificarlos ya no únicamente como un conjunto de partes mecánicas destinadas a la restricción para acceder a algo; sino que en conjunto con la implementación de mejores dispositivos y mecanismos de seguridad, capaces de ajustarse a soluciones informáticas. Se ha conseguido obtener un mayor y mejor nivel de protección, debido a que pueden reaccionar y controlar la mayoría de las situaciones generadas por su entorno, desde luego esto ha permitido que aparezcan nuevas y mejores políticas y procesos organizacionales. En la actualidad estos dispositivos son capaces de identificar, registrar, auditar y de restringir o permitir el a aquello que les ha sido encomendado, como por ejemplo el a determinado espacio.

1.1. CONTROL AUTOMÁTICO 1.1.1. Definición Podemos definir al Control Automático como el control que se ejerce sobre determinados sistemas sin la intervención humana de forma directa. Estos controles cuentan con pasos y procesos establecidos los que permiten omitir parcial o totalmente la participación humana en su accionar, a la vez que su nivel de complejidad no limita su funcionalidad. Para que el control sea efectivo se busca que a través de los procesos establecidos se puedan considerar todas o la mayoría de las situaciones que se

21

puedan presentar en su entorno, a estas situaciones se las conoce como variables3.

1.1.2. Variables Podemos denominar variables a las características, factores, eventos y demás situaciones medibles que están sujetas a posibles cambios. Por ejemplo en los sistemas de control vehicular podríamos decir que una de sus variables es el número de vehículos que ingresa al campus universitario y otra así también podría ser el número de vehículos que abandona las instalaciones.

Figura 1. 1 Tipos de Variables Fuente: http://datateca.unad.edu.co/contenidos/358030/ContLinea/captulo_8.html

1.1.2.1. Entrada Las Variables de entrada son aquellos datos que ingresan al sistema de forma externa esperando con esto una reacción por parte del mismo, un ejemplo de este tipo de variables es el código que se le asigna a un de un aplicativo para acceder al mismo y que debe ser ingresado para que el sistema le conceda a sus características.

3

http://es.wikipedia.org/wiki/Ingenier%C3%ADa_de_control

22

1.1.2.2. Salida Las variables de salida son las respuestas emitidas por parte del sistema ya sea consecuencia de un ingreso o por el desenlace de su funcionamiento o accionar. Como ejemplo tenemos al observado en los sistemas de control de de nómina el cual devuelve una respuesta cuando el valida su ingreso o salida y así mismo a determinada hora envía las estadísticas de lo sucedido en el transcurso del día al Supervisor del proceso. En este caso las variables serían: la respuesta devuelta al momento de validar el ingreso o salida, ya que esta puede ser tanto afirmativa como negativa dependiendo del caso. 1.1.2.3. Perturbación Las variables de perturbación son aquellos eventos que se pueden presentar durante el desempeño de determinado sistema y que son contrarias al objetivo del sistema4. Podemos tomar como ejemplo al posible taponamiento en una de las alcantarillas de un sistema de desagüe.

1.1.3. Diagramas de bloque El Diagrama de Bloque es la representación gráfica de un sistema determinado, el cual busca abarcar cada uno de sus aspectos en cuanto al funcionamiento se refiere. Identificándose así también la forma en la que estos interactúan durante el funcionamiento del sistema5. Los diagramas de bloque están conformados por:  Elementos.- Son los componentes del sistema de control.

 Flechas.- Son las interacciones que se presentan entre los bloques.

4

http://booki.flossmanuals.net/pythonparatroncos/capitulo-2-tipos-variables-entrada-y-salida-trivial/

5

http://books.google.com.ec/books?id=QK148EPC_m0C&pg=PA58&lpg=PA58&dq

23

Figura 1. 2 Diagrama de Bloque Fuente: http://avibert.blogspot.com/2012/01/diagrama-de-flujo-herramientas-basicas.html

1.1.4. Tipos de controles Automáticos Los tipos de sistemas de control son: 1.1.4.1. Lazo Abierto En este tipo de control la variable de salida no tiene efecto sobre la variable de entrada, es un control de tipo lineal, su estructura básica es: entrada -> control -> salida.

Figura 1. 3 Control Automático de Lazo Abierto Fuente: http://migueltecno17.wordpress.com/2012/06/01/lazo-abierto-y-cerrado/

1.1.4.2. Lazo Cerrado Estos controles son parecidos a los lineales solo que usan retroalimentación, aquí sí se puede presentar la influencia de la salida sobre la entrada o sobre el control automático.

24

Figura 1. 4 Control Automático de Lazo Cerrado Fuente: http://migueltecno17.wordpress.com/2012/06/01/lazo-abierto-y-cerrado/

1.2. SOFTWARE El Software es la parte lógica del equipo de cómputo, se lo conoce como la parte intangible del computador y es la sección en la que está establecida la forma en la que el equipo de cómputo entero reaccionará ante cualquier solicitud externa. Está conformado por un sub conjunto de procesos establecidos para realizar una tarea determinada. Existen reglas establecidas y recomendadas para realizar un correcto desarrollo de Software dependiendo de las necesidades del solicitante. Están incluidas en este grupo las reglas necesarias para brindar el soporte, incluso para su posterior desinstalación. Estas series de etapas son conocidas como el ciclo de vida del Software.

1.2.1. Ciclos de Vida del Software El ciclo de vida del Software enmarca cada uno de los procesos inmersos en la vida del software, es decir desde su concepción hasta su término. El objetivo por el cual se ha identificado a las diferentes etapas inmersas en el desarrollo del software es sin duda el de facilitar y sobre todo estandarizar el desarrollo a través de modelos establecidos. El orden de cada una de las etapas de desarrollo del Software dependerá del modelo de ciclo de vida escogido para esta tarea. 1.2.1.1. Modelos de ciclo de vida del Software Existen varios modelos de ciclo de vida del Software, el modelo más utilizado para el desarrollo de Software es el modelo en Cascada, siendo su nueva versión la de Cascada con retroalimentación.

25

1.2.1.1.1. Modelo de Cascada Es el modelo más utilizado para el desarrollo de Software pese a que es un modelo no muy flexible ya que en el caso de que se requiera la revisión de alguna de las etapas anteriores se debe realizar el rediseño de todas las etapas siguientes y, para iniciar una nueva etapa es necesario que sea concluida la etapa anterior.

Figura 1. 5 Modelo de Cascada Fuente: http://ingenierosdelomejorluzmilena.blogspot.com/2010/09/ciclo-de-vida-del-software.html

 Definición de requerimientos En esta etapa se elabora el documento de requerimientos, este es un documento en el que se detalla en lenguaje no técnico todo lo requerido para el software; en él se busca definir todos los aspectos necesarios para que el producto solicitado sea exitoso, por esta razón se recomienda que el cliente requirente esté presente en esta etapa.  Análisis y Diseño del Software En esta etapa se establecen los requerimientos identificados de forma técnica, aquí se realizará el análisis de cada requerimiento para poder realizar un correcto diseño de la solución, las herramientas que nos pueden servir para esta etapa son los diagramas sean de flujo o de clases, etc.

26

 Implementación y Prueba de unidades Es la etapa en la que se plasma el resultado de las etapas anteriores a través de líneas de código, así también es aquí donde se realizarán las pruebas de rendimiento del producto elaborado.  Integración y Prueba del Sistema En esta etapa se realiza la unificación de todo lo realizado para el sistema y finalmente se prueba a cada uno de sus componentes funcionando en conjunto.  Operación y Mantenimiento En esta etapa se realiza cualquier ajuste al sistema que no implique cambios drásticos a su estructura, de necesitarse cambios de este tipo se deberá ir a la etapa respectiva y reiniciar todo el proceso desde ese punto. 1.2.1.1.1. Modelo de Cascada con retroalimentación Es el modelo más utilizado para el desarrollo de Software, siendo la nueva versión del modelo de Cascada, en este modelo podemos realizar cambios en etapas anteriores a la que nos encontremos, con el fin de obtener el mejor posible resultado en el producto final. Este modelo está compuesto por las siguientes etapas:  Concepto de Software. En esta etapa se realiza el levantamiento de la información sobre la necesidad o necesidades del cliente y que serán resueltas con el software a desarrollarse.  Análisis de requerimientos. Aquí se realiza un análisis de lo que se va a desarrollar, para de esta forma definir los componentes y funcionalidades del producto en cuestión.  Diseño global. En esta etapa se define la forma en la que se va a desarrollar el Software o el sistema, así como las entidades de datos y cada uno de los componentes del mismo.  Diseño detallado. En la etapa del Diseño detallado se realiza el diseño

27

pormenorizado de cada uno de los componentes del sistema a desarrollar,  Codificación y Depuración. En esta etapa se convierte lo que se ha diseñado a lenguaje de máquina, es decir se realiza la codificación del sistema.  Prueba del sistema. Esta etapa se la destina para realizar pruebas al sistema desarrollado y de ser el caso se realizan los ajustes necesarios que no hubieran sido cubiertos durante la etapa de desarrollo.

Figura 1. 6 Ciclo de Vida del Software – Modelo Cascada con retroalimentación Fuente: http://www.cenac.ipn.mx/Paginas/

1.2.2. Clases de Software Existen varias clases de Software, la clasificación se la ha realizado dependiendo de la aplicación o uso que se le vaya a dar: 1.2.2.1. Software de Aplicación Esta clase de software es el utilizado por el para realizar las diferentes tareas, aquí se encuentran los procesadores de texto, reproductores de música, juegos de video entre otros

28

1.2.2.2. Software de Programación En esta clase de software se encuentran las herramientas de desarrollo de software, comúnmente se conoce a este tipo de software como “software para hacer software”, Aquí encontramos a los compiladores, depuradores, gestores entre otros. 1.2.2.3. Software de Sistema Esta clase de software es la que interactúa para controlar al Hardware en conjunto con el Sistema Operativo, aquí podemos encontrar al firmware del computador, herramientas de diagnóstico, drivers, controladores, etc.

1.3. SISTEMAS DE ALMACENAMIENTO DE DATOS Los Sistemas de Almacenamiento son sistemas destinados para el almacenamiento de datos, tal y como pueden ser chips, tarjetas de memoria, discos duros, entre otros. Los que interactúan con software dedicado para este fin, para poder garantizar la seguridad e integridad de la información en ellos almacenada.

Figura 1. 7 Sistemas de Almacenamiento de datos Fuente: http://natikar.blogspot.com/2011/04/dispositivos-de-almacenamiento-de-datos.html

1.3.1. Base de datos En una base de datos se puede almacenar de forma ordenada enormes cantidades de información, para su posterior istración. Se puede definir a la

29

base de datos como “un sistema formado por un conjunto de datos almacenados en discos que permiten el directo a ellos y de programas que manipulen ese conjunto de datos.”6 Es decir, es el conjunto de datos almacenados en un espacio físico y lógico, al que podemos acceder, para istrar la información a través de soluciones informáticas denominadas Gestores de Bases de Datos. Los sistemas de bases de datos tienen varias características entre ellas: manejo de integridad de datos, múltiple de s a la información, consultas y reportes optimizados, seguridad y auditoria de datos, respaldo y recuperación a través de backups, disponibilidad de lenguajes estándar de programación. Las Bases de datos están conformadas por “una o más tablas que guarda un sin número de datos. Cada tabla tiene una o más columnas y filas. Las columnas guardan una parte de la información sobre cada elemento que queramos guardar en la tabla, cada fila de la tabla conforma un registro”7.

Figura 1. 8 Base de Datos Fuente: http://www.monografias.com/trabajos34/base-de-datos/base-de-datos.shtml

1.4. HERRAMIENTAS DE DESARROLLO DE SOFTWARE Las Herramientas de Desarrollo de Software son sistemas diseñados para hacer sistemas, es decir que a través de sus funcionalidades podemos identificar, diseñar y

6

http://fundamentosinformaticosjl.wordpress.com/category/base-de-datos/

7

http://informatica.wikia.com/wiki/Bases_de_datos

30

realizar un sistema, así como a las partes físicas con que las que están vinculados (maquetas, circuitos, etc.). Esto abarca a todo lo necesario para el desarrollo de una solución informática o software, desde su inicio hasta su término, estas herramientas pueden ser utilizadas en cada una de las etapas del ciclo de vida del Software, ya que actualmente se cuentan con herramientas que permiten desarrollar la aplicación desde el diseño hasta la etapa de puesta en producción, todo a través de la debida codificación de cada etapa.

1.4.1. Codificación La codificación es la acción de codificar o “traducir” lo que debe hacer un equipo informático en un lenguaje que él lo pueda entender. Para que la programación pueda ser más entendible entre diferentes programadores se crearon y establecieron un conjunto de reglas o estándares, si son bien aplicados hacen que no sea tan difícil la compresión de un código en el caso de que necesite ser revisado.

1.4.2. Tecnología .NET Punto Net es una tecnología punta, esta tecnología ha sido producida por Microsoft, quien repotenciando a sus clásicas herramientas de desarrollo en la búsqueda de liderar el campo de desarrollo de aplicaciones informáticas, ha puesto en marcha su exitosa interface de tipo IDE. Entre estas herramientas tenemos como las más importantes a C y Visual Basic. Siendo Visual Basic la de mayor uso debido al excelente desempeño ofrecido. Las herramientas ofrecidas por Microsoft en este campo las podemos encontrar

en el paquete Visual

Studio.NET 1.4.2.1. Visual Basic.Net La interface de desarrollo conocida como entorno de desarrollo integrado o IDE, alojada actualmente en el paquete Visual Studio, ofrece una amplia gama de herramientas con las que podemos obtener los mejores resultados al momento de la generación de soluciones con las que incluso permiten interactuar con ciertos componentes físicos del sistema a través de puertos como lo son: COM, USB,

31

entre otros.

Figura 1. 9 Entorno Visual Basic.NET Fuente: Los Autores

1.4.2.2. Lenguaje Basic Es un lenguaje de Programación Orientado a Objetos (POO), esta es la nueva versión del conocido lenguaje de programación Visual Basic (VB). Su sintaxis es de fácil comprensión, pero no por eso es limitado en cuanto al tipo de productos (software) que puede hacer. Este es el lenguaje utilizado en el entorno de Visual Basic.NET.

1.5. GESTORES DE BASE DE DATOS Un Gestor de Base de Datos es un sistema que se encarga de la istración de los datos que le fueren conferidos, es un de bases de datos, por lo que también se encarga de la verificación y validación del a la información, existen múltiples Gestores de Datos en el mercado, su uso o elección dependerá de varios aspectos a considerar, número de s, cantidad de información a manejar, seguridades, etc. Los más utilizados al momento son Oracle, SQL, MySQL

32

Figura 1. 10 Sistema Gestor de Base de Datos Fuente: http://elblogdeelsant0.blogspot.com/2011/04/instalar-y-configurar-el-gestor-de.html

1.5.1. Oracle Es considerado como uno de los mejores y más completo Sistema Gestor de Base de Datos, reconocido por los excelentes resultados en la istración de grandes o enormes cantidades de información. Debido a sus beneficios suele ser utilizado en sistemas de gran valía. Es un gestor multiplataforma, entre sus características están: escalabilidad, estabilidad, transacciones e integridad de datos. Para el desarrollo de soluciones utiliza como lenguaje nativo a SQL, con el que podemos realizar consultas, actualizaciones, ingresos y eliminación de datos.

1.5.2. Lenguaje SQL El lenguaje SQL es un lenguaje estándar utilizado para el manejo de bases de datos, a través del cual podemos realizar las diferentes operaciones en las Bases de Datos, como lo son: creación, modificación y eliminación de datos. Es oportuno indicar que si bien es cierto SQL es un lenguaje estándar, cada gestor de bases de datos ha creado ciertas adaptaciones para sus propias herramientas, entendiéndoselas como sentencias que realizan diferentes funciones dependiendo del gestor que las ejecute e incluso sentencias únicas para ciertos Gestores.

33

1.6. CIRCUITO ELECTRÓNICO El circuito electrónico es una red a través de la cual se conectan varios elementos o componentes electrónicos para cumplir un objetivo determinado. Pueden funcionar con corriente alterna o continua. Su complejidad así como la cantidad de componentes electrónicos utilizados dependerá del objetivo a realizar, ya que puede ser desde iluminar una habitación hasta el total control de una industria manufacturera.

Figura 1. 11 Circuito Electrónico Fuente: http://10cosasdetecnologia.blogspot.com/2011/08/circuitos-electronicos-formulas-y.html

1.6.1. Elementos de un circuito Un circuito está conformado por varios elementos los cuales interactúan entre sí para cumplir con el objetivo para el que fueron creados:

Figura 1. 12 Elementos de un circuito electrónico Fuente: http://arita-unviajehacialacreatividad.blogspot.com/2010/05/circuito-electrico.html

34

 Componente. Son los dispositivos que tienen dos o más terminales, rama, diodos, entre otros.  Nodo. Son los puntos de convergencia de los conductores dentro del circuito.  Rama. Las ramas son los subconjuntos del circuito formados por los nodos, a través del cual circula electricidad.  Malla. La malla es el camino cerrado del circuito, son los hilos del que interconectan a los componentes.  Fuente. Es el componente que se encarga de suministrar energía al circuito.  Conductor. Es el medio a través del cual se unen los componentes.

1.7. MODELOS Un modelo es una representación de un algo, con el fin de representar una realidad se pueden valer de herramientas gráficas, verbales y analíticas. Los tipos de modelos existentes son: verbales, de simulación y analíticos. La utilización de un modelo en el desarrollo de un producto nos permite poder anticiparnos a las posibles situaciones por las que puede atravesar o enfrentar el producto que estamos desarrollando8.

1.7.1. Modelos Verbales Los modelos verbales son modelos condicionantes, es decir que identifican las posibles situaciones dependiendo de “si es que se cumple determinada situación entonces sucederá tal cosa”. Un ejemplo sería si un vehículo no cuenta con permiso para acceder a un edificio entonces no podrá entrar y si posee permiso para el ingreso entonces podrá entrar.

8

http://www.uam.es/personal_pdi/ciencias/joaquina/BOXES-POP/que_es_un_modelo.htm

35

1.7.2. Modelos de Simulación Los modelos de Simulación nos permiten representar a través de condiciones y reglas existentes y previamente identificadas posibles realidades de un determinado sistema, un claro ejemplo de estos modelos son los prototipos, en los que se representan segmentos a escala de determinados lugares para poder simular e identificar aspectos propios de un sistema determinado.

Figura 1. 13 Modelo de Simulación Fuente: http://dew.uniclick.com.pe/category/simulacion/

1.7.3. Modelos Analíticos Los modelos analíticos son modelos de mayor complejidad ya que la definición del sistema se la realiza a través de ecuaciones planteadas los que a través de la asignación de valores a sus variables pretenden predecir la posible realidad del sistema. Desde luego este tipo de modelos si bien es cierto, requieren un mayor esfuerzo para su realización, son modelos muy potentes y de muy cercana aproximación a la realidad del comportamiento del sistema.

36

Figura 1. 14 Modelo Analítico Fuente: http://www.scielo.org.bo/scielo.php?pid=S1562-38232009000100003&script=sci_arttext

1.8. ANÁLISIS DE LA INFORMACIÓN El análisis de la información es el proceso completo a través del cual podemos realizar una toma de decisión sobre algún tema específico. El proceso inicia desde la recolección de datos, posterior a esto se realiza la respectiva clasificación de la información con miras a descartar datos no trascendentales y a eliminar ambigüedades en la información recopilada, a través de métodos y procedimientos existentes

los

cuales

pueden

ser

cuantitativos

(resultados

de

encuestas,

puntuaciones de exámenes, frecuencia) o cualitativos (niveles de satisfacción). Luego de esto es necesario valerse de todas las herramientas a disposición para la interpretación de la información recopilada, es así que para un correcto análisis de la información se debe incluso volver a repasar la información ya seleccionada, todo esto con el fin que el análisis realizado permita realizar una adecuada toma de decisión.

Figura 1. 15 Análisis de la Información Fuente: http://scielo.sld.cu/scielo.php?script=sci_arttext&pid=S1024-94352005000600011

37

El proceso de recolección de la información, es por demás importante ya que si no es bien realizado el análisis completo puede fracasar, debido a que si no recolectamos suficientes datos para un correcto estudio no vamos a poder hablar de una decisión que afecte completamente al entorno en cuestión, es por esto que para determinar un correcto número de muestra a tomar, es decir de datos a recopilar o individuos a seleccionar, existen fórmulas que permiten establecer el tamaño correcto de la muestra con un margen de error aceptable para la toma de nuestra decisión9. Para nuestro estudio la fórmula que nos permite hacer esto de forma correcta es:

Dónde: n = el tamaño de la muestra. N = tamaño de la población. Desviación estándar de la población que, generalmente cuando no se tiene su valor, suele utilizarse un valor constante de 0,5. Z = Valor obtenido mediante niveles de confianza. Es un valor constante que, si no se tiene su valor, se lo toma en relación al 95% de confianza equivale a 1,96 (como más usual) o en relación al 99% de confianza equivale 2,58, valor que queda a criterio del investigador. e = Límite aceptable de error muestral que, generalmente cuando no se tiene su valor, suele utilizarse un valor que varía entre el 1% (0,01) y 9% (0,09), valor que queda a criterio del encuestador.

9

http://www.monografias.com/trabajos87/calculo-del-tamano-muestra/calculo-del-tamano-

muestra.shtml

38

II

METODOLOGIA Para el desarrollo del presente proyecto se empleó una metodología de tipo convencional o prescriptiva de procesos, esta metodología define un conjunto de procesos a seguir para el desarrollo de un software, es una metodología inductiva de tipo lineal, en la que es necesario haber terminado con una etapa para poder continuar a la siguiente etapa; si bien es cierto es una metodología no muy flexible pero, si es bien aplicada los resultados estarán conforme a lo deseado por el requirente. Para el Ciclo de Vida del software se empleó el modelo de Cascada con retroalimentación.

2.1. DETERMINACIÓN DE REQUERIMIENTOS Para lograr que el sistema desarrollado sea completamente funcional el equipo de trabajo en esta etapa se valió del método inductivo, es así que para establecer los requerimientos para el software se obtuvo información acerca del proceso que se lleva a cabo actualmente, con respecto al ingreso y salida vehicular en el Campus; a través de una entrevista realizada a la Directora del Departamento encargado del mismo. También fue necesario presenciar el funcionamiento completo del proceso, así como del procedimiento aplicado en cada una de sus etapas, con lo que se determinó: El proceso llevado actualmente no cuenta con los elementos necesarios, que permitan un control efectivo del ingreso vehicular al campus universitario, esto se debe a que únicamente son identificados aquellos vehículos que no poseen el distintivo entregado por el Departamento encargado de la istración del proceso, por lo que es imposible conocer datos, que podrían ser vitales en la toma de decisiones; como lo son: tiempo de permanencia de un vehículo al interior del campus, con el respectivo registro de la hora en la que se dio su entrada o salida; capacidad en tiempo real del parqueadero automotriz, tiempo en el que se registra el mayor número de ingresos/salidas, entre otros. Al no contar con una solución automatizada el esfuerzo y el alto tiempo que representaría realizar el registro de forma manual de todos los vehículos que ingresan al campus haría inefectivo al proceso para respuestas inmediatas, ya que primero sería necesario procesar información antes de una posible respuesta.

39

Así también y con el objetivo de conocer acerca del uso que por parte de los s se da al parqueadero, el equipo de trabajo se valió de la realización de encuestas a los s de este servicio universitario, ver anexo 2.

2.1.1. Población y Muestra Para esta etapa la determinación del tamaño de la muestra se la realizó acorde a un registro histórico que fue facilitado por el departamento de Recursos Físicos, con el siguiente detalle: AÑO

ESTUDIANTES

S REGISTRADOS CON VEHICULOS DOCENTES ISTRATIVO OTROS

TOTAL

2010

266

37

11

0

314

2011

325

59

15

0

399

2012

342

100

23

0

465

Tabla 2. 1 s registrados con vehículos Fuente: Departamento de Recursos Físicos

Este registro evidenció un crecimiento significativo en el número de personas que con sus vehículos harían uso de las instalaciones universitarias, por lo que se decidió determinar el tamaño de la muestra con la población registrada del año 2012 (465), con un nivel de confianza del 95% (Z=1.96). Como se muestra a continuación se procedió a determinar el tamaño de la muestra requerido:

DATOS PARA EL CÁLCULO DE LA MUESTRA (n) Z=1.96

e=0.05

σ= 0.5

N=465

Tabla 2. 2 Datos para el Cálculo de la muestra Fuente: Los Autores

Aplicando la fórmula:

n = 211

40

Con la finalidad de cumplir con el objetivo planteado de conocer sobre el uso del parqueadero por parte de los s registrados se realizaron las encuestas acorde al tamaño de la muestra determinada. Una vez concluida esta tarea se procedió a realizar la clasificación y tabulación de las respuestas, obteniéndose resultados tanto cuantitativos así como cualitativos, estos resultados servirán para identificar varios aspectos relacionados con el servicio de parqueadero brindado por la Universidad.

2.1.2. Resultados de la encuesta 1.- ¿Usted es? istrativo ( )

Docente ( )

ISTRATIVO DOCENTE ESTUDIANTE OTROS TOTAL

Estudiante ( )

Otro ( )

5 6 188 12 211

Tabla 2. 3 Pregunta 1, encuesta Fuente: Los Autores

Figura 2. 1 Pregunta 1 Fuente: Los Autores

Análisis De los datos que se obtuvieron podemos identificar que de los s del parqueadero encuestados 5 fueron del personal istrativo, 6 Docentes, 188

41

estudiantes y 12 de otro tipo de s, entendiéndose como otro tipo de a los proveedores, autoridades, prestadores de servicios y demás personas que pueden ingresar a las instalaciones universitarias. Las encuestas fueron realizadas en varios momentos al día por lo que podemos decir que de los s hacen uso del servicio de parqueadero los que más entran y salen de las instalaciones universitarias pertenecen al grupo del estudiantado. 2.- ¿Cuál es su horario de entrada?


Figura 2. 2 Pregunta N 2 Fuente: Los Autores

Análisis De los datos recopilados y para efectos de interpretación se escogió a los de mayor incidencia, estableciéndose una hora promedio para cada una de las

42

jornadas solicitadas, para el ingreso las horas identificadas fueron 7:00; 12:00; 18:00, para la salida las horas identificadas fueron 8:30; 15:00; 23:00. Las horas que se identificaron como de mayor aforo a las instalaciones universitarias nos permiten establecer un rango en el que el servicio de ingreso/salida tiene mayor demanda el cual coincide con el horario estudiantil así como con la hora de ingreso del personal universitario. 3.- ¿Señale 3 aspectos que considere importantes para el servicio de parqueaderos?

DETALLE

VOTOS

TOTAL

Ubicación con respecto al lugar de destino.

68

211

Facilidad de .

118

211

Disponibilidad de espacios físicos.

211

211

Información sobre la disponibilidad de espacios físicos.

26

211

Seguridad

201

211



43

Análisis De los datos tabulados de la pregunta 3 podemos observar que los s consideran que los lugares e Instituciones que presten este tipo de servicios deben brindar seguridad, que se tenga facilidad de a cada lugar y además se observó que para los s encuestados es primordial los espacios físicos en el parqueadero. 4.- ¿Cuánto tiempo le lleva a usted ingresar con su vehículo dentro de las instalaciones universitarias?

1 - 5 minutos

110

5-10 minutos

85

10 - 15 minutos

12

15 - 20 minutos

4

TOTAL

211

Tabla 2. 6 Pregunta N 4, encuesta Fuente: Los Autores


44

Análisis Podemos observar acorde a la información recopilada que los s podrían tardar entre 1 a 10 minutos como máximo en ingresar a la institución, pero si bien es cierto es un tiempo relativamente bajo al momento de estar en la fila de espera para ingresar a la institución esperar ese tiempo se puede convertir en una verdadera molestia, por lo que lo más loable sería buscar una alternativa para disminuir estos tiempos de espera. 5.- ¿El tiempo que le toma ingresar a las instalaciones de la universidad le ha causado inconvenientes al desarrollo de su actividad?

SI

64

NO

147

TOTAL

211

Tabla 2. 7 Pregunta N5, encuesta Fuente: Los Autores


45

Análisis En esta pregunta encontramos, en los datos cuantificables, que: el 85% de los entrevistados han tenido inconvenientes en su normal desempeño, mientras el 15% de los entrevistados no han tenido inconveniente al momento de ingresar al campus. Las razones por las que los entrevistados indican que han tenido inconvenientes debido al tiempo que les toma ingresar a las instalaciones universitarias no es posible tabularlas ya que no existe un esquema para la identificación de estos inconvenientes. Pero la razón más común por llamarla así es el atraso a sus clases, inicio de jornada, entre otros. 6.- ¿Los parqueaderos de la PUCE SD son?

Muy adecuados

45

Adecuados

139

Poco Adecuados

24

Muy poco Adecuados

3

TOTAL

211



46

Análisis Lo que se puede rescatar de los datos tabulados de esta pregunta es que los s se encuentran conformes con las instalaciones del Campus ya que el 66% indican que el parqueadero es Adecuado, mientras que el 21% considera Muy Adecuados a los parqueaderos universitarios, es decir más de la mitad de los encuestados se encuentra conforme con las instalaciones físicas del parqueadero, lo que nos permite pensar que el inconveniente claramente no es con las instalaciones físicas del Campus. 7.- ¿Cómo califica usted el sistema de ingreso a los parqueaderos de la institución?

Muy bueno

2

Bueno

57

Regular

149

Malo

3

TOTAL

211

Tabla 2. 9 Pregunta N 7 Fuente: Los Autores

Figura 2. 7 Respuesta N 7 Fuente: Los Autores

47

Análisis Según lo indicado por los s encuestados consideran al sistema de ingreso al campus universitario es bueno, regular, esto nos da la pauta para verificar el hecho de que el proceso requiere cambios para que sea el adecuado a las exigencias de los s actuales. 8.- ¿El sistema de salida de vehículos es?

Muy Satisfactorio

32

Satisfactorio

105

Regular

43

Insatisfactorio

31

TOTAL Tabla 2. 10 Pregunta N 8 Fuente: Los Autores


211

48

Análisis Acorde a los datos recopilados nos podemos dar cuenta que existe un nivel de satisfacción por parte del con respecto al proceso de salida vehicular, pero con el proceso actual no quedaría registro alguno de las situaciones acontecidas siempre y cuando parezcas “normales”. 9.- ¿Considera que el control de salida vehicular garantiza la seguridad de su vehículo?

SI

64

NO

147

TOTAL

211



Análisis Aquí nos podemos dar cuenta que si bien es cierto el se encuentra satisfecho por el proceso manejado actualmente, pero pese a ello no está

49

conforme con el nivel de seguridad brindado por el mismo, ya que la pregunta nos ha dado como resultado que el 70% de los s considera que el proceso actual no garantiza la seguridad de su vehículo. Una vez realizado todos los pasos necesarios para levantar la información correcta con respecto al proceso actual se ha podido establecer las demandas a ser solventadas por el sistema, siendo las siguientes: 1. Contar con un completo registro del parque automotor que ingresa a las instalaciones Universitarias. El registro de contener las características importantes

para

el

proceso:

identificación

del

vehículo,

tiempo

de

permanencia, cantidad de vehículos, conductor, entre otros. 2. Registrar en tiempo real de los vehículos que ingresaron o abandonaron las instalaciones, para la obtención de reportes con la información necesaria en la toma de decisiones. 3. Aumentar los niveles de seguridad a través de la validación de a los vehículos. 4. Agilitar el registro de todos los vehículos al campus, ya que el ingreso manual de cada uno demandaría un incremento de tiempo en el ingreso o salida del automotor. 5. Mejorar el proceso de vehicular al Campus. Para conseguir satisfacer los requerimientos anteriormente identificados y para poder contrarrestar las falencias indicadas, se plantea la implementación de una solución tecnológica. Con toda la información recabada se puede ya iniciar el prototipado del sistema, partiendo desde la contextualización del mismo. Para luego continuar con la determinación de los requerimientos funcionales y los no funcionales para el sistema, tarea que se la realiza haciendo uso de las herramientas existentes para esto, como lo son los Diagramas de Clases y los Casos de Uso.

50

2.1.3. Contextualización del Sistema para mejorar el control vehicular Al prototipo de control de vehicular se lo ha denominado Sistema de Control de Vehicular CADAV, es prototipado y diseñado con la finalidad, de facilitar la istración de los vehículos que ingresan y salen del Campus Universitario, lo que permite tener mayor seguridad; así como también, utilizar tecnologías que facilitan el montaje íntegro del sistema. Con la solución propuesta el al campus universitario se lo realizaría a través de tarjetas de códigos de barras, esta sería la mejor opción por su bajo costo y durabilidad. El control automatizado contaría con lectores de códigos de barras dispuestos en la entrada y en la salida del Campus Universitario. A través de los cuales llegaría información sobre el vehículo al operador del sistema; quien dispondría el o salida del automotor, con lo que en el caso de validar los datos el operador accionaría por medio del sistema el control de barrera, terminando así el proceso. Aquellos s que no contaren con la tarjeta respectiva, el sistema concedería el siempre y cuando se justifique el mismo, ya que podría tratarse de algún proveedor, de autoridades o que algún olvidó la tarjeta.

Figura 2- 1 Diagrama de flujo procedimiento propuesto Vehicular Fuente: Los Autores

51

2.1.3.1. Diagrama de Clases Un diagrama de clases nos sirve como ayuda para poder representar en una forma más clara lo que se busca del sistema, siendo necesario para su estudio la traducción a través de un diagrama el procedimiento anteriormente descrito.

Figura 2- 2 Diagrama de Clases Diagrama Prototipo CADAV Fuente: Los Autores

2.1.3.2. Diccionario de Clases Como siguiente paso en la determinación de los requerimientos se revisará a cada clase incluyendo a sus respectivos atributos. CLASE ROL ATRIBUTOS rol_id rol_nombre

DESCRIPCION Determina las funciones o s permitidas a un determinado DESCRIPCION Número que identifica al rol Caracteristica que identifica al rol asignado Tabla 2- 1 Clase ROL Fuente: Los Autores

52

CLASE S

ATRIBUTOS usu_id

DESCRIPCION Son los encargados del manejo y istración del sistema, sus funciones van desde el registro de los automotores hasta el manejo del parqueadero DESCRIPCION Número que identifica al

usu_nombre

Caracteristica que identifica al , nombre

usu_apellido

Caracteristica que identifica al , apellido

usu_identi usu_o

Número propio de identificación del Datos para poder ar al

usu_nick

Caracteristica que identifica al , nick

usu_clave

Datos de seguridad para acceder al sistema, contraseña

usu_estado

Indica el estado en el que se encuentra el

Tabla 2- 2 Clase Fuente: Los Autores

CLASE CLIENTE ATRIBUTOS cli_id cli_identidad

DESCRIPCION Es la persona que hace uso de las instalaciones DESCRIPCION Número que identifica al cliente Número propio de identificación del cliente

cli_apellido

Caracteristica que identifica al cliente, apellido

cli_nombre

Caracteristica que identifica al cliente, nombre

cli_tipo

Caracteristica que identifica al cliente, registrado o invitado

cli_estado

Indica el estado en el que se encuentra el cliente

cli_procede

Indica a que sector pertenece el cliente: estudiante, profesor, istrativo

cli_descripcion

Datos del cliente que pueden ser utilizados para realizar alguna validación o registrar novedades Tabla 2- 1 Clase CLIENTE Fuente: Los Autores

53

CLASE TARJETA ATRIBUTOS tar_id tar_femision tar_estado

DESCRIPCION Token de , tarjeta de código de barras DESCRIPCION Número que identifica a la tarjeta Fecha en la que fue emitida la tarjeta al Estado en el que se encuentra la tarjeta de código de barras Tabla 2- 2 Clase TARJETA Fuente: Los Autores

CLASE

DESCRIPCION

PASE

Tarjeta provisional que se entrega a un de tipo invitado para acceder a las instalaciones

ATRIBUTOS

DESCRIPCION

pas_id

Número que identifica al pase Tabla 2- 3 Clase PASE Fuente: Los Autores

CLASE

DESCRIPCION

VEHICULO

Vehículo perteneciente al que parmencerá por un lapso de tiempo estacionado en el parqueadero de la Institución

ATRIBUTOS

DESCRIPCION

veh_id

Número que identifica al vehículo

veh_placa

Combinación alfanumerica que identifica al vehículo

veh_modelo

Caracteristicas que identifica al vehículo, modelo

veh_caracteristicas

Caracteristicas propias que identifican a cada vehículo

veh_anio

Año en el que fue ensamblado el automotor

veh_clase

Identifica la clase de un vehículo automotor

veh_subclase

Identifica la clase y sub clase de un vehículo automotor Tabla 2- 4 Clase VEHÍCULO Fuente: Los Autores

54

CLASE PARQUEADERO ATRIBUTOS

DESCRIPCION Representa al espacio físico destinado para el aparcamiento de los automotores DESCRIPCION Número que identifica al parqueadero

par_id par_nombre

Caracteristica que identifica al parqueadero, nombre

par_capacidad

Número de vehículos soportados por el parqueadero

par_ubicacion

Lugar físico en el campus que se encuentra dispuesto como parqueadero Tabla 2- 5 Clase PARQUEADERO Fuente: Los Autores

CLASE ESPACIO

DESCRIPCION Lugares disponibles en el parqueadero o parqueaderos del Campus

ATRIBUTOS dis_id

DESCRIPCION Número que identifica al número de espacios físicos del parqueadero Tabla 2- 6 Clase ESPACIO Fuente: Los Autores

CLASE TRANSACCIONES

DESCRIPCION Es el evento que se da al momento del ingreso o salida de las instalaciones universitarias

ATRIBUTOS tran_id tran_fecha tran_tipo tran_novedades

DESCRIPCION Número que identifica a la transacción Fecha en la que se registra la transacción Es el tipo de transacción registrada, ingreso o salida Se utiliza para registrar posibles novedades que hubieren surgido durante la transacción Tabla 2- 7 Clase TRANSACCIONES Fuente: Los Autores

2.1.4. Requerimientos Funcionales El reconocimiento sobre el comportamiento que el sistema CADAV debe realizar ante las diferentes situaciones a presentarse se describe mejor a través del

55

modelo de Casos de Uso y de sus elementos como son: actores, casos de uso y relaciones, es por esto que se utilizó este modelo para establecer los requerimientos funcionales. 2.1.4.1. Determinación de Actores Los Actores del Sistema serán los encargados de la istración, uso y manejo del mismo, la descripción la podemos encontrar en la siguiente tabla.

ACTORES

DESCRIPCIÓN

Es el máster del sistema, es quien se encarga de manejar el sistema. Este tendrá opción de a todas las áreas del sistema y podrá realizar y acceder a cualquiera de las opciones existentes

ANALISTA

Supervisará que el procedimiento sea aplicado correctamente por parte de los operadores. Es el encargado de realizar la verificación e ingreso, al sistema, de los datos de los clientes y de los vehículos, también posee s para la obtención de reportes varios.

Es quien se encuentra en la terminal de ingreso o salida de vehículos sus opciones son las de permitir o denegar el al Campus universitario.

CLIENTE

Es la persona que va a hacer uso de las instalaciones, ya sea como invitado o como registrado

Tabla 2- 8 Actores Fuente: Los Autores

2.1.4.2. Determinación de casos de Uso Una vez establecidos los Actores se delineó las funcionalidades es decir la determinación de los casos de uso, el bosquejo inicial se dio a través de un diagrama herramienta que sirvió para perfilarlos y listarlos definitivamente.

56

Figura 2- 3Diagrama posibles Casos de Uso Fuente: Los Autores

Nº

CASOS DE USO

CU-01

Gestionar s y Perfiles

CU-02

Gestionar Clientes

CU-03

Gestionar Tarjetas

CU-04

Gestionar Vehículos

CU-05

Gestionar Parqueadero

CU-06

Gestionar Ingresos

CU-07

Gestionar Salidas

CU-08

Generar Reportes

Tabla 2- 9 Listado Casos de Uso Fuente: Los Autores

57

Tabla 2- 10 Diagrama de Casos de Uso CADAV Fuente: Los Autores

2.1.4.2.1. Detalle de Casos de Uso A continuación se presentan los diagramas de los Casos de uso identificados:

Figura 2- 4 Diagrama CU-01 Fuente: Los Autores

58




59




60


2.1.5. Requerimientos No Funcionales La selección de las herramientas tecnológicas utilizadas para la realización del prototipo se la hizo basándose en aquellas que ofrecen mayores y mejores características en el desarrollo de soluciones informáticas y, que además se encuentran a disposición de la Pontificia Universidad Católica del Ecuador Sede Santo Domingo. Hardware (mínimo):  Servidor: Procesador: Pentium IV Memoria RAM: 512Mb Espacio en Disco: 1 Gb Bus de datos: 1 Ghz  Cliente Procesador: Pentium IV Memoria RAM: 512Mb Espacio en Disco: 500 Mb Bus de datos: 600 Mhz Software (mínimo):  Servidor: La herramienta utilizada para el desarrollo del sistema en lo referente al Front End fue Microsoft Visual Studio 2008. El código fuente está escrito

61

bajo el lenguaje de programación Visual Basic.Net. La istración de la información se la realiza utilizando el Gestor de Base de Datos ORACLE versión 10g y para la creación, definición y control de la base de datos empleamos el lenguaje de consulta estructurado SQL.  Cliente Microsoft Windows XP Microsoft Windows .NET Framework 3.5 Microsoft Windows Installer 3.1

2.2. ANALISIS Y DISEÑO DE LA SOLUCIÒN La solución está integrada por dos partes: la primera es software diseñado para el sistema y la segunda la parte mecánica, es decir los dispositivos físicos. En lo referente al software se diseñó un modelo, a través del cual se busca no represente mayores inconvenientes, ni cambios drásticos al procedimiento utilizado actualmente, para el operador del sistema. Con especial atención en la sección de atención al cliente que se da en el portón de , tomando en cuenta la posible capacidad para el manejo de soluciones informáticas por parte del . Debido a que se trata de una solución prototipada para la parte mecánica fue necesaria la utilización de una maqueta, que nos ayude a representar la sección del Campus en la que estaría dispuesta. Cabe indicar que las siguientes etapas del modelo de desarrollo de software se desarrollan en el siguiente capítulo.

2.2.1. Arquitectura La arquitectura empleada para desarrollar el sistema informático es de tipo cliente servidor, debido a que esta arquitectura de desarrollo permite la interacción entre cada una de las partes que conforman el sistema. Esto es de vital importancia ya que tanto el procedimiento actual como el propuesto, cuentan con puntos de atención, que se interrelacionan entre sí; y no podríamos hablar de una solución como tal sin esta característica. Para accionar los dispositivos de seguridad control de barrera, que forman la parte mecánica se utilizará el método de control de denominado: sistema

62

biométrico a través de tarjetas de códigos de barras. Debido a la seguridad, alto rendimiento y bajo costo que este ofrece, lo que permitiría a la Universidad reponer en corto la inversión realizada para la implementación del sistema.

Figura 2. 1 Control de Vehicular, metodo de barrera Fuente: http://guayaquil.olx.com.ec/barreras-vehiculares-y-control-de-parqueos-iid-232717426

2.2.2. Modelado Para llevar a cabo cualquier tipo de proyecto siempre es necesario diseñar previamente un modelo de lo que se quiere realizar para en base a esto llegar a la consecución exitosa del producto esperado. Se recomienda en estos casos trabajar con el diseño del software y el de la Base de Datos de forma independiente, pero considerando que ambos deben interactuar entre sí. Lo concerniente a la parte física de igual manera se recomienda dividir la parte mecánica de la electrónica y una vez concluidas ambas partes proceder a la unificación de la parte mecánica con la electrónica.

2.2.2.1. Modelado del Sistema Para la realización del modelado se identificó la forma de satisfacer los requerimientos establecidos. Siendo necesario que los s cuenten con un sistema que les permita registrar y consultar los datos concernientes al vehícular que se dá en la Institución, datos como tiempos de permanencía, características del vehículo, entre otros y desde luego el sistema debe poder

63

identificar plenamente al interventor en cada una de estas acciones en el sistema.fig2-12

Figura 2- 12Requerimientos para el Sistema Fuente: Los Autores

También se deben considerar los distintos niveles jerárquicos que intervienen en el proceso. Ya que dependerá del nivel del las tareas a él encomendadas.

Figura 2- 13Funciones Actores del Control Fuente: Los Autores

Para el

proceso del

del vehículo

automotor, cuyas

características

fueron previamente ingresadas al sistema por el validador del departamento respectivo véase figura 2-13 se determinó deberá ser de la siguiente forma:

64

El Cliente en el caso de que se encuentre registrado, pasará por el dispositivo su tarjeta de código de barras, si los datos son itidos, es decir el lector identifique como válido el código de barras, procederá al envío de los mismos para la validación. Si son validados se registrarán los datos, concediéndole el a la institución. Si por el contrario el cliente no estuviera registrado o no se le hubiese itido los datos presentados, el procederá a pedir un documento de identificación concediendo o no, esto a criterio propio; el a la institución. Si el concediera debe ingresar, inmediatamente o posterior a esto; los

datos requeridos para el . Así también puede ingresar alguna

observación o anomalía que pueda ser de utilidad posteriormente.

Figura 2. 2 Diagrama de Flujo Procedimiento empleado Fuente: Los Autores

Por lo que en base a estas premisas el diseño del software se estableció de tal forma que cumpla con las necesidades expuestas. El sistema se lo desarrollo por módulos: Clientes, , Vehículos, Transacciones y Reportes; en los que podemos realizar funciones de ingreso, modificación, consulta y eliminación de

65

datos, dependiendo del tipo de que esté utilizando el sistema, véase Figura 2-5.

2.2.2.2. Modelado de la Base de Datos En lo relacionado a la base de datos (BD), se escogió al modelo de base de datos relacional, que es el modelo que mejor se adapta a este tipo de soluciones. Se identificó y clasificó, acorde a la sección en la que intervienen en el sistema cada una de las tablas y vistas necesarias para su funcionamiento, como por ejemplo: tablas para validación de s, verificación s, identificación de clientes; aquí cabe indicar que fue necesario distinguirlos en dos posibles tipos de clientes: invitados (autoridades externas, proveedores, padres de familia, entre otros) y registrados (alumnos, personal istrativo, docentes, entre otros). De estos últimos la Universidad posee el registro completo de cada uno de ellos (Clientes registrados), por lo que se facilitará una vista con la información necesaria para el funcionamiento del sistema. Para los datos correspondientes a los clientes de tipo invitado, así como para el resto de campos, fueron creadas tablas para su respectivo registro figura 2-14.

Figura 2- 14Diagrama Base de Datos CADAV Fuente: Los Autores

66

III RESULTADOS Y DISCUSION 3.1. RESULTADOS El Sistema para el Prototipo de Control Automatizado del Vehicular en el Campus de la PUCE SD, denominado CADAV, se desarrolló para la plataforma Windows utilizando un lenguaje de alto nivel orientado a objetos como es Visual Basic.Net, se realizó bajo modelamiento UML; con un sistema de control de gestión de Base de Datos de modelo entidad relación, a través del Gestor de BD Oracle 10g. Es así que a través de este enfoque se desarrolló el prototipo para poder cumplir con los objetivos planteados; con una interface que permita una correcta interacción hombre-máquina, en este punto cabe señalar que fueron desarrolladas dos soluciones para el sistema, la primera empleada para la gestión de datos, habilitada únicamente para los s de tipo y Analista su nombre es CADAV; la segunda denominada CADAV-Consola desarrollada para el control vehicular. Su labor es realizada en un entorno que integra: equipos de cómputo, dispositivos lectores, interfaces hombre-máquina así también un control de barrera; los cuales interactúan entre sí y por lo que ha sido necesario definir los diferentes controles que normen correctamente su funcionamiento en el sistema.

Figura 3- 1Sistema de Control de Vehicular FUENTE: Los Autores

67

3.2. ESTRUCTURA DEL SOFTWARE El software se ha desarrollado con las características necesarias para la interacción de los componentes y así cumplir con los objetivos planteados, ver anexo 4.

Figura 3- 2Esquema del Sistema de Control de FUENTE: Los Autores

3.2.1. Conectividad con la Base de Datos La conectividad con la Base de Datos se la realiza a través de una cadena de conexión utilizando el Objeto de conexión OracleConnection, con lo que garantizamos la conexión al servidor. A continuación se muestra el código fuente de la cadena de conexión: PublicFunction GetConnectionString() AsString 'Objetos usados en el caso de que no se desee ingresar el servidor Dim cs AsString = "Data Source={2}; Id={0};={1};" Dim cs2 AsString = String.Format(cs, _Name, _, _Servidor) Return cs2 EndFunction

68

Como se observa en el código fuente en la cadena definimos la ruta, el y el a utilizarse para el enlace con la Base de Datos.

3.2.2. Método de Desarrollo El método de desarrollo empleado para la elaboración del Software fue por Capas con lo que se garantiza la distribución efectiva del trabajo, se escogió n=3, es decir existen 3 capas: presentación, enlace y transacciones. La forma de su funcionamiento obedece a la arquitectura cliente-servidor por capas. Donde la capa de presentación envía y presenta los datos tanto las solicitudes como los resultados al del Sistema, en la capa de enlace se realiza la definición e interpretación de las solicitudes realizadas. En la capa de transacciones es donde se resuelven las peticiones realizadas, aquí es donde interactuamos con la Base de Datos para la obtención de los resultados.

3.2.3. Módulos del Sistema Para el desarrollo del Sistema fue necesario separarlo en dos grandes módulos, los que trabajan guardando relación sobre su funcionamiento pese a estar dirigidos a dos grupos distintos. Los módulos creados con este fin son: istración y consola. El sistema en sus dos componentes (CADAV y CADAV Consola) utiliza para su funcionamiento Formularios, los formularios básicos utilizados son Loggin y istración o consola. 3.2.3.1. Módulo de istración El módulo de istración está diseñado para interactuar directamente con las tablas y con las opciones correspondientes a los s del sistema como son: registro, consulta, modificación y eliminación de datos. Este módulo es el encargado de velar por el correcto uso del sistema, esto se logra a través de reglas de validación, inmersas en el código fuente del software también a través del control de ingreso de los s con el método biométrico de ingreso por conocimiento, esto es aplicado en el formulario de la solución denominado Loggin. El cual es utilizado en ambos componentes de la solución con el mismo fin.

69

Figura 3- 3 Formulario para acceder al sistema (Loggin) FUENTE: Los Autores

Es a través de este módulo que podremos obtener la información en tiempo real de las transacciones del proceso aplicado, las cuales se pueden ajustar a nuestras necesidades específicas del momento. Es aquí donde se encuentran las opciones para el manejo de la información tanto de los s, así como la de los clientes, sus vehículos y el registro de los datos del ingreso/salida de la Institución.

Figura 3- 4 Formulario de Gestión del Sistema FUENTE: Los Autores

70

3.2.3.2. Módulo de Consola El Módulo de Consola fue creado para llevar el control de los datos concernientes a los clientes, transacciones y vehículos que ingresan a la Universidad. Para su manejo, en sus componentes, fueron creados los formularios de Gestión y Consola, con los que se puede realizar las todas las operaciones de la lógica del negocio, desde luego acorde al rol del que se hubiere otorgado, es decir a su perfil. En este Módulo el podrá validar la información representativa para el proceso y ejecutar las acciones que le corresponden acorde a la presente propuesta. Como son: registro de novedades al momento del ingreso/salida de la institución del vehículo, esto se puede dar al momento que el otorga a un cliente invitado, o que no se le registraron los datos en el sistema. También permite denegar el a la Universidad en el caso de así considerarlo.

Figura 3- 5 Formulario de CADAV Consola FUENTE: Los Autores

3.3. ESTRUCTURA DEL PROTOTIPO El presente trabajo comprende de dos partes, la parte mecánica y el software a continuación vamos a revisar la parte mecánica, sobre la implementación del prototipo ya que si bien es cierto el software desarrollado busca trabajar con equipos

71

reales para efectos demostrativos se realizó un prototipo conformado por una maqueta del área de garita de guardianía con escala 1- 47 y, la parte de la circuitería está compuesta por: dos motores eléctricos de tipo paso a paso, un circuito de control conformado por un micro controlador, codificado para que controle a los motores y emita las órdenes para su funcionamiento.

Figura 3. 1 Maqueta para el Sistema Fuente: Los Autores

El circuito de control está conformado por transistores, resistencias, led, diodos. La comunicación se la realiza de forma serial RS-232, por su utilidad en el control que se va a implementar y por facilidad en el manejo y comunicación con el puerto. Para el desarrollo de la circuitería de la maqueta fue necesario contar con el soporte de un experto electrónico para cada etapa de la producción del circuito. Lo primero en desarrollar fue la red de la circuitería, el resultado de esto lo podemos ver en la siguiente figura:

Figura 3. 2 Malla para el circuito de control de los motores Fuente: Experto electrónico

72

Tomando en cuenta que se necesitaría contar con dos motores (proceso ingreso/salida) se elaboraron dos mallas de este tipo una para cada motor. En la siguiente imagen se puede ver el resultado de la aplicación de la malla desarrolla.

Figura 3. 3 Malla con el detalle de sus componentes electrónicos Fuente: Los Autores

Figura 3. 4 Circuito electrónico desarrollado Fuente: Los Autores

La implementación de los motores se la realizó sobre una base de madera instalada en la maqueta y en su terminales de giro se les coloco las barreras respectivas.

73

Figura 3. 5 Motor de dos tiempos con la barrera adaptada Fuente: Los Autores

3.4. MODO DE OPERACIÓN Para el ingreso al Campus Universitario en un vehículo automotor el prototipo considera dos posibles casos: Cliente registrado, Cliente no registrado. Para ser considerado como cliente registrado es necesario que los datos de la tarjeta de código de barras coincidan con los del vehículo en el que se intenta acceder en ese momento. El en este caso se lo realiza utilizando la tarjeta en el dispositivo lector de código de barras, cuando la lectura es realizada de manera exitosa el Operador verificará que los datos del vehículo coincidan con lo mostrado en su terminal, si esto ocurre se permitirá el a las instalaciones universitarias a través del control de barrera. Cuando el no sea realizado por un cliente registrado o porque el dispositivo no reconoce a la tarjeta, el operador del sistema deberá solicitar para el al Campus un documento de identificación tanto del Cliente como del automotor, con lo cual se entregará y permitirá el con una tarjeta creada para este procedimiento. Recordando que el a invitados estará normado por lo que así disponga el del sistema.

Figura 3. 6 Maqueta simulando el concedido Fuente: Los Autores

74

El sistema registrará cada uno de las transacciones realizadas lo que permitirá posteriormente su correcta supervisión. Es importante mencionar que para cada ingreso el sistema verificará la disponibilidad de espacios en el parqueadero para conceder o negar el . Así también el sistema cuenta con botones de pánico los mismos que podrán ser activados en el momento que así se requiera, un claro ejemplo se daría al presentarse un incendio por lo que sería necesario la evacuación del Campus y a la vez el ingreso de las unidades de socorro, por lo que se debería tener levantadas ambas barreras. Y de igual forma se podrían presentar situaciones en las que se debería denegar toda salida o todo ingreso de vehículos automotores.

Figura 3.7 Modulo de consola con botones de pánico para casos fortuitos Fuente: Los Autores

3.5. DISCUSIÓN Los resultados obtenidos han sido suficientes en relación a los objetivos planteados ya que a través de la solución, se puede contar con un registro completo del tránsito diario

75

vehicular; lo que nos permite realizar los filtros necesarios para obtener la información completa de lo requerido por los s del sistema. Al contar con un completo reporte sobre las transacciones realizadas durante los rangos de tiempos solicitados podemos encontrar, incluso posibles errores cometidos sea

por los s del sistema o por la parte mecánica del mismo, lo que

finalmente nos servirá para poder determinar responsabilidades y de esta forma poder realizar la respectiva toma de decisiones cuando así se lo requiera, esto último era algo imposible de saber con el anterior procedimiento empleado. Ahora se cuentan con reportes exportables a Excel, estos reportes manejan criterios de búsqueda para facilitar la tarea, filtros como por ejemplo el de fecha por horas del día, por tipos de , por tipo de transacción, etc.

Figura 3. 8 Modulo para reporte de Operaciones Fuente: Los Autores

76

CONCLUSIONES Y RECOMENDACIONES CONCLUSIONES En la Pontificia Universidad Católica del Ecuador Sede Santo Domingo actualmente no se está llevando un adecuado control de ingreso y salida de vehículos, lo que podría ser perjudicial para la Universidad ante algún caso fortuito, ya que no contaría con la información necesaria para establecer responsabilidades. En el caso de que sea implementado el Sistema mejorará y manejará de forma eficiente el de vehículos al Campus de la Pontificia Universidad Católica del Ecuador sede Santo Domingo, incrementándose considerablemente los niveles de seguridad en la Universidad. El Sistema CADAV ofrece un eficiente control del ingreso y salida del parque automotor, que usa las instalaciones del Campus universitario, por lo que de requerirlo se podrá contar con la información necesaria para, resolver las situaciones que surgen derivadas del control. La toma de decisiones con respecto a los casos suscitados en la Universidad, sobre el parque automotor contará con un mejor sustento, debido a la información que se dispondrá del proceso. La Universidad al emplear la infraestructura tecnológica y las herramientas de desarrollo informático que posee en la implementación del sistema, incrementará significativamente los niveles de seguridad y de satisfacción por parte del de parqueaderos tal y como un sistema de control lo requiere.

RECOMENDACIONES Se recomienda llevar un mejor control del proceso de ingreso y salida vehicular del Campus universitario, el cual permita contar con toda la información suficiente para establecer responsabilidades de los actores de cada caso dado en la Universidad. Se recomienda seguir rigurosamente los pasos indicados para la instalación del sistema del Manual de Instalación, ver anexo 5; con lo que se garantizaría el buen funcionamiento del sistema.

77

Se recomienda el uso de la metodología convencional con métodos inductivos para el desarrollo de sistemas de control, ya que a través de esta metodología se pueden establecer claramente todo lo necesario para que sea un eficaz y eficiente Sistema de Control. Se recomienda la implementación del prototipo denominado CADAV, en el Campus de la Pontificia Universidad Católica del Ecuador sede Santo Domingo, así como la creación de políticas que permitan un mejor control del ingreso y salida vehicular de la Institución. Se recomienda realizar capacitaciones previas a los s del Sistema CADAV

78

BIBLIOGRAFÍA LIBROS Halvorson, Michael. Microsoft Visual Basic 2008 Step by Step. Microsoft Team Loney, Kevin. Oracle Database 10g The Complete Reference. McGraw-Hill. 3ra Edición Ramez, Elmasri. Fundamentos de Sistemas de Bases de Datos. 3ra: Edición Roger S. Pressman, 4 Edición, Mc Graw Hill 1998.

REVISTAS BOLETÍN INFORMATIVO No.382 re/ht Ambato, julio 18, 2008

SOPORTE ELECTRÓNICO http://www.maestrosdelweb.com/principiantes/%C2%BFque-son-las-bases-dedatos/ http://www.tungurahua.gov.ec/Publicaciones/NoticiaPdf.php?key=325 http://www.misitio.com.ec/2065f079fd/topic.php?r=6aa8bf9112ea520d7b89d2d478 ddc79a&ct=programming&a=showtopic http://www.ordenadores-y-portatiles.com/glosario-de-informatica.html http://fundamentosinformaticosjl.wordpress.com/category/base-de-datos/ http://www.cavsi.com/preguntasrespuestas/quees-un-detector-de-barras-impresas/ http://es.idoub.com/doc/56768256/prototipos http://www.eumed.net/libros/2008a/358/LOS%20PROTOTIPOS.htm http://www2.ing.puc.cl/~iing/ed429/sistemas_biometricos.htm http://www.iec.csic.es/criptonomicon/autenticacion/nombre.html

79

GLOSARIO Back-end. Es la parte que procesa la entrada desde el front-end o la base de datos que se vaya a utilizar.

Dispositivo. Elemento de "hardware" con el que el sistema interactúa, como son discos duros, módem, o ratón.

Escalabilidad. Es la propiedad deseable de un sistema, una red o un proceso, que indica su habilidad para, o bien manejar el crecimiento continuo de trabajo de manera fluida, o bien para estar preparado para hacerse más grande sin perder calidad en los servicios ofrecidos.

Estabilidad. Se dice que un sistema es estable cuando su nivel de fallos disminuye por debajo de un determinado umbral, que varía dependiendo de la estabilidad que se requiera.

Integridad de datos. Se refiere a la corrección y completitud de los datos en una base de datos. Cuando la integridad de los datos almacenados puede perderse de muchas maneras diferentes. Pueden añadirse datos no válidos a la base de datos, tales como un pedido que especifica un producto no existente.

Modelamiento. Aprendizaje por imitación a través de un modelo. También denominado aprendizaje vicario.

Periféricos. Dispositivo electrónico físico que se conecta a una computadora. Los periféricos permiten que la computadora interactúe con el exterior.

80

Prototipado. Es la acción de haber realizado un prototipo de una situación, cosa, momento, evento, etc.

Tokens. Pequeños grupos de datos que representan un conjunto de información mayor previamente establecida

Transacciones. Es un conjunto de órdenes que se ejecutan formando una unidad de trabajo.

81

ANEXOS ANEXO 1 ENTREVISTA DIRECTORA RECURSOS FÍSICOS Fecha: FEBRERO 2008 Entrevistada: Sra. Fanny Peña, Directora del Departamento de Recursos Físicos Entrevistador: Sr. Cristian Barreno Objetivos: a.- Identificar el procedimiento actual llevado a cabo para el vehicular en el Campus de la PUCE SD b.- Identificar a cada uno de los actores del proceso en cuestión c.- Identificar las ventajas y desventajas del procedimiento aplicado f.- Establecer las necesidades del Departamento con respecto al procedimiento Lugar: Oficina de Dirección Departamento de Recursos Físicos. Fecha: Febrero 2008 Hora: 12:45 Duración: 2 horas Cuerpo de la entrevista: Entrevistador: El motivo de la presente entrevista es para identificar plenamente la realidad del proceso actual, así como sus ventajas y necesidades; realizado en el Campus de la Pontificia Universidad Católica del Ecuador sede Santo Domingo, istrado según nos ha sido informado por el departamento que usted preside. Esto nos es de suma importancia para poder elaborar o para formalizar el procedimiento que actualmente se lleva a cabo y de ser necesario implementar los cambios que fuesen

82

necesarios para la mejora del mismo. Lo indicado forma parte del proceso a seguir para la obtención del título de Ingeniero en Sistemas y Computación.

Esperando nos pueda ayudar con la información solicitada. Entrevistada: Desde luego tal y como lo había señalado no existe inconveniente para facilitar esta información. Entrevistador: ¿Existe algún procedimiento formal para el proceso realizado actualmente para permitir el al Campus? Entrevistada: No, actualmente el procedimiento se lo realiza con un procedimiento propio del departamento que no ha sido formalizado, el cual se ajusta a las necesidades existentes del momento. Entrevistador: ¿Podría indicarnos quienes son los actores actuales del proceso? Entrevistada: Desde luego, existen 3 actores en el proceso actual: Directora, Asistente de dirección, guardias de seguridad. Entrevistador: ¿Cuál es la función que realizan cada uno de los actores? Entrevistada: las funciones realizadas por cada uno de ellos son: Directora: Supervisa el proceso, revisión de informes en casos particulares, permite la entrada o salida de vehículos en casos especiales, como por ejemplo olvido o pérdida del carné entregado. Asistente: Registra los datos del vehículo en el cuaderno de registro de datos de vehículos, coloca el sticker en el parabrisas del vehículo. Guardias de seguridad: Verifican que los vehículos a ingresar posean el respectivo distintivo y, en el caso de no poseerlo solicitan algún documento de identificación para su respectivo registro. Entrevistador: Bueno ahora conocemos partes muy importantes del procedimiento empleado. ¿Podría ayudarnos con una descripción del proceso empleado actualmente?

83

Entrevistada: No hay problema, el proceso de control vehicular básicamente está dispuesto para que, las personas que están registradas en la universidad sea como docentes, estudiantes o personal istrativo, se les registra las características del vehículo y se les entrega un estiker por parte de mi asistente, quienes tengan ese distintivo pueden acceder a las instalaciones sin revisión alguna, cuando ingresan se les entrega un carné el que debe der devuelto a la salida de las instalaciones. Si no lo tienen el conductor debe entregar un documento de identificación personal y se les permitirá el entregándoles de igual forma un carné. Entrevistador: Con ese procedimiento ¿cuáles han sido los problemas que han podido identificar? Entrevistada: Uno de los principales es el del tema seguridad, ya que como no se lleva un registro total sino más bien parcial porque solo se registra a quienes no tienen carné, esto ha llevado a que no se sepa el estado en el que ingresan los vehículos, que en ocasiones han sido desvalijados según sus propietarios. Además existe el inconveniente de no tener un completo registro del motivo por el que ingresan a las instalaciones personas ajenas a la Institución, más allá de la explicación verbal dada en guardianía que no es registrada lo que constituye una debilidad en seguridad. Entrevistador: ¿Creé usted que con un control que permita identificar a todos los clientes en el proceso se disminuirían estos casos? Entrevistada: Si, al tener certeza de las condiciones en la que ingresa el vehículo o la persona que lo conduce, se podrían tomar las acciones pertinentes ante cualquier vulneración de seguridad que se pueda dar. Entrevistador: ¿Los actores actuales que tanta experiencia tienen en manejos de programas informáticos? Entrevistada: Bueno nosotras, no tendríamos problema, el problema sería más bien con los guardias de seguridad ya que en algunos casos no han utilizado nunca un computador Entrevistador: ¿Le gustaría contar o probar con alguna solución informática para el proceso?

84

Entrevistada: lo que me gustaría independientemente de los medios a utilizarse es poder contar con un control que me permita tener a disposición los datos de las transacciones diarias en la Universidad, así como quien del personal estuvo en ella. Entrevistador: Entonces ¿no habría problema con el manejo de una solución informática si es que la misma solventa todas las necesidades del departamento? Entrevistada: No se tendría problema en lo absoluto ya que lo que necesito es poder contar con la información de los s al Campus. Entrevistador: Muy bien eso ha sido todo por hoy de antemano muy agradecido por la valiosa información que servirá de pilar para nuestra Tesis así como por el tiempo destinado para esta entrevista. Entrevistada: No hay problema y les deseo suerte con el desarrollo de su trabajo

Sra. Fanny Peña Calderón Directora Dep. Recursos Físicos

Sr, Cristian Barreno R. Entrevistador

85

ANEXO 2 ENCUESTA SOBRE EL USO DE PARQUEADERO Estimado , reciba un cordial saludo, actualmente nos encontramos realizando una investigación para la consecución de nuestra tesis de grado, acerca del control de al parqueadero, para nosotros es muy importante su opinión y de antemano le agradecemos su predisposición y objetividad con la que responda las siguientes preguntas:

1.- ¿Usted es?

istrativo ( )

Docente ( )

Estudiantado ( )

Otro ( ) _________________

2.- ¿Cuál es su horario de entrada?

Ingreso

Salida

Día

_____________

____________

Tarde

_____________

____________

Noche

_____________

____________

3.- ¿Señale 3 aspectos que considere importantes para el servicio de parqueaderos?

Ubicación con respecto al lugar de destino. Facilidad de . Disponibilidad de espacios físicos. Información sobre la disponibilidad de espacios físicos. Seguridad

4.- ¿Cuánto tiempo le lleva a usted ingresar con su vehículo dentro de las instalaciones universitarias?

1 - 5 minutos ( )

5 - 10 minutos ( )

10-15 minutos ( )

15-20 minutos ( )

86

5.- ¿El tiempo que le toma ingresar a las instalaciones de la universidad le ha causado inconvenientes al desarrollo de su actividad?

Si ( )

No ( ) Porque: ____________________________________________________________

______________________________________________________________________________

6.- ¿Los parqueaderos de la PUCE SD son?

Muy adecuados ( ) Adecuados ( ) Poco Adecuados( ) Muy poco Adecuados( )

7.- ¿Cómo califica usted el sistema de ingreso a los parqueaderos de la institución?

Muy bueno ( )

Bueno ( )

Regular ( )

Malo ( )

8.- ¿El sistema de salida de vehículos es? Muy Satisfactorio ( ) Satisfactorio ( ) Regular ( ) Insatisfactorio ( ) Muy Insatisfactorio ( )

9.- ¿Considera que el control de salida vehicular garantiza la seguridad de su vehículo?

Si (

) No (

) Porque___________________________________________________

_______________________________________________________________________

87

ANEXO 3 INFORME DEPARTAMENTO RECURSOS FÍSICOS

En base a la solicitud realizada por los señores Cristian Barreno y Paúl Tapia, egresados de la Escuela de Ingeniería en Sistemas, presentada por el Director de su Disertación cumplo en informarle lo siguiente: En el año 2010 el número de s registrados con vehículos fue de: 266 estudiantes, 37 docentes y 11 del personal istrativo. En el año 2011 el número de s registrados con vehículos fue de: 325 estudiantes, 59 docentes y 15 del personal istrativo. En el año 2012 el número de s registrados con vehículo fue de 342 estudiantes, 100 docentes y 23 del personal istrativo. Es todo lo que puedo informar en relación a la solicitud realizada.

Sra. Fanny Peña Directora RR. FF.

88

ANEXO 4 CODIFICACIÓN DEL SISTEMA CADAV Módulo Loggin Public Class Frm Private objSql As New cSql Dim dt As DataTable Dim intento As Integer = 0 Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click Me.Close() End Sub Sub Conectar() dt = objSql.consulta_cadena("SELECT * FROM T_USU WHERE USU_ESTADO='A'", "T_USU") Dim siNo As String = "NO" For i = 0 To dt.Rows.Count - 1 If Trim(dt.Rows(i).Item("USU_NICK").ToString) = txtnick.Text AndAlso Trim(dt.Rows(i).Item("USU_").ToString) = txtclave.Text Then siNo = "SI" codigo = Trim(dt.Rows(i).Item("USU_COD").ToString) tipo = Trim(dt.Rows(i).Item("USU_ROL").ToString) Exit For End If Next If (siNo = "SI") Then Me.Hide() If tipo = "" Then FrmPrincipal.Show() ElseIf tipo = "ANALISTA" Then FrmCategoria.Enabled = False FrmSubtipo.Enabled = False FrmPrincipal.btns.Enabled = False FrmPrincipal.btnParqueadero.Enabled = False FrmPrincipal.btntipoinvitado.Enabled = False FrmPrincipal.Show() ElseIf tipo = "OPERADOR" Then FrmConsola.Show() End If Else intento += 1 cMensaje.MensajeInfo(" Y /O CONTRASEÑA INCORRECTA") If intento = 3 Then Me.Close() End If End If End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click Conectar()

89

End Sub Private Sub txtclave_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtclave.KeyDown If (e.KeyCode = Keys.Enter) Then Conectar() End If End Sub Private Sub Frm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing End Sub Private Sub Frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class

Módulo FRMConsola Imports System.IO.Ports Public Class FrmConsola Private objIns As New cInserta Private objSql As New cSql Dim codigo_vehiculoE As Integer = 0 Dim codigo_clienteE As Integer = 0 Dim codigo_vehiculoS As Integer = 0 Dim codigo_clienteS As Integer = 0 Private Sub txtPlacaE_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPlacaE.KeyDown If (e.KeyCode = Keys.Enter) Then PasarTarjeta(txtPlacaE, txtModeloE, txtSubtipoE, txtTipoE, txtClienteE, codigo_clienteE, codigo_vehiculoE) End If End Sub Sub PasarTarjeta(ByRef txtPlaca As TextBox, ByRef txtModelo As TextBox, ByRef txtSubtipo As TextBox, ByRef txtTipo As TextBox, ByRef txtCliente As TextBox, ByRef codigo_cliente As Integer, ByRef codigo_vehiculo As Integer) Dim dt As DataTable = Nothing dt = objSql.consulta_cadena("SELECT * FROM VCON_TIPOSUBVEHCLI WHERE VEH_PLACA='" & txtPlaca.Text & "'", "VCON_TIPOSUBVEHCLI") If dt.Rows.Count > 0 Then If (Trim(dt.Rows(0).Item("CLI_ESTADO").ToString) = "A") Then codigo_cliente = Trim(dt.Rows(0).Item("CLI_COD").ToString)

90

codigo_vehiculo = Trim(dt.Rows(0).Item("VEH_COD").ToString) txtModelo.Text = Trim(dt.Rows(0).Item("VEH_MODELO").ToString) txtSubtipo.Text = Trim(dt.Rows(0).Item("TIPO_CATE").ToString) txtTipo.Text = Trim(dt.Rows(0).Item("SUB_TIPO").ToString) txtCliente.Text = Trim(dt.Rows(0).Item("CLI_NOMBRE").ToString) & " " & Trim(dt.Rows(0).Item("CLI_APELLIDO").ToString) btnPermitirE.Focus() Else cMensaje.MensajeError("El Cliente se encuentra en estado Pasivo") codigo_vehiculo = 0 codigo_cliente = 0 txtModelo.Text = "" txtSubtipo.Text = "" txtTipo.Text = "" txtCliente.Text = "" txtPlaca.Text = "" End If Else cMensaje.MensajeError("Placa Erronea") codigo_vehiculo = 0 codigo_cliente = 0 txtModelo.Text = "" txtSubtipo.Text = "" txtTipo.Text = "" txtCliente.Text = "" txtPlaca.Text = "" End If End Sub Private Sub Configuracion() puertoserial.PortName = "COM1" 'puerto de comunicacion puertoserial.BaudRate = "9600" ' velocidad puertoserial.DataBits = "8" ' bits de paridad puertoserial.StopBits = "1" ' bits de parada End Sub Private Sub txtPlacaE_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPlacaE.TextChanged End Sub Private Sub FrmConsola_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Frm.Close() End Sub Private Sub FrmConsola_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Configuracion() End Sub Sub accesar() If (codigo_vehiculoE = 0) Then cMensaje.MensajeAlert("No se pasado la tarjeta. Reintente") Else Dim codigo_transaccion As Integer = 0

91

Dim dt As DataTable = objSql.consulta_cadena("Select TRAN_COD FROM TCON_TRAN WHERE TRAN_CODVEH='" & codigo_vehiculoE & "' AND TRAN_FECHS IS NULL", "TCON_TRAN") If dt.Rows.Count > 0 Then cMensaje.MensajeAlert("Aun no se registra una salida") Else Dim codi_tran As Integer = objIns.GeneradorCodigos("TRAN_COD", "TCON_TRAN") objSql.ejecutar_consulta("INSERT INTO TCON_TRAN(TRAN_COD,TRAN_CODVEH,TRAN_FECH,TRAN_CAM,TCOD_USU,TCOD_CLI,TRAN_ TIPOUSU) VALUES(" & codi_tran & "," & codigo_vehiculoE & ", to_date('" & Date.Now & "', 'dd/MM/yyyy hh24:mi:ss'),'" & txtObservacionS.Text & "'," & codigo & "," & codigo_clienteE & ",'C')", "TCON_TRAN") txtModeloE.Text = "" txtClienteE.Text = "" txtPlacaE.Text = "" txtTipoE.Text = "" txtSubtipoE.Text = "" txtObservacionE.Text = "" codigo_clienteE = 0 codigo_vehiculoE = 0 cMensaje.MensajeInfo("Ingreso Registrado") puertoserial.Open() puertoserial.WriteLine("100") puertoserial.Close() txtPlacaE.Focus() End If End If End Sub Private Sub btnPermitirE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPermitirE.Click accesar() End Sub Sub salir() If (codigo_vehiculoS = 0) Then cMensaje.MensajeAlert("No se pasado la tarjeta. Reintente") Else Dim codigo_transaccion As Integer = 0 Dim dt As DataTable = objSql.consulta_cadena("Select TRAN_COD FROM TCON_TRAN WHERE TRAN_CODVEH='" & codigo_vehiculoS & "' AND TRAN_FECHS IS NULL", "TCON_TRAN") If dt.Rows.Count > 0 Then codigo_transaccion = Trim(dt.Rows(0).Item("TRAN_COD").ToString) objSql.ejecutar_consulta("UPDATE TCON_TRAN SET TRAN_OBSERS ='" & txtObservacionS.Text & "',TRAN_FECHS=to_date('" & Date.Now & "', 'dd/MM/yyyy hh24:mi:ss'), TCOD_USUS=" & codigo & " WHERE TRAN_COD=" & codigo_transaccion, "TCON_TRAN") cMensaje.MensajeInfo("Salida registrada") puertoserial.Open() puertoserial.WriteLine("14") puertoserial.Close()

92

Else cMensaje.MensajeInfo("Primero debe realizar una entrada") End If txtModeloS.Text = "" txtPlacaS.Text = "" txtSubtipoS.Text = "" txtTipoS.Text = "" txtClienteS.Text = "" codigo_vehiculoS = 0 codigo_clienteS = 0 End If End Sub Private Sub btnPermitirS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPermitirS.Click salir() End Sub Private Sub btnManualE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnManualE.Click FormListadoVehiculoEntrada = True FrmListadoVehiculosCliente.Close() FrmListadoVehiculosCliente.ShowDialog() End Sub Private Sub btnIngresoInvitadoE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIngresoInvitadoE.Click FormVehiculoAbierto = False 'SIRVER PARA REUTILIZAR EL FORMULARIO FormVehiculoInvitadaoEntrada = True ' REUTILIZO EL FORMULARIO FRMINVITADO EN LA ENTRADA Y SALIDA FrmInvitado.Close() FrmInvitado.lbTituloForm.Text = "ENTRADA DE VEHICULO" FrmInvitado.ShowDialog() End Sub Private Sub txtPlacaS_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPlacaS.KeyDown If (e.KeyCode = Keys.Enter) Then PasarTarjeta(txtPlacaS, txtModeloS, txtSubtipoS, txtTipoS, txtClienteS, codigo_clienteS, codigo_vehiculoS) End If End Sub Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX3.Click FormVehiculoAbierto = False 'SIRVER PARA REUTILIZAR EL FORMULARIO FormVehiculoInvitadaoEntrada = False FrmInvitado.Close() FrmInvitado.lbTituloForm.Text = "SALIDA DE VEHICULO" FrmInvitado.ShowDialog() End Sub

93

Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click FormListadoVehiculoEntrada = False FrmListadoVehiculosCliente.Close() FrmListadoVehiculosCliente.ShowDialog() End Sub Private Sub txtPlacaS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPlacaS.TextChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) puertoserial.Open() puertoserial.WriteLine("1") puertoserial.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) puertoserial.Open() puertoserial.WriteLine("14") System.Threading.Thread.Sleep(2000) puertoserial.WriteLine("100") puertoserial.Close() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) puertoserial.Open() puertoserial.WriteLine("1") System.Threading.Thread.Sleep(2000) puertoserial.WriteLine("10") puertoserial.Close() End Sub Private Sub but_bajar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_bajar1.Click puertoserial.Open() puertoserial.WriteLine("1") puertoserial.Close() End Sub Private Sub but_bajar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_bajar2.Click puertoserial.Open() puertoserial.WriteLine("10") puertoserial.Close() End Sub Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_abrir2p.Click puertoserial.Open()

94

puertoserial.WriteLine("14") System.Threading.Thread.Sleep(2000) puertoserial.WriteLine("100") puertoserial.Close() End Sub Private Sub but_cerrar2p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_cerrar2p.Click puertoserial.Open() puertoserial.WriteLine("1") System.Threading.Thread.Sleep(2000) puertoserial.WriteLine("10") puertoserial.Close() End Sub End Class

Módulo Principal Imports System.IO Public Class FrmPrincipal Private objSql As New cSql Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncategorias.Click FrmCategoria.Close() FrmCategoria.ShowDialog() End Sub Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub ButtonX9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub btnclientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub

95

Private Sub btnproveedores_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub btntipo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntipoinvitado.Click FrmDescripcion.Close() FrmDescripcion.ShowDialog() End Sub Private Sub btnbodega_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsubtipo.Click FrmSubtipo.Close() FrmSubtipo.ShowDialog() End Sub Private Sub btnmarca_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvehiculo.Click FormVehiculoAbierto = True FrmVehiculo.Close() FrmVehiculo.ShowDialog() End Sub Private Sub btnproductos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub FrmPrincipal_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Frm.Close() End Sub Private Sub FrmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load separador_decimales = System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecima lSeparator ' Dim vdt As DataTable = objSql.consultarIndividual("fepar_parame", "fepar_codigo", "PARA0000001") ' porcentaje_iva = CDbl(vdt.Rows(0).Item("fepar_valiva")) End Sub Private Sub btnventas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub ButtonX30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub ButtonX20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

96

End Sub Private Sub btngarantes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub btns_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btns.Click Frm.Close() Frm.ShowDialog() End Sub Private Sub ButtonX27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnParqueadero.Click FrmParqueadero.Close() FrmParqueadero.ShowDialog() End Sub Private Sub ButtonX18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX18.Click Frm.Close() End Sub Private Sub btnparametros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub btnReporteria_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReporteria.Click FrmReporteria.Close() FrmReporteria.ShowDialog() End Sub End Class

Módulo Invitado Public Class FrmCrearInvitado Private objSql As New cSql Private objIns As New cInserta Private objAct As New cActualiza Dim codigoPK As String Dim vInserUpdate As String Dim dt As DataTable = Nothing Dim numeroRegistros As Integer = 0 Dim codigoTipo As String Sub guardar() txtnombre.Text = RTrim(txtnombre.Text) txtapellido.Text = RTrim(txtapellido.Text) txtobservacion.Text = RTrim(txtobservacion.Text)

97

If txtnombre.Text = "" Then cMensaje.MensajeAlert("Falta de ingresar el nombre") Exit Sub End If If txtapellido.Text = "" Then cMensaje.MensajeAlert("Falta de ingresar el apellido") Exit Sub End If If txtcedula.Text = "" Then cMensaje.MensajeAlert("Falta de ingresar cédula") Exit Sub End If If combotipo.SelectedIndex = -1 Then cMensaje.MensajeAlert("Falta de seleccionar el tipo de invitado") Exit Sub End If If (cValidacion.ValidarCedula_Ruc(txtcedula.Text) = False) Then cMensaje.MensajeError("Ingrese un número de cédula") Exit Sub End If If cValidacion.ValidarMínimoCaracteres(txtnombre, 3, "El número de caracteres del nombre") = False Then Exit Sub If cValidacion.ValidarMínimoCaracteres(txtapellido, 3, "El número de caracteres del apellido") = False Then Exit Sub If (vInserUpdate = "Insertar") Then If (cValidacion.ValidarDatosNoseRepitan("TCON_INV", "INV_CEDULA", txtcedula.Text) = False) Then Exit Sub codigoPK = objIns.Insertar_Invitado(txtcedula.Text, codigoTipo, txtapellido.Text, txtnombre.Text, txtobservacion.Text) FrmInvitado.txtInvitado.Text = txtnombre.Text & " " & txtapellido.Text FrmInvitado.txtTipo.Text = combotipo.Text FrmInvitado.CodigoCLiente = codigoPK Me.Close() ElseIf (vInserUpdate = "Actualizar") Then If (cValidacion.VerificarActualizacionDatos("TCON_INV", "INV_CEDULA", txtcedula.Text, codigoPK) = False) Then Exit Sub objAct.Actualizar_Invitado(txtcedula.Text, codigoTipo, txtapellido.Text, txtnombre.Text, txtobservacion.Text, codigoPK) End If cMensaje.MensajeInfo("Datos Guardados correctamente") cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, BtnImprimir, btnsalir, False) establecer_estado_entradas(False) btnEditar.Enabled = True btneliminar.Enabled = True mostrarGrid() End Sub Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click guardar() End Sub Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click

98

nuevo() End Sub Sub nuevo() establecer_estado_entradas(True) limpiar_entradas() cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, BtnImprimir, btnsalir, True) vInserUpdate = "Insertar" txtcedula.Focus() End Sub #Region "validaciones" Sub establecer_estado_entradas(ByVal estado As Boolean) txtcedula.Enabled = estado txtapellido.Enabled = estado txtnombre.Enabled = estado txtobservacion.Enabled = estado combotipo.Enabled = estado End Sub Sub limpiar_entradas() txtcedula.Text = "" txtnombre.Text = "" txtapellido.Text = "" txtobservacion.Text = "" End Sub Private Sub txtnombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress cValidacion.Validarsolo_letras(sender, e) End Sub Private Sub txtnombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnombre.TextChanged cValidacion.ValidarEspaciosEnBlancosInicialesEIntermedios(txtnombre) End Sub Private Sub txtcedula_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcedula.KeyPress cValidacion.Validarsolo_numeros(sender, e) End Sub Private Sub txtapellido_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtapellido.KeyPress cValidacion.Validarsolo_letras(sender, e) End Sub Private Sub txtapellido_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtapellido.TextChanged cValidacion.ValidarEspaciosEnBlancosInicialesEIntermedios(txtapellido) End Sub Private Sub txtdireccion_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtobservacion.TextChanged cValidacion.ValidarEspaciosEnBlancosInicialesEIntermedios(txtobservacion) End Sub Private Sub txttelefono_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)

99

End Sub Private Sub txttelefono_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub #End Region #Region "Funcion Tecla Caliente" Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean Select Case keyData Case Is = (Keys.Control + Keys.N) : If btnNuevo.Enabled = True Then nuevo() Case Is = (Keys.F8) : If btnguardar.Enabled = True Then guardar() Case Is = (Keys.Control + Keys.C) : If btncancelar.Enabled = True Then cancelar() Case Is = (Keys.Control + Keys.M) : If btnEditar.Enabled = True Then editar() Case Is = (Keys.Control + Keys.E) : If btneliminar.Enabled = True Then eliminar() Case Is = (Keys.Control + Keys.S) : If btnsalir.Enabled = True Then Close() Case Is = (Keys.Control + Keys.R) : If btnrefrescar.Enabled = True Then mostrarTodos() End Select End Function #End Region Private Sub FrmCliente_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing End Sub Private Sub FrmCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mostrarTodos() cUtilitario.CargarCombo(combotipo, "TCON_DES", "DES_COD", "DES_TIPO", False) comboBus.SelectedIndex = 1 combotipo.Text = "" End Sub Sub mostrarGrid() dt = objSql.ConsultarGeneral("VCON_DESINV", "INV_APELLIDO") presentarGrid(dt) dt = Nothing numeroRegistros = objSql.ContarRegistros("TCON_INV") lbRegistros.Text = "Resultado " & numeroRegistros & " de " & numeroRegistros End Sub Sub presentarGrid(ByVal vdt As DataTable) DataGridViewX1.Rows.Clear() For i = 0 To dt.Rows.Count - 1

100

DataGridViewX1.Rows.Add(dt.Rows(i).Item("INV_COD"), i + 1, dt.Rows(i).Item("INV_CEDULA"), dt.Rows(i).Item("INV_NOMBRE"), dt.Rows(i).Item("INV_APELLIDO"), dt.Rows(i).Item("DES_TIPO"), dt.Rows(i).Item("INV_OBSERVACION")) Next End Sub Sub Filtrar() Dim campobus As String = "" If (comboBus.SelectedIndex = 0) Then campobus = "INV_CEDULA" ElseIf (comboBus.SelectedIndex = 1) Then campobus = "INV_APELLIDO" ElseIf (comboBus.SelectedIndex = 2) Then campobus = "INV_NOMBRE" Else MsgBox("Haga un seleccionado correcto del campo a buscar") Exit Sub End If If (rbInicial.Checked = True) Then dt = objSql.filtrarInicial("VCON_DESINV", campobus, txtbus.Text) Else dt = objSql.filtrarCoincidencial("VCON_DESINV", campobus, txtbus.Text) End If presentarGrid(dt) dt = Nothing lbRegistros.Text = "Resultado " & DataGridViewX1.Rows.Count & " de " & numeroRegistros End Sub Sub mostrarTodos() mostrarGrid() End Sub

Private Sub btnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditar.Click editar() End Sub Sub editar() vInserUpdate = "Actualizar" establecer_estado_entradas(True) cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, BtnImprimir, btnsalir, True) txtcedula.Focus() End Sub Private Sub btncancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancelar.Click cancelar() End Sub Sub cancelar() cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, BtnImprimir, btnsalir, False) establecer_estado_entradas(False) limpiar_entradas()

101

End Sub Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click Close() End Sub Private Sub btnrefrescar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrefrescar.Click mostrarTodos() End Sub Private Sub btneliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneliminar.Click eliminar() End Sub Sub eliminar() 'If (Val(MsgBox("Desea anular este registro?", MsgBoxStyle.YesNo, "SISTEMAS").GetHashCode()) = MsgBoxResult.No) Then Exit Sub 'Dim vdt = objSql.consulta_cadena("SELECT * FROM TCON_VEH WHERE TIPOUSU_) 'If vdt.Rows.Count > 0 Then ' cMensaje.MensajeError("El registro se encuentra relacionado con los vehiculos") 'Else ' If (objSql.eliminar("TCON_INV", "INV_COD", codigoPK)) Then ' cMensaje.MensajeInfo("Registro eliminado correctamente") ' Else ' cMensaje.MensajeError("El registro se encuentra relacionado, No se puede eliminar") ' End If ' cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, BtnImprimir, btnsalir, False) ' establecer_estado_entradas(False) ' limpiar_entradas() ' mostrarTodos() 'End If End Sub Private Sub DataGridViewX1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellClick If e.RowIndex >= 0 AndAlso btnNuevo.Enabled = True Then codigoPK = Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value txtnombre.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(3).Value) txtapellido.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(4).Value) txtcedula.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(2).Value) txtobservacion.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(6).Value.ToString) combotipo.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(5).Value) btnEditar.Enabled = True btneliminar.Enabled = True BtnImprimir.Enabled = True End If

102

End Sub Private Sub rbInicial_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbInicial.CheckedChanged txtbus.Text = "" End Sub Private Sub TextBoxX9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbus.TextChanged Filtrar() End Sub Private Sub combotipo_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles combotipo.SelectedValueChanged If combotipo.Text <> "" Then codigoTipo = Val(combotipo.SelectedValue.ToString) End If End Sub Private Sub DataGridViewX1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellDoubleClick If e.RowIndex >= 0 Then FrmInvitado.CodigoCLiente = Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value FrmInvitado.txtInvitado.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(3).Value) & " " & Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(4).Value) FrmInvitado.txtTipo.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(5).Value) Me.Close() End If End Sub Private Sub combotipo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combotipo.SelectedIndexChanged End Sub Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellContentClick End Sub End Class

Módulo Descripción Public Class FrmDescripcion Private objSql As New cSql Private objIns As New cInserta Private objAct As New cActualiza Dim codigoPK As Integer = 0

103

Dim vInserUpdate As String Dim dt As DataTable = Nothing Dim numeroRegistros As Integer = 0 Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click nuevo() End Sub Sub nuevo() establecer_estado_entradas(True) limpiar_entradas() cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, True) vInserUpdate = "Insertar" txtnombre.Focus() End Sub Private Sub btnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditar.Click editar() End Sub Sub editar() vInserUpdate = "Actualizar" establecer_estado_entradas(True) cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, True) txtnombre.Focus() End Sub Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click guardar() End Sub Sub guardar() txtnombre.Text = RTrim(txtnombre.Text) If txtnombre.Text = "" Then cMensaje.MensajeAlert("Faltan de ingresar el tipo") Exit Sub End If If cValidacion.ValidarMínimoCaracteres(txtnombre, 4, "El número de caracteres del tipo") = False Then Exit Sub ' valida el mínimo de caracteres If (vInserUpdate = "Insertar") Then If (cValidacion.ValidarDatosNoseRepitan("TCON_DES", "DES_TIPO", txtnombre.Text) = False) Then Exit Sub codigoPK = objIns.Insertar_Descripcion(txtnombre.Text, TextBoxX1.Text) ElseIf (vInserUpdate = "Actualizar") Then If (cValidacion.VerificarActualizacionDatos("TCON_DES", "DES_TIPO", txtnombre.Text, codigoPK) = False) Then Exit Sub objAct.Actualizar_Descripcion(txtnombre.Text, TextBoxX1.Text, codigoPK) End If cMensaje.MensajeInfo("Datos Guardados correctamente") cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, False) establecer_estado_entradas(False) btnEditar.Enabled = True

104

btneliminar.Enabled = True mostrarTodos() End Sub Private Sub btncancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancelar.Click cancelar() End Sub Sub cancelar() cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, False) establecer_estado_entradas(False) limpiar_entradas() End Sub Private Sub DataGridViewX1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellClick If e.RowIndex >= 0 AndAlso btnNuevo.Enabled Then codigoPK = Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value txtnombre.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(2).Value) TextBoxX1.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(2).Value) btnEditar.Enabled = True btneliminar.Enabled = True End If End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If (btnguardar.Enabled = True) Then cUtilitario.VerificarFormClosing(sender, e) End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mostrarTodos() End Sub Sub mostrarTodos() dt = objSql.ConsultarGeneral("TCON_DES", "DES_TIPO") presentarGrid(dt) dt = Nothing numeroRegistros = objSql.ContarRegistros("TCON_DES") lbRegistros.Text = "Resultado " & numeroRegistros & " de " & numeroRegistros End Sub Sub Filtrar() If (rbInicial.Checked = True) Then dt = objSql.filtrarInicial("TCON_DES", "DES_TIPO", txtbus.Text) Else dt = objSql.filtrarCoincidencial("TCON_DES", "DES_TIPO", txtbus.Text) End If

105

presentarGrid(dt) dt = Nothing lbRegistros.Text = "Resultado " & DataGridViewX1.Rows.Count & " de " & numeroRegistros End Sub Sub presentarGrid(ByVal vdt As DataTable) DataGridViewX1.Rows.Clear() For i = 0 To dt.Rows.Count - 1 DataGridViewX1.Rows.Add(dt.Rows(i).Item("DES_COD"), i + 1, dt.Rows(i).Item("DES_TIPO"), dt.Rows(i).Item("DES_DESCR")) Next End Sub Private Sub btnrefrescar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrefrescar.Click mostrarTodos() End Sub #Region "validaciones" Sub establecer_estado_entradas(ByVal estado As Boolean) txtnombre.Enabled = estado TextBoxX1.Enabled = estado End Sub Sub limpiar_entradas() txtnombre.Text = "" TextBoxX1.Text = "" End Sub Private Sub txtnombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress cValidacion.Validarsolo_letras(sender, e) End Sub Private Sub txtobservacion_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) cValidacion.Validarsolo_letras(sender, e) End Sub Private Sub txtnombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnombre.TextChanged cValidacion.ValidarEspaciosEnBlancosInicialesEIntermedios(txtnombre) End Sub Private Sub txtbus_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtbus.KeyPress cValidacion.Validarsolo_letras(sender, e) End Sub #End Region Private Sub btneliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneliminar.Click eliminar() End Sub Sub eliminar() If (Val(MsgBox("Desea anular este registro?", MsgBoxStyle.YesNo, "SISTEMAS").GetHashCode()) = MsgBoxResult.No) Then Exit Sub Dim vdt = objSql.consultarIndividual("TCON_INV", "INVDES_COD", codigoPK)

106

If vdt.Rows.Count > 0 Then cMensaje.MensajeError("El registro se encuentra relacionado con los invitados") Else If (objSql.eliminar("TCON_DES", "DES_COD", codigoPK)) Then cMensaje.MensajeInfo("Registro eliminado correctamente") Else cMensaje.MensajeError("El registro se encuentra relacionado, No se puede eliminar") End If cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, False) establecer_estado_entradas(False) limpiar_entradas() mostrarTodos() End If End Sub Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click Close() End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click cUtilitario.ExportarExcel(DataGridViewX1, "LISTADO DE DESCRIPCIÓN") End Sub Private Sub TextBoxX1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbus.TextChanged Filtrar() End Sub Private Sub rbInicial_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbInicial.CheckedChanged txtbus.Text = "" End Sub #Region "Funcion Tecla Caliente" Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean Select Case keyData Case Is = (Keys.Control + Keys.N) : If btnNuevo.Enabled = True Then nuevo() Case Is = (Keys.F8) : If btnguardar.Enabled = True Then guardar() Case Is = (Keys.Control + Keys.C) : If btncancelar.Enabled = True Then cancelar() Case Is = (Keys.Control + Keys.M) : If btnEditar.Enabled = True Then editar() Case Is = (Keys.Control + Keys.E) : If btneliminar.Enabled = True Then eliminar() Case Is = (Keys.Control + Keys.S) : If btnsalir.Enabled = True Then Close()

107

Case Is = (Keys.Control + Keys.R) : If btnrefrescar.Enabled = True Then mostrarTodos() End Select End Function #End Region Private Sub Ex1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex1.Click End Sub Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellContentClick End Sub End Class

Módulo Listado Clientes Public Class FrmListadoClientes Private objSql As New cSql Dim dt As DataTable = Nothing Dim numeroRegistros As Integer = 0 Private Sub FrmListadoProductos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mostrarGrid() comboBus.SelectedIndex = 1 End Sub Sub mostrarGrid() dt = objSql.consultarIndividual("TCON_CLI", "CLI_ESTADO", "A") presentarGrid(dt) dt = Nothing End Sub Sub Filtrar() Dim campobus As String = "" If (comboBus.SelectedIndex = 0) Then campobus = "CLI_IDEN" ElseIf (comboBus.SelectedIndex = 1) Then campobus = "CLI_APELLIDO" ElseIf (comboBus.SelectedIndex = 2) Then campobus = "CLI_NOMBRE" ElseIf (comboBus.SelectedIndex = 3) Then campobus = "CLI_PROCEDE" ElseIf (comboBus.SelectedIndex = -1) Then MsgBox("Haga un seleccionado correcto del campo a buscar") Exit Sub End If If (rbInicial.Checked = True) Then dt = objSql.consulta_cadena("SELECT * FROM TCON_CLI WHERE CLI_ESTADO='A' AND " & campobus & " Like '" & txtbus.Text & "%'", "TCON_CLIE")

108

Else dt = objSql.consulta_cadena("SELECT * FROM TCON_CLI WHERE CLI_ESTADO='A' AND " & campobus & " Like '%" & txtbus.Text & "%'", "TCON_CLIE") End If presentarGrid(dt) dt = Nothing End Sub Sub presentarGrid(ByVal vdt As DataTable) DataGridViewX1.Rows.Clear() For i = 0 To dt.Rows.Count - 1 DataGridViewX1.Rows.Add(dt.Rows(i).Item("CLI_COD"), i + 1, dt.Rows(i).Item("CLI_IDEN"), dt.Rows(i).Item("CLI_APELLIDO"), dt.Rows(i).Item("CLI_NOMBRE"), dt.Rows(i).Item("CLI_PROCEDE")) Next End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click cUtilitario.ExportarExcel(DataGridViewX1, "LISTADO DE CLIENTES ACTUALES") End Sub Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellContentClick End Sub Private Sub DataGridViewX1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellDoubleClick If e.RowIndex >= 0 Then FrmVehiculo.CodigoCLiente = Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value FrmVehiculo.txtCliente.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(4).Value) & " " & Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(3).Value) Me.Close() End If End Sub Private Sub txtbus_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbus.TextChanged Filtrar() End Sub Private Sub rbInicial_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbInicial.CheckedChanged txtbus.Text = "" End Sub Private Sub Ex1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex1.Click

109

End Sub End Class

Módulo Subtipo Public Class FrmListadoSubtipo Private objSql As New cSql Dim dt As DataTable = Nothing Dim numeroRegistros As Integer = 0 Private Sub FrmListadoProductos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mostrarGrid() comboBus.SelectedIndex = 1 End Sub Sub mostrarGrid() dt = objSql.ConsultarGeneral("VCON_TIPSUB", "SUB_TIPO") presentarGrid(dt) dt = Nothing End Sub Sub Filtrar() Dim campobus As String = "" If (comboBus.SelectedIndex = 0) Then campobus = "TIPO_CATE" ElseIf (comboBus.SelectedIndex = 1) Then campobus = "SUB_TIPO" ElseIf (comboBus.SelectedIndex = -1) Then MsgBox("Haga un seleccionado correcto del campo a buscar") Exit Sub End If If (rbInicial.Checked = True) Then dt = objSql.filtrarInicial("VCON_TIPSUB", campobus, txtbus.Text) Else dt = objSql.filtrarCoincidencial("VCON_TIPSUB", campobus, txtbus.Text) End If presentarGrid(dt) dt = Nothing End Sub Sub presentarGrid(ByVal vdt As DataTable) DataGridViewX1.Rows.Clear() For i = 0 To dt.Rows.Count - 1 DataGridViewX1.Rows.Add(dt.Rows(i).Item("SUB_COD"), i + 1, dt.Rows(i).Item("SUB_TIPO"), dt.Rows(i).Item("TIPO_CATE")) Next End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click cUtilitario.ExportarExcel(DataGridViewX1, "LISTADO DE SUBTIPOS") End Sub

110

Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellContentClick End Sub Private Sub DataGridViewX1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellDoubleClick If e.RowIndex >= 0 Then If (FormVehiculoAbierto) Then FrmVehiculo.CodigoSubtipo = Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value FrmVehiculo.txtSubtipo.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(2).Value) FrmVehiculo.txtCategoria.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(3).Value) Else FrmInvitado.CodigoSubtipo = Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value FrmInvitado.txtSubtipo.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(2).Value) FrmInvitado.txtCategoria.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(3).Value) End If Me.Close() End If End Sub Private Sub txtbus_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbus.TextChanged Filtrar() End Sub Private Sub rbInicial_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbInicial.CheckedChanged txtbus.Text = "" End Sub Private Sub Ex1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex1.Click End Sub End Class

Módulo listado vehículos Public Class FrmListadoVehiculos Private objSql As New cSql Dim dt As DataTable = Nothing Dim numeroRegistros As Integer = 0 Private Sub FrmListadoProductos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

111

mostrarGrid() comboBus.SelectedIndex = 1 End Sub Sub mostrarGrid() dt = objSql.ConsultarGeneral("TCON_VEH", "VEH_MODELO") presentarGrid(dt) dt = Nothing End Sub Sub Filtrar() Dim campobus As String = "" If (comboBus.SelectedIndex = 0) Then campobus = "VEH_MODELO" ElseIf (comboBus.SelectedIndex = 1) Then campobus = "VEH_PLACA" ElseIf (comboBus.SelectedIndex = -1) Then MsgBox("Haga un seleccionado correcto del campo a buscar") Exit Sub End If If (rbInicial.Checked = True) Then dt = objSql.filtrarInicial("TCON_VEH", campobus, txtbus.Text) Else dt = objSql.filtrarCoincidencial("TCON_VEH", campobus, txtbus.Text) End If presentarGrid(dt) dt = Nothing End Sub Sub presentarGrid(ByVal vdt As DataTable) DataGridViewX1.Rows.Clear() For i = 0 To dt.Rows.Count - 1 DataGridViewX1.Rows.Add(dt.Rows(i).Item("VEH_COD"), i + 1, dt.Rows(i).Item("VEH_PLACA"), dt.Rows(i).Item("VEH_MODELO"), dt.Rows(i).Item("VEH_ANIO"), dt.Rows(i).Item("VEH_CARAC"), dt.Rows(i).Item("VEH_TIPOUSU"), dt.Rows(i).Item("VEH_CLI"), dt.Rows(i).Item("VEH_CAT")) Next End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click cUtilitario.ExportarExcel(DataGridViewX1, "LISTADO DE VEHICULOS") End Sub Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellContentClick End Sub Private Sub DataGridViewX1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellDoubleClick If e.RowIndex >= 0 Then If FormVehiculoAbierto = True Then FrmVehiculo.codigoPK = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value)

112

FrmVehiculo.txtmodelo.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(3).Value) FrmVehiculo.txtplaca.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(2).Value) FrmVehiculo.txtcaracteristicas.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(5).Value) FrmVehiculo.nup_anio.Value = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(4).Value) FrmVehiculo.CodigoSubtipo = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(8).Value) Dim vdt As DataTable = objSql.consultarIndividual("VCON_TIPSUB", "SUB_COD", FrmVehiculo.CodigoSubtipo) FrmVehiculo.txtCategoria.Text = Trim(vdt.Rows(0).Item("TIPO_CATE")) FrmVehiculo.txtSubtipo.Text = Trim(vdt.Rows(0).Item("SUB_TIPO")) vdt = Nothing If (Me.DataGridViewX1.Rows(e.RowIndex).Cells(6).Value = "C") Then FrmVehiculo.CodigoCLiente = Me.DataGridViewX1.Rows(e.RowIndex).Cells(7).Value vdt = objSql.consultarIndividual("TCON_CLI", "CLI_COD", FrmVehiculo.CodigoCLiente) FrmVehiculo.txtCliente.Text = Trim(vdt.Rows(0).Item("CLI_NOMBRE")) & " " & Trim(vdt.Rows(0).Item("CLI_APELLIDO")) End If FrmVehiculo.btnEditar.Enabled = True FrmVehiculo.btneliminar.Enabled = True FrmVehiculo.BtnImprimir.Enabled = True Me.Close() Else If (Me.DataGridViewX1.Rows(e.RowIndex).Cells(6).Value = "I") Then FrmInvitado.codigoPK = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value) FrmInvitado.txtmodelo.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(3).Value) FrmInvitado.txtplaca.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(2).Value) FrmInvitado.txtcaracteristicas.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(5).Value) FrmInvitado.nup_anio.Value = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(4).Value) FrmInvitado.CodigoSubtipo = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(8).Value) Dim vdt As DataTable = objSql.consultarIndividual("VCON_TIPSUB", "SUB_COD", FrmInvitado.CodigoSubtipo) FrmInvitado.txtCategoria.Text = Trim(vdt.Rows(0).Item("TIPO_CATE")) FrmInvitado.txtSubtipo.Text = Trim(vdt.Rows(0).Item("SUB_TIPO")) vdt = Nothing If (Me.DataGridViewX1.Rows(e.RowIndex).Cells(6).Value = "I") Then

113

FrmInvitado.CodigoCLiente = Me.DataGridViewX1.Rows(e.RowIndex).Cells(7).Value vdt = objSql.consultarIndividual("VCON_DESINV", "INV_COD", FrmInvitado.CodigoCLiente) FrmInvitado.txtInvitado.Text = Trim(vdt.Rows(0).Item("INV_NOMBRE")) & " " & Trim(vdt.Rows(0).Item("INV_APELLIDO")) FrmInvitado.txtTipo.Text = Trim(vdt.Rows(0).Item("DES_TIPO")) End If FrmInvitado.btnEditar.Enabled = True FrmInvitado.btneliminar.Enabled = True FrmInvitado.BtnImprimir.Enabled = True Me.Close() Else cMensaje.MensajeInfo("Edición No permitida") End If End If End If End Sub Private Sub txtbus_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbus.TextChanged Filtrar() End Sub Private Sub rbInicial_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbInicial.CheckedChanged txtbus.Text = "" End Sub Private Sub Ex1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex1.Click End Sub End Class

Módulo Parqueadero Public Class FrmParqueadero Private objSql As New cSql Private objIns As New cInserta Private objAct As New cActualiza Dim codigoPK As Integer = 0 Dim vInserUpdate As String Dim dt As DataTable = Nothing Dim numeroRegistros As Integer = 0 Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click nuevo()

114

End Sub Sub nuevo() establecer_estado_entradas(True) limpiar_entradas() cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, True) vInserUpdate = "Insertar" txtnombre.Focus() End Sub Private Sub btnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditar.Click editar() End Sub Sub editar() vInserUpdate = "Actualizar" establecer_estado_entradas(True) cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, True) txtnombre.Focus() End Sub Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click guardar() End Sub Sub guardar() txtnombre.Text = RTrim(txtnombre.Text) If txtnombre.Text = "" Then cMensaje.MensajeAlert("Faltan de ingresar el nombre") Exit Sub End If If txtLocalizacion.Text = "" Then cMensaje.MensajeAlert("Faltan de ingresar la localizacion") Exit Sub End If If cValidacion.ValidarMínimoCaracteres(txtnombre, 4, "El número de caracteres del nombre") = False Then Exit Sub ' valida el mínimo de caracteres If (vInserUpdate = "Insertar") Then If (cValidacion.ValidarDatosNoseRepitan("TCON_PAR", "PAR_NOMBRE", txtnombre.Text) = False) Then Exit Sub codigoPK = objIns.Insertar_Parqueadero(txtnombre.Text, NumericUpDown1.Value, txtLocalizacion.Text) ElseIf (vInserUpdate = "Actualizar") Then If (cValidacion.VerificarActualizacionDatos("TCON_PAR", "PAR_NOMBRE", txtnombre.Text, codigoPK) = False) Then Exit Sub objAct.Actualizar_Parqueadero(txtnombre.Text, NumericUpDown1.Value, txtLocalizacion.Text, codigoPK) End If cMensaje.MensajeInfo("Datos Guardados correctamente") cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, False) establecer_estado_entradas(False) btnEditar.Enabled = True btneliminar.Enabled = True mostrarTodos()

115

End Sub Private Sub btncancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancelar.Click cancelar() End Sub Sub cancelar() cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, False) establecer_estado_entradas(False) limpiar_entradas() End Sub Private Sub DataGridViewX1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellClick If e.RowIndex >= 0 AndAlso btnNuevo.Enabled Then codigoPK = Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value txtnombre.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(2).Value) NumericUpDown1.Value = Val(Me.DataGridViewX1.Rows(e.RowIndex).Cells(3).Value) txtLocalizacion.Text = Trim(Me.DataGridViewX1.Rows(e.RowIndex).Cells(4).Value) btnEditar.Enabled = True btneliminar.Enabled = True End If End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If (btnguardar.Enabled = True) Then cUtilitario.VerificarFormClosing(sender, e) End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mostrarTodos() End Sub Sub mostrarTodos() dt = objSql.ConsultarGeneral("TCON_PAR", "PAR_NOMBRE") presentarGrid(dt) dt = Nothing numeroRegistros = objSql.ContarRegistros("TCON_PAR") lbRegistros.Text = "Resultado " & numeroRegistros & " de " & numeroRegistros End Sub Sub Filtrar() If (rbInicial.Checked = True) Then dt = objSql.filtrarInicial("TCON_PAR", "PAR_NOMBRE", txtbus.Text) Else dt = objSql.filtrarCoincidencial("TCON_PAR", "PAR_NOMBRE", txtbus.Text) End If

116

presentarGrid(dt) dt = Nothing lbRegistros.Text = "Resultado " & DataGridViewX1.Rows.Count & " de " & numeroRegistros End Sub Sub presentarGrid(ByVal vdt As DataTable) DataGridViewX1.Rows.Clear() For i = 0 To dt.Rows.Count - 1 DataGridViewX1.Rows.Add(dt.Rows(i).Item("PAR_COD"), i + 1, dt.Rows(i).Item("PAR_NOMBRE"), dt.Rows(i).Item("PAR_CAPACIDAD"), dt.Rows(i).Item("PAR_LOCALIZACION")) Next End Sub Private Sub btnrefrescar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrefrescar.Click mostrarTodos() End Sub #Region "validaciones" Sub establecer_estado_entradas(ByVal estado As Boolean) txtnombre.Enabled = estado NumericUpDown1.Enabled = estado txtLocalizacion.Enabled = estado End Sub Sub limpiar_entradas() txtnombre.Text = "" txtLocalizacion.Text = "" End Sub Private Sub txtnombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress cValidacion.Validarsolo_letras(sender, e) End Sub Private Sub txtobservacion_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) cValidacion.Validarsolo_letras(sender, e) End Sub Private Sub txtnombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnombre.TextChanged cValidacion.ValidarEspaciosEnBlancosInicialesEIntermedios(txtnombre) End Sub Private Sub txtbus_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtbus.KeyPress cValidacion.Validarsolo_letras(sender, e) End Sub

#End Region Private Sub btneliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneliminar.Click eliminar() End Sub Sub eliminar()

117

If (Val(MsgBox("Desea anular este registro?", MsgBoxStyle.YesNo, "SISTEMAS").GetHashCode()) = MsgBoxResult.No) Then Exit Sub If (objSql.eliminar("TCON_PAR", "PAR_COD", codigoPK)) Then cMensaje.MensajeInfo("Registro eliminado correctamente") Else cMensaje.MensajeError("El registro se encuentra relacionado, No se puede eliminar") End If cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, False) establecer_estado_entradas(False) limpiar_entradas() mostrarTodos() End Sub Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click Close() End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click cUtilitario.ExportarExcel(DataGridViewX1, "LISTADO DE PARQUEADERO") End Sub Private Sub TextBoxX1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbus.TextChanged Filtrar() End Sub Private Sub rbInicial_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbInicial.CheckedChanged txtbus.Text = "" End Sub #Region "Funcion Tecla Caliente" Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean Select Case keyData Case Is = (Keys.Control + Keys.N) : If btnNuevo.Enabled = True Then nuevo() Case Is = (Keys.F8) : If btnguardar.Enabled = True Then guardar() Case Is = (Keys.Control + Keys.C) : If btncancelar.Enabled = True Then cancelar() Case Is = (Keys.Control + Keys.M) : If btnEditar.Enabled = True Then editar() Case Is = (Keys.Control + Keys.E) : If btneliminar.Enabled = True Then eliminar() Case Is = (Keys.Control + Keys.S) : If btnsalir.Enabled = True Then Close() Case Is = (Keys.Control + Keys.R) : If btnrefrescar.Enabled = True Then mostrarTodos() End Select End Function

118

#End Region Private Sub Ex1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex1.Click End Sub Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellContentClick End Sub End Class

Módulo Reportes Public Class FrmReporteria Private objSql As New cSql Dim cad As String = "" Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click Generar() End Sub Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click cUtilitario.ExportarExcel(Me.DataGridViewX1, "LISTADO DE OPERACIONES") End Sub Sub EncadenarAnd() If cad <> "" Then cad = cad & " AND " End If End Sub Sub Generar() Dim cadSql As String = "" cad = "" Dim columnaFecha As String = "" columnaFecha = "TRAN_FECH" If (rbTipoTransaccionSalida.Checked = True) Then cad = cad & "TRAN_FECHS IS NOT NULL" columnaFecha = "TRAN_FECHS" End If If (RbVehiculosEspecificos.Checked = True) Then EncadenarAnd() cad = cad & "VEH_PLACA ='" & txtVehiculoPlaca.Text & "'" End If If (RbEspecificos.Checked = True) Then EncadenarAnd()

119

cad = cad & "USU_IDENTI ='" & txtEspecifico.Text & "' OR USU_IDENTISALIDA='" & txtEspecifico.Text & "'" End If If (RbClienteRegistrado.Checked = True) Then EncadenarAnd() cad = cad & "TRAN_TIPOUSU='C'" End If If (RbClienteInvitados.Checked = True) Then EncadenarAnd() cad = cad & "TRAN_TIPOUSU='I'" End If

cadSql = "SELECT * FROM VCON_TRANVEHUSU" If (cad <> "") Then cadSql = cadSql & " WHERE " & cad & " AND " & columnaFecha & " BETWEEN to_date('" & Me.dtpDesde.Value & "', 'dd/MM/yyyy hh24:mi:ss') AND to_date('" & Me.dtpHasta.Value & "', 'dd/MM/yyyy hh24:mi:ss')" Else cadSql = cadSql & " WHERE " & columnaFecha & " BETWEEN to_date('" & Me.dtpDesde.Value & "', 'dd/MM/yyyy hh24:mi:ss') AND to_date('" & Me.dtpHasta.Value & "', 'dd/MM/yyyy hh24:mi:ss')" End If Dim dt As DataTable dt = objSql.consulta_cadena(cadSql, "VCON_TRANVEHUSU") cadSql = "" cad = "" columnaFecha = "" DataGridViewX1.Rows.Clear() For i = 0 To dt.Rows.Count - 1 Dim vdt As DataTable Dim nombre_completo As String If (dt.Rows(i).Item("VEH_TIPOUSU") = "C") Then vdt = objSql.consulta_cadena("SELECT CLI_APELLIDO,CLI_NOMBRE FROM TCON_CLI WHERE CLI_COD=" & dt.Rows(i).Item("TCOD_CLI"), "TCON_CLI") nombre_completo = Trim(vdt.Rows(0).Item("CLI_NOMBRE").ToString) & " " & Trim(vdt.Rows(0).Item("CLI_APELLIDO").ToString) Else vdt = objSql.consulta_cadena("SELECT INV_APELLIDO,INV_NOMBRE FROM TCON_INV WHERE INV_COD=" & dt.Rows(i).Item("TCOD_CLI"), "TCON_INV") nombre_completo = Trim(vdt.Rows(0).Item("INV_NOMBRE").ToString) & " " & Trim(vdt.Rows(0).Item("INV_APELLIDO").ToString) End If DataGridViewX1.Rows.Add(i + 1, dt.Rows(i).Item("VEH_PLACA"), nombre_completo, dt.Rows(i).Item("TRAN_TIPOUSU"), dt.Rows(i).Item("TRAN_FECH"), Trim(dt.Rows(i).Item("TRAN_CAM").ToString), Trim(dt.Rows(i).Item("USU_NOMBRE").ToString) & " " &

120

Trim(dt.Rows(i).Item("USU_APELLIDO").ToString), dt.Rows(i).Item("TRAN_FECHS"), Trim(dt.Rows(i).Item("TRAN_OBSERS").ToString), Trim(dt.Rows(i).Item("USU_NOMBRESALIDA").ToString) & " " & Trim(dt.Rows(i).Item("USU_APELLIDOSALIDA").ToString)) Next End Sub Private Sub FrmReporteria_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.dtpHasta.Format = DateTimePickerFormat.Custom Me.dtpHasta.CustomFormat = "dd/MM/yyyy HH:mm:ss" Me.dtpDesde.Format = DateTimePickerFormat.Custom Me.dtpDesde.CustomFormat = "dd/MM/yyyy HH:mm:ss" End Sub Private Sub Group5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Group5.Click End Sub Private Sub RbTodos_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbTodos.CheckedChanged If RbTodos.Checked = True Then txtEspecifico.Enabled = False Else txtEspecifico.Enabled = True txtEspecifico.Focus() End If End Sub Private Sub RbVehiculosTodos_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbVehiculosTodos.CheckedChanged If RbVehiculosTodos.Checked = True Then txtVehiculoPlaca.Enabled = False Else txtVehiculoPlaca.Enabled = True txtVehiculoPlaca.Focus() End If End Sub Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellContentClick End Sub Private Sub Ex1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ex1.Click End Sub End Class

121

Módulo Public Class Frm Private objSql As New cSql Private objIns As New cInserta Private objAct As New cActualiza Dim codigoPK As String Dim vInserUpdate As String Dim dt As DataTable = Nothing Dim numeroRegistros As Integer = 0 Dim codigoCiudad As String Sub guardar() txtnombre.Text = RTrim(txtnombre.Text) txtapellido.Text = RTrim(txtapellido.Text) txtnick.Text = RTrim(txtnick.Text) If txtnombre.Text = "" Then cMensaje.MensajeAlert("Falta de ingresar el nombre") Exit Sub End If If txtapellido.Text = "" Then cMensaje.MensajeAlert("Falta de ingresar el apellido") Exit Sub End If If txtcedula.Text = "" Then cMensaje.MensajeAlert("Falta de ingresar el rúc o cédula") Exit Sub End If If txtnick.Text = "" Then cMensaje.MensajeAlert("Falta de ingresar lel nick") Exit Sub End If If combotipo.SelectedIndex = -1 Then cMensaje.MensajeAlert("Falta de seleccionar el tipo de ") Exit Sub End If If (cValidacion.ValidarCedula_Ruc(txtcedula.Text) = False) Then cMensaje.MensajeError("Ingrese un número de cédula o ruc correcto.") Exit Sub End If If txt.Text <> txtRepetir.Text Then cMensaje.MensajeAlert("Las claves no coinciden") Exit Sub End If If cValidacion.ValidarMínimoCaracteres(txtnombre, 3, "El número de caracteres del nombre") = False Then Exit Sub If cValidacion.ValidarMínimoCaracteres(txtapellido, 3, "El número de caracteres del apellido") = False Then Exit Sub If cValidacion.ValidarMínimoCaracteres(txtnick, 3, "El número de caracteres del alias") = False Then Exit Sub If cValidacion.ValidarMínimoCaracteres(txt, 5, "El número de caracteres de la clave") = False Then Exit Sub

122

If (vInserUpdate = "Insertar") Then If (cValidacion.ValidarDatosNoseRepitan("T_USU", "USU_IDENTI", txtcedula.Text) = False) Then Exit Sub If (cValidacion.ValidarDatosNoseRepitan("T_USU", "USU_NICK", txtnick.Text) = False) Then Exit Sub codigoPK = objIns.Insertar_(txtcedula.Text, txtapellido.Text, txtnombre.Text, txtnick.Text, txt.Text, combotipo.SelectedItem.ToString) ElseIf (vInserUpdate = "Actualizar") Then If (cValidacion.VerificarActualizacionDatos("T_USU", "USU_IDENTI", txtnombre.Text, codigoPK) = False) Then Exit Sub If (cValidacion.VerificarActualizacionDatos("T_USU", "USU_NICK", txtnick.Text, codigoPK) = False) Then Exit Sub Dim chek As String = IIf(chbestado.Checked = True, "A", "P") objAct.Actualizar_(txtcedula.Text, txtapellido.Text, txtnombre.Text, txtnick.Text, txt.Text, combotipo.SelectedItem.ToString, chek, codigoPK) End If cMensaje.MensajeInfo("Datos Guardados correctamente") cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, False) establecer_estado_entradas(False) btnEditar.Enabled = True btneliminar.Enabled = True mostrarGrid() End Sub Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click guardar() End Sub Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click nuevo() End Sub Sub nuevo() establecer_estado_entradas(True) limpiar_entradas() cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, True) vInserUpdate = "Insertar" txtcedula.Focus() chbestado.Checked = True End Sub #Region "validaciones" Sub establecer_estado_entradas(ByVal estado As Boolean) txtcedula.Enabled = estado txtapellido.Enabled = estado txtnombre.Enabled = estado txtnick.Enabled = estado txt.Enabled = estado combotipo.Enabled = estado txt.Enabled = estado txtRepetir.Enabled = estado chbestado.Enabled = False

123

End Sub Sub limpiar_entradas() txtcedula.Text = "" txtnombre.Text = "" txtapellido.Text = "" txtnick.Text = "" txt.Text = "" txtRepetir.Text = "" chbestado.Checked = False End Sub Private Sub txtnombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress cValidacion.Validarsolo_letras(sender, e) End Sub Private Sub txtnombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnombre.TextChanged cValidacion.ValidarEspaciosEnBlancosInicialesEIntermedios(txtnombre) End Sub Private Sub txtcedula_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcedula.KeyPress cValidacion.Validarsolo_numeros(sender, e) End Sub Private Sub txtapellido_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtapellido.KeyPress cValidacion.Validarsolo_letras(sender, e) End Sub Private Sub txtapellido_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtapellido.TextChanged cValidacion.ValidarEspaciosEnBlancosInicialesEIntermedios(txtapellido) End Sub Private Sub txtdireccion_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnick.TextChanged cValidacion.ValidarEspaciosEnBlancosInicialesEIntermedios(txtnick) End Sub Private Sub txttelefono_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt.KeyPress End Sub Private Sub txttelefono_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt.TextChanged End Sub #End Region #Region "Funcion Tecla Caliente" Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean Select Case keyData

124

Case Is = (Keys.Control + Keys.N) : If btnNuevo.Enabled = True Then nuevo() Case Is = (Keys.F8) : If btnguardar.Enabled = True Then guardar() Case Is = (Keys.Control + Keys.C) : If btncancelar.Enabled = True Then cancelar() Case Is = (Keys.Control + Keys.M) : If btnEditar.Enabled = True Then editar() Case Is = (Keys.Control + Keys.E) : If btneliminar.Enabled = True Then eliminar() Case Is = (Keys.Control + Keys.S) : If btnsalir.Enabled = True Then Close() Case Is = (Keys.Control + Keys.R) : If btnrefrescar.Enabled = True Then mostrarTodos() End Select End Function #End Region Private Sub FrmCliente_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If (btnguardar.Enabled = True) Then cUtilitario.VerificarFormClosing(sender, e) End If End Sub Private Sub FrmCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mostrarTodos() comboBus.SelectedIndex = 1 comboBus.SelectedIndex = 0 End Sub Sub mostrarGrid() dt = objSql.ConsultarGeneral("T_USU", "USU_NICK") presentarGrid(dt) dt = Nothing numeroRegistros = objSql.ContarRegistros("T_USU") lbRegistros.Text = "Resultado " & numeroRegistros & " de " & numeroRegistros End Sub Sub presentarGrid(ByVal vdt As DataTable) DataGridViewX1.Rows.Clear() For i = 0 To dt.Rows.Count - 1 DataGridViewX1.Rows.Add(dt.Rows(i).Item("USU_COD"), i + 1, dt.Rows(i).Item("USU_IDENTI"), dt.Rows(i).Item("USU_NOMBRE"), dt.Rows(i).Item("USU_APELLIDO"), dt.Rows(i).Item("USU_NICK"), dt.Rows(i).Item("USU_ESTADO")) Next End Sub Sub Filtrar() Dim campobus As String = "" If (comboBus.SelectedIndex = 0) Then campobus = "USU_IDENTI" ElseIf (comboBus.SelectedIndex = 1) Then campobus = "USU_APELLIDO" ElseIf (comboBus.SelectedIndex = 2) Then campobus = "USU_NOMBRE" ElseIf (comboBus.SelectedIndex = 3) Then

125

campobus = "USU_ESTADO" Else MsgBox("Haga un seleccionado correcto del campo a buscar") Exit Sub End If If (rbInicial.Checked = True) Then dt = objSql.filtrarInicial("T_USU", campobus, txtbus.Text) Else dt = objSql.filtrarCoincidencial("T_USU", campobus, txtbus.Text) End If presentarGrid(dt) dt = Nothing lbRegistros.Text = "Resultado " & DataGridViewX1.Rows.Count & " de " & numeroRegistros End Sub Sub mostrarTodos() mostrarGrid() End Sub

Private Sub btnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditar.Click editar() End Sub Sub editar() vInserUpdate = "Actualizar" establecer_estado_entradas(True) cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, True) txtcedula.Focus() chbestado.Enabled = True End Sub Private Sub btncancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancelar.Click cancelar() End Sub Sub cancelar() cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, btnsalir, False) establecer_estado_entradas(False) limpiar_entradas() End Sub Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click Close() End Sub Private Sub btnrefrescar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrefrescar.Click mostrarTodos() End Sub Private Sub btneliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneliminar.Click

126

eliminar() End Sub Sub eliminar() 'If (Val(MsgBox("Desea anular este registro?", MsgBoxStyle.YesNo, "SISTEMAS").GetHashCode()) = MsgBoxResult.No) Then Exit Sub 'Dim vdt = objSql.consultarIndividual("TCON_SUB", "SUB_CODT", codigoPK) 'If (objSql.eliminar("T_USU", "USU_COD", codigoPK)) Then ' cMensaje.MensajeInfo("Registro eliminado correctamente") 'Else ' cMensaje.MensajeError("El registro se encuentra relacionado, No se puede eliminar") 'End If 'cUtilitario.Establecer_Boton(btnNuevo, btnEditar, btnguardar, btncancelar, btneliminar, BtnImprimir, btnsalir, False) 'establecer_estado_entradas(False) 'limpiar_entradas() 'mostrarTodos() End Sub Private Sub DataGridViewX1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellClick If e.RowIndex >= 0 AndAlso btnNuevo.Enabled = True Then codigoPK = Me.DataGridViewX1.Rows(e.RowIndex).Cells(0).Value Dim vdt As DataTable = objSql.consultarIndividual("T_USU", "USU_COD", codigoPK) txtnombre.Text = vdt.Rows(0).Item("USU_NOMBRE") txtapellido.Text = vdt.Rows(0).Item("USU_APELLIDO") txtcedula.Text = vdt.Rows(0).Item("USU_IDENTI") txtnick.Text = vdt.Rows(0).Item("USU_NICK") combotipo.SelectedIndex = IIf(Trim(vdt.Rows(0).Item("USU_ROL").ToString) = "", 0, IIf(Trim(vdt.Rows(0).Item("USU_ROL").ToString) = "ANALISTA", 1, 2)) Dim chek As Boolean = IIf(vdt.Rows(0).Item("USU_ESTADO") = "A", True, False) chbestado.Checked = chek btnEditar.Enabled = True btneliminar.Enabled = True End If End Sub Private Sub rbInicial_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbInicial.CheckedChanged txtbus.Text = "" End Sub Private Sub TextBoxX9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbus.TextChanged Filtrar() End Sub Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click cUtilitario.ExportarExcel(DataGridViewX1, "LISTADO DE S") End Sub

127

Private Sub DataGridViewX1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridViewX1.CellContentClick End Sub Private Sub combociudad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combotipo.SelectedIndexChanged End Sub Private Sub BtnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) imprimir() End Sub Sub imprimir() End Sub Private Sub txtRepetir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRepetir.TextChanged End Sub Private Sub RibbonBar1_ItemClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RibbonBar1.ItemClick End Sub End Class

ANEXO 5

Manual Técnico de Instalación y Configuración

PUCE SD Autor: Paúl Tapia, Cristian Barreno

2

INDICE MANUAL TÉCNICO INDICE DE MANUAL TECNICO ................................................................................... 2 INDICE DE ILUSTRACIONES ...................................................................................... 3 INDICE DE TABLAS ..................................................................................................... 4 INFORMACIÓN GENERAL .......................................................................................... 5 1.1. INTRODUCCIÓN ................................................................................................... 5 1.2. REQUERIMIENTOS DEL SISTEMA ...................................................................... 6 1.2.1. Software.............................................................................................................. 6 1.2.2. Hardware ............................................................................................................ 6 1.3. INSTALACION Y CONFIGURACIÓN DE LOS COMPONENTES DEL SISTEMA .. 8 1.3.1. Instalación y configuración de la Base de Datos ................................................. 8 1.3.2. Importar o Exportar una Base de Datos ............................................................ 14 1.3.3. Instalación de Microsoft .Net Framework 3.5 .................................................... 17 1.3.4. Instalación del Control de Barrera .................................................................... 20 1.3.5. Revisión del Código fuente ............................................................................... 21 1.3.6. Instalación y configuración del Lector de Códigos de Barras ........................... 22 1.3.7. Configuración del puerto COM .......................................................................... 25 INSTALACIÓN DEL SISTEMA DE CONTROL DE VEHICULAR CADAV 27

3

INDICE DE ILUSTRACIONES Figura 1. 1 Pantalla de Bienvenida para iniciar la Instalación........................................ 9 Figura 1. 2 Acuerdo y Términos de Licencia ................................................................. 9 Figura 1. 3 Paquete y ruta para la instalación ............................................................. 10 Figura 1. 4 Ingreso de Contraseñas para los s SYS y SYSTEM ...................... 10 Figura 1. 5 Inicio de la instalación con las opciones escogidas ................................... 11 Figura 1. 6 Proceso automático de copia de ficheros .................................................. 11 Figura 1. 7 Creación y Configuración de la Base de datos por defecto ....................... 12 Figura 1. 8 Proceso de Instalación de la Base de datos Finalizado ............................. 12 Figura 1. 9 Ingreso de credenciales para la Base de Datos ........................................ 13 Figura 1. 10 Entorno de istración de Oracle 10g XE ......................................... 13 Figura 1. 11 Inicio de Sesión Oracle 10g XE............................................................... 15 Figura 1. 12 Opciones para importar o exportar de Oracle 10g XE ............................. 15 Figura 1. 13 Importar Archivos en Oracle.................................................................... 16 Figura 1. 14 Resultado de la importación .................................................................... 16 Figura 1. 15 Selección de Base a Exportar ................................................................. 17 Figura 1. 16 Exportación de Base de datos ................................................................ 17 Figura 1. 17 Selección de ruta para almacenar el archivo generado ........................... 17 Figura 1. 18 Ejecutable Microsoft .Net Framework 3.5 ................................................ 18 Figura 1. 19 Términos de licencia ............................................................................... 18 Figura 1. 20 Finalización de la instalación Microsoft .Net Framework 3.5 ................... 19 Figura 1. 21 Especificaciones para los cimientos del dispositivo del Control de Barrera ………………………………………………………………………………………………….20 Figura 1. 22 Menú Agregar referencia al proyecto ...................................................... 21 Figura 1. 23 Referencia System.Data.OracleClient ..................................................... 21 Figura 1. 24 Entorno de Trabajo Visual Basic.NET ..................................................... 22 Figura 1. 25 Instalador SoftWedge.............................................................................. 22 Figura 1. 26 Ventana inicio instalador SoftWedge ....................................................... 23 Figura 1. 27 Elección de ruta de instalación................................................................ 23 Figura 1. 28 Instalación Software SoftWedge ............................................................. 24 Figura 1. 29 Finalización de la Instalación .................................................................. 24 Figura 1. 30 Icono Metrologic en la barra de herramientas ......................................... 25 Figura 1. 31 Configuración del puerto COM ................................................................ 25 Figura 1. 32 Configuración del puerto COM ................................................................ 26 Figura 2. 1Instalador Sistema CADAV 1.3 .................................................................. 27 Figura 2. 2 Ventana inicio de Instalación del Sistema ................................................. 27 Figura 2. 3 Ubicación de la carpeta destino para la instalación ................................... 28 Figura 2. 4 Ventana de Progreso de la Instalación ...................................................... 28 Figura 2. 5 Ventana de Confirmación de la Instalación ............................................... 29

4

INDICE DE TABLAS Tabla 1. 1 Especificaciones de Software para Cliente y Servidor .................................. 6 Tabla 1. 2 Especificaciones Hardware, equipos de cómputo Cliente y Servidor............ 6 Tabla 1. 3 Especificaciones Mecánicas control de Barrera ........................................... 7 Tabla 1. 4 Servicios creados por Oracle 10g XE ......................................................... 14 Tabla 1. 5 s directos creados por la aplicación ................................................ 14

5

INFORMACIÓN GENERAL

1.1. INTRODUCCIÓN El presente documento contiene la información detallada sobre: los recursos empleados y requeridos por el proyecto Sistema de Control de Vehicular CADAV, tanto en hardware como en software, así como las configuraciones necesarias de cada componente, para garantizar su correcto funcionamiento.

6

1.2. REQUERIMIENTOS DEL SISTEMA Los requerimientos del proyecto para la implementación del Sistema de Control de Vehicular CADAV, en el campus de la Pontificia Universidad Católica del Ecuador Sede Santo Domingo; están divididos en software y hardware, continuación en las siguientes tablas encontrará un detalle de ellos:

1.2.1. Software

Tabla 1. 1 Especificaciones de Software para Cliente y Servidor

Detalle

SERVIDOR

Detalle

Sistema Operativo

Microsoft Windows XP

Sistema Operativo

CLIENTE Microsoft Windows XP Microsoft Windows .NET Framework 3.5

Base de Datos

Otros

Oracle 10g XE

Microsoft Windows Installer 3.1 MetroSet2Install

1.2.2. Hardware El Hardware del sistema está considerado o divido como dos partes la de cómputo y la mecánica. Tabla 1. 2 Especificaciones Hardware, equipos de cómputo Cliente y Servidor

Detalle

SERVIDOR

CLIENTE

Procesador:

Pentium IV

Pentium IV

Memoria RAM:

512 Mb

512 Mb

Espacio en Disco:

1 GB

500 Mb

Bus de datos:

1 Ghz

600 Mhz

Para la parte mecánica del control de barrera los requisitos son:

7

Tabla 1. 3 Especificaciones Mecánicas control de Barrera

Detalle LECTORES

CLIENTE CONSOLA 2 Lectores de Còdigo de Barras Tensión. 24 V cc Velocidad Motor: 2450 RPM Motor: 72 W

MOTOR

Absorción : 0,5 / 3,3 A Temperatura de funcionamiento: - 30º C +60ºC Revoluciones de Salida: 2 / 4 rpm Tiempo de apaerura: De 3 a 8 seg. Asta: Aluminio 6060 Longitud Asta: Redonda 60mm de 2,5 a 4m / Rectangular 80x20mm de 2,5 a 3,5m

MÀSTIL

Color: Blanca con catadióptricos Rojos Altura desde el suelo: 950mm Equilibrado: Tramite Muelle de tracción ext 50mm Estructura: Fe 360 Chapa decapada 2mm Dimensiones: 300 L x 220 P x 1.155 H mm Maniobra a Mano: Desde el exterior con llave

CUERPO DE BARRERA Partes Metálicas: Equipotencial

Seguridad apertura armario: Microruptor de seguridad (Inive la centralita) Embalado: Cartón ecológico Peso: 48 Kgr.

Adicional a estos componentes se debe contar con la alimentación del circuito eléctrico, la fuente de alimentación para los dispositivos de Control de Barrera es de 220 V

8

1.3. INSTALACION Y CONFIGURACIÓN DE LOS COMPONENTES DEL SISTEMA A continuación encontrará las indicaciones necesarias para instalar de forma correcta a cada uno de los componentes del Sistema de Control de Vehicular CADAV para su correcto funcionamiento

1.3.1. Instalación y configuración de la Base de Datos Los datos generados, así como los datos necesarios para el funcionamiento del Sistema se almacenarán en una base de datos istrada por el Gestor de bases de datos Oracle versión 10g Express Edition (XE), datos como: detalle de clientes, número de parqueaderos a disposición, códigos de vehículos entre otros. Esta versión de Oracle es gratuita dirigida para estudiantes, desarrolladores que quieran utilizarla y también para pequeñas empresas, por tratarse de una versión gratuita tiene ciertas limitaciones las más importantes son:  Sólo podrá correr en servidores con 1 sólo procesador y con hasta 1 Gb de RAM.  Podrá manejar un tamaño máximo de 4 Gb de almacenamiento en el disco. Para poder instalar esta versión de Oracle 10g se deben seguir los siguientes pasos: Paso 1 Se debe descargar el fichero OracleXE.exe de la web de Oracle:

http://www.oracle.com/technology/software/products/database/xe/index.html

Para poder realizar la descarga es necesario ser registrado de Oracle, el registro es gratuito. Paso 2 Ejecutar el archivo descargado, dar clic en Siguiente para iniciar la instalación:

9

Figura 1. 16 Pantalla de Bienvenida para iniciar la Instalación

Paso 3 Se acepta los términos del Acuerdo de Licencia y se da Siguiente:

Figura 1. 17 Acuerdo y Términos de Licencia

Paso 4 Seleccionamos Oracle Database 10g Express Edition y especificamos la ruta de instalación de Oracle, dando clic en el botón de Examinar podremos cambiar, en el caso de así requerirlo; la ruta por defecto C:\oraclexe\

10

Figura 1. 18 Paquete y ruta para la instalación

Paso 5 A continuación se debe ingresar la clave para los s SYS y SYSTEM, luego dar clic en Siguiente:

Figura 1. 19 Ingreso de Contraseñas para los s SYS y SYSTEM

Paso 6 A continuación nos aparecerá la pantalla con las opciones escogidas para la instalación, dar clic en Instalar para iniciar la instalación de Oracle 10g XE

11

Figura 1. 20 Inicio de la instalación con las opciones escogidas

El primer paso una vez que se ha iniciado la instalación, es la copia de los archivos necesarios, este proceso es automático

Figura 1. 21 Proceso automático de copia de ficheros

Una vez copiados los archivos necesarios se inicia de forma automática por parte del instalador de Oracle el proceso de creación y configuración de una base de datos.

12

Figura 1. 22 Creación y Configuración de la Base de datos por defecto

Paso 7 Con la creación y configuración de la base de datos, por defecto; se da por terminado el proceso de instalación de la base de datos, en el caso de así requerirlo seleccionamos la opción “Iniciar la página inicial de la base de datos” para finalmente dar clic sobre el botón terminar.

Figura 1. 23 Proceso de Instalación de la Base de datos Finalizado

Para acceder a la página desde la que podremos istrar Oracle 10g XE se debe introducir la dirección: http://127.0.0.1:8080/apex, lo siguiente es digitar el name (SYSTEM o SYS) y la clave ingresada anteriormente.

13

Figura 1. 24 Ingreso de credenciales para la Base de Datos

Luego del ingreso nos aparecerá la ventana de istración con las opciones disponibles de esta versión.

Figura 1. 25 Entorno de istración de Oracle 10g XE

Para su funcionamiento Oracle 10g XE crea los servicios indicados a continuación:

14

Tabla 1. 4 Servicios creados por Oracle 10g XE

Nombre

Ubicación

Inicio

OracleJobSchedulerXE

c:/oraclexe/app/oracle/product/10.2.0/server/ Bin/extjob.exe XE

Deshabilitado

OracleMTSRecoverySer vice

C :/oraclexe/app/oracle/product/10.2.0/server /BIN/omtsreco.exe "OracleMTSRecoveryService"

Manual

OracleServiceXE

c:/oraclexe/app/oracle/product/10.2.0/server/ bin/ORAC LE.EXE XE

Automático

OracleXEC lrAgent

C :/oraclexe/app/oracle/product/10.2.0/server /bin/OraC lrAgnt.exe

Manual

OracleXETNSListener

C :/oraclexe/app/oracle/product/10.2.0/server /BIN/tnslsnr.exe

Automático

Los s directos que crea la aplicación: Tabla 1. 5 s directos creados por la aplicación

directo

Descripción

Introducción

Muestra una ventana de ayuda en formato html

Ir a Página Inicial de Base de Datos

Muestra la página de configuración y istración de Oracle

Parar Base de Datos

Detiene la base de datos

Realizar C opia de Seguridad de la Base de Datos

C opia de seguridad de la base de datos

Restaurar Base de Datos

Restaura una copia de seguridad de la base de datos

Obtener Ayuda

Ayuda

Ejecutar Línea de C omandos SQL

Permite ejecutar comandos SQL desde una ventana de MS-DOS

Iniciar Base de Datos

Inicia la base de datos previamente detenida

1.3.2. Importar o Exportar una Base de Datos

15

Paso 1. El primer paso para realizar esta operación es iniciar sesión, para esto ingresamos la dirección para abrir la página de istración de datos en el explorador (http://127.0.0.1:8080/apex)

Figura 1. 26 Inicio de Sesión Oracle 10g XE

Paso 2 Ingresamos a las opciones de SQL -> Archivos de Comandos SQL -> y dependiendo de la operación a realizar escogeremos importar o exportar.

Figura 1. 27 Opciones para importar o exportar de Oracle 10g XE

A partir de este punto se muestra como realizar la importación y la exportación de archivos en Oracle.

16

1.3.2.1. Importar: Para realizar la importación damos clic en importar, dando clic en Examinar seleccionamos el archivo a importar

Figura 1. 28 Importar Archivos en Oracle

Para terminar damos clic en siguiente, y se nos muestra el resultado de la importación:

Figura 1. 29 Resultado de la importación

1.3.2.2. Exportar Para exportar la base de datos damos clic sobre exportar (ver paso 2 del presente procedimiento), aquí deberemos seleccionar la base de datos a Exportar, así también

17

desde aquí podemos escoger exportar solo fragmentos de la base de datos tal y como tablas, vistas, etc.

Figura 1. 30 Selección de Base a Exportar

Damos clic en Agregar a Exportación y exportar todo

Figura 1. 31 Exportación de Base de datos

A continuación seleccionamos la ruta en la que vamos a guardar el archivo recién creado

Figura 1. 32 Selección de ruta para almacenar el archivo generado

1.3.3. Instalación de Microsoft .Net Framework 3.5 Para poder instalar Microsoft .Net Framework 3.5 se lo puede hacer directamente desde el portal de Microsoft www.microsoft.com o desde el archivo adjunto en el disco de instalación.

18

1.3.3.1. Instalación desde el Archivo adjunto A continuación se detallan los pasos a seguir para instalar Microsoft .Net Framework 3.5 desde el archivo que viene en el disco de instalación del sistema. 1. Doble clic sobre el archivo adjunto en el disco

Figura 1. 33 Ejecutable Microsoft .Net Framework 3.5

2. Aceptamos los Términos de Licencia del Software y damos clic en instalar

Figura 1. 34 Términos de licencia

3. Finalmente nos muestra un mensaje en el que se indica que se ha terminado la instalación con éxito.

19

Figura 1. 35 Finalización de la instalación Microsoft .Net Framework 3.5

20

1.3.4. Instalación del Control de Barrera Para garantizar el correcto funcionamiento del dispositivo de control de barrera así también para salvaguardar a los s, clientes y elementos del sistema es necesario que además de las seguridades que normalmente se siguen al momento de realizar instalaciones eléctricas y mecánicas se tomen en cuenta las siguientes recomendaciones con respecto a los cimientos en los que se empotrará el dispositivo de control de barrera: Lo primero a considerar serán las dimensiones con las que debe contar el cimiento:  Profundidad del Cimiento por lo menos 1 metro  Área de la base del Cimiento 19" x 23 1/2 "  La base del cimiento es 4" más ancho hacia la parte del paso de los vehículos que en las otras secciones.

Figura 1. 36 Especificaciones para los cimientos del dispositivo del Control de Barrera

El cimiento debe ser de concreto de alta dureza de por lo menos 2500psi. La superficie debe ser plana y nivelada garantizando una base sólida para el dispositivo, así también se recomienda para empotrar el dispositivo al cimiento del uso de tornillos de 3/8”

21

1.3.5. Revisión del Código fuente En el caso de que se desee realizar alguna revisión al código fuente del Sistema se debe realizar la inclusión de una referencia al proyecto al momento de realizar la revisión, a continuación encontrará los pasos necesarios para agregar la referencia al proyecto: Paso1 En el entorno de trabajo de Microsoft Visual Studio en Visual Basic.NET nos vamos a la Opción de la barra de herramientas: Proyecto -> Agregar referencia

Figura 1. 37 Menú Agregar referencia al proyecto

Paso2 Escogemos la referencia System.Data.OracleClient y finalmente damos clic en aceptar.

Figura 1. 38 Referencia System.Data.OracleClient

22

Luego de agregada la librería a nuestro entorno de trabajo se puede realizar la revisión del código fuente del sistema sin ningún inconveniente.

Figura 1. 39 Entorno de Trabajo Visual Basic.NET

1.3.6. Instalación y configuración del Lector de Códigos de Barras Para que el Lector de código de barras funcione adecuadamente es necesario instalar el aplicativo SoftWedge, el software viene en el disco de instalación y es necesario para el lector utilizado Metrologic MS9520.

Figura 1. 40 Instalador SoftWedge

23

Paso 1. Damos doble clic sobre el instalador, y sobre el botón Next

Figura 1. 41 Ventana inicio instalador SoftWedge

Paso 2. Dejamos la ruta por defecto para la instalación y damos siguiente

Figura 1. 42 Elección de ruta de instalación

Paso 3. Clic en el botón Install

24

Figura 1. 43 Instalación Software SoftWedge

Paso 4. Clic en Finish dejamos seleccionado la opción para que se ejecute inmediatamente

Figura 1. 44 Finalización de la Instalación

Paso 5. Una vez instalado el Software aparece en la barra de herramientas el logo de Metrologic, dar clic derecho y ahí se debe seleccionar la forma en la que se está conectando al lector, serial o USB.

25

Figura 1. 45 Icono Metrologic en la barra de herramientas

1.3.7. Configuración del puerto COM Es necesario verificar que el puerto COM se encuentre bien configurado y funcionando correctamente, los pasos a seguir para esta verificación son: Paso 1. Abrimos el de Dispositivos y nos ubicamos sobre el puerto COM

Figura 1. 46 Configuración del puerto COM

Paso 2. Verificar que se encuentre configurado el puerto acorde al siguiente detalle

26

Figura 1. 47 Configuración del puerto COM

27

INSTALACIÓN DEL SISTEMA DE CONTROL DE VEHICULAR CADAV Luego de haber instalado los requisitos del sistema procedemos a continuación con la instalación del Sistema. Paso 1 Damos doble Clic sobre el ejecutable que se encuentra en el disco de instalación

Figura 2. 3Instalador Sistema CADAV 1.3

Paso 2 Clic en Siguiente

Figura 2. 4 Ventana inicio de Instalación del Sistema

28

Paso 3 Seleccionamos la opción Para todos los s, se recomienda que solo en el estricto caso de ser necesario se cambie la ubicación por defecto para la instalación del Sistema. Clic en Siguiente y confirmar la instalación del sistema (Clic en siguiente)

Figura 2. 5 Ubicación de la carpeta destino para la instalación

Paso 4 Esperar un momento hasta que esté finalizada la instalación

Figura 2. 6 Ventana de Progreso de la Instalación

29

Paso 5 Clic en Cerrar una vez que se ha concluido con la instalación del Sistema

Figura 2. 7 Ventana de Confirmación de la Instalación

Una vez terminada la instalación ya se puede utilizar la aplicación

ANEXO 6

Manual de

PUCE SD Autor: Paúl Tapia, Cristian Barreno

2

INDICE DE MANUAL TECNICO INDICE DE MANUAL TECNICO ................................................................................... 2 INDICE DE ILUSTRACIONES ...................................................................................... 3 INTRODUCCIÓN .......................................................................................................... 4 REQUISITOS GENERALES ......................................................................................... 5 1.1. Estaciones de Trabajo ........................................................................................... 5 1.2. Puesta en marcha de la Maqueta .......................................................................... 5 FUNCIONAMIENTO Y CARACTERISTICAS DEL SOFTWARE ................................... 6 2.1. Inicio de Sesión ..................................................................................................... 6 2.1.1. Ingreso Incorrecto de credenciales ..................................................................... 7 2.2. Módulo de istración ...................................................................................... 7 2.2.1. TIPO ................................................................................................................... 8 2.2.2 SUBTIPO ........................................................................................................... 11 2.2.3. PARQUEADERO .............................................................................................. 12 2.2.4. INVITADO ......................................................................................................... 13 2.2.5. ......................................................................................................... 14 2.2.6. VEHÍCULO ....................................................................................................... 15 2.2.7. REPORTE ESTADISTICO ................................................................................ 16 2.3. MÓDULO DE CONSOLA: .................................................................................... 17 2.3.1. Ingresar Invitado: .............................................................................................. 18 2.3.2. Ingreso Manual: ................................................................................................ 18

3

INDICE DE ILUSTRACIONES

Figura 1. 1 Manual Técnico de Instalación y Configuración CADAV ............................. 5 Figura 2. 1 Presentación del Sistema CADAV .............................................................. 6 Figura 2. 2 Inicio de Sesión CADAV ............................................................................. 6 Figura 2. 3 Ingreso incorrecto de credenciales.............................................................. 7 Figura 2. 4 Módulo de istración ........................................................................... 7 Figura 2. 5 Funcionalidad Tipo...................................................................................... 8 Figura 2. 6 Opciones de la funcionalidad TIPO ............................................................. 8 Figura 2. 7 Botón Nuevo ............................................................................................... 9 Figura 2. 8 Botón Modificar ........................................................................................... 9 Figura 2. 9 Botón Modificar ........................................................................................... 9 Figura 2. 10 Botón Guardar ........................................................................................ 10 Figura 2. 11 Botón Refrescar ...................................................................................... 10 Figura 2. 12 Botón Eliminar......................................................................................... 10 Figura 2. 13 Botón Salir .............................................................................................. 10 Figura 2. 14 Botón Exportar ........................................................................................ 10 Figura 2. 15 Tipos de Búsqueda ................................................................................. 11 Figura 2. 16 Formulario SUB TIPO ............................................................................. 11 Figura 2. 17 Formulario SUBTIPO .............................................................................. 11 Figura 2. 18 Formulario Parqueadero ......................................................................... 12 Figura 2. 19 Funcionalidades del Parqueadero ........................................................... 12 Figura 2. 20 Formulario TIPO DE INVITADO .............................................................. 13 Figura 2. 21 Funcionalidades del Formulario TIPO DE INVITADO.............................. 13 Figura 2. 22 Formulario ................................................................................. 14 Figura 2. 23 Funcionalidades de S ............................................................. 14 Figura 2. 24 Formulario de Vehículo ........................................................................... 15 Figura 2. 25 Funcionalidades de VEHÍCULO .............................................................. 15 Figura 2. 26 Reporte Estadístico ................................................................................. 16 Figura 2. 27 REPORTE DE OPERACIONES .............................................................. 16 Figura 2. 28 Módulo Consola ...................................................................................... 17 Figura 2. 29 Ingreso de Invitado ................................................................................. 18 Figura 2. 30 Listado de Vehículos para el Ingreso ...................................................... 19

4

INTRODUCCIÓN En el presente documento usted encontrará una descripción de cada una de las funciones del Sistema de Control de Vehicular versión 1.3, con lo cual se busca poner a su disposición una completa herramienta para el manejo de las características del sistema. El sistema cuenta con dos módulos:  El módulo de istración al cual solo tienen los s de tipo y analista.  El módulo de consola al cual pueden acceder solo los s de tipo . El Sistema de Control de Vehicular CADAV 1.3 realiza un completo control sobre el proceso de ingreso y salida de vehículos al campus de la Pontificia Universidad Católica Sede Santo Domingo PUCE SD

5

REQUISITOS GENERALES Para poder utilizar el sistema de forma adecuada se le recomienda seguir los pasos detallados en el presente manual.

1.1. Estaciones de Trabajo Para garantizar un correcto funcionamiento del sistema se recomienda seguir las especificaciones establecidas en el Manual Técnico del Sistema.

Figura 1. 48 Manual Técnico de Instalación y Configuración CADAV

1.2. Puesta en marcha de la Maqueta El sistema demuestra su funcionalidad a través del uso de una maqueta, la maqueta posee una circuitería propia, por lo que se recomienda que su encendido sea de la siguiente forma: 1) Encender el equipo que enviará las ordenes a la maqueta. 2) Realizar las conexiones físicas del cableado y asegurarse que se encuentren bien conectadas. 3) Conectar el dispositivo de lectura(lector de código de barras). 4) Verificar que los motores se encuentren en estado inicializado (abajo ambas barreras). 5) Realizar el encendido de la maqueta y esperar 5 segundos para iniciar su uso.

6

FUNCIONAMIENTO Y CARACTERISTICAS DEL SOFTWARE El Sistema de Control de Vehicular tiene dos instancias de funcionamiento, istración y consola, así también en el módulo de istración las características a desplegarse dependerán del que ingrese al sistema, es decir analista o . A continuación encontrará detalladas todas las características del Sistema de Control de Vehicular CADAV.

2.1. Inicio de Sesión Una vez instalado el Sistema en su ordenador usted podrá iniciar el sistema ya sea desde la barra de Windows o desde su escritorio, una vez iniciada la aplicación se mostrará una pantalla que le da la bienvenida al sistema indicando que la instalación ha sido exitosa.

Figura 2. 8 Presentación del Sistema CADAV

A continuación se le solicita que ingrese sus credenciales, es decir su y su contraseña

Figura 2. 9 Inicio de Sesión CADAV

7

2.1.1. Ingreso Incorrecto de credenciales En el caso de que usted hubiere ingresado de forma errónea sus datos, contará con 3 intentos para el ingreso de sus credenciales caso contrario el sistema se cerrará

Figura 2. 10 Ingreso incorrecto de credenciales

2.2. Módulo de istración El módulo de istración posee las opciones necesarias para el control del ingreso y salida vehicular del campus universitario, a continuación revisaremos cada una de ellas.

Figura 2. 11 Módulo de istración

8

2.2.1. TIPO Para poder identificar de mejor forma a los vehículos tienen una forma acorde a sus características para ser identificados, estas características son el resultados de la unión de dos conjuntos TIPO y SUBTIPO, donde el tipo es la característica primordial de todo automotor ejemplo: Automóvil, Motocicleta, Camión, etc. Mientras que SUBTIPO son las características de cada TIPO ejemplo: TIPO: AUTOMÓVIL SUBTIPO: SEDAN, HATCH BACK, COUPE, etc.

Figura 2. 12 Funcionalidad Tipo

Es así que se creó la funcionalidad Tipo para poder llevar un control de estas características al ingresar a esta opción usted encontrará:

Figura 2. 13 Opciones de la funcionalidad TIPO

Nombre:

En este campo se ingresa el nombre de la categoría a gestionar,

entendiéndose por gestión a la creación, eliminación, modificación o búsqueda de determinador dato.

9

2.2.1.1. Botones A continuación revisaremos las funciones de cada botón, cabe indicar que los botones tienen similar funcionamiento en cada formulario del sistema por lo que revisaremos su funcionalidad únicamente en esta sección ya que poseen igual desempeño en el resto del sistema. Nuevo El botón Nuevo sirve para ingresar nuevos registros en el formulario en el que nos encontremos, siempre y cuando tengamos los roles necesarios.

Figura 2. 14 Botón Nuevo

Modificar El botón Modificar permite realizar modificaciones a los registros, para poder modificar algún registro el dato a modificar deber ser seleccionado del listado que se presenta.

Figura 2. 15 Botón Modificar

Guardar El botón Guardar sirve para guardar ya sea los cambios realizados o ingreso nuevo de datos

Figura 2. 16 Botón Modificar

Cancelar El botón Cancelar anula la transacción que se estuviera realizando sin grabar cambio alguno

10

Figura 2. 17 Botón Guardar

Refrescar El botón refrescar permite que el cuadro donde están los datos consultados o en existencia se actualice de forma manual.

Figura 2. 18 Botón Refrescar

Eliminar El botón eliminar elimina el registro o los registros seleccionados, desde luego está opción se ejecutará respetando la integridad de datos.

Figura 2. 19 Botón Eliminar

Salir El botón Salir cierra el formulario que se encuentre abierto en ese momento sin guardar los cambios realizados.

Figura 2. 20 Botón Salir

Exportar El botón Exportar sirve para exportar, los datos que se encuentran en el recuadro de búsqueda, a una hoja de Excel.

Figura 2. 21 Botón Exportar

11

Tipos de Búsqueda El sistema realiza las búsquedas de dos formas Inicial y coincidencial.

Figura 2. 22 Tipos de Búsqueda

Inicial: Realiza la búsqueda con coincidencias exactas. Coincidencial: Realiza la búsqueda con cadenas de texto en las encuentren coincidencias a lo buscado.

que se

2.2.2 SUBTIPO

Figura 2. 23 Formulario SUB TIPO

En el formulario SUBTIPO se podrá gestionar lo referente a los subtipos de los vehículos.

Figura 2. 24 Formulario SUBTIPO

12

La utilidad de este formulario se presente al momento de realizar registros de vehículos ya que nos permitirá contar con mejores descripciones sobre el parque automotor que ingresa al Campus universitario. Subtipo: En este campo se ingresan el nombre del Subtipo a Gestionar. Categoría: Aquí se selecciona el TIPO de vehículo con el que se lo va o está vinculado el Subtipo.

2.2.3. PARQUEADERO

Figura 2. 25 Formulario Parqueadero

Este formulario sirve para poder gestionar lo referente a los parqueaderos, permite la creación, de nuevos parqueaderos o la modificación de la capacidad de los existentes, está información es validada al momento durante el ingreso de vehículos al Campus universitario

b Figura 2. 26 Funcionalidades del Parqueadero

13

Nombre: Nombre del Parqueadero Capacidad: Capacidad del Parqueadero Localización: Una descripción del lugar en el que se ubica el parqueadero. Buscar: Dato a buscarse, relacionado con el nombre del parqueadero

2.2.4. INVITADO

Figura 2. 27 Formulario TIPO DE INVITADO

El formulario TIPO DE INVITADO permite pre autorizar el ingreso a s que no necesariamente siguen el normal procedimiento para el registro de los vehículos, pero que sin embargo su debe ser concedido con este fin.

Figura 2. 28 Funcionalidades del Formulario TIPO DE INVITADO

Tipo: Nombre del tipo de Invitado. Descripción: Descripción del invitado a gestionar. La creación de invitados en el sistema será de exclusiva responsabilidad del del Sistema. Se consideran s invitados a:

14

Autoridades.- Son aquellas autoridades de la universidad que tienen libre sin necesidad de la previa verificación del vehículo realizada por Recursos Físicos. Proveedores.-Son las Personas naturales o jurídicas que proporcionen algún bien o servicio a la Universidad y que para esto necesiten ingresar algún vehículo automotor. En el caso de identificarse otros tipos de s por parte del del sistema y se podrán crear cuantos el crea necesarios.

2.2.5.

Figura 2. 29 Formulario

En este formulario se podrá gestionar los datos de los s del Sistema, los posibles s son personal istrativo y de guardianía de la universidad .

Figura 2. 30 Funcionalidades de S

RUC o Cédula: Número de identificación del

15

Apellido: Apellidos del Nombre: Nombre del Tipo: Este campo corresponde al tipo de , , analista u operador Nick: Es el campo correspondiente al nombre o seudónimo del Clave: Es la contraseña correspondiente del Repetir Clave: Es el campo para el reingreso de la clave inicialmente ingresado Estado: Es el estado en el que se encuentra el contribuyente, los estados pueden ser Activo, Pasivo.

2.2.6. VEHÍCULO

Figura 2. 31 Formulario de Vehículo

En este formulario se debe ingresar los datos correspondientes a los vehículos de los Clientes del sistema luego de lo cual se vincula al vehículo con un cliente.

Figura 2. 32 Funcionalidades de VEHÍCULO

16

Modelo: En este campo se ingresa los datos del Modelo del vehículo Placa: En este campo se ingresan los datos de la placa del vehículo Año: En este campo se ingresan los datos del año en el que fue producido el vehículo Características: Aquí se ingresan las características del vehículo, en este campo se recomienda ingresar una completa descripción del estado en el que se encuentra el vehículo. Categoría: Aquí se debe dar clic en el botón de buscar para escoger la categoría que le corresponda al vehículo, en el caso de que la categoría buscada no se encuentre en el listado, se deberá solicitar al de la aplicación la creación de la categoría. Subtipo: Este campo se llena automáticamente cuando se selecciona la Categoría correspondiente. Cliente: Aquí se debe llenar el campo dando clic en el botón de buscar y seleccionando en el listado de los clientes que aparecen.

2.2.7. REPORTE ESTADISTICO

Figura 2. 33 Reporte Estadístico

En este formulario se podrán obtener los reportes de las transacciones realizadas, este módulo posee varios filtros para facilitar su búsqueda.

Figura 2. 34 REPORTE DE OPERACIONES

17

Tipo de Transacción: Aquí se pueden elegir el tipo de transacción por la que se desea realizar la búsqueda (Ingreso o Salida). : En este campo se podrá indicar si desea que la búsqueda sea realizada por la transacción realizada por algún específico o por todos. Cliente: Filtro para indicar porque cliente específico se desea realizar la búsqueda. Periodo de Transacción: Este es un filtro que sirve para establecer el rango correspondiente al período a buscarse, este rango ite el ingreso de horas, lo que servirá para poder establecer o determinar las horas pico de uso de este servicio. Vehículos: Este campo permite filtrar la búsqueda por el número de placa de un vehículo determinado. Generar: Este botón permite realizar la búsqueda acorde a lo ingresado en los filtros de búsqueda. En el caso de que los datos obtenidos en el formulario de reportes, se los quiera utilizar para realizar alguna tarea bastará con dar clic sobre el botón exportar e inmediatamente los datos obtenidos se exportarán a una hoja de cálculo.

2.3. MÓDULO DE CONSOLA: Este módulo se diseñó para la sección donde se realiza el control directo de ingreso y de salida de vehículos en el campus universitario. Actualmente este proceso se lo realiza en la garita de guardianía a la entrada de la Universidad. El módulo se encuentra dividido en dos secciones de similares características

Figura 2. 35 Módulo Consola

18

Campo Placa: En este campo aparecerá la placa correspondiente al carnet pasado por la lectora de código de barras. En los campos de Modelo, Tipo, Subtipo, Cliente, aparecerán los datos correspondientes a las características del vehículo ingresado por el lector. Observación: Este campo sirve para ingresar cualquier tipo de observación sobre el proceso de ingreso o salida registrado durante su ejecución. Permitir : El de tipo Operador dará clic sobre este botón una vez que hubiere verificado que todo se encuentra en orden sea para el ingreso o salida del Campus universitario.

2.3.1. Ingresar Invitado: Esta opción estará habilitada para el ingreso o salida de un de tipo invitado.

Figura 2. 36 Ingreso de Invitado

2.3.2. Ingreso Manual: Esta opción será habilitada para que en el caso de que por cualquier circunstancia la tarjeta del no pueda ser leída.

19

Figura 2. 37 Listado de Vehículos para el Ingreso

Los campos a ingresarse son similares en todos los formularios esto se hizo con el objetivo de facilitar el uso de los formularios por parte de los s.

Tesis De Grado - Control Automatizado De Ingreso Salida - Cadav 716b3g

Overview 5o1f4z

More details 6z3438

Related Documents c2h70

Tesis De Grado - Control Automatizado De Ingreso Salida - Cadav 716b3g

Control De Ingreso Y Salida De Vehiculos 456567

Formato Control De Ingreso Y Salida De Materiales.docx 3v1ss

Tesis De Grado 2q1w2

Tesis De Grado 2q1w2

Tesis De Grado (ing. Civil) 1b6s1

More Documents from "Hector Villarreal" 6g3e3y

Tesis De Grado - Control Automatizado De Ingreso Salida - Cadav 716b3g

Lujuria De Vivir - Irving Stone 4v6wc

Univ Almeria - Los Vikingos 2p4t2a

6g3p1u

Super Progresivo 2x1p5j

Lideres - Richard M. Nixon 4n3q58