• Author / Uploaded
• Fiorella Aguilar Isuiza

Citation preview

UNIVERSIDAD POLITÉCNICA AMAZÓNICA

INGENIERÍA DE SISTEMAS Y TELEMÁTICA

TRABAJO GRUPAL

CURSO

:

LABORATORIO DE PROGRAMACIÓN III

DOCENTE

:

MARCO AURELIO PORRO CHULLI

GRUPO

:

“A”

CICLO

:

VII

INTEGRANTES : RAÚL AARÓN DELGADO ESPÁRRAGA FIORELLA AGUILAR ISUIZA

Bagua Grande, 14 de Septiembre de 2017

INTRODUCCIÓN En el presente proyecto se propone un sistema de información para un restaurante. El objetivo es mejorar el flujo de información entre todos los miembros y áreas del restaurante. Mediante las herramientas que ofrece este software como son el control total del proyecto mediante el seguimiento de la ruta crítica, sistemas de costeo de materiales y mano de obra, así como flexibilidad para terminar los proyectos antes de lo programado. El trabajo está dividido. I. II. III. IV. V. VI. VII. VIII. IX. X.

Estructura orgánica de la empresa. Visión Misión Objetivos Breve descripción de los procesos involucrados Diagrama UML. Cronograma de actividades Diseño orientados a objetos Arquitectura tecnológica requerida Implementación del sistema

Por último aclaramos que en todo el trabajo nos referiremos solamente a un Restaurante, este proyecto se trata de un restaurante vegetariano.

DEDICATORIA Dedicamos este proyecto a Dios, a nuestros padres, los cuales son

pilares

fundamentales en nuestras vidas. A Dios porque ha estado con nosotros a cada paso que damos, cuidándonos y dándonos fortaleza para continuar, a nuestros padres, quienes a lo largo de nuestras vidas han velado por nuestro bienestar y educación siendo nuestros apoyos en todo momento. Depositando su entera confianza en cada reto que se nos presentaba sin dudar ni un solo momento en nuestra inteligencia y capacidad. Es por ello que somos lo que somos ahora. Y a nuestro profesor porque desde el primer día de clases ha demostrado, apoyo, amabilidad, respeto, responsabilidad e interés por brindarnos sus conocimientos de la mejor manera, y es por eso que estamos haciendo este sistema para plasmar todo lo adquirido en este tiempo de estudios.

AGRADECIMIENTO Este proyecto es el resultado del esfuerzo conjunto de todos los que formamos el grupo de trabajo. Por esto agradezco a nuestro Profesor MARCO AURELIO PORRO CHULLI, mis compañeros Aarón Delgado Esparraga, Fiorella Aguilar Isuiza, Imer Hobet Díaz Guerrero y Gerson Alarcón Regalado, quienes a lo largo de este tiempo han puesto a prueba sus capacidades y conocimientos en el desarrollo de este proyecto del curso de Desarrollo de software I, el cual ha finalizado llenando todas nuestras expectativas. A nuestros padres quienes a lo largo de toda nuestra vida han apoyado y motivado nuestra formación académica, que creen en todo momento y no dudan de nuestras habilidades. A nuestros profesores a quienes les debemos gran parte de nuestros conocimientos, gracias a su paciencia y enseñanza y finalmente un eterno agradecimiento a esta prestigiosa universidad la cual abrió y abre sus puertas a jóvenes como nosotros, preparándonos para un futuro competitivo y formándonos como personas de bien.

INDICE I.

Análisis y diagnóstico de la Empresa.

1. Descripción de la Empresa. 2. Estructura Orgánica de la Empresa 3. Vision. 4. Mision. 5. Objetivos. 5.1.

General.

5.2.

Específicos.

6. Breve Descripcion de los Procesos Involucrados. 7. Diagramas UML. 8. Cronograma de Actividades (Diagrama de Gantt). II.

Diseño Orientado a Objetos.

1. Diseño de la Base de Datos. 2. Diseño del Sistema. 3. Manuales del Sistema. III.

Arquitectura Tecnológica de la Empresa.

IV.

Implementación del Sistema.

Conclusiones. Recomendaciones. Glosario de Términos. Linkografía. Anexos.

I.

Análisis y diagnóstico de la Empresa. 1. Descripción de la Empresa.

La idea nace cuando estudiaba en el pedagógico “Cesar Abraham Vallejos” de la ciudad de Bagua, cuando se encontraba en el octavo ciclo de inglés, al ver desquebrajada su salud, se vio obligado a un estilo de vida diferente, obteniendo resultados óptimos y al ver esos resultados decidió compartir con otros su experiencia. Dejó de estudiar en el octavo ciclo, y trabajó durante un año, en el restaurant vegetariano el “Edén”, en la ciudad de Chachapoyas y medio año en la ciudad de Tarapoto, donde adquirió los conocimientos básicos para emprender el negocio del restaurant vegetariano. En el año 2008 se dio inicio al restaurant vegetariano en la ciudad de Bagua Grande en la cuadra 4 de San Felipe Santiago contando con 6 meses, pasaron al girón Angamos en la cuadra 2 ampliando su capacidad de resección al cliente a 15 mesas, después de 4 años pasaron a la Av. Chachapoyas 2212, donde incrementaron su capacidad a 20 mesas teniendo una mejor acogida. Actualmente se encuentran en la Av. Chachapoyas aumentando su capacidad a 30 mesas. También cuenta actualmente con una sección de medicina naturista. 2. Estructura orgánica de la Empresa.

FUNCIONES:

ADMINISTRADOR:  Contratar el personal.  Solicitar a los proveedores todos los productos que necesite.  Cancelar los sueldos al personal.  Administrar las finanzas del restaurant.  Controlar el almacén.  Controlar el patrimonio del restaurant. CAJERO:  Vende los productos naturales que el restaurant ofrece,  Cobra a los clientes, de los alimentos que han consumido.  Lleva un control de todos los pensionistas.  Al final de cada día rinde cuentas al administrador de todo lo vendido. COCINA:  Cocinan los menús y platos a la carta que el restaurant ofrece.  Mantienen en orden y limpia la cocina.  Verifican lo que necesitan o lo que les hace falta para hacérselo saber al administrador. JUGUERIA:  Preparan todos los jugos que el restaurant ofrece.  También preparan las ensaladas de frutas y yogurts.  Verifican lo que necesitan y lo hacen saber al administrador. PERSONAL DE ATENCION AL CLIENTE:  Brindar buena atención y servicio a los clientes.  Mantener aseado el restaurant.

3. Visión. El Restaurante Vegetariano "Vida y Salud" tiene como visión, llegar a ser la cadena de restaurante más exitoso en nuestra especialidad, y así general trabajo e inversión para el desarrollo socio-económico de la provincia de Utcubamba, de la Región y del País. 4. Misión. El Restaurante Vegetariano " Vida y Salud" tiene como misión promover la cultura del buen comer, mediante un buen servicio, teniendo presente los gustos por la comida vegetariana,

permitiendo

mejorar

la

salud

de

las

personas,

considerando una alimentación integral a la sociedad. 5. Objetivos. 5.1.

Generales.

Crear un restaurante con un excelente servicio al cliente, para poder desarrollar y cumplir las metas propuestas aplicando los conocimientos de gastronomía, incentivando a un nuevo esquena de nutrición donde se sustituyan los diferente tipos de carne que nos aportan proteína; utilizando otros alimentos que nos proporcionen proteína de igual manera que nos la aportan las diferentes carnes. 5.2.

Específicos.

 Ofrecer un servicio con calidad, atento y confiable.  Tener gran variedad a la hora de ofrecer nuestro menú.  Contribuir a la sociedad con una nueva forma de nutrición.  Prestar un servicio en el cual mientras los diferentes clientes degustan nuestro menú tenga un momento de esparcimiento.  Tener un punto estratégico para que el lugar sea más accesible a los futuros cliente.  Crear conciencia de una nueva alimentación la cual es beneficiosa para el cuerpo humano.  Dar a nuestro cliente información detallada de los servicios que presta el restaurant.  Asesorar a nuestros clientes para hacer una mejor selección de los diferentes productos a brindar.  Introducir el vegetarianismo como una alternativa de calidad.

6. Breve descripción de los Procesos involucrados. 6.1.

Descripción de los Procesos.

GESTIONAR COMPRAS. El jefe de administración al ver los productos que le faltan elabora un documento describiendo todos los productos que requiere y los envía a los proveedores quienes le proveen lo necesario para que el restaurant vegetariano pueda brindar un buen servicio a sus clientes. PROCESAR VENTAS. El cliente llega al restaurant el cual es atendido por un mesero, quien le muestra al cliente el menú diario que ofrece el vegetariano o también el cliente puede pedir platos a la carta, en bebidas dispone de jugos o refrescos. Este restaurant también ofrece a la venta productos naturales, para aquellas personas que desean llevar una dieta saludable. Después de consumir, el cliente se acerca a caja para cancelar lo que ha consumido y puede pedir boleta o factura. CONTROLAR INVENTARIOS. El encargado de llevar a cabo los inventarios es el jefe de patrimonio, él se encarga de registrar y actualizar el menaje, también registra y actualiza el mobiliario y los artefactos, sobre el recae la responsabilidad de llevar un control total de todo el patrimonio del restaurant. ADMINISTRAR PERSONAL. Es el jefe de personal el que se encarga de llevar un registro del personal de atención, de cocina, de caja. El verifica y aplica los descuentos, hace cumplir los horarios establecidos, realiza el pago de sueldo a los empleados, controla las vacaciones y los adelantos de sueldo. ADMINISTRAR ALMACEN. El jefe de almacén es el que se encarga de registrar y actualizar los productos que son adquiridos de los proveedores, también registra y actualiza productos en el cardex y además diseña un cronograma de limpieza para asear el almacén y evitar cualquier enfermedad a los clientes.

6.2.

Descripción de los Documentos.

BOLETA DE VENTAS La boleta de venta tiene por finalidad acreditar la prestación de servicios en operaciones con consumidores o usuarios finales. Una boleta de Venta se entrega a clientes que hayan consumido alimentos (Jugos, Ensaladas de frutas, Ensaladas de Verduras, Menú, Platos a la Carta, etc.), o comprado algún producto de la botica, en el caso de los pensionistas si ha pagado todos sus consumos de en un determinado tiempo se le podrá generar la Boleta de Venta. FACTURA La facturación es un proceso esencial en cada una de las empresas de cualquier sector. En el sector de servicios. En el cual se incluye la restauración, representa algo más un mero trámite administrativo y de control de ventas. Una Factura de Venta se entrega a clientes que hayan consumido alimentos (Jugos, Ensaladas de frutas, Ensaladas de Verduras, Menú, Platos a la Carta, etc.), o comprado algún producto de la botica, y estos obligatoriamente tienen que tener un (Registro Único de Contribuyente).

RUC

7. Metodología de Desarrollo de Software RUP - Lenguaje UML. MODELAMIENTO DEL NEGOCIO MODELO DE CASOS DE USO DEL NEGOCIO

Gestionar Com pras

Procesar Ventas Proveedor Area de Adm inistracion

Controlar Inventarios

Cliente Administrar Personal

Administrar Almacen

MODELO DE OBJETOS DEL NEGOCIO

(MON) ADMINISTRAR ALMACEN

Verificar/Actualizar

Productos

Verificar/Actualizar

Kardex

Jefe de Adm inistracion

Verificar/Actualizar

Lim pieza Periodica

(MON) ADMINISTRAR PERSONAL

Administrador Registrar/Actualizar

Registrar/Verificar

Personal

Registrar Descuento por Daños

Registrar/Verificar

Registrar/Verificar

Horario

Jefe de Personal

Registrar/Verificar

Sueldo

Registrar/Verificar

Vacaciones

Adelantos De Sueldo

(MON) CONTROLAR INVENTARIOS

Registrar/Actualizar Menaje

Registrar/Actualizar

Moviliario Jefe de Patrimonio Registrar/Actualizar

Artefactos

(MON) GESTIONAR COMPRAS

Proveedor Verificar/Registrar

Verificar/Registrar Productos Solicitar/Registrar

Jefe de Adm inistracion Solicitar/Registrar Precio Productos

Presentacion

(MON) PROCESAR VENTAS

Cliente

Atiende

Registrar Menu Diario

Verificar

Registrar Verificar Registrar Platos a la Carta

Verificar MESERO

Registrar Verificar Registrar

Cajero

Jugos

Registrar/Actualizar

Productos Generar

Precios Venta

Comprobante De Venta

REGISTRAR

(MDP) MODELO DEL DOMINIO DEL PROBLEMA

DIAGRAMA DE CASOS DE USO

Diagrama de Casos de Uso Procesar ventas.

Registrar Cliente

Registrar menu diario

Registrar Platos a la carta

Cajero

Registrar Venta Registrar Jugos

Registrar Productos naturales

Modelo Casos de Uso Administrar Almacén.

Registrar Producto

Jefe de administración

Registrar Kardex

Modelo de Casos de Uso Administrar Personal.

Registrar Administrador

Jefe de Personal

Registrar Personal

Registrar Adelantos

Registrar Descuento

Modelo de Casos de Uso Controlar Inventarios.

Registrar Menaje

Registrar Moviliario

Jefe de Patrimonio

Registrar Artefactos

Modelo de Casos de Uso Gestionar Comprar.

Registrar Proveedor

Jefe de Administración

Registrar Productos

DIAGRAMA DE CLASES Usuarios codusuario nombre dni fecnac Clave Estado nombreusuario

Proveedores Ciudad codciudad nombre 1

1..*

Nuevo() Guardar() Consultar() Actualizar() Eliminar()

codproveedor nombre dni ruc direccion telefono mail idciudad Nuevo() Guardar() Consultar() Actualizar() Eliminar()

ProductosNaturales Nombre Costo Descripcion PrecioVenta Idproveedor idpresentacion Nuevo() Guardar() Consultar() Actualizar() Eliminar() ProductosRestaurant codproductosrest Nombre Costo idproveedor idpresentacion Nuevo() Guardar() Consultar() Actualizar() Eliminar()

VENTAS

Compra

Artefactos

codcompra fecha hora total idproveedor

codartefactos nombre costo Nuevo() Guardar() Consultar() Actualizar() Eliminar()

Moviliario codmoviliario nombre costo Nuevo() Guardar() Consultar() Actualizar() Eliminar()

Menaje codmenaje nombre costo

(f rom Logical View)

codventa Serie idCorrelativo fecha formapago hora total idpersonal idcliente Nuevo() Guardar() Consultar() Actualizar() Eliminar() 1

1..* 1..*

DetalleVenta codventa idproductosnat idcomidas idserie iscorrelativo formapago cantidad subtotal

Patrimonio

1..*

codpatrimonio idmenaje Nuevo() Guardar() Consultar() Actualizar() Eliminar()

1

Pensionistas codpensionistas nombre dni fecnac direccion telefono idcomidas

Comidas codcomidas 1..* nombre precio idtipo 1..* Nuevo() Guardar() Consultar() Actualizar() Eliminar()

1 Tipo idtipo nombre 1

Nuevo() Guardar() Consultar() Actualizar() Eliminar()

Nuevo() Guardar() Consultar() Actualizar() Eliminar()

DIAGRAMA DE COLABORACIÓN Diagrama de Colaboración Registrar Personal

2: DNI Personal

3: Leer

4: Obj Personal : VerificadorPersonal 6: Leer

5: Consultar

7: Obj. Desc. : Descuentos

: VerificadorDescuentos

8: Consultar

1: Ingresar Datos

9: Leer

10: Obj. Horario : Jefe Personal

: FrmPersonal

: Horario

: VerificadorHorario

12: Leer

11: Consultar

13: Obj. Sueldo : VerificadorSueldo

: Sueldo

15: Crear

14: Enviar Datos

: RegistradorPersonal

: Personal

Diagrama de Colaboración Registrar Ventas

3: Leer

2: Nombre Cliente

4: Obj. Cliente : ConsultarCliente 5: Consultar

6: Leer

7: Obj. MenuDiario : ConsultarMenuDiario

8: Consultar

9: Leer

10: Obj. PlatosCarta : ConsultarPlatosCarta

1: Ingrese Datos

: Servicios Diarios

12: Leer

11: Consultar

: Cliente

13: Obj. Jugos : Cajero

: FrmClientes

: ConsultarJugos

14: Consultar

15: Leer

: ConsultarProductosNaturales

: Productos 17: Leer

16: Consulatr

18: Obj. Precios : ConsultarPrecios

19: Enviar Datos

20: Crear

: RegistrarCliente

21: Enviar Detalle

22: Generar

: GenerarComprobante

: DetalleVenta

Diagrama de Colaboración Registrar Compras

2: Consultar

3: Leer

4: Obj. Proveedor : Consultar Proveedor 6: Leer

5: Consultar

7: Obj.Productos : Consultar Productos 9: Crear

8: Enviar

10: Obj.Productos : Crear Productos 1: Ingrese Datos

: Jefe Administracion

12: Leer

11: Consultar

13: Obj.Precio : FrmProveedor

: Producto

: Consultar Precio 15: Leer

14: Consultar

: Consultar Presentacion 17: Crear

16: Ingresar

: Crear Proveedor

: Proveedor

8. Estimación de Costos(Puntos de Función – COCOMO Básico e Intermedio)

9. Cronograma de Actividades (Diagrama de Gantt).

N° 1

ACTIVIDAD Visitar la Empresa

TIEMPO 5 días

2

Recopilar la Información

8 días

3 4 5 6

Elaboración del Informe Elaboración de los Diagramas Plantear el Cronograma de Actividades Diseñar la Base de Datos

4 días 4 días 2 día 8 días

7

Requerimientos del Hardware y Software Diseñar el Sistema en Visual Elaborar los Manuales del Sistema Implementación del Sistema

5 días

8 9 10

5 días 4 días 30 días

RESPONSABLE Aarón Delgado Espárraga Fiorella Aguilar Isuiza Fiorella Aguilar Isuiza Aarón Delgado Espárraga Aarón Delgado Espárraga Aarón Delgado Espárraga Fiorella Aguilar Isuiza Fiorella Aguilar Isuiza Aarón Delgado Espárraga Fiorella Aguilar Isuiza Aarón Delgado Espárraga Fiorella Aguilar Isuiza Fiorella Aguilar Isuiza Aarón Delgado Espárraga

II.

Diseño Orientado a Objetos.

1. Diseño de la Base de Datos. 1.1.

Modelo Entidad-Relación (MER).

PRESENTACION PROVEEDOR

Tiene/Tiene

Generar/Realiz

Adquiridos/Provee

Adquiridos/Provee

VENTA PRO. RESTAURANT

Tiene/Tiene

Realizados/Pertenece

Tiene/Tie

PRO. NATURALES

Tiene/Tiene

Tiene/Tiene

Tiene/Tiene

PATRIM

1.2.

Diseño Lógico.

El diseño lógico es el proceso de construir un esquema de la información que utiliza la empresa, basándose en un modelo de base de datos específico, independiente del Sistema Gestor de Base de datos concreto que se vaya a utilizar y de cualquier otra consideración física.

1.3.

Diseño Físico.

El diseño físico es el proceso de producir la descripción de la implementación de la base de datos en memoria secundaria: estructuras de almacenamiento y métodos de acceso que garanticen un acceso eficiente a los datos.

1.4.

Diseño e Implementación de la Base de Datos (Procedimientos Almacenados, vistas, activadores, cursores, etc.).

use master go if exists(select*from sysdatabases where name='BDVegetariano') DROP database BDVegetariano go create database BDVegetariano go use BDVegetariano go CREATE TABLE Artefactos ( codartefactos char(3) NOT NULL , nombre varchar(40) NOT NULL , costo money NOT NULL , PRIMARY KEY (codartefactos ASC) ) go CREATE TABLE Bebidas ( codbebidas char(3) NOT NULL , nombre varchar(50) NOT NULL , precio money NOT NULL , descripcion varchar(60) NOT NULL , PRIMARY KEY (codbebidas ASC) ) go CREATE TABLE Ciudad ( codciudad char(3) NOT NULL , nombre varchar(50) NOT NULL , PRIMARY KEY (codciudad ASC) ) go CREATE TABLE Cliente ( codcliente char(3) NOT NULL , nombre varchar(80) NOT NULL , direccion varchar(60) NOT NULL , telefono varchar(20) NOT NULL , dni char(8) NOT NULL , idciudad char(3) NULL , PRIMARY KEY (codcliente ASC) ) go CREATE TABLE Compra ( codcompra char(4) NOT NULL , fecha date NOT NULL ,

) go

hora time NOT NULL , total money NOT NULL , idproveedor char(3) NULL , PRIMARY KEY (codcompra ASC)

CREATE TABLE DetalleCompra ( idproductosnat char(4) NOT NULL , idproductosrest char(4) NOT NULL , idcompra char(4) NOT NULL , cantidad int NOT NULL , subtotal money NOT NULL , PRIMARY KEY (idproductosnat ASC,idproductosrest ) go CREATE TABLE DetalleVenta ( idventa char(5) NOT NULL , idproductosnat char(4) NOT NULL , idplatoscarta char(4) NOT NULL , idbebidas char(3) NOT NULL , idpostres char(3) NOT NULL , idmenu char(3) NOT NULL , cantidad int NOT NULL , subtotal money NOT NULL , PRIMARY KEY (idventa ASC,idproductosnat ASC,idbebidas ASC,idpostres ASC,idmenu ASC) ) go CREATE TABLE Menaje ( codmenaje char(3) NOT NULL , nombre varchar(50) NOT NULL , costo money NOT NULL , PRIMARY KEY (codmenaje ASC) ) go CREATE TABLE MenuDiario ( codmenu char(3) NOT NULL , nombre varchar(60) NOT NULL , precio money NOT NULL , descripcion varchar(60) NOT NULL , PRIMARY KEY (codmenu ASC) ) go CREATE TABLE Moviliario ( codmoviliario char(3) NOT NULL , nombre varchar(60) NOT NULL ,

ASC,idcompra

ASC,idplatoscarta

ASC)

) go

costo money NOT NULL , PRIMARY KEY (codmoviliario

ASC)

CREATE TABLE Patrimonio ( codpatrimonio char(3) NOT NULL , idmenaje char(3) NULL , idartefactos char(3) NULL , idmoviliario char(3) NULL , PRIMARY KEY (codpatrimonio ASC) ) go CREATE TABLE Pensionistas ( codpensionistas varchar(3) NOT NULL , nombre varchar(60) NOT NULL , dni char(3) NOT NULL , fecnac date NOT NULL , direccion varchar(50) NOT NULL , telefono varchar(20) NOT NULL , idplatoscarta char(4) NULL , idbebidas char(3) NULL , idpostres char(3) NULL , idmenu char(3) NULL , PRIMARY KEY (codpensionistas ASC) ) go CREATE TABLE Personal ( codpersonal char(3) NOT NULL , nombre varchar(60) NOT NULL , dni char(8) NOT NULL , direccion varchar(50) NOT NULL , telefono varchar(20) NOT NULL , fecnacimiento date NOT NULL , PRIMARY KEY (codpersonal ASC) ) go CREATE TABLE PlatosCarta ( codplatoscarta char(4) NOT NULL , nombre varchar(60) NOT NULL , precio money NOT NULL , descripcion varchar(60) NOT NULL , PRIMARY KEY (codplatoscarta ASC) )

go CREATE TABLE Postres ( codpostres char(3) NOT NULL , nombre varchar(60) NOT NULL , precio money NOT NULL , descripcion varchar(60) NOT NULL , PRIMARY KEY (codpostres ASC) ) go

CREATE TABLE Presentacion ( codpresentacion char(3) NOT NULL , tipo varchar(50) NOT NULL , PRIMARY KEY (codpresentacion ASC) ) go

CREATE TABLE ProductosNaturales ( codproductosnat char(4) NOT NULL , nombre varchar(80) NOT NULL , costo money NOT NULL , descripcion varchar(80) NOT NULL , precioventa money NOT NULL , idproveedor char(3) NULL , idpresentacion char(3) NULL , PRIMARY KEY (codproductosnat ASC) ) go CREATE TABLE ProductosRestaurant ( codproductosrest char(4) NOT NULL , nombre varchar(80) NOT NULL , costo money NOT NULL , idproveedor char(3) NULL , idpresentacion char(3) NULL , PRIMARY KEY (codproductosrest ASC) ) go CREATE TABLE Proveedor ( codproveedor char(3) NOT NULL , nombre varchar(80) NOT NULL , dni char(8) NOT NULL , ruc char(11) NOT NULL , direccion varchar(50) NOT NULL , telefono varchar(20) NOT NULL , mail varchar(50) NOT NULL ,

) go

idciudad char(3) NULL , PRIMARY KEY (codproveedor

ASC)

CREATE TABLE Usuario ( codusuario char(3) NOT NULL , nombre varchar(80) NOT NULL , dni char(8) NOT NULL , fecnac date NOT NULL , clave varchar(60) NOT NULL , estado char(1) NOT NULL , nombreusuario varchar(20) NOT NULL , PRIMARY KEY (codusuario ASC) )

go CREATE TABLE Venta ( codventa char(5) NOT NULL , fecha date NOT NULL , formapago varchar(60) NOT NULL , hora time NOT NULL , total money NOT NULL , idpersonal char(3) NULL , idcliente char(3) NULL , PRIMARY KEY (codventa ASC) ) go

ALTER TABLE Cliente ADD FOREIGN KEY (idciudad) REFERENCES Ciudad(codciudad) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE Compra ADD FOREIGN KEY (idproveedor) REFERENCES Proveedor(codproveedor) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE DetalleCompra ADD FOREIGN KEY (idproductosnat) REFERENCES ProductosNaturales(codproductosnat) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE DetalleCompra ADD FOREIGN KEY (idproductosrest) REFERENCES ProductosRestaurant(codproductosrest) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE DetalleCompra ADD FOREIGN KEY (idcompra) REFERENCES Compra(codcompra) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE DetalleVenta ADD FOREIGN KEY (idventa) REFERENCES Venta(codventa) ON DELETE NO ACTION ON UPDATE NO ACTION

go ALTER TABLE DetalleVenta ADD FOREIGN KEY (idproductosnat) REFERENCES ProductosNaturales(codproductosnat) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE DetalleVenta ADD FOREIGN KEY (idplatoscarta) REFERENCES PlatosCarta(codplatoscarta) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE DetalleVenta ADD FOREIGN KEY (idbebidas) REFERENCES Bebidas(codbebidas) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE DetalleVenta ADD FOREIGN KEY (idpostres) REFERENCES Postres(codpostres) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE DetalleVenta ADD FOREIGN KEY (idmenu) REFERENCES MenuDiario(codmenu) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE Patrimonio ADD FOREIGN KEY (idmenaje) REFERENCES Menaje(codmenaje) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE Patrimonio ADD FOREIGN KEY (idartefactos) REFERENCES Artefactos(codartefactos) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE Patrimonio ADD FOREIGN KEY (idmoviliario) REFERENCES Moviliario(codmoviliario) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE Pensionistas ADD FOREIGN KEY (idplatoscarta) REFERENCES PlatosCarta(codplatoscarta) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE Pensionistas ADD FOREIGN KEY (idbebidas) REFERENCES Bebidas(codbebidas) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE Pensionistas ADD FOREIGN KEY (idpostres) REFERENCES Postres(codpostres) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE Pensionistas ADD FOREIGN KEY (idmenu) REFERENCES MenuDiario(codmenu) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE ProductosNaturales ADD FOREIGN KEY (idproveedor) REFERENCES Proveedor(codproveedor) ON DELETE NO ACTION ON UPDATE NO ACTION

go ALTER TABLE ProductosNaturales ADD FOREIGN KEY (idpresentacion) REFERENCES Presentacion(codpresentacion) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE ProductosRestaurant ADD FOREIGN KEY (idproveedor) REFERENCES Proveedor(codproveedor) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE ProductosRestaurant ADD FOREIGN KEY (idpresentacion) REFERENCES Presentacion(codpresentacion) ON DELETE NO ACTION ON UPDATE NO ACTION go

ALTER TABLE Proveedor ADD FOREIGN KEY (idciudad) REFERENCES Ciudad(codciudad) ON DELETE NO ACTION ON UPDATE NO ACTION

go

ALTER TABLE Venta ADD FOREIGN KEY (idpersonal) REFERENCES Personal(codpersonal) ON DELETE NO ACTION ON UPDATE NO ACTION go ALTER TABLE Venta ADD FOREIGN KEY (idcliente) REFERENCES Cliente(codcliente) ON DELETE NO ACTION ON UPDATE NO ACTION go INSERT Usuario values ('001','Raúl Aarón Delgado Espárraga','71983311','1997-0216','123','A','Aaron') INSERT Usuario values ('002','Daniel Eduardo Delgado Espárraga','79653456','199704-20','134','A','Daniel') INSERT Usuario values ('003','Fiorella Aguilar Isuiza','70562081','1997-0124','145','A','Fiorella') go INSERT Menaje values ('001','Cuchara',1) INSERT Menaje values ('002','Tenedor',1) INSERT Menaje values ('003','Plato',3)

go INSERT Artefactos values ('001','Licuadora',300) INSERT Artefactos values ('002','Extractora',60) INSERT Artefactos values ('003','Tostadora',50) go INSERT Moviliario values ('001','Silla de plastico',30) INSERT Moviliario values ('002','Mesa de plastico',60) INSERT Moviliario values ('003','Mesa de madera',200) go INSERT Patrimonio values ('001','001','001','001') INSERT Patrimonio values ('002','002','002','002') INSERT Patrimonio values ('003','003','003','003') go INSERT Ciudad values ('001','Chiclayo') INSERT Ciudad values ('002','Bagua Grande') INSERT Ciudad values ('003','Chachapoyas') go

INSERT Proveedor values ('001','Alcides Delgado Calderon','71983311','12371983311','Jr.Triunfo 351','921411941','[email protected]','001') INSERT Proveedor values ('002','Isaac Delgado Espárraga','79653456','13479653456','Av.Mariano Melgar 1234','921411941','[email protected]','002') INSERT Proveedor values ('003','Jaime Aguilar Rafael','70562081','14570562081','Jr.Ciro Alegria 2345','987456124','[email protected]','003') go INSERT Cliente values ('001','Marleni Esparraga Vasquez','Jr.Triunfo 351','921411941','71983311','001') INSERT Cliente values ('002','Raul Delgado Puelles','Av.Mariano Melgar 1234','921411941','67834567','002') INSERT Cliente values ('003','Jhan Flores Vasquez','Jr.Ciro Alegria 2345','987456124','13456532','003') go INSERT Personal values ('001','Marleni Esparraga Vasquez','75623456','Jr.San Felipe 234','921983311','1993-02-12') INSERT Personal values ('002','Raul Delgado Puelles','56342623','Jr.Lima 2345','967834567','1994-03-16') INSERT Personal values ('003','Jhan Flores Vasquez','14523548','Jr.Bolivar 156','913456532','2016-04-17')

go INSERT Presentacion values ('001','Botella plastico') INSERT Presentacion values ('002','Botella vidrio') INSERT Presentacion values ('003','Lata') go INSERT PlatosCarta values ('0001','Pollo Pepitoria',30,'Con langostinos') INSERT PlatosCarta values ('0002','Alcachofas de la Mejana',40,'Con jamon y almejas') INSERT PlatosCarta values ('0003','Ensalada Co-co',20,'De codorniz y conejo escabechado') go INSERT Bebidas values ('001','jugo de papaya',30,'Con miel') INSERT Bebidas values ('002','Jugo de piña',40,'Con algarrobina') INSERT Bebidas values ('003','Chicha morada',20,'De maíz morado') go INSERT Postres values ('001','Helado',2,'De fruta') INSERT Postres values ('002','Torta',2,'Con chocolate') INSERT Postres values ('003','Yogurt',1,'De frutas') go INSERT MenuDiario values ('001','Arroz Tapado',5,'Con carne vegetariana') INSERT MenuDiario values ('002','Arroz a la cubana',5,'Huevos y platanos fritos') INSERT MenuDiario values ('003','Aeropuerto',5,'Con verduras') go

INSERT Pensionistas values ('001','Katriel Flores Vasquez','45364783','1994-0302','Jr.Triunfo 2345','976345612','0001','002','003','001') INSERT Pensionistas values ('002','Nolberto Esparraga Zumaeta','92457615','199609-12','Av.Mariano Melgar 1234','967398532','0002','001','003','002') INSERT Pensionistas values ('003','Rosa Delgado Calderon','85356723','1994-0424','Jr.Lima 2567','908478241','0001','003','002','003') go INSERT Venta values ('00001','2016-03-02','Credito','10:00 am','200','002','003') INSERT Venta values ('00002','2016-09-12','Contado','12:30 pm','10','001','003') INSERT Venta values ('00003','2016-04-24','Credito','01:12 pm','40','003','002') go INSERT ProductosNaturales values ('0001','Aceite de Oliva','30','Natural','35','002','003') INSERT ProductosNaturales values ('0002','Pan Integral','12','De harina de trigo','15','001','001') INSERT ProductosNaturales values ('0003','Volt','25','Para tener musculatura','30','003','002') go

INSERT ProductosRestaurant values ('0001','quintal de Papa','60','002','003') INSERT ProductosRestaurant values ('0002','quintal de Arroz','120','001','001') INSERT ProductosRestaurant values ('0003','Tomate','25','003','002') go INSERT Compra values ('0001','2016-04-12','12:00','200','003') INSERT Compra values ('0002','2016-08-15','11:30','300','001') INSERT Compra values ('0003','2016-09-17','02:03','120','002') go INSERT DetalleCompra values ('0001','0001','0001','3','200') INSERT DetalleCompra values ('0002','0002','0002','4','125') INSERT DetalleCompra values ('0003','0003','0003','7','130') go INSERT DetalleVenta values ('00001','0001','0001','001','001','001','10','100') INSERT DetalleVenta values ('00002','0002','0002','002','002','002','2','30') INSERT DetalleVenta values ('00003','0003','0003','003','003','003','2','60') go

Procedimientos Almacenados. CREATE PROCEDURE sp_Actualiza_Ciudad @col1 CHAR(3), @col2 VARCHAR(50) AS BEGIN TRAN UPDATE Ciudad SET nombre=@col2 WHERE codciudad=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Cliente @col1 CHAR(3), @col2 VARCHAR(80), @col3 VARCHAR(60), @col4 VARCHAR(20), @col5 CHAR(8), @col6 CHAR(3) AS BEGIN TRAN DECLARE @cod_ciudad CHAR(3) SELECT @cod_ciudad=codciudad FROM Ciudad WHERE nombre=@col6 UPDATE Cliente SET nombre=@col2,direccion=@col3,telefono=@col4,dni=@col5,idciudad=@cod_ciudad WHERE codcliente=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Personal @col1 CHAR(3), @col2 VARCHAR(60), @col3 CHAR(8), @col4 VARCHAR(50), @col5 VARCHAR(20),

@col6 DATE AS BEGIN TRAN UPDATE Personal SET nombre=@col2,dni=@col3,direccion=@col4,telefono=@col5,fecnacimiento=@col6 WHERE codpersonal=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_ProductosNat @col1 CHAR(4), @col2 VARCHAR(80), @col3 money, @col4 VARCHAR(80), @col5 money, @col6 CHAR(3), @col7 CHAR(3) AS DECLARE @cod_Pro CHAR(3) DECLARE @cod_pre CHAR(3) SELECT @cod_Pro=codproveedor FROM Proveedor WHERE nombre=@col6 SELECT @cod_pre=codpresentacion FROM Presentacion WHERE tipo=@col7 UPDATE ProductosNaturales SET nombre=@col2,costo=@col3,descripcion=@col4,precioventa=@col5,idproveedor=@cod_Pro , idpresentacion=@cod_pre WHERE codproductosnat=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_ProductosRest @col1 CHAR(4), @col2 VARCHAR(80), @col3 money, @col4 CHAR(3), @col5 CHAR(3) AS DECLARE @cod_Pro CHAR(3) DECLARE @cod_pre CHAR(3) SELECT @cod_Pro=codproveedor FROM Proveedor WHERE nombre=@col4 SELECT @cod_pre=codpresentacion FROM Presentacion WHERE tipo=@col5 UPDATE ProductosRestaurant SET nombre=@col2,costo=@col3,idproveedor=@cod_Pro, idpresentacion=@cod_pre WHERE codproductosrest=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Proveedor @col1 CHAR(3), @col2 VARCHAR(80), @col3 CHAR(8), @col4 CHAR(11), @col5 VARCHAR(50), @col6 VARCHAR(20), @col7 VARCHAR(50), @col8 CHAR(3) AS BEGIN TRAN DECLARE @cod_ciudad CHAR(3)

SELECT @cod_ciudad=codciudad FROM Ciudad WHERE nombre=@col6 UPDATE Proveedor SET nombre=@col2,dni=@col3,ruc=@col4,direccion=@col5,telefono=@col6,mail=@col7,idciud ad=@cod_ciudad WHERE codproveedor=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Usuario @col1 CHAR(3), @col2 VARCHAR(80), @col3 CHAR(8), @col4 DATE, @col5 VARCHAR(60), @col6 CHAR(1), @col7 VARCHAR(20) AS BEGIN TRAN UPDATE Usuario SET nombre=@col2,dni=@col3,fecnac=@col4,clave=@col5,estado=@col6,nombreusuario=@col7 WHERE codusuario=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Ciudad @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Ciudad WHERE codciudad=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Cliente @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Cliente WHERE codcliente=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Personal @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Personal WHERE codpersonal=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_ProductosNat @col1 CHAR(4) AS BEGIN TRAN DELETE FROM ProductosNaturales WHERE codproductosnat=@col1

IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_ProductosRest @col1 CHAR(4) AS BEGIN TRAN DELETE FROM ProductosRestaurant WHERE codproductosrest=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Proveedor @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Proveedor WHERE codproveedor=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Usuario @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Usuario WHERE codusuario=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Ciudad @col1 CHAR(3), @col2 VARCHAR(50) AS BEGIN TRAN INSERT Ciudad VALUES(@col1,@col2) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Cliente @col1 CHAR(3), @col2 VARCHAR(80), @col3 VARCHAR(60), @col4 VARCHAR(20), @col5 CHAR(8), @col6 CHAR(3) AS BEGIN TRAN DECLARE @cod_ciudad CHAR(3) SELECT @cod_ciudad=codciudad FROM ciudad WHERE nombre=@col6 INSERT Cliente VALUES(@col1,@col2,@col3,@col4,@col5,@cod_ciudad) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1)

CREATE PROCEDURE sp_Inserta_Personal @col1 CHAR(3), @col2 VARCHAR(60), @col3 CHAR(8), @col4 VARCHAR(50), @col5 VARCHAR(20), @col6 DATE AS BEGIN TRAN INSERT Personal VALUES(@col1,@col2,@col3,@col4,@col5,@col6) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_ProductosNat @col1 CHAR(4), @col2 VARCHAR(80), @col3 money, @col4 VARCHAR(80), @col5 money, @col6 CHAR(3), @col7 CHAR(3) AS BEGIN TRAN DECLARE @cod_Pro CHAR(3) DECLARE @cod_pre CHAR(3) SELECT @cod_Pro=codproveedor FROM Proveedor WHERE nombre=@col6 SELECT @cod_pre=codpresentacion FROM Presentacion WHERE tipo=@col7 INSERT ProductosNaturales VALUES(@col1,@col2,@col3,@col4,@col5,@cod_Pro,@cod_pre) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_ProductosRest @col1 CHAR(4), @col2 VARCHAR(80), @col3 money, @col4 CHAR(3), @col5 CHAR(3) AS BEGIN TRAN DECLARE @cod_Pro CHAR(3) DECLARE @cod_pre CHAR(3) SELECT @cod_Pro=codproveedor FROM Proveedor WHERE nombre=@col4 SELECT @cod_pre=codpresentacion FROM Presentacion WHERE tipo=@col5 INSERT ProductosRestaurant VALUES(@col1,@col2,@col3,@cod_Pro,@cod_pre) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Proveedor @col1 CHAR(3), @col2 VARCHAR(80), @col3 CHAR(8), @col4 CHAR(11), @col5 VARCHAR(50), @col6 VARCHAR(20), @col7 VARCHAR(50), @col8 CHAR(3) AS BEGIN TRAN

DECLARE @cod_ciudad CHAR(3) SELECT @cod_ciudad=codciudad FROM ciudad WHERE nombre=@col8 INSERT Proveedor VALUES(@col1,@col2,@col3,@col4,@col5,@col6,@col7,@cod_ciudad) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Usuario @col1 CHAR(3), @col2 VARCHAR(80), @col3 CHAR(8), @col4 DATE, @col5 VARCHAR(60), @col6 CHAR(1), @col7 VARCHAR(20) AS BEGIN TRAN INSERT Usuario VALUES(@col1,@col2,@col3,@col4,@col5,@col6,@col7) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Artefactos @col1 CHAR(3), @col2 VARCHAR(40), @col3 money AS BEGIN TRAN UPDATE Artefactos SET nombre=@col2,costo=@col3 WHERE codartefactos=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Artefactos @col1 CHAR(3), @col2 VARCHAR(40), @col3 money AS BEGIN TRAN INSERT Artefactos VALUES(@col1,@col2,@col3) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Artefactos @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Artefactos WHERE codartefactos=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Bebidas @col1 CHAR(3), @col2 VARCHAR(50), @col3 money, @col4 VARCHAR(60) AS BEGIN TRAN UPDATE Bebidas SET nombre=@col2,precio=@col3,descripcion=@col4

WHERE codbebidas=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Bebidas @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Bebidas WHERE codbebidas=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Bebidas @col1 CHAR(3), @col2 VARCHAR(60), @col3 money, @col4 VARCHAR(60) AS BEGIN TRAN INSERT Bebidas VALUES(@col1,@col2,@col3,@col4) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Postres @col1 CHAR(3), @col2 VARCHAR(60), @col3 money, @col4 VARCHAR(60) AS BEGIN TRAN UPDATE Postres SET nombre=@col2,precio=@col3,descripcion=@col4 WHERE codpostres=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Postres @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Postres WHERE codpostres=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Postres @col1 CHAR(3), @col2 VARCHAR(60), @col3 money, @col4 VARCHAR(60) AS BEGIN TRAN INSERT Postres VALUES(@col1,@col2,@col3,@col4) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1)

CREATE PROCEDURE sp_Actualiza_Presentacion @col1 CHAR(3), @col2 VARCHAR(50) AS BEGIN TRAN UPDATE Presentacion SET tipo=@col2 WHERE codpresentacion=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Presentacion @col1 CHAR(3) AS BEGIN TRAN DELETE FROM Presentacion WHERE codpresentacion=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Presentacion @col1 CHAR(3), @col2 VARCHAR(50) AS BEGIN TRAN INSERT Presentacion VALUES(@col1,@col2) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_MenuDiario @col1 CHAR(3), @col2 VARCHAR(60), @col3 money, @col4 VARCHAR(60) AS BEGIN TRAN UPDATE MenuDiario SET nombre=@col2,precio=@col3,descripcion=@col4 WHERE codmenu=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_MenuDiario @col1 CHAR(3) AS BEGIN TRAN DELETE FROM MenuDiario WHERE codmenu=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_MenuDiario @col1 CHAR(3), @col2 VARCHAR(60), @col3 money, @col4 VARCHAR(60) AS BEGIN TRAN INSERT MenuDiario VALUES(@col1,@col2,@col3,@col4) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1)

CREATE PROCEDURE sp_Actualiza_PlatosCartas @col1 CHAR(4), @col2 VARCHAR(60), @col3 money, @col4 VARCHAR(60) AS BEGIN TRAN UPDATE PlatosCarta SET nombre=@col2,precio=@col3,descripcion=@col4 WHERE codplatoscarta=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_PlatosCartas @col1 CHAR(4) AS BEGIN TRAN DELETE FROM PlatosCarta WHERE codplatoscarta=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_PlatosCartas @col1 CHAR(4), @col2 VARCHAR(60), @col3 money, @col4 VARCHAR(60) AS BEGIN TRAN INSERT PlatosCarta VALUES(@col1,@col2,@col3,@col4) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Compra @col1 CHAR(4), @col2 DATE, @col3 TIME(7), @col4 MONEY, @col5 CHAR(3) AS BEGIN TRAN DECLARE @cod_Pro CHAR(3) SELECT @cod_Pro=codproveedor FROM Proveedor WHERE nombre=@col5 UPDATE Compra SET fecha=@col2,hora=@col3,total=@col4,idproveedor=@cod_Pro WHERE codcompra=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Elimina_Compra @col1 CHAR(4) AS BEGIN TRAN DELETE FROM Compra WHERE codcompra=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Inserta_Compra @col1 CHAR(4),

@col2 DATE, @col3 TIME(7), @col4 MONEY, @col5 CHAR(3) AS BEGIN TRAN DECLARE @cod_Pro CHAR(3) SELECT @cod_Pro=codproveedor FROM Proveedor WHERE nombre=@col5 INSERT Compra VALUES(@col1,@col2,@col3,@col4,@cod_Pro) IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1) CREATE PROCEDURE sp_Actualiza_Venta @col1 CHAR(5), @col2 DATE, @col3 VARCHAR(60), @col4 TIME(7), @col5 MONEY, @col6 CHAR(3), @col7 CHAR(3) AS BEGIN TRAN DECLARE @cod_Per CHAR(3) DECLARE @cod_Cli CHAR(3) SELECT @cod_Per=codpersonal FROM Personal WHERE nombre=@col6 SELECT @cod_Cli=codcliente FROM Cliente WHERE nombre=@col7 UPDATE Venta SET fecha=@col2,formapago=@col3,hora=@col4,total=@col5,idpersonal=@cod_Per,idcliente= @cod_Cli WHERE codventa=@col1 IF @@ERROR0 GOTO verError COMMIT TRAN RETURN(0) verError: ROLLBACK TRAN RETURN (-1)

Vistas SELECT dbo.Venta.codventa, dbo.Venta.formapago, dbo.Venta.hora, dbo.Personal.nombre, dbo.Cliente.nombre AS Expr1, dbo.Venta.total FROM

dbo.Cliente INNER JOIN

dbo.Venta ON dbo.Cliente.codcliente = dbo.Venta.idcliente INNER JOIN dbo.Personal ON dbo.Venta.idpersonal = dbo.Personal.codpersonal SELECT dbo.Proveedor.codproveedor, dbo.Proveedor.nombre, dbo.Proveedor.dni, dbo.Proveedor.ruc, dbo.Proveedor.direccion, dbo.Proveedor.telefono, dbo.Proveedor.mail, dbo.Ciudad.nombre AS Expr1 FROM

dbo.Ciudad INNER JOIN

dbo.Proveedor ON dbo.Ciudad.codciudad = dbo.Proveedor.idciudad SELECT dbo.Cliente.codcliente, dbo.Cliente.nombre, dbo.Cliente.direccion, dbo.Cliente.telefono, dbo.Cliente.dni, dbo.Ciudad.nombre AS Expr1 FROM

dbo.Ciudad INNER JOIN

dbo.Cliente ON dbo.Ciudad.codciudad = dbo.Cliente.idciudad SELECT dbo.ProductosNaturales.codproductosnat, dbo.ProductosNaturales.nombre, dbo.ProductosNaturales.costo,

dbo.ProductosNaturales.descripcion, dbo.ProductosNaturales.precioventa, dbo.Proveedor.nombre AS Expr1, dbo.Presentacion.tipo FROM

dbo.Presentacion INNER JOIN

dbo.ProductosNaturales ON dbo.Presentacion.codpresentacion = dbo.ProductosNaturales.idpresentacion INNER JOIN dbo.Proveedor ON dbo.ProductosNaturales.idproveedor = dbo.Proveedor.codproveedor SELECT dbo.ProductosRestaurant.codproductosrest, dbo.ProductosRestaurant.nombre, dbo.ProductosRestaurant.costo, dbo.Proveedor.nombre AS Expr1, dbo.Presentacion.tipo FROM

dbo.Presentacion INNER JOIN

dbo.ProductosRestaurant ON dbo.Presentacion.codpresentacion = dbo.ProductosRestaurant.idpresentacion INNER JOIN dbo.Proveedor ON dbo.ProductosRestaurant.idproveedor = dbo.Proveedor.codproveedor SELECT dbo.Compra.codcompra, dbo.Compra.fecha, dbo.Compra.hora, dbo.Compra.total, dbo.Proveedor.nombre FROM

dbo.Compra INNER JOIN

dbo.Proveedor ON dbo.Compra.idproveedor = dbo.Proveedor.codproveedor

Diagrama de Base de Datos.

III.

Arquitectura Tecnológica Requerida.

1. Plataforma de Retiro. 1.1.

Requerimientos de Hardware y Software.

 Requerimientos de Hardware: Para almacenar La información de la empresa es necesario contar con : 

Windows : 8 Pro



Procesador: Intel(R) Core (TM) i5-2450M CPU @ 2.50GHz 2.50GHz



Memoria Instalada (RAM): 2.66GB



Tipo de Sistema: Sistema Operativo de 64bits



Disco Duro: Capacidad 500GB

 Requerimientos de Software: Para iniciar todas las actividades en cuanto a la creación del sistema hemos necesitado ciertas aplicaciones o programas necesarios. 

Cualquier Versión de Netbeans (JAVA): Para realizar

el código

necesario de nuestro sistema. 

SQL Server versión 12: Una Base de Datos para almacenar todo los datos ingresados.



Librerías necesarias: Para el funcionamiento de ciertos procesos ha sido necesario Agregar Ciertas librerías: Sqljdbc4 Jcalendar-1.3.2 mail



Nitro pro 9: Para realizar ciertos reportes de los movimientos, registros, etc. De datos de la empresa.



Visual Studio Versión 2013 o superior : Para realizar necesario de nuestro sistema.



Framework 3.5 : Para que pueda ejecutarse el programa.

el código

IV.

Implementación del Sistema.

1. Pantallas del Sistema. 2. Código de la Aplicación. VISUAL. Imports System.Data.SqlClient Public Class Conexion Private con As SqlConnection Public Function conecta() As SqlConnection con = New SqlConnection("server=(local);Initial Catalog=BDVegetariano;Integrated Security=SSPI") 'con = New SqlConnection("database=BDVegetariano;user id=sa;password=123;Timeout=30;data source=192.168.0.12") Return con End Function End Class

Imports System.Data.SqlClient Public Class Procesos Private con As SqlConnection Private cmd As SqlCommand Private dtb As DataTable Private da As SqlDataAdapter Private cn As New Conexion Public Structure Cliente Public codcli As String Public nomcli As String Public direccli As String Public telecli As String Public dni As String Public idciudad As String Public ruc As String End Structure 'Cliente Public Function insertar_Cliente(ByVal st As Cliente) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Cliente", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codcli cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nomcli cmd.Parameters.Add("@col3", SqlDbType.VarChar, 60).Value = st.direccli cmd.Parameters.Add("@col4", SqlDbType.VarChar, 20).Value = st.telecli cmd.Parameters.Add("@col5", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col6", SqlDbType.VarChar, 200).Value = st.idciudad

cmd.Parameters.Add("@col7", SqlDbType.Char, 12).Value = st.ruc Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Cliente(ByVal st As Cliente) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Cliente", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codcli cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nomcli cmd.Parameters.Add("@col3", SqlDbType.VarChar, 60).Value = st.direccli cmd.Parameters.Add("@col4", SqlDbType.VarChar, 20).Value = st.telecli cmd.Parameters.Add("@col5", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col6", SqlDbType.VarChar, 200).Value = st.idciudad cmd.Parameters.Add("@col7", SqlDbType.Char, 12).Value = st.ruc Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Cliente(ByVal st As Cliente) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Cliente", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codcli Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Cliente() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Vista_Cliente", con) da.Fill(dtb) Return dtb End Function Public Structure Personal Public codper As String Public nomper As String Public dni As String Public direcper As String

Public teleper As String Public fecha As Date End Structure Public Function insertar_Personal(ByVal st As Personal) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Pesonal", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codper cmd.Parameters.Add("@col2", SqlDbType.VarChar, 60).Value = st.nomper cmd.Parameters.Add("@col3", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col4", SqlDbType.VarChar, 50).Value = st.direcper cmd.Parameters.Add("@col5", SqlDbType.VarChar, 20).Value = st.teleper cmd.Parameters.Add("@col6", SqlDbType.date).Value = st.fecha Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Personal(ByVal st As Personal) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Personal", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codper cmd.Parameters.Add("@col2", SqlDbType.VarChar, 60).Value = st.nomper cmd.Parameters.Add("@col3", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col4", SqlDbType.VarChar, 50).Value = st.direcper cmd.Parameters.Add("@col5", SqlDbType.VarChar, 20).Value = st.teleper cmd.Parameters.Add("@col6", SqlDbType.Date).Value = st.fecha Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Personal(ByVal st As Personal) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Personal", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codper Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc

End Function Public Function listado_Personal() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Personal", con) da.Fill(dtb) Return dtb End Function Public Structure Usuario Public codusu As String Public nom As String Public dni As String Public correo As String Public fecnac As Date Public clave As String Public estado As String Public nomusu As String Public nivel As String End Structure Public Function insertar_Usuario(ByVal st As Usuario) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Usuario", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codusu cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col4", SqlDbType.VarChar, 80).Value = st.correo cmd.Parameters.Add("@col5", SqlDbType.Date).Value = st.fecnac cmd.Parameters.Add("@col6", SqlDbType.VarChar, 60).Value = st.clave cmd.Parameters.Add("@col7", SqlDbType.Char, 1).Value = st.estado cmd.Parameters.Add("@col8", SqlDbType.VarChar, 20).Value = st.nomusu cmd.Parameters.Add("@col9", SqlDbType.Char, 1).Value = st.nivel Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Usuario(ByVal st As Usuario) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Usuario", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codusu cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col4", SqlDbType.VarChar, 80).Value = st.correo cmd.Parameters.Add("@col5", SqlDbType.Date).Value = st.fecnac cmd.Parameters.Add("@col6", SqlDbType.VarChar, 60).Value = st.clave cmd.Parameters.Add("@col7", SqlDbType.Char, 1).Value = st.estado cmd.Parameters.Add("@col8", SqlDbType.VarChar, 20).Value = st.nomusu cmd.Parameters.Add("@col9", SqlDbType.Char, 1).Value = st.nivel

Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Usuario(ByVal st As Usuario) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Usuario", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codusu Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Usuario() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Usuario", con) da.Fill(dtb) Return dtb End Function Public Structure Proveedor Public codpro As String Public nom As String Public dni As String Public ruc As String Public direc As String Public tele As String Public mail As String Public idciudad As String End Structure Public Function insertar_Proveedor(ByVal st As Proveedor) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Proveedor", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codpro cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col4", SqlDbType.Char, 11).Value = st.ruc cmd.Parameters.Add("@col5", SqlDbType.VarChar, 50).Value = st.direc cmd.Parameters.Add("@col6", SqlDbType.VarChar, 20).Value = st.tele cmd.Parameters.Add("@col7", SqlDbType.VarChar, 50).Value = st.mail cmd.Parameters.Add("@col8", SqlDbType.VarChar, 200).Value = st.idciudad Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception

opc = False End Try Return opc End Function Public Function modificar_Proveedor(ByVal st As Proveedor) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Proveedor", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codpro cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col4", SqlDbType.Char, 11).Value = st.ruc cmd.Parameters.Add("@col5", SqlDbType.VarChar, 50).Value = st.direc cmd.Parameters.Add("@col6", SqlDbType.VarChar, 20).Value = st.tele cmd.Parameters.Add("@col7", SqlDbType.VarChar, 50).Value = st.mail cmd.Parameters.Add("@col8", SqlDbType.VarChar, 200).Value = st.idciudad Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Proveedor(ByVal st As Proveedor) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Proveedor", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codpro Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Proveedor() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Vista_Proveedor", con) da.Fill(dtb) Return dtb End Function Public Function listado_Venta() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM vistaventa", con) da.Fill(dtb) Return dtb End Function

Public Structure Artefactos Public codart As String Public nom As String Public costo As String End Structure Public Function insertar_Artefactos(ByVal st As Artefactos) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Artefactos", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codart cmd.Parameters.Add("@col2", SqlDbType.VarChar, 40).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Artefactos(ByVal st As Artefactos) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Artefactos", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codart cmd.Parameters.Add("@col2", SqlDbType.VarChar, 40).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Artefactos(ByVal st As Artefactos) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Artefactos", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codart Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Artefactos() As DataTable con = cn.conecta dtb = New DataTable

da = New SqlDataAdapter("SELECT * FROM Artefactos", con) da.Fill(dtb) Return dtb End Function Public Structure Ciudad Public codciu As String Public nom As String End Structure Public Function insertar_Ciudad(ByVal st As Ciudad) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Ciudad", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codciu cmd.Parameters.Add("@col2", SqlDbType.VarChar, 50).Value = st.nom Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Ciudad(ByVal st As Ciudad) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Ciudad", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codciu cmd.Parameters.Add("@col2", SqlDbType.VarChar, 50).Value = st.nom Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Ciudad(ByVal st As Ciudad) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Ciudad", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codciu Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Ciudad() As DataTable con = cn.conecta

dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Ciudad", con) da.Fill(dtb) Return dtb End Function Public Structure Comidas Public codco As String Public nomco As String Public precio As String Public tipo As String End Structure Public Function insertar_Comidas(ByVal st As Comidas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Comidas", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.codco cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nomco cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.precio cmd.Parameters.Add("@col4", SqlDbType.VarChar, 90).Value = st.tipo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Comidas(ByVal st As Comidas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Comidas", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.codco cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nomco cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.precio cmd.Parameters.Add("@col4", SqlDbType.VarChar, 90).Value = st.tipo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Comidas(ByVal st As Comidas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Comidas", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.codco Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False)

Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Comidas() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Comidas", con) da.Fill(dtb) Return dtb End Function

Public Structure Menaje Public codme As String Public nom As String Public costo As Decimal End Structure Public Function insertar_Menaje(ByVal st As Menaje) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Menaje", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codme cmd.Parameters.Add("@col2", SqlDbType.VarChar, 50).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Menaje(ByVal st As Menaje) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Menaje", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codme cmd.Parameters.Add("@col2", SqlDbType.VarChar, 50).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Menaje(ByVal st As Menaje) As Boolean Dim opc As Boolean Try con = cn.conecta()

If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Menaje", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codme Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Menaje() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Menaje", con) da.Fill(dtb) Return dtb End Function Public Structure Mobiliario Public codmo As String Public nom As String Public costo As Decimal End Structure Public Function insertar_Mobiliario(ByVal st As Mobiliario) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Mobiliario", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codmo cmd.Parameters.Add("@col2", SqlDbType.VarChar, 60).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Mobiliario(ByVal st As Mobiliario) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Mobiliario", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codmo cmd.Parameters.Add("@col2", SqlDbType.VarChar, 60).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function

Public Function borrar_Mobiliario(ByVal st As Mobiliario) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Mobiliario", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codmo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Mobiliario() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Moviliario", con) da.Fill(dtb) Return dtb End Function Public Structure Pensionistas Public codpen As String Public nompen As String Public dni As String Public fech As Date Public direc As String Public telef As String End Structure 'Cliente Public Function insertar_Pensionistas(ByVal st As Pensionistas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Pensionistas", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.VarChar, 3).Value = st.codpen cmd.Parameters.Add("@col2", SqlDbType.VarChar, 60).Value = st.nompen cmd.Parameters.Add("@col3", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col4", SqlDbType.Date).Value = st.fech cmd.Parameters.Add("@col5", SqlDbType.VarChar, 50).Value = st.direc cmd.Parameters.Add("@col6", SqlDbType.VarChar, 20).Value = st.telef Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_Pensionistas(ByVal st As Pensionistas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Pensionistas", con)

cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.VarChar, 3).Value = st.codpen cmd.Parameters.Add("@col2", SqlDbType.VarChar, 60).Value = st.nompen cmd.Parameters.Add("@col3", SqlDbType.Char, 8).Value = st.dni cmd.Parameters.Add("@col4", SqlDbType.Date).Value = st.fech cmd.Parameters.Add("@col5", SqlDbType.VarChar, 50).Value = st.direc cmd.Parameters.Add("@col6", SqlDbType.VarChar, 20).Value = st.telef Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Pensionistas(ByVal st As Pensionistas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Pensionistas", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.VarChar, 3).Value = st.codpen Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Pensionistas() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT codpensionistas as Codigo,Nombre,DNI,fecnac as Fecha_Nac,Direccion,Telefono FROM Pensionistas", con) da.Fill(dtb) Return dtb End Function Public Structure Presentacion Public codpre As String Public tipo As String End Structure Public Function insertar_Presentacion(ByVal st As Presentacion) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Presentacion", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codpre cmd.Parameters.Add("@col2", SqlDbType.VarChar, 50).Value = st.tipo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function

Public Function modificar_Presentacion(ByVal st As Presentacion) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Presentacion", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codpre cmd.Parameters.Add("@col2", SqlDbType.VarChar, 50).Value = st.tipo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Presentacion(ByVal st As Presentacion) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Presentacion", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codpre Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Presentacion() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Presentacion", con) da.Fill(dtb) Return dtb End Function Public Structure Tipo Public codtipo As String Public nom As String End Structure Public Function insertar_Tipo(ByVal st As Tipo) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Tipo", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codtipo cmd.Parameters.Add("@col2", SqlDbType.VarChar, 70).Value = st.nom Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc

End Function Public Function modificar_Tipo(ByVal st As Tipo) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_Tipo", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codtipo cmd.Parameters.Add("@col2", SqlDbType.VarChar, 70).Value = st.nom Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_Tipo(ByVal st As Tipo) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_Tipo", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codtipo Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_Tipo() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Tipo", con) da.Fill(dtb) Return dtb End Function Public Structure ProductosNat Public codpro As String Public nom As String Public costo As Decimal Public descri As String Public prec As Decimal Public idprov As String Public idpres As String End Structure Public Function insertar_ProductosNat(ByVal st As ProductosNat) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_ProductosNat", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 4).Value = st.codpro

cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo cmd.Parameters.Add("@col4", SqlDbType.VarChar, 80).Value = st.descri cmd.Parameters.Add("@col5", SqlDbType.Money).Value = st.prec cmd.Parameters.Add("@col6", SqlDbType.VarChar, 80).Value = st.idprov cmd.Parameters.Add("@col7", SqlDbType.VarChar, 50).Value = st.idpres Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_ProductosNat(ByVal st As ProductosNat) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_ProductosNat", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 4).Value = st.codpro cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo cmd.Parameters.Add("@col4", SqlDbType.VarChar, 80).Value = st.descri cmd.Parameters.Add("@col5", SqlDbType.Money).Value = st.prec cmd.Parameters.Add("@col6", SqlDbType.VarChar, 80).Value = st.idprov cmd.Parameters.Add("@col7", SqlDbType.VarChar, 50).Value = st.idpres Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_ProductosNat(ByVal st As ProductosNat) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_ProductosNat", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 4).Value = st.codpro Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function listado_ProductosNat() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM Vista_productosnat", con) da.Fill(dtb) Return dtb End Function Public Structure ProductosRest

Public codpro As String Public nom As String Public costo As Decimal Public idprov As String Public idpres As String End Structure Public Function insertar_ProductosRest(ByVal st As ProductosRest) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_ProductosRest", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 4).Value = st.codpro cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo cmd.Parameters.Add("@col4", SqlDbType.VarChar, 80).Value = st.idprov cmd.Parameters.Add("@col5", SqlDbType.VarChar, 50).Value = st.idpres Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function modificar_ProductosRest(ByVal st As ProductosRest) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_ProductosRest", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 4).Value = st.codpro cmd.Parameters.Add("@col2", SqlDbType.VarChar, 80).Value = st.nom cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.costo cmd.Parameters.Add("@col4", SqlDbType.VarChar, 80).Value = st.idprov cmd.Parameters.Add("@col5", SqlDbType.VarChar, 50).Value = st.idpres Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Function borrar_ProductosRest(ByVal st As ProductosRest) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Elimina_ProductosRest", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 4).Value = st.codpro Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function

Public Function listado_ProductosRest() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT * FROM vista_ProductosRest", con) da.Fill(dtb) Return dtb End Function Public Structure Venta Public cod As String Public serie As String Public corre As String Public total As Decimal Public idcliente As String Public estado As String Public idusuario As String Public fecha As Date End Structure Public Function insertar_Venta(ByVal st As Venta) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Venta", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.cod cmd.Parameters.Add("@col2", SqlDbType.Char, 4).Value = st.serie cmd.Parameters.Add("@col3", SqlDbType.Char, 6).Value = st.corre cmd.Parameters.Add("@col4", SqlDbType.Money).Value = st.total cmd.Parameters.Add("@col5", SqlDbType.VarChar, 200).Value = st.idcliente cmd.Parameters.Add("@col6", SqlDbType.Char, 1).Value = st.estado cmd.Parameters.Add("@col7", SqlDbType.Char, 3).Value = st.idusuario cmd.Parameters.Add("@col8", SqlDbType.Date).Value = st.fecha Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure DetalleVenta Public cod As String Public idcomi As String Public idserie As String Public idcorre As String Public cant As Integer Public subtotal As Decimal End Structure Public Function insertar_DetalleVenta(ByVal st As DetalleVenta) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_DetalleVenta", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.cod

cmd.Parameters.Add("@col2", SqlDbType.VarChar, 200).Value = st.idcomi cmd.Parameters.Add("@col3", SqlDbType.Char, 4).Value = st.idserie cmd.Parameters.Add("@col4", SqlDbType.Char, 6).Value = st.idcorre cmd.Parameters.Add("@col5", SqlDbType.Int).Value = st.cant cmd.Parameters.Add("@col6", SqlDbType.Money).Value = st.subtotal Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure CancelarVenta Public cod As String Public estado As String End Structure Public Function insertar_CancelarVenta(ByVal st As CancelarVenta) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_CancelarVenta", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.cod cmd.Parameters.Add("@col2", SqlDbType.Char, 1).Value = st.estado Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure VentaPensionistas Public cod As String Public serie As String Public corre As String Public total As Decimal Public idpensionistas As String Public idusuario As String Public fecha As Date End Structure Public Function insertar_VentaPensionistas(ByVal st As VentaPensionistas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_VentaPensionistas", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.cod cmd.Parameters.Add("@col2", SqlDbType.Char, 4).Value = st.serie cmd.Parameters.Add("@col3", SqlDbType.Char, 6).Value = st.corre cmd.Parameters.Add("@col4", SqlDbType.Money).Value = st.total cmd.Parameters.Add("@col5", SqlDbType.VarChar, 200).Value = st.idpensionistas cmd.Parameters.Add("@col6", SqlDbType.Char, 3).Value = st.idusuario cmd.Parameters.Add("@col7", SqlDbType.Date).Value = st.fecha Dim i As Integer = cmd.ExecuteNonQuery

opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure DetalleVentaPensionistas Public cod As String Public idserie As String Public idcorre As String Public idcomi As String Public cant As Integer Public subtotal As Decimal Public estado As String End Structure Public Function insertar_DetalleVentaPensionistas(ByVal st As DetalleVentaPensionistas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_DetalleVentaPensionistas", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.cod cmd.Parameters.Add("@col2", SqlDbType.Char, 4).Value = st.idserie cmd.Parameters.Add("@col3", SqlDbType.Char, 6).Value = st.idcorre cmd.Parameters.Add("@col4", SqlDbType.VarChar, 200).Value = st.idcomi cmd.Parameters.Add("@col5", SqlDbType.Int).Value = st.cant cmd.Parameters.Add("@col6", SqlDbType.Money).Value = st.subtotal cmd.Parameters.Add("@col7", SqlDbType.Char, 1).Value = st.estado Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure CancelarVentaPensionistas Public cod As String Public estado As String End Structure Public Function insertar_CancelarVentaPensionistas(ByVal st As CancelarVentaPensionistas) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_CancelarVentaPensionistas", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.cod cmd.Parameters.Add("@col2", SqlDbType.Char, 1).Value = st.estado Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function

Public Structure Compra Public cod As String Public fecha As Date Public total As Decimal Public idproveedor As String Public estado As String Public idusuario As String End Structure Public Function insertar_Compra(ByVal st As Compra) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_Compra", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 4).Value = st.cod cmd.Parameters.Add("@col2", SqlDbType.Date).Value = st.fecha cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.total cmd.Parameters.Add("@col4", SqlDbType.VarChar, 200).Value = st.idproveedor cmd.Parameters.Add("@col5", SqlDbType.Char, 1).Value = st.estado cmd.Parameters.Add("@col6", SqlDbType.Char, 3).Value = st.idusuario Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure DetalleCompra Public idprod As String Public idcompra As String Public cantidad As Integer Public subtotal As Decimal End Structure Public Function insertar_DetalleCompra(ByVal st As DetalleCompra) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_DetalleCompra", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.VarChar, 200).Value = st.idprod cmd.Parameters.Add("@col2", SqlDbType.Char, 4).Value = st.idcompra cmd.Parameters.Add("@col3", SqlDbType.Int).Value = st.cantidad cmd.Parameters.Add("@col4", SqlDbType.Money).Value = st.subtotal Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function

Public Function listado_Compra() As DataTable con = cn.conecta dtb = New DataTable da = New SqlDataAdapter("SELECT idcompra as Numero,Productos_Naturales,Proveedor,Cantidad,SubTotal,Total,Fecha FROM vista_compra", con) da.Fill(dtb) Return dtb End Function Public Structure contrato Public cod As String Public idpensionista As String Public precio As Decimal Public fecha As Date Public adelanto As Decimal End Structure Public Function insertar_contrato(ByVal st As contrato) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_contrato", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.cod cmd.Parameters.Add("@col2", SqlDbType.VarChar, 200).Value = st.idpensionista cmd.Parameters.Add("@col3", SqlDbType.Money).Value = st.precio cmd.Parameters.Add("@col4", SqlDbType.Date).Value = st.fecha cmd.Parameters.Add("@col5", SqlDbType.Money).Value = st.adelanto Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure vistacontrato Public codcontrato As String Public estado As String End Structure Public Function modificar_vistacontrato(ByVal st As vistacontrato) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_vistacontrato", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codcontrato cmd.Parameters.Add("@col2", SqlDbType.Char, 1).Value = st.estado Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function

Public Structure vistapagarpensionista Public pensionista As String Public estado As String End Structure Public Function modificar_vistapagarpensionista(ByVal st As vistapagarpensionista) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_vistapagarpensionista", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.VarChar, 200).Value = st.pensionista cmd.Parameters.Add("@col2", SqlDbType.Char, 1).Value = st.estado Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure pagardeudapensionista Public cod As String Public idpensionista As String Public fecha As Date Public total As Decimal Public adelanto As Decimal Public debe As Decimal End Structure Public Function insertar_pagardeudapensionista(ByVal st As pagardeudapensionista) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Inserta_pagardeudapensionista", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 5).Value = st.cod cmd.Parameters.Add("@col2", SqlDbType.VarChar, 200).Value = st.idpensionista cmd.Parameters.Add("@col3", SqlDbType.Date).Value = st.fecha cmd.Parameters.Add("@col4", SqlDbType.Money).Value = st.total cmd.Parameters.Add("@col5", SqlDbType.Money).Value = st.adelanto cmd.Parameters.Add("@col6", SqlDbType.Money).Value = st.debe Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function Public Structure estadousuario Public codigo As String Public estado As String End Structure

Public Function modificar_estadousuario(ByVal st As estadousuario) As Boolean Dim opc As Boolean Try con = cn.conecta() If con.State = ConnectionState.Closed Then con.Open() cmd = New SqlCommand("sp_Actualiza_estadousuario", con) cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.Add("@col1", SqlDbType.Char, 3).Value = st.codigo cmd.Parameters.Add("@col2", SqlDbType.Char, 1).Value = st.estado Dim i As Integer = cmd.ExecuteNonQuery opc = IIf(i > 0, True, False) Catch ex As Exception opc = False End Try Return opc End Function End Class Imports Datos Public Class Valida Private obj As New Procesos Public Event mistake(ByVal c As Integer) Public Function inserta(ByVal nom As Procesos.Cliente) As Boolean Dim opc As Boolean If nom.nomcli = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Cliente") Else : obj.insertar_Cliente(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Cliente) As Boolean Dim opc As Boolean If nom.nomcli = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Cliente") Else : obj.modificar_Cliente(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Cliente) As Boolean Dim opc As Boolean obj.borrar_Cliente(cod) opc = True Return opc End Function Public Function selectAll_Cliente() As DataTable Return obj.listado_Cliente End Function Public Function inserta(ByVal nom As Procesos.Personal) As Boolean Dim opc As Boolean

If nom.nomper = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Personal") Else : obj.insertar_Personal(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Personal) As Boolean Dim opc As Boolean If nom.nomper = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Personal") Else : obj.modificar_Personal(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Personal) As Boolean Dim opc As Boolean obj.borrar_Personal(cod) opc = True Return opc End Function Public Function selectAll_Personal() As DataTable Return obj.listado_Personal End Function Public Function inserta(ByVal nom As Procesos.Usuario) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Usuario") Else : obj.insertar_Usuario(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Usuario) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Usuario") Else : obj.modificar_Usuario(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Usuario) As Boolean Dim opc As Boolean obj.borrar_Usuario(cod) opc = True Return opc

End Function Public Function selectAll_Usuario() As DataTable Return obj.listado_Usuario End Function Public Function inserta(ByVal nom As Procesos.Proveedor) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Proveedor") Else : obj.insertar_Proveedor(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Proveedor) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Proveedor") Else : obj.modificar_Proveedor(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Proveedor) As Boolean Dim opc As Boolean obj.borrar_Proveedor(cod) opc = True Return opc End Function Public Function selectAll_Proveedor() As DataTable Return obj.listado_Proveedor End Function Public Function selectAll_Venta() As DataTable Return obj.listado_Venta End Function Public Function inserta(ByVal nom As Procesos.Artefactos) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Artefacto") Else : obj.insertar_Artefactos(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Artefactos) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False

RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Artefacto") Else : obj.modificar_Artefactos(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Artefactos) As Boolean Dim opc As Boolean obj.borrar_Artefactos(cod) opc = True Return opc End Function Public Function selectAll_Artefactos() As DataTable Return obj.listado_Artefactos End Function Public Function inserta(ByVal nom As Procesos.Ciudad) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre de la Ciudad") Else : obj.insertar_Ciudad(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Ciudad) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre de la Ciudad") Else : obj.modificar_Ciudad(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Ciudad) As Boolean Dim opc As Boolean obj.borrar_Ciudad(cod) opc = True Return opc End Function Public Function selectAll_Ciudad() As DataTable Return obj.listado_Ciudad End Function Public Function inserta(ByVal nom As Procesos.Comidas) As Boolean Dim opc As Boolean If nom.nomco = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre de la Comida") Else : obj.insertar_Comidas(nom) opc = True

End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Comidas) As Boolean Dim opc As Boolean If nom.nomco = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre de la Comida") Else : obj.modificar_Comidas(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Comidas) As Boolean Dim opc As Boolean obj.borrar_Comidas(cod) opc = True Return opc End Function Public Function selectAll_Comidas() As DataTable Return obj.listado_Comidas End Function Public Function inserta(ByVal nom As Procesos.Menaje) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Menaje") Else : obj.insertar_Menaje(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Menaje) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Menaje") Else : obj.modificar_Menaje(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Menaje) As Boolean Dim opc As Boolean obj.borrar_Menaje(cod) opc = True Return opc End Function Public Function selectAll_Menaje() As DataTable Return obj.listado_Menaje End Function

Public Function inserta(ByVal nom As Procesos.Mobiliario) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Mobiliario") Else : obj.insertar_Mobiliario(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Mobiliario) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Mobiliario") Else : obj.modificar_Mobiliario(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Mobiliario) As Boolean Dim opc As Boolean obj.borrar_Mobiliario(cod) opc = True Return opc End Function Public Function selectAll_Mobiliario() As DataTable Return obj.listado_Mobiliario End Function Public Function inserta(ByVal nom As Procesos.Pensionistas) As Boolean Dim opc As Boolean If nom.nompen = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Pensionistas") Else : obj.insertar_Pensionistas(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Pensionistas) As Boolean Dim opc As Boolean If nom.nompen = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Pensionistas") Else : obj.modificar_Pensionistas(nom) opc = True End If Return opc End Function

Public Function borrar(ByVal cod As Procesos.Pensionistas) As Boolean Dim opc As Boolean obj.borrar_Pensionistas(cod) opc = True Return opc End Function Public Function selectAll_Pensionistas() As DataTable Return obj.listado_Pensionistas End Function Public Function inserta(ByVal nom As Procesos.Presentacion) As Boolean Dim opc As Boolean If nom.tipo = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre de la Presentacion") Else : obj.insertar_Presentacion(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Presentacion) As Boolean Dim opc As Boolean If nom.tipo = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre de la Presentacion") Else : obj.modificar_Presentacion(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Presentacion) As Boolean Dim opc As Boolean obj.borrar_Presentacion(cod) opc = True Return opc End Function Public Function selectAll_Presentacion() As DataTable Return obj.listado_Presentacion End Function Public Function inserta(ByVal nom As Procesos.Tipo) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Tipo") Else : obj.insertar_Tipo(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.Tipo) As Boolean Dim opc As Boolean

If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del Tipo") Else : obj.modificar_Tipo(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.Tipo) As Boolean Dim opc As Boolean obj.borrar_Tipo(cod) opc = True Return opc End Function Public Function selectAll_Tipo() As DataTable Return obj.listado_Tipo End Function Public Function inserta(ByVal nom As Procesos.ProductosNat) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del ProductosNat") Else : obj.insertar_ProductosNat(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.ProductosNat) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del ProductosNat") Else : obj.modificar_ProductosNat(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.ProductosNat) As Boolean Dim opc As Boolean obj.borrar_ProductosNat(cod) opc = True Return opc End Function Public Function selectAll_ProductosNat() As DataTable Return obj.listado_ProductosNat End Function Public Function inserta(ByVal nom As Procesos.ProductosRest) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del ProductosRest")

Else : obj.insertar_ProductosRest(nom) opc = True End If Return opc End Function Public Function modificar(ByVal nom As Procesos.ProductosRest) As Boolean Dim opc As Boolean If nom.nom = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Nombre del ProductosRest") Else : obj.modificar_ProductosRest(nom) opc = True End If Return opc End Function Public Function borrar(ByVal cod As Procesos.ProductosRest) As Boolean Dim opc As Boolean obj.borrar_ProductosRest(cod) opc = True Return opc End Function Public Function selectAll_ProductosRest() As DataTable Return obj.listado_ProductosRest End Function Public Function insertaVenta(ByVal nom As Procesos.Venta) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosRest") 'Else obj.insertar_Venta(nom) opc = True 'End If Return opc End Function Public Function insertaDetalleVenta(ByVal nom As Procesos.DetalleVenta) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosRest") 'Else obj.insertar_DetalleVenta(nom) opc = True 'End If Return opc End Function Public Function insertaCancelarVenta(ByVal nom As Procesos.CancelarVenta) As Boolean Dim opc As Boolean If nom.estado = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Estado de la Venta")

Else : obj.insertar_CancelarVenta(nom) opc = True End If Return opc End Function Public Function insertaVentaPensionistas(ByVal nom As Procesos.VentaPensionistas) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosRest") 'Else obj.insertar_VentaPensionistas(nom) opc = True 'End If Return opc End Function Public Function insertaDetalleVentaPensionistas(ByVal nom As Procesos.DetalleVentaPensionistas) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosRest") 'Else obj.insertar_DetalleVentaPensionistas(nom) opc = True 'End If Return opc End Function Public Function insertaCancelarVentaPensionistas(ByVal nom As Procesos.CancelarVentaPensionistas) As Boolean Dim opc As Boolean If nom.estado = "" Then opc = False RaiseEvent mistake(1) Throw New Exception("Ingrese Estado de la Venta") Else : obj.insertar_CancelarVentaPensionistas(nom) opc = True End If Return opc End Function Public Function insertaCompra(ByVal nom As Procesos.Compra) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosRest") 'Else obj.insertar_Compra(nom) opc = True 'End If Return opc End Function Public Function insertaDetalleCompra(ByVal nom As Procesos.DetalleCompra) As Boolean Dim opc As Boolean 'If nom.nom = "" Then

' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosRest") 'Else obj.insertar_DetalleCompra(nom) opc = True 'End If Return opc End Function Public Function selectAll_Compra() As DataTable Return obj.listado_Compra End Function Public Function inserta(ByVal nom As Procesos.contrato) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosNat") 'Else obj.insertar_contrato(nom) opc = True 'End If Return opc End Function Public Function modificar(ByVal nom As Procesos.vistacontrato) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosNat") 'Else : obj.modificar_vistacontrato(nom) opc = True 'End If Return opc End Function Public Function modificar(ByVal nom As Procesos.vistapagarpensionista) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosNat") 'Else : obj.modificar_vistapagarpensionista(nom) opc = True 'End If Return opc End Function Public Function inserta(ByVal nom As Procesos.pagardeudapensionista) As Boolean Dim opc As Boolean 'If nom.nom = "" Then ' opc = False ' RaiseEvent mistake(1) ' Throw New Exception("Ingrese Nombre del ProductosNat") 'Else

obj.insertar_pagardeudapensionista(nom) opc = True 'End If Return opc End Function Public Function modificar(ByVal nom As Procesos.estadousuario) As Boolean Dim opc As Boolean obj.modificar_estadousuario(nom) opc = True Return opc End Function End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmArtefactos Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Artefactos Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtcosto.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado

Me.txtnombre.Enabled = Estado Me.txtcosto.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Artefactos WHERE Codartefactos='" & Me.dgartefactos.Rows(Me.dgartefactos.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtcosto.Text = Tb.Rows(0).Item(2) End If End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtcosto.Focus() End If End Sub Private Sub FrmArtefactos_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmArtefactos_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgartefactos.DataSource = app.selectAll_Artefactos Mostrar() Botones(True) Cajas(False) End Sub

Private Sub txtcosto_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcosto.KeyPress If Asc(e.KeyChar) = 13 Then BtnGuardar_Click(sender, e) End If End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codart = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgartefactos.DataSource = app.selectAll_Artefactos Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codart = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgartefactos.DataSource = app.selectAll_Artefactos Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar()

Cajas(True) Botones(False) End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codart = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgartefactos.DataSource = app.selectAll_Artefactos Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgartefactos.DataSource = app.selectAll_Artefactos Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub dgartefactos_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgartefactos.CellClick Mostrar() End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta

Dt = New SqlDataAdapter("SELECT * FROM Artefactos WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgartefactos.DataSource = Tb End If End Sub End Class

Imports System.Windows.Forms Public Class FrmAutores Private Sub FrmAutores_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmAutores_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmBuscarCliente Dim WithEvents app As New Valida Private Sub FrmBuscarCliente_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmBuscarCliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgbuscarcliente.DataSource = app.selectAll_Cliente End Sub Private Sub txtdni_TextChanged(sender As Object, e As EventArgs) Handles txtdni.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_Cliente WHERE dni like '%" & Me.txtdni.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgbuscarcliente.DataSource = Tb End If End Sub Private Sub dgbuscarcliente_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgbuscarcliente.CellClick FrmVenta.txtcliente.Text = Me.dgbuscarcliente.Rows(Me.dgbuscarcliente.CurrentRow.Index).Cells(1).Value

FrmVenta.txtdni.Text = Me.dgbuscarcliente.Rows(Me.dgbuscarcliente.CurrentRow.Index).Cells(2).Value FrmVenta.txtdireccion.Text = Me.dgbuscarcliente.Rows(Me.dgbuscarcliente.CurrentRow.Index).Cells(3).Value FrmVenta.txtruc.Text = Me.dgbuscarcliente.Rows(Me.dgbuscarcliente.CurrentRow.Index).Cells(6).Value Me.Close() End Sub Private Sub dgbuscarcliente_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgbuscarcliente.CellContentClick End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class frmbuscarpensionista Dim WithEvents app As New Valida Private Sub frmbuscarpensionista_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub frmbuscarpensionista_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgbuscarpensionista.DataSource = app.selectAll_Pensionistas End Sub Private Sub txtdni_TextChanged(sender As Object, e As EventArgs) Handles txtdni.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable

Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT codpensionistas as Codigo,Nombre,DNI,fecnac as Fecha_Nac,Direccion,Telefono FROM pensionistas WHERE dni like '%" & Me.txtdni.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgbuscarpensionista.DataSource = Tb End If End Sub Private Sub dgbuscarpensionista_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgbuscarpensionista.CellClick FrmVentaPensionistas.txtpensionistas.Text = Me.dgbuscarpensionista.Rows(Me.dgbuscarpensionista.CurrentRow.Index).Cells(1).Val ue FrmVentaPensionistas.txtdni.Text = Me.dgbuscarpensionista.Rows(Me.dgbuscarpensionista.CurrentRow.Index).Cells(2).Val ue FrmVentaPensionistas.txtdireccion.Text = Me.dgbuscarpensionista.Rows(Me.dgbuscarpensionista.CurrentRow.Index).Cells(4).Val ue FrmContratoPensionistas.txtpensionista.Text = Me.dgbuscarpensionista.Rows(Me.dgbuscarpensionista.CurrentRow.Index).Cells(1).Val ue FrmPagarPensionista.txtpensionista.Text = Me.dgbuscarpensionista.Rows(Me.dgbuscarpensionista.CurrentRow.Index).Cells(1).Val ue FrmPagarPensionista.txtdni.Text = Me.dgbuscarpensionista.Rows(Me.dgbuscarpensionista.CurrentRow.Index).Cells(2).Val ue FrmPagarPensionista.txtdireccion.Text = Me.dgbuscarpensionista.Rows(Me.dgbuscarpensionista.CurrentRow.Index).Cells(4).Val ue Me.Close() End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmBuscarProveedor Dim WithEvents app As New Valida Private Sub FrmBuscarProveedor_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmBuscarProveedor_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgbuscarproveedor.DataSource = app.selectAll_Proveedor End Sub Private Sub txtdni_TextChanged(sender As Object, e As EventArgs) Handles txtdni.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT CodProveedor as Codigo,Nombre,DNI,RUC,Direccion,Telefono FROM proveedor WHERE dni like '%" & Me.txtdni.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgbuscarproveedor.DataSource = Tb End If End Sub Private Sub dgbuscarpensionista_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgbuscarproveedor.CellClick FrmCompra.txtproveedor.Text = Me.dgbuscarproveedor.Rows(Me.dgbuscarproveedor.CurrentRow.Index).Cells(1).Value Me.Close() End Sub End Class

Imports System.Data.SqlClient Imports Negocios Imports Datos Public Class frmcancelarventa Dim WithEvents app As New Valida Dim reg As New Procesos.CancelarVenta Sub mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT codigo,cliente,total FROM Vistaventa WHERE estado='A' order by codigo desc", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgcancelar.DataSource = Tb dgcancelar.Columns("cliente").Width = 200 End If End Sub Private Sub frmcancelarventa_Load(sender As Object, e As EventArgs) Handles MyBase.Load mostrar() End Sub Private Sub dgcancelar_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcancelar.CellClick If MsgBox("Desea Cancelar Venta", 36, "Sistema") = 6 Then With reg .cod = dgcancelar.CurrentRow.Cells(0).Value .estado = "X" End With MsgBox("Venta Cancelada", 0, "Exito") app.insertaCancelarVenta(reg) End If mostrar() End Sub End Class

Imports System.Data.SqlClient Imports Negocios Imports Datos Public Class FrmCancelarVentaPensionistas Dim WithEvents app As New Valida Dim reg As New Procesos.CancelarVentaPensionistas Sub mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT codigo,pensionistas,total FROM Vista_ventapensionistas WHERE estado='A' order by codigo desc", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgcancelar.DataSource = Tb dgcancelar.Columns("pensionistas").Width = 200 End If End Sub Private Sub FrmCancelarVentaPensionistas_Load(sender As Object, e As EventArgs) Handles MyBase.Load mostrar() End Sub Private Sub dgcancelar_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcancelar.CellClick If MsgBox("Desea Cancelar Venta", 36, "Sistema") = 6 Then With reg .cod = dgcancelar.CurrentRow.Cells(0).Value .estado = "X" End With MsgBox("Venta Cancelada", 0, "Exito") app.insertaCancelarVentaPensionistas(reg) End If mostrar() End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmCiudad Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Ciudad Sub Limpiar() Me.txtcodigo.Text = "" Me.txtciudad.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtciudad.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable

Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Ciudad WHERE Codciudad='" & Me.dgciudad.Rows(Me.dgciudad.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtciudad.Text = Tb.Rows(0).Item(1) End If End Sub Private Sub FrmCiudad_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmCiudad_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgciudad.DataSource = app.selectAll_Ciudad Mostrar() Botones(True) Cajas(False) End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtciudad.Focus() End If End Sub Private Sub txtciudad_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtciudad.KeyPress If Asc(e.KeyChar) = 13 Then BtnGuardar_Click(sender, e) End If End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codciu = Me.txtcodigo.Text .nom = Me.txtciudad.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgciudad.DataSource = app.selectAll_Ciudad Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception

Else

MsgBox(ex.Message, 0, "ERROR") End Try End If

R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codciu = Me.txtcodigo.Text .nom = Me.txtciudad.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgciudad.DataSource = app.selectAll_Ciudad Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codciu = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito")

Me.dgciudad.DataSource = app.selectAll_Ciudad Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgciudad.DataSource = app.selectAll_Ciudad Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Ciudad WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgciudad.DataSource = Tb End If End Sub Private Sub dgciudad_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgciudad.CellClick Mostrar() End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class frmcliente Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Cliente Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtdirecion.Text = "" Me.txttelefono.Text = "" Me.txtdni.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtdirecion.Enabled = Estado Me.txttelefono.Enabled = Estado Me.txtdni.Enabled = Estado Me.cbociudad.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean)

Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_Cliente WHERE Codigo='" & Me.dgcliente.Rows(Me.dgcliente.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtdirecion.Text = Tb.Rows(0).Item(2) Me.txttelefono.Text = Tb.Rows(0).Item(3) Me.txtdni.Text = Tb.Rows(0).Item(4) Me.cbociudad.Text = Tb.Rows(0).Item(5) Me.txtruc.Text = Tb.Rows(0).Item(6) End If End Sub Private Sub frmcliente_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub frmcliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgcliente.DataSource = app.selectAll_Cliente Mostrar() Botones(True) Cajas(False) Dim Dim Dim Dim Con

Dt As SqlDataAdapter Tb As New DataTable Con As SqlConnection cn As New Conexion = cn.conecta

Dt = New SqlDataAdapter("SELECT * FROM Ciudad", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.cbociudad.DataSource = Tb Me.cbociudad.DisplayMember = "nombre" Me.cbociudad.Text = "Seleccione a la Ciudad" End If End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection

Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_Cliente WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgcliente.DataSource = Tb End If End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codcli = Me.txtcodigo.Text .nomcli = Me.txtnombre.Text .direccli = Me.txtdirecion.Text .telecli = Me.txttelefono.Text .dni = Me.txtdni.Text .idciudad = Me.cbociudad.Text .ruc = Me.txtruc.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgcliente.DataSource = app.selectAll_Cliente Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codcli = Me.txtcodigo.Text .nomcli = Me.txtnombre.Text .direccli = Me.txtdirecion.Text .telecli = Me.txttelefono.Text .dni = Me.txtdni.Text .idciudad = Me.cbociudad.Text .ruc = Me.txtruc.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito")

Me.dgcliente.DataSource = app.selectAll_Cliente Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codcli = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgcliente.DataSource = app.selectAll_Cliente Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgcliente.DataSource = app.selectAll_Cliente Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub

Private Sub dgcliente_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcliente.CellClick Mostrar() End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtdni.Focus() End If End Sub Private Sub txtdni_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdni.KeyPress If Asc(e.KeyChar) = 13 Then txtdirecion.Focus() End If End Sub Private Sub txtdirecion_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdirecion.KeyPress If Asc(e.KeyChar) = 13 Then txttelefono.Focus() End If End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmComidas Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Comidas Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtprecio.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtprecio.Enabled = Estado Me.cbotipo.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado

End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_Comidas WHERE Codigo='" & Me.dgcomidas.Rows(Me.dgcomidas.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtprecio.Text = Tb.Rows(0).Item(2) Me.cbotipo.Text = Tb.Rows(0).Item(3) End If End Sub Private Sub FrmComidas_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmComidas_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgcomidas.DataSource = app.selectAll_Comidas Mostrar() Botones(True) Cajas(False) Dim Dim Dim Dim Con

Dt As SqlDataAdapter Tb As New DataTable Con As SqlConnection cn As New Conexion = cn.conecta

Dt = New SqlDataAdapter("SELECT * FROM Tipo", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.cbotipo.DataSource = Tb Me.cbotipo.DisplayMember = "nombre" Me.cbotipo.Text = "Seleccione Tipo" End If End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtprecio.Focus() End If End Sub

Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codco = Me.txtcodigo.Text .nomco = Me.txtnombre.Text .precio = Me.txtprecio.Text .tipo = Me.cbotipo.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgcomidas.DataSource = app.selectAll_Comidas Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codco = Me.txtcodigo.Text .nomco = Me.txtnombre.Text .precio = Me.txtprecio.Text .tipo = Me.cbotipo.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgcomidas.DataSource = app.selectAll_Comidas Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub

Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_comidas WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgcomidas.DataSource = Tb End If End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codco = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgcomidas.DataSource = app.selectAll_Comidas Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgcomidas.DataSource = app.selectAll_Comidas Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub

Private Sub dgcomidas_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcomidas.CellClick Mostrar() End Sub Private Sub dgcomidas_CellContentClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcomidas.CellContentClick End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmCompra Dim WithEvents app As New Valida Dim i As Integer Dim reg As New Procesos.Compra Dim reg1 As New Procesos.DetalleCompra Public es As Integer Sub codigo() Dim numero, num, num2 As String Dim num1, num3 As Integer Dim Dt As SqlDataAdapter Dim Tb As New DataTable

Con)

Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM compra order by codcompra desc", Dt.Fill(Tb) If Tb.Rows.Count > 0 Then numero = Convert.ToString(Tb.Rows(0).Item(0)) num = numero.Substring(3) num1 = CInt(num) num3 = num1 + 1 num2 = Convert.ToString(num3) txtcodigo.Text = "000" + num2 Else txtcodigo.Text = "0001" End If

End Sub Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT nombre as NOMBRE,presentación as PRESENT,costo FROM Vista_productosnat", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then dgproducto.DataSource = Tb dgproducto.Columns("nombre").Width = 130 dgproducto.Columns("presENT").Width = 95 dgproducto.Columns("costo").Width = 0 End If ElseIf RadioButton2.Checked = True Then Me.dgproducto.DataSource = Nothing End If End Sub Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged If RadioButton2.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT nombre as NOMBRE,presentación as PRESENT,costo FROM vista_ProductosRest", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then dgproducto.DataSource = Tb dgproducto.Columns("nombre").Width = 140 dgproducto.Columns("presENT").Width = 85 dgproducto.Columns("costo").Width = 0 End If ElseIf RadioButton1.Checked = True Then Me.dgproducto.DataSource = Nothing End If End Sub

Private Sub FrmCompra_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmCompra_Load(sender As Object, e As EventArgs) Handles MyBase.Load codigo() dgcompra.ColumnCount = 0 dgcompra.Columns.Add("N°", "N°") dgcompra.Columns.Add("Descripción", "Descripción") dgcompra.Columns.Add("Precio", "Precio") dgcompra.Columns.Add("Cantidad", "Cantidad") dgcompra.Columns.Add("SubTotal", "SubTotal") dgcompra.Columns("N°").Width = 30 dgcompra.Columns("Descripción").Width = 150 dgcompra.Columns("Precio").Width = 70 dgcompra.Columns("Cantidad").Width = 60 End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click txtproveedor.Text = "" txttotal.Text = "" dgcompra.Rows.Clear() codigo() End Sub Private Sub dgproducto_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgproducto.CellClick dgcompra.Rows.Add(dgcompra.RowCount + 1, Me.dgproducto.Rows(Me.dgproducto.CurrentRow.Index).Cells(0).Value, Me.dgproducto.Rows(Me.dgproducto.CurrentRow.Index).Cells(2).Value) es = 0 End Sub Private Sub dgcompra_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcompra.CellClick i = dgcompra.CurrentRow.Index End Sub Private Sub btnlimpiar_Click(sender As Object, e As EventArgs) Handles btnlimpiar.Click If es = 1 Then Dim uno As Decimal Dim cantidad As Integer = Convert.ToString(dgcompra.CurrentRow.Cells(3).Value) Dim precio As Integer = Convert.ToString(dgcompra.CurrentRow.Cells(2).Value) dgcompra.CurrentRow.Cells(4).Value = CInt(cantidad) * CDec(precio) For j = 0 To dgcompra.Rows.Count - 1 uno = uno + CDec(dgcompra.Rows(j).Cells("subtotal").Value) txttotal.Text = uno

Else

Next dgcompra.Rows.RemoveAt(i)

dgcompra.Rows.RemoveAt(i) End If End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R, n, j As Integer R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .cod = Me.txtcodigo.Text .fecha = Me.dtpfecha.Value .total = Me.txttotal.Text .idproveedor = Me.txtproveedor.Text .estado = "A" .idusuario = idusuario End With If app.insertaCompra(reg) Then MsgBox("Registro Guardado", 0, "Exito") For n = 0 To dgcompra.Rows.Count - 1 With reg1 .idprod = dgcompra.Rows(n).Cells("Descripción").Value .idcompra = Me.txtcodigo.Text .cantidad = dgcompra.Rows(n).Cells("cantidad").Value .subtotal = dgcompra.Rows(n).Cells("SubTotal").Value End With app.insertaDetalleCompra(reg1) Next Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click FrmBuscarProveedor.Show() End Sub Private Sub dgcompra_CellEndEdit(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcompra.CellEndEdit Dim uno As Decimal Dim cantidad As Integer = Convert.ToString(dgcompra.CurrentRow.Cells(3).Value) Dim precio As Integer = Convert.ToString(dgcompra.CurrentRow.Cells(2).Value) dgcompra.CurrentRow.Cells(4).Value = CInt(cantidad) * CDec(precio) For j = 0 To dgcompra.Rows.Count - 1 uno = uno + CDec(dgcompra.Rows(j).Cells("subtotal").Value) txttotal.Text = uno Next es = 1 End Sub

Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmContratoPensionistas Dim reg As New Procesos.contrato Dim Sw As Integer Dim WithEvents app As New Valida Sub codigo() Dim numero, num, num2 As String Dim num1, num3 As Integer Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM contrato order by codcontrato desc", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then numero = Convert.ToString(Tb.Rows(0).Item(0)) num = numero.Substring(2) num1 = CInt(num) num3 = num1 + 1 num2 = Convert.ToString(num3) txtcodigo.Text = "00" + num2 Else txtcodigo.Text = "001" End If

End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .cod = Me.txtcodigo.Text .idpensionista = Me.txtpensionista.Text .precio = Me.txtprecio.Text .fecha = Me.dtpfecha.Text .adelanto = Me.txtadelanto.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End Sub Private Sub FrmContratoPensionistas_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmContratoPensionistas_Load(sender As Object, e As EventArgs) Handles MyBase.Load codigo() End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click codigo() txtprecio.Text = "" txtpensionista.Text = "" txtadelanto.Text = "" End Sub Private Sub btnbuscar_Click(sender As Object, e As EventArgs) Handles btnbuscar.Click frmbuscarpensionista.Show() End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmInicio Dim reg As New Procesos.estadousuario Dim Sw As Integer Dim WithEvents app As New Valida Public p As Integer Sub actualizar() If p = 3 Then With reg .codigo = idusuario .estado = "B" End With app.modificar(reg) MsgBox("Usuario bloqueado", 64, "Sistema") End If End Sub

Private Sub FrmInicio_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmInicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub btncancelar_Click(sender As Object, e As EventArgs) Handles btncancelar.Click Me.Close() End Sub

Private Sub btningresar_Click(sender As Object, e As EventArgs) Handles btningresar.Click Dim n As Integer Dim letra, clave, nivel As String clave = "" For n = 1 To Microsoft.VisualBasic.Len(txtcontraseña.Text) letra = Mid(txtcontraseña.Text, n, 1) clave = clave & Chr(Asc(letra) + 10) Next Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Usuario WHERE nombreusuario='" & txtusuario.Text & "' and clave='" & clave & "' and estado='A'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then FrmMenú1.Show() idusuario = Tb.Rows(0).Item(0) usuario = Tb.Rows(0).Item(1) nivel = Tb.Rows(0).Item(8) FrmMenú1.lblusuario.Text = usuario Select Case nivel Case "B" Frmmantenimiento.PictureBox8.Enabled = False FrmMenú1.PictureBox3.Enabled = False Frmmantenimiento.PictureBox11.Enabled = False Frmmantenimiento.PictureBox14.Enabled = False Frmmantenimiento.PictureBox13.Enabled = False Frmmantenimiento.PictureBox7.Enabled = False Frmmantenimiento.PictureBox5.Enabled = False Frmmantenimiento.PictureBox2.Enabled = False Frmmantenimiento.PictureBox12.Enabled = False Frmmantenimiento.PictureBox15.Enabled = False Frmmantenimiento.PictureBox4.Enabled = False Frmmantenimiento.PictureBox10.Enabled = False Frmmantenimiento.PictureBox16.Enabled = False End Select Else

MsgBox("El usuario a Sido Bloqueado, Contactese con el Administrador", 64, "Sistema") End If End Sub Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter End Sub Private Sub txtusuario_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtusuario.KeyPress If Asc(e.KeyChar) = 13 Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta

Dt = New SqlDataAdapter("SELECT * FROM usuario where nombreusuario='" & txtusuario.Text & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then idusuario = Tb.Rows(0).Item(0) txtcontraseña.Text = "" txtcontraseña.Focus() Else MsgBox("El nombre de Usuario es Incorrecto", 64, "Sistema") txtusuario.Text = "" txtusuario.Focus() p = p + 1 actualizar() End If End If End Sub Private Sub txtcontraseña_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcontraseña.KeyPress If Asc(e.KeyChar) = 13 Then Dim n As Integer Dim letra, clave As String clave = "" For n = 1 To Microsoft.VisualBasic.Len(txtcontraseña.Text) letra = Mid(txtcontraseña.Text, n, 1) clave = clave & Chr(Asc(letra) + 10) Next

& "'", Con)

Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM usuario where clave='" & clave Dt.Fill(Tb) If Tb.Rows.Count > 0 Then btningresar_Click(sender, e) Else MsgBox("La clave del Usuario es Incorrecta", 64, "Sistema") txtcontraseña.Text = "" txtcontraseña.Focus() p = p + 1 actualizar() End If

End If End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmMenaje Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Menaje Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtcosto.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtcosto.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar()

Dim Dim Dim Dim Con

Dt As SqlDataAdapter Tb As New DataTable Con As SqlConnection cn As New Conexion = cn.conecta

Dt = New SqlDataAdapter("SELECT * FROM Menaje WHERE Codmenaje='" & Me.dgmenaje.Rows(Me.dgmenaje.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtcosto.Text = Tb.Rows(0).Item(2) End If End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtcosto.Focus() End If End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codme = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgmenaje.DataSource = app.selectAll_Menaje Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codme = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text

End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgmenaje.DataSource = app.selectAll_Menaje Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub txtcosto_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcosto.KeyPress If Asc(e.KeyChar) = 13 Then BtnGuardar_Click(sender, e) End If End Sub Private Sub FrmMenaje_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmMenaje_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgmenaje.DataSource = app.selectAll_Menaje Mostrar() Botones(True) Cajas(False) End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Menaje WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgmenaje.DataSource = Tb

End If End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codme = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgmenaje.DataSource = app.selectAll_Menaje Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgmenaje.DataSource = app.selectAll_Menaje Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub dgmenaje_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgmenaje.CellClick Mostrar() End Sub Private Sub dgmenaje_CellContentClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgmenaje.CellContentClick End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmMoviliario Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Mobiliario Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtcosto.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtcosto.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub

Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Moviliario WHERE Codmoviliario='" & Me.dgmobiliario.Rows(Me.dgmobiliario.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtcosto.Text = Tb.Rows(0).Item(2) End If End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtcosto.Focus() End If End Sub Private Sub txtcosto_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcosto.KeyPress If Asc(e.KeyChar) = 13 Then BtnGuardar_Click(sender, e) End If End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codmo = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgmobiliario.DataSource = app.selectAll_Mobiliario Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso")

Else

End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If

R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codmo = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgmobiliario.DataSource = app.selectAll_Mobiliario Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub FrmMoviliario_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmMoviliario_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgmobiliario.DataSource = app.selectAll_Mobiliario Mostrar() Botones(True) Cajas(False) End Sub Private Sub dgmobiliario_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgmobiliario.CellClick Mostrar() End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Moviliario WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con)

Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgmobiliario.DataSource = Tb End If End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codmo = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgmobiliario.DataSource = app.selectAll_Mobiliario Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgmobiliario.DataSource = app.selectAll_Mobiliario Mostrar() End Sub End Class

Imports Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Drawing System.Windows.Forms

Public Class FrmPagarPensionista Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.vistacontrato Dim reg1 As New Procesos.vistapagarpensionista Dim reg2 As New Procesos.pagardeudapensionista Public codpensionista, codcontrato As String Sub codigo() Dim numero, num, num2 As String Dim num1, num3 As Integer Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM PagarDeudaPensionista order by codpagar desc", Con)

Dt.Fill(Tb) If Tb.Rows.Count > 0 Then numero = Convert.ToString(Tb.Rows(0).Item(0)) num = numero.Substring(4) num1 = CInt(num) num3 = num1 + 1 num2 = Convert.ToString(num3) txtcodigo.Text = "0000" + num2 Else txtcodigo.Text = "00001" End If End Sub Sub pensionista() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM pensionistas WHERE nombre like '" & Me.txtpensionista.Text & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then codpensionista = Tb.Rows(0).Item(0) End If End Sub Sub adelanto() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM contrato WHERE idpensionistas like '" & codpensionista & "' and estadoadelanto='A'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then codcontrato = Tb.Rows(0).Item(0) Me.txtadelanto.Text = Tb.Rows(0).Item(4) Else txtadelanto.Text = "0.00" End If End Sub Sub llenartabla() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT Fecha,Cantidad,SubTotal FROM vista_num_menu WHERE nombre like '" & Me.txtpensionista.Text & "' and estado='D'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then dgpensionista.DataSource = Tb dgpensionista.Columns("fecha").Width = 130 dgpensionista.Columns("cantidad").Width = 130 dgpensionista.Columns("subtotal").Width = 140 Else dgpensionista.DataSource = Nothing txtdebe.Text = "0.00"

End If End Sub Private Sub btnbuscar_Click(sender As Object, e As EventArgs) Handles btnbuscar.Click frmbuscarpensionista.Show() End Sub Private Sub txtpensionista_TextChanged(sender As Object, e As EventArgs) Handles txtpensionista.TextChanged Dim uno As Decimal pensionista() adelanto() llenartabla() For j = 0 To dgpensionista.Rows.Count - 1 uno = uno + CDec(dgpensionista.Rows(j).Cells("subtotal").Value) txttotal.Text = uno txtdebe.Text = uno - txtadelanto.Text Next End Sub Private Sub FrmPagarPensionista_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmPagarPensionista_Load(sender As Object, e As EventArgs) Handles MyBase.Load codigo() btnboleta.Enabled = False End Sub Private Sub dgpensionista_CellContentClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgpensionista.CellContentClick End Sub Private Sub txtefectivo_TextChanged(sender As Object, e As EventArgs) Handles txtefectivo.TextChanged If (txtefectivo.Text = "") Then txtvuelto.Text = "0.00" Else txtvuelto.Text = txtefectivo.Text - txtdebe.Text End If End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R, n, j As Integer R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg2 .cod = txtcodigo.Text .idpensionista = codpensionista .fecha = dtpfecha.Value .total = txttotal.Text .adelanto = txtadelanto.Text .debe = txtdebe.Text

End With app.inserta(reg2) With reg .codcontrato = codcontrato .estado = "E" End With If app.modificar(reg) Then MsgBox("Registro Guardado", 0, "Exito") For n = 0 To dgpensionista.Rows.Count - 1 With reg1 .pensionista = Me.txtpensionista.Text .estado = "P" End With app.modificar(reg1) Next btnboleta.Enabled = True Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click codigo() txtpensionista.Text = "" txtadelanto.Text = "" txtdebe.Text = "" txtvuelto.Text = "" txtefectivo.Text = "" txttotal.Text = "" dgpensionista.DataSource = Nothing btnboleta.Enabled = False End Sub Private Sub btnboleta_Click(sender As Object, e As EventArgs) Handles btnboleta.Click PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(sender As Object, e As Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim name As String name = MonthName(Month(Now)) e.Graphics.DrawString("N°" + txtcodigo.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 570, 130) e.Graphics.DrawString(dtpfecha.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 590, 170) e.Graphics.DrawString(txtpensionista.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 200, 170) e.Graphics.DrawString(txtdireccion.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 210, 190) e.Graphics.DrawString(txtdni.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 530, 190) e.Graphics.DrawString("Por consumo de alimentos del mes de " & name, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 220, 235)

e.Graphics.DrawString(txttotal.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 600, 235) e.Graphics.DrawString(txttotal.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 600, 320) End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmPensionistas Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Pensionistas Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtdirecion.Text = "" Me.txttelefono.Text = "" Me.txtdni.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado

Me.txtdirecion.Enabled = Estado Me.txttelefono.Enabled = Estado Me.txtdni.Enabled = Estado Me.dtpfecha.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Pensionistas WHERE Codpensionistas='" & Me.dgPansionistas.Rows(Me.dgPansionistas.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtdni.Text = Tb.Rows(0).Item(2) Me.dtpfecha.Text = Tb.Rows(0).Item(3) Me.txtdirecion.Text = Tb.Rows(0).Item(4) Me.txttelefono.Text = Tb.Rows(0).Item(5) End If End Sub Private Sub FrmPensionistas_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmPensionistas_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgPansionistas.DataSource = app.selectAll_Pensionistas Mostrar() Botones(True) Cajas(False) End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtdni.Focus()

End If End Sub Private Sub txtdni_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdni.KeyPress If Asc(e.KeyChar) = 13 Then txtdirecion.Focus() End If End Sub Private Sub txtdirecion_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdirecion.KeyPress If Asc(e.KeyChar) = 13 Then txttelefono.Focus() End If End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT codpensionistas as Codigo,Nombre,DNI,fecnac as Fecha_Nac,Direccion,Telefono FROM Pensionistas WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgPansionistas.DataSource = Tb End If End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codpen = Me.txtcodigo.Text .nompen = Me.txtnombre.Text .dni = Me.txtdni.Text .fech = Me.dtpfecha.Text .direc = Me.txtdirecion.Text .telef = Me.txttelefono.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito")

Else

Me.dgPansionistas.DataSource = app.selectAll_Pensionistas Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If

R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codpen = Me.txtcodigo.Text .nompen = Me.txtnombre.Text .dni = Me.txtdni.Text .fech = Me.dtpfecha.Text .direc = Me.txtdirecion.Text .telef = Me.txttelefono.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgPansionistas.DataSource = app.selectAll_Pensionistas Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codpen = Me.txtcodigo.Text End With

If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgPansionistas.DataSource = app.selectAll_Pensionistas Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgPansionistas.DataSource = app.selectAll_Pensionistas Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub dgPansionistas_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgPansionistas.CellClick Mostrar() End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmPersonal Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Personal Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtdirecion.Text = "" Me.txttelefono.Text = "" Me.txtdni.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtdirecion.Enabled = Estado Me.txttelefono.Enabled = Estado Me.txtdni.Enabled = Estado Me.dtpfecha.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Personal WHERE Codpersonal='" & Me.dgpersonal.Rows(Me.dgpersonal.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtdni.Text = Tb.Rows(0).Item(2) Me.txtdirecion.Text = Tb.Rows(0).Item(3) Me.txttelefono.Text = Tb.Rows(0).Item(4) Me.dtpfecha.Text = Tb.Rows(0).Item(5) End If End Sub Private Sub FrmPersonal_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close()

End If End Sub Private Sub FrmPersonal_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgpersonal.DataSource = app.selectAll_Personal Mostrar() Botones(True) Cajas(False) End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codper = Me.txtcodigo.Text .nomper = Me.txtnombre.Text .dni = Me.txtdni.Text .direcper = Me.txtdirecion.Text .teleper = Me.txttelefono.Text .fecha = Me.dtpfecha.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgpersonal.DataSource = app.selectAll_Personal Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codper = Me.txtcodigo.Text .nomper = Me.txtnombre.Text .dni = Me.txtdni.Text .direcper = Me.txtdirecion.Text .teleper = Me.txttelefono.Text .fecha = Me.dtpfecha.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgpersonal.DataSource = app.selectAll_Personal Me.Limpiar() Else

MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codper = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgpersonal.DataSource = app.selectAll_Personal Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgpersonal.DataSource = app.selectAll_Personal Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub dgpersonal_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgpersonal.CellClick Mostrar() End Sub

Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtdni.Focus() End If End Sub Private Sub txtdni_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdni.KeyPress If Asc(e.KeyChar) = 13 Then txtdirecion.Focus() End If End Sub Private Sub txtdirecion_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdirecion.KeyPress If Asc(e.KeyChar) = 13 Then txttelefono.Focus() End If End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmPresentación Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Presentacion Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Presentacion WHERE Codpresentacion='" & Me.dgpresentacion.Rows(Me.dgpresentacion.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) End If End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub FrmPresentación_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub

Private Sub FrmPresentación_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgpresentacion.DataSource = app.selectAll_Presentacion Mostrar() Botones(True) Cajas(False) End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Presentacion WHERE tipo like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgpresentacion.DataSource = Tb End If End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codpre = Me.txtcodigo.Text .tipo = Me.txtnombre.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgpresentacion.DataSource = app.selectAll_Presentacion Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codpre = Me.txtcodigo.Text .tipo = Me.txtnombre.Text

End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgpresentacion.DataSource = app.selectAll_Presentacion Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codpre = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgpresentacion.DataSource = app.selectAll_Presentacion Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgpresentacion.DataSource = app.selectAll_Presentacion Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub dgpresentacion_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgpresentacion.CellClick Mostrar() End Sub

Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then BtnGuardar_Click(sender, e) End If End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmProductosNat Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.ProductosNat Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtcosto.Text = "" Me.txtdescripcion.Text = ""

Me.txtprecio.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtcosto.Enabled = Estado Me.txtdescripcion.Enabled = Estado Me.txtprecio.Enabled = Estado Me.cboproveedor.Enabled = Estado Me.cbopresentacion.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_productosnat WHERE Codigo='" & Me.dgproductosnat.Rows(Me.dgproductosnat.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtcosto.Text = Tb.Rows(0).Item(2) Me.txtdescripcion.Text = Tb.Rows(0).Item(3) Me.txtprecio.Text = Tb.Rows(0).Item(4) Me.cboproveedor.Text = Tb.Rows(0).Item(5) Me.cbopresentacion.Text = Tb.Rows(0).Item(6) End If End Sub Sub presentacion() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Presentacion", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.cbopresentacion.DataSource = Tb Me.cbopresentacion.DisplayMember = "tipo" Me.cbopresentacion.Text = "Seleccione la Presentación" End If End Sub

Private Sub FrmProductosNat_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmProductosNat_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgproductosnat.DataSource = app.selectAll_ProductosNat Mostrar() Botones(True) Cajas(False) presentacion() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Proveedor", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.cboproveedor.DataSource = Tb Me.cboproveedor.DisplayMember = "nombre" Me.cboproveedor.Text = "Seleccione del Proveedor" End If End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtcosto.Focus() End If End Sub Private Sub txtcosto_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcosto.KeyPress If Asc(e.KeyChar) = 13 Then txtdescripcion.Focus() End If End Sub Private Sub txtdescripcion_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdescripcion.KeyPress If Asc(e.KeyChar) = 13 Then txtprecio.Focus() End If End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True)

Mostrar() End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_productosnat WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgproductosnat.DataSource = Tb End If End Sub Private Sub dgproductosnat_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgproductosnat.CellClick Mostrar() End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codpro = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text .descri = Me.txtdescripcion.Text .prec = Me.txtprecio.Text .idprov = Me.cboproveedor.Text .idpres = Me.cbopresentacion.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgproductosnat.DataSource = app.selectAll_ProductosNat Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar")

If R = 6 Then Try With reg .codpro = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text .descri = Me.txtdescripcion.Text .prec = Me.txtprecio.Text .idprov = Me.cboproveedor.Text .idpres = Me.cbopresentacion.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgproductosnat.DataSource = app.selectAll_ProductosNat Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codpro = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgproductosnat.DataSource = app.selectAll_ProductosNat Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgproductosnat.DataSource = app.selectAll_ProductosNat Mostrar() End Sub

Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmProductosRest Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.ProductosRest Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtcosto.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtcosto.Enabled = Estado Me.cboproveedor.Enabled = Estado Me.cbopresentacion.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado

Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM vista_ProductosRest WHERE Codigo='" & Me.dgproductosrest.Rows(Me.dgproductosrest.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtcosto.Text = Tb.Rows(0).Item(2) Me.cboproveedor.Text = Tb.Rows(0).Item(3) Me.cbopresentacion.Text = Tb.Rows(0).Item(4) End If End Sub Sub presentacion() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Presentacion", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.cbopresentacion.DataSource = Tb Me.cbopresentacion.DisplayMember = "tipo" Me.cbopresentacion.Text = "Seleccione la Presentación" End If End Sub Private Sub FrmProductosRest_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmProductosRest_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgproductosrest.DataSource = app.selectAll_ProductosRest Mostrar() Botones(True) Cajas(False) presentacion() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion

Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Proveedor", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.cboproveedor.DataSource = Tb Me.cboproveedor.DisplayMember = "nombre" Me.cboproveedor.Text = "Seleccione del Proveedor" End If End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtcosto.Focus() End If End Sub Private Sub dgproductosrest_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgproductosrest.CellClick Mostrar() End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM vista_ProductosRest WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgproductosrest.DataSource = Tb End If End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try

With reg .codpro = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text .idprov = Me.cboproveedor.Text .idpres = Me.cbopresentacion.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgproductosrest.DataSource = app.selectAll_ProductosRest Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codpro = Me.txtcodigo.Text .nom = Me.txtnombre.Text .costo = Me.txtcosto.Text .idprov = Me.cboproveedor.Text .idpres = Me.cbopresentacion.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgproductosrest.DataSource = app.selectAll_ProductosRest Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub

Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codpro = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgproductosrest.DataSource = app.selectAll_ProductosRest Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgproductosrest.DataSource = app.selectAll_ProductosRest Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmProveedor Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Proveedor Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtdni.Text = "" Me.txtruc.Text = "" Me.txtireccion.Text = "" Me.txttelefono.Text = "" Me.txtmail.Text = "" Me.cbociudad.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtdni.Enabled = Estado Me.txtruc.Enabled = Estado Me.txtireccion.Enabled = Estado Me.txttelefono.Enabled = Estado

Me.txtmail.Enabled = Estado Me.cbociudad.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_Proveedor WHERE Cod='" & Me.dgproveedor.Rows(Me.dgproveedor.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtdni.Text = Tb.Rows(0).Item(2) Me.txtruc.Text = Tb.Rows(0).Item(3) Me.txtireccion.Text = Tb.Rows(0).Item(4) Me.txttelefono.Text = Tb.Rows(0).Item(5) Me.txtmail.Text = Tb.Rows(0).Item(6) Me.cbociudad.Text = Tb.Rows(0).Item(7) End If End Sub Private Sub FrmProveedor_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmProveedor_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgproveedor.DataSource = app.selectAll_Proveedor Mostrar() Botones(True) Cajas(False) Dim Dim Dim Dim Con

Dt As SqlDataAdapter Tb As New DataTable Con As SqlConnection cn As New Conexion = cn.conecta

Dt = New SqlDataAdapter("SELECT * FROM Ciudad", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.cbociudad.DataSource = Tb Me.cbociudad.DisplayMember = "nombre" Me.cbociudad.Text = "Seleccione a la Ciudad" End If End Sub

Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codpro = Me.txtcodigo.Text .nom = Me.txtnombre.Text .dni = Me.txtdni.Text .ruc = Me.txtruc.Text .direc = Me.txtireccion.Text .tele = Me.txttelefono.Text .mail = Me.txtmail.Text .idciudad = Me.cbociudad.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgproveedor.DataSource = app.selectAll_Proveedor Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codpro = Me.txtcodigo.Text .nom = Me.txtnombre.Text .dni = Me.txtdni.Text .ruc = Me.txtruc.Text .direc = Me.txtireccion.Text .tele = Me.txttelefono.Text .mail = Me.txtmail.Text .idciudad = Me.cbociudad.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgproveedor.DataSource = app.selectAll_Proveedor Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try

End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codpro = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgproveedor.DataSource = app.selectAll_Proveedor Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgproveedor.DataSource = app.selectAll_Proveedor Mostrar() End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_Proveedor WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgproveedor.DataSource = Tb End If

End Sub Private Sub dgproveedor_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgproveedor.CellClick Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtdni.Focus() End If End Sub Private Sub txtdni_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdni.KeyPress If Asc(e.KeyChar) = 13 Then txtruc.Focus() End If End Sub Private Sub txtruc_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtruc.KeyPress If Asc(e.KeyChar) = 13 Then txtireccion.Focus() End If End Sub Private Sub txtireccion_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtireccion.KeyPress If Asc(e.KeyChar) = 13 Then txttelefono.Focus() End If End Sub Private Sub txttelefono_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txttelefono.KeyPress If Asc(e.KeyChar) = 13 Then txtmail.Focus() End If End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmReporteCliente Dim WithEvents app As New Valida Private Sub FrmReporteCliente_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmReporteCliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgcliente.DataSource = app.selectAll_Cliente dgcliente.Columns("nombre").Width = 200 dgcliente.Columns("dirección").Width = 200 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click GridAExcel(dgcliente) End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmReporteCompras Dim WithEvents app As New Valida Private Sub btnventa_Click(sender As Object, e As EventArgs) Handles btnventa.Click GridAExcel(dgcompras) End Sub Private Sub FrmReporteCompras_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmReporteCompras_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'Me.dgcompras.DataSource = app.selectAll_Compra 'dgcompras.Columns("productos_naturales").Width = 180 'dgcompras.Columns("proveedor").Width = 180 End Sub Private Sub dtpfecha_ValueChanged(sender As Object, e As EventArgs) Handles dtpfecha.ValueChanged If (rbnaturales.Checked = True) Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT idcompra as Numero,Productos_Naturales,Proveedor,Cantidad,SubTotal,Total,Fecha FROM Vista_compra WHERE fecha like '" & Me.dtpfecha.Text & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgcompras.DataSource = Tb dgcompras.Columns("productos_naturales").Width = 180 dgcompras.Columns("proveedor").Width = 180

Else

Me.dgcompras.DataSource = Nothing End If ElseIf (rbrestaurant.Checked = True) Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT número,productos_restaurant,proveedor,cantidad,subtotal,total,fecha FROM Vista_compra_rest WHERE fecha like '" & Me.dtpfecha.Text & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgcompras.DataSource = Tb dgcompras.Columns("productos_restaurant").Width = 180 dgcompras.Columns("proveedor").Width = 180 Else Me.dgcompras.DataSource = Nothing End If End If End Sub Private Sub rbnaturales_CheckedChanged(sender As Object, e As EventArgs) Handles rbnaturales.CheckedChanged If rbnaturales.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT idcompra as Numero,Productos_Naturales,Proveedor,Cantidad,SubTotal,Total,Fecha FROM Vista_compra", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgcompras.DataSource = Tb dgcompras.Columns("productos_naturales").Width = 180 dgcompras.Columns("proveedor").Width = 180 End If Else Me.dgcompras.DataSource = Nothing End If End Sub Private Sub rbrestaurant_CheckedChanged(sender As Object, e As EventArgs) Handles rbrestaurant.CheckedChanged If rbrestaurant.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT número,productos_restaurant,proveedor,cantidad,subtotal,total,fecha FROM Vista_compra_rest", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgcompras.DataSource = Tb dgcompras.Columns("productos_restaurant").Width = 180 dgcompras.Columns("proveedor").Width = 180 End If

Else

Me.dgcompras.DataSource = Nothing End If End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmReportePatrimonio Dim WithEvents app As New Valida Private Sub btnventa_Click(sender As Object, e As EventArgs) Handles btnventa.Click GridAExcel(dgpatrimonio) End Sub Private Sub FrmReportePatrimonio_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmReportePatrimonio_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub

Private Sub rbmenaje_CheckedChanged(sender As Object, e As EventArgs) Handles rbmenaje.CheckedChanged If rbmenaje.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT codmenaje as Número,nombre as Menaje,costo as Costo FROM menaje", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgpatrimonio.DataSource = Tb dgpatrimonio.Columns("menaje").Width = 155 End If Else Me.dgpatrimonio.DataSource = Nothing End If End Sub Private Sub rbartefactos_CheckedChanged(sender As Object, e As EventArgs) Handles rbartefactos.CheckedChanged If rbartefactos.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT codartefactos as Número,nombre as Artefactos,costo as Costo FROM artefactos", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgpatrimonio.DataSource = Tb dgpatrimonio.Columns("artefactos").Width = 155 End If Else Me.dgpatrimonio.DataSource = Nothing End If End Sub Private Sub rbmobiliaio_CheckedChanged(sender As Object, e As EventArgs) Handles rbmobiliaio.CheckedChanged If rbmobiliaio.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT codmoviliario as Número,nombre as Mobiliario,costo as Costo FROM moviliario", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgpatrimonio.DataSource = Tb dgpatrimonio.Columns("mobiliario").Width = 155 End If Else Me.dgpatrimonio.DataSource = Nothing End If End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmReportePensionistas Dim WithEvents app As New Valida Private Sub btnventa_Click(sender As Object, e As EventArgs) Handles btnventa.Click GridAExcel(dgpensionistas) End Sub Private Sub FrmReportePensionistas_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmReportePensionistas_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT Codigo,Pensionistas,Menú,Cantidad,SubTotal,Fecha FROM vista_reporte_pensionista where estado='D'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgpensionistas.DataSource = Tb dgpensionistas.Columns("pensionistas").Width = 220 dgpensionistas.Columns("menú").Width = 175 End If Dim uno As Decimal For j = 0 To dgpensionistas.Rows.Count - 1

Next End Sub

uno = uno + CDec(dgpensionistas.Rows(j).Cells("subtotal").Value) txttotal.Text = uno

Private Sub txtnombre_TextChanged(sender As Object, e As EventArgs) Handles txtnombre.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT Codigo,Pensionistas,Menú,Cantidad,SubTotal,Fecha FROM vista_reporte_pensionista where pensionistas like '%" & txtnombre.Text & "%' and estado='D'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgpensionistas.DataSource = Tb dgpensionistas.Columns("pensionistas").Width = 220 dgpensionistas.Columns("menú").Width = 175 End If Dim uno As Decimal For j = 0 To dgpensionistas.Rows.Count - 1 uno = uno + CDec(dgpensionistas.Rows(j).Cells("subtotal").Value) txttotal.Text = uno Next End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmReporteVentas

Dim WithEvents app As New Valida Private Sub FrmReporteVentas_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmReporteVentas_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub btnventa_Click(sender As Object, e As EventArgs) Handles btnventa.Click GridAExcel(dgventa) End Sub Private Sub dtpfecha_ValueChanged(sender As Object, e As EventArgs) Handles dtpfecha.ValueChanged If (rbcomidas.Checked = True) Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT serie,correlativo,cliente,menú,Cantidad,Subtotal,Total,Fecha FROM Vista_venta_comidas WHERE Fecha like '" & Me.dtpfecha.Text & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgventa.DataSource = Tb dgventa.Columns("cliente").Width = 180 dgventa.Columns("menú").Width = 180 Else Me.dgventa.DataSource = Nothing End If ElseIf (rbnaturales.Checked = True) Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT serie,correlativo,cliente,Productos_Naturales,Cantidad,Subtotal,Total,Fecha FROM Vista_venta_nat WHERE Fecha like '" & Me.dtpfecha.Text & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgventa.DataSource = Tb dgventa.Columns("productos_naturales").Width = 180 dgventa.Columns("cliente").Width = 180 Else Me.dgventa.DataSource = Nothing End If End If End Sub Private Sub rbcomidas_CheckedChanged(sender As Object, e As EventArgs) Handles rbcomidas.CheckedChanged If rbcomidas.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable

Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT serie,correlativo,cliente,menú,Cantidad,Subtotal,Total,Fecha FROM Vista_venta_comidas", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgventa.DataSource = Tb dgventa.Columns("cliente").Width = 180 dgventa.Columns("menú").Width = 180 End If Else Me.dgventa.DataSource = Nothing End If End Sub Private Sub rbnaturales_CheckedChanged(sender As Object, e As EventArgs) Handles rbnaturales.CheckedChanged If rbnaturales.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT serie,correlativo,cliente,Productos_Naturales,Cantidad,Subtotal,Total,Fecha FROM Vista_venta_nat", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgventa.DataSource = Tb dgventa.Columns("productos_naturales").Width = 180 dgventa.Columns("cliente").Width = 180 End If Else Me.dgventa.DataSource = Nothing End If End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmTipo Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Tipo Sub Limpiar() Me.txtcodigo.Text = "" Me.txttipo.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txttipo.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar()

Dim Dim Dim Dim Con

Dt As SqlDataAdapter Tb As New DataTable Con As SqlConnection cn As New Conexion = cn.conecta

Dt = New SqlDataAdapter("SELECT * FROM Tipo WHERE CodTipo='" & Me.dgtipo.Rows(Me.dgtipo.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txttipo.Text = Tb.Rows(0).Item(1) End If End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txttipo.Focus() End If End Sub Private Sub txttipo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txttipo.KeyPress If Asc(e.KeyChar) = 13 Then BtnGuardar_Click(sender, e) End If End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codtipo = Me.txtcodigo.Text .nom = Me.txttipo.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgtipo.DataSource = app.selectAll_Tipo Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codtipo = Me.txtcodigo.Text .nom = Me.txttipo.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgtipo.DataSource = app.selectAll_Tipo

Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub FrmTipo_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmTipo_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgtipo.DataSource = app.selectAll_Tipo Mostrar() Botones(True) Cajas(False) dgtipo.Columns("nombre").Width = 265 End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True) Botones(False) End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Tipo WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgtipo.DataSource = Tb End If End Sub

Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codtipo = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgtipo.DataSource = app.selectAll_Tipo Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Cajas(False) Botones(True) Me.dgtipo.DataSource = app.selectAll_Tipo Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub dgtipo_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgtipo.CellClick Mostrar() End Sub End Class

Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms

Public Class FrmUsuario Dim Sw As Integer Dim WithEvents app As New Valida Dim reg As New Procesos.Usuario Sub Limpiar() Me.txtcodigo.Text = "" Me.txtnombre.Text = "" Me.txtclave.Text = "" Me.txtusuario.Text = "" Me.txtdni.Text = "" Me.txtcorreo.Text = "" Me.txtcodigo.Focus() End Sub Sub Cajas(ByVal Estado As Boolean) Me.txtcodigo.Enabled = Estado Me.txtnombre.Enabled = Estado Me.txtclave.Enabled = Estado Me.txtusuario.Enabled = Estado Me.txtdni.Enabled = Estado Me.txtcorreo.Enabled = Estado Me.cboestado.Enabled = Estado

Me.dtpfecha.Enabled = Estado End Sub Sub Botones(ByVal Estado As Boolean) Me.BtnNuevo.Enabled = Estado Me.BtnGuardar.Enabled = Not Estado Me.BtnCancelar.Enabled = Not Estado Me.BtnEditar.Enabled = Estado Me.BtnEliminar.Enabled = Estado Me.BtnSalir.Enabled = Estado End Sub Sub Mostrar() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Usuario WHERE Codusuario='" & Me.dgusuario.Rows(Me.dgusuario.CurrentRow.Index).Cells(0).Value & "'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.txtcodigo.Text = Tb.Rows(0).Item(0) Me.txtnombre.Text = Tb.Rows(0).Item(1) Me.txtdni.Text = Tb.Rows(0).Item(2) Me.txtcorreo.Text = Tb.Rows(0).Item(3) Dim n As Integer Dim letra, clave As String clave = "" For n = 1 To Microsoft.VisualBasic.Len(Tb.Rows(0).Item(5)) letra = Mid(Tb.Rows(0).Item(5), n, 1) clave = clave & Chr(Asc(letra) - 10) Next Me.dtpfecha.Text = Tb.Rows(0).Item(4) Me.txtclave.Text = clave Me.cboestado.Text = Tb.Rows(0).Item(6) Me.txtusuario.Text = Tb.Rows(0).Item(7) End If End Sub Private Sub FrmUsuario_KeyDown(sender As Object, e As Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.dgusuario.DataSource = app.selectAll_Usuario Mostrar() Botones(True) Cajas(False) End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click Sw = 1 Limpiar() Cajas(True)

Botones(False) End Sub Private Sub txtbuscar_TextChanged(sender As Object, e As EventArgs) Handles txtbuscar.TextChanged Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM Vista_Usuario WHERE nombre like '%" & Me.txtbuscar.Text & "%'", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then Me.dgusuario.DataSource = Tb End If End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R As Integer Dim n As Integer Dim letra, clave As String clave = "" For n = 1 To Microsoft.VisualBasic.Len(txtclave.Text) letra = Mid(txtclave.Text, n, 1) clave = clave & Chr(Asc(letra) + 10) Next If Sw = 1 Then R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .codusu = Me.txtcodigo.Text .nom = Me.txtnombre.Text .dni = Me.txtdni.Text .correo = Me.txtcorreo.Text .fecnac = Me.dtpfecha.Text .clave = clave .estado = Me.cboestado.Text .nomusu = Me.txtusuario.Text .nivel = cbonivel.Text End With If app.inserta(reg) Then MsgBox("Registro Guardado", 0, "Exito") Me.dgusuario.DataSource = app.selectAll_Usuario Me.Limpiar() Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If Else R = MsgBox("Actualizar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try

With reg .codusu = Me.txtcodigo.Text .nom = Me.txtnombre.Text .dni = Me.txtdni.Text .correo = Me.txtcorreo.Text .fecnac = Me.dtpfecha.Text .clave = clave .estado = Me.cboestado.Text .nomusu = Me.txtusuario.Text .nivel = cbonivel.Text End With If app.modificar(reg) Then MsgBox("Registro Modificado", 0, "Exito") Me.dgusuario.DataSource = app.selectAll_Usuario Me.Limpiar() Else MsgBox("No se Modifico el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End If Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click Cajas(False) Botones(True) Mostrar() End Sub Private Sub BtnEditar_Click(sender As Object, e As EventArgs) Handles BtnEditar.Click Sw = 0 Cajas(True) Botones(False) End Sub Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Dim R As Byte R = MsgBox("Borrar Registro", 4 + 32 + 256, "Eliminar") If R = 6 Then Try With reg .codusu = Me.txtcodigo.Text End With If app.borrar(reg) Then MsgBox("Registro Eliminado", 0, "Exito") Me.dgusuario.DataSource = app.selectAll_Usuario Me.Limpiar() Else MsgBox("No se Eliminó el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try

End If Cajas(False) Botones(True) Me.dgusuario.DataSource = app.selectAll_Usuario Mostrar() End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub dgusuario_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgusuario.CellClick Mostrar() End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtnombre.Focus() End If End Sub Private Sub txtnombre_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtnombre.KeyPress If Asc(e.KeyChar) = 13 Then txtdni.Focus() End If End Sub Private Sub txtdni_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtdni.KeyPress If Asc(e.KeyChar) = 13 Then txtclave.Focus() End If End Sub Private Sub txtclave_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtclave.KeyPress If Asc(e.KeyChar) = 13 Then txtusuario.Focus() End If End Sub End Class

Imports Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Windows.Forms System.Drawing

Public Class FrmVenta Dim WithEvents app As New Valida Dim i As Integer Dim reg As New Procesos.Venta Dim reg1 As New Procesos.DetalleVenta Public es As Integer Sub codigo() Dim numero, num, num2 As String Dim num1, num3 As Integer Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM venta order by codventa desc", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then numero = Convert.ToString(Tb.Rows(0).Item(0)) num = numero.Substring(4) num1 = CInt(num) num3 = num1 + 1 num2 = Convert.ToString(num3) txtcodigo.Text = "0000" + num2 Else txtcodigo.Text = "00001" End If End Sub Sub serie() Dim Dt As SqlDataAdapter Dim Tb As New DataTable

Con)

Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM venta", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then txtserie.Text = Tb.Rows(0).Item(1) Else txtserie.Text = "0001" End If End Sub Sub numero() Dim numero, num, num2 As String Dim num1, num3 As Integer Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM venta order by correlativo desc",

Dt.Fill(Tb) If Tb.Rows.Count > 0 Then numero = Convert.ToString(Tb.Rows(0).Item(2)) num = numero.Substring(5) num1 = CInt(num) num3 = num1 + 1 num2 = Convert.ToString(num3) txtcorrelativo.Text = "00000" + num2 Else txtcorrelativo.Text = "000001" End If End Sub Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click Me.Close() End Sub Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click txtcodigo.Text = "" txtserie.Text = "" txtcorrelativo.Text = "" txtcliente.Text = "" txttotal.Text = "" txtdireccion.Text = "" txtdni.Text = "" txtruc.Text = "" dgventa.Rows.Clear() codigo() serie() numero() cbodocumento.Enabled = False End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click FrmBuscarCliente.Show() End Sub

Private Sub FrmVenta_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmVenta_Load(sender As Object, e As EventArgs) Handles MyBase.Load codigo() serie() numero() dgventa.ColumnCount = 0 dgventa.Columns.Add("N°", "N°") dgventa.Columns.Add("Descripción", "Descripción") dgventa.Columns.Add("Precio", "Precio") dgventa.Columns.Add("Cantidad", "Cantidad") dgventa.Columns.Add("SubTotal", "SubTotal") dgventa.Columns("N°").Width = 30 dgventa.Columns("Descripción").Width = 150 dgventa.Columns("Precio").Width = 70 dgventa.Columns("Cantidad").Width = 60 cbodocumento.Enabled = False End Sub Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged If RadioButton2.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT nombre as NOMBRE,presentación as PRESENT,costo FROM Vista_productosnat", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then dgcomidas.DataSource = Tb dgcomidas.Columns("nombre").Width = 140 dgcomidas.Columns("presENT").Width = 85 dgcomidas.Columns("costo").Width = 0 End If ElseIf RadioButton1.Checked = True Then Me.dgcomidas.DataSource = Nothing End If End Sub Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT nombre as NOMBRE,Tipo,precio FROM Vista_Comidas", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then dgcomidas.DataSource = Tb

dgcomidas.Columns("nombre").Width = 130 dgcomidas.Columns("tipo").Width = 95 dgcomidas.Columns("precio").Width = 0 End If ElseIf RadioButton2.Checked = True Then Me.dgcomidas.DataSource = Nothing End If End Sub Private Sub dgcomidas_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcomidas.CellClick dgventa.Rows.Add(dgventa.RowCount + 1, Me.dgcomidas.Rows(Me.dgcomidas.CurrentRow.Index).Cells(0).Value, Me.dgcomidas.Rows(Me.dgcomidas.CurrentRow.Index).Cells(2).Value) es = 0 End Sub Private Sub dgventa_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgventa.CellClick i = dgventa.CurrentRow.Index End Sub

Private Sub dgventa_CellEndEdit(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgventa.CellEndEdit Dim uno As Decimal Dim cantidad As Integer = Convert.ToString(dgventa.CurrentRow.Cells(3).Value) Dim precio As Integer = Convert.ToString(dgventa.CurrentRow.Cells(2).Value) dgventa.CurrentRow.Cells(4).Value = CInt(cantidad) * CDec(precio) For j = 0 To dgventa.Rows.Count - 1 uno = uno + CDec(dgventa.Rows(j).Cells("subtotal").Value) txttotal.Text = uno Next es = 1 End Sub Private Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles BtnCancelar.Click If es = 1 Then Dim uno As Decimal Dim cantidad As Integer = Convert.ToString(dgventa.CurrentRow.Cells(3).Value) Dim precio As Integer = Convert.ToString(dgventa.CurrentRow.Cells(2).Value) dgventa.CurrentRow.Cells(4).Value = CInt(cantidad) * CDec(precio) For j = 0 To dgventa.Rows.Count - 1 uno = uno + CDec(dgventa.Rows(j).Cells("subtotal").Value) txttotal.Text = uno Next dgventa.Rows.RemoveAt(i) Else dgventa.Rows.RemoveAt(i) End If End Sub

Private Sub dgventa_CellContentClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgventa.CellContentClick End Sub Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click Dim R, n, j As Integer R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .cod = Me.txtcodigo.Text .serie = Me.txtserie.Text .corre = Me.txtcorrelativo.Text .total = Me.txttotal.Text .idcliente = Me.txtcliente.Text .estado = "A" .idusuario = idusuario .fecha = dtpfecha.Value End With If app.insertaVenta(reg) Then MsgBox("Registro Guardado", 0, "Exito") For n = 0 To dgventa.Rows.Count - 1 With reg1 .cod = Me.txtcodigo.Text .idcomi = dgventa.Rows(n).Cells("Descripción").Value .idserie = txtserie.Text .idcorre = txtcorrelativo.Text .cant = dgventa.Rows(n).Cells("cantidad").Value .subtotal = dgventa.Rows(n).Cells("SubTotal").Value End With app.insertaDetalleVenta(reg1) Next cbodocumento.Enabled = True Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click frmcancelarventa.Show() End Sub Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtserie.Focus() End If End Sub Private Sub txtserie_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtserie.KeyPress If Asc(e.KeyChar) = 13 Then txtcorrelativo.Focus() End If End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim printFont As System.Drawing.Font = New Font("Arial", 10) Dim topMargin As Double = e.MarginBounds.Top Dim yPos As Double = 0 Dim linesPerPage As Double = 0 Dim count As Integer = 0 Dim texto As String = "" e.Graphics.DrawString(txtserie.Text + "- ", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 500, 130) e.Graphics.DrawString("N°" + txtcorrelativo.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 570, 130) e.Graphics.DrawString(dtpfecha.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 590, 170) e.Graphics.DrawString(txtcliente.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 200, 170) e.Graphics.DrawString(txtdireccion.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 210, 190) e.Graphics.DrawString(txtdni.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 530, 190) Dim Dim Dim Dim

total As Double = 0 total1 As String = "" total2 As Double = 0 total3 As Double = 0

For Each fila As DataGridViewRow In dgventa.Rows If fila.Cells(3).Value Is Nothing Then Exit Sub Else total = Convert.ToDouble(fila.Cells(3).Value) total1 = Convert.ToString(fila.Cells(1).Value) total2 = Convert.ToDouble(fila.Cells(2).Value) total3 = Convert.ToDouble(fila.Cells(4).Value) End If yPos = (235 + count * printFont.GetHeight(e.Graphics)) e.Graphics.DrawString(total, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 170, yPos) e.Graphics.DrawString(total1, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 220, yPos) e.Graphics.DrawString(total2 & ".00", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 580, yPos) e.Graphics.DrawString(total3 & ".00", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 640, yPos) count += 2 Next e.Graphics.DrawString(txttotal.Text & ".00", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 630, 370) End Sub Private Sub PrintDocument2_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument2.PrintPage Dim printFont As System.Drawing.Font = New Font("Arial", 10) Dim topMargin As Double = e.MarginBounds.Top Dim yPos As Double = 0 Dim linesPerPage As Double = 0 Dim count As Integer = 0 Dim texto As String = ""

e.Graphics.DrawString(txtserie.Text + "- ", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 500, 130) e.Graphics.DrawString("N°" + txtcorrelativo.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 570, 130) e.Graphics.DrawString(dtpfecha.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 620, 170) e.Graphics.DrawString(txtcliente.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 170, 170) e.Graphics.DrawString(txtdireccion.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 180, 200) e.Graphics.DrawString(txtruc.Text, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 170, 230) Dim Dim Dim Dim

total As Double = 0 total1 As String = "" total2 As Double = 0 total3 As Double = 0

For Each fila As DataGridViewRow In dgventa.Rows If fila.Cells(3).Value Is Nothing Then Exit Sub Else total = Convert.ToDouble(fila.Cells(3).Value) total1 = Convert.ToString(fila.Cells(1).Value) total2 = Convert.ToDouble(fila.Cells(2).Value) total3 = Convert.ToDouble(fila.Cells(4).Value) End If yPos = (280 + count * printFont.GetHeight(e.Graphics)) e.Graphics.DrawString(total, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 140, yPos) e.Graphics.DrawString(total1, New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 250, yPos) e.Graphics.DrawString(total2 & ".00", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 610, yPos) e.Graphics.DrawString(total3 & ".00", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 670, yPos) count += 2 Next e.Graphics.DrawString(txttotal.Text & ".00", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 660, 470) e.Graphics.DrawString("0.00", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 660, 490) e.Graphics.DrawString(txttotal.Text & ".00", New Font("Arial", 10, FontStyle.Bold), Brushes.Black, 660, 510) End Sub Private Sub cbodocumento_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbodocumento.SelectedIndexChanged If cbodocumento.Text = "BOLETA" Then PrintDocument1.Print() Else PrintDocument2.Print() End If End Sub End Class

Imports Imports Imports Imports Imports

System.Data.SqlClient Negocios Datos System.Drawing System.Windows.Forms

Public Class FrmVentaPensionistas Dim WithEvents app As New Valida Dim i As Integer Dim reg As New Procesos.VentaPensionistas Dim reg1 As New Procesos.DetalleVentaPensionistas Public es As Integer Sub codigo() Dim numero, num, num2 As String Dim num1, num3 As Integer Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM ventapensionistas order by codvenpens desc", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then numero = Convert.ToString(Tb.Rows(0).Item(0)) num = numero.Substring(4) num1 = CInt(num) num3 = num1 + 1 num2 = Convert.ToString(num3) txtcodigo.Text = "0000" + num2 Else txtcodigo.Text = "00001" End If End Sub Sub serie() Dim Dt As SqlDataAdapter

Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM ventapensionistas", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then txtserie.Text = Tb.Rows(0).Item(1) Else txtserie.Text = "0001" End If End Sub Sub numero() Dim numero, num, num2 As String Dim num1, num3 As Integer Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT * FROM ventapensionistas order by correlativo desc", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then numero = Convert.ToString(Tb.Rows(0).Item(2)) num = numero.Substring(5) num1 = CInt(num) num3 = num1 + 1 num2 = Convert.ToString(num3) txtcorrelativo.Text = "00000" + num2 Else txtcorrelativo.Text = "000001" End If End Sub Sub menu1() Dim Dt As SqlDataAdapter Dim Tb As New DataTable Dim Con As SqlConnection Dim cn As New Conexion Con = cn.conecta Dt = New SqlDataAdapter("SELECT nombre as NOMBRE,Tipo,precio FROM Vista_Comidas", Con) Dt.Fill(Tb) If Tb.Rows.Count > 0 Then dgcomidas.DataSource = Tb dgcomidas.Columns("nombre").Width = 130 dgcomidas.Columns("tipo").Width = 95 dgcomidas.Columns("precio").Width = 0 End If End Sub Private Sub FrmVentaPensionistas_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown If (e.KeyCode = Keys.Escape) Then Me.Close() End If End Sub Private Sub FrmVentaPensionistas_Load(sender As Object, e As EventArgs) Handles MyBase.Load codigo() serie() numero()

menu1() dgventa.ColumnCount = 0 dgventa.Columns.Add("N°", "N°") dgventa.Columns.Add("Descripción", "Descripción") dgventa.Columns.Add("Precio", "Precio") dgventa.Columns.Add("Cantidad", "Cantidad") dgventa.Columns.Add("SubTotal", "SubTotal") dgventa.Columns("N°").Width = 30 dgventa.Columns("Descripción").Width = 150 dgventa.Columns("Precio").Width = 70 dgventa.Columns("Cantidad").Width = 60 End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles btnnuevo.Click txtcodigo.Text = "" txtserie.Text = "" txtcorrelativo.Text = "" txtpensionistas.Text = "" txttotal.Text = "" dgventa.Rows.Clear() codigo() serie() numero() End Sub

Private Sub dgcomidas_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgcomidas.CellClick dgventa.Rows.Add(dgventa.RowCount + 1, Me.dgcomidas.Rows(Me.dgcomidas.CurrentRow.Index).Cells(0).Value, Me.dgcomidas.Rows(Me.dgcomidas.CurrentRow.Index).Cells(2).Value) es = 0 End Sub Private Sub dgventa_CellClick(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgventa.CellClick i = dgventa.CurrentRow.Index End Sub Private Sub dgventa_CellEndEdit(sender As Object, e As Windows.Forms.DataGridViewCellEventArgs) Handles dgventa.CellEndEdit Dim uno As Decimal Dim cantidad As Integer = Convert.ToString(dgventa.CurrentRow.Cells(3).Value) Dim precio As Integer = Convert.ToString(dgventa.CurrentRow.Cells(2).Value) dgventa.CurrentRow.Cells(4).Value = CInt(cantidad) * CDec(precio) For j = 0 To dgventa.Rows.Count - 1 uno = uno + CDec(dgventa.Rows(j).Cells("subtotal").Value) txttotal.Text = uno Next es = 1 End Sub

Private Sub btnlimpiar_Click(sender As Object, e As EventArgs) Handles btnlimpiar.Click If es = 1 Then Dim uno As Decimal Dim cantidad As Integer = Convert.ToString(dgventa.CurrentRow.Cells(3).Value) Dim precio As Integer = Convert.ToString(dgventa.CurrentRow.Cells(2).Value) dgventa.CurrentRow.Cells(4).Value = CInt(cantidad) * CDec(precio) For j = 0 To dgventa.Rows.Count - 1 uno = uno + CDec(dgventa.Rows(j).Cells("subtotal").Value) txttotal.Text = uno Next dgventa.Rows.RemoveAt(i) Else dgventa.Rows.RemoveAt(i) End If

End Sub Private Sub btnguardar_Click(sender As Object, e As EventArgs) Handles btnguardar.Click Dim R, n, j As Integer R = MsgBox("Grabar Datos", 4 + 32 + 256, "Registrar") If R = 6 Then Try With reg .cod = Me.txtcodigo.Text .serie = Me.txtserie.Text .corre = Me.txtcorrelativo.Text .total = Me.txttotal.Text .idpensionistas = Me.txtpensionistas.Text .idusuario = idusuario .fecha = dtpfecha.Value End With If app.insertaVentaPensionistas(reg) Then MsgBox("Registro Guardado", 0, "Exito") For n = 0 To dgventa.Rows.Count - 1 With reg1 .cod = Me.txtcodigo.Text .idserie = txtserie.Text .idcorre = txtcorrelativo.Text .idcomi = dgventa.Rows(n).Cells("Descripción").Value .cant = dgventa.Rows(n).Cells("cantidad").Value .subtotal = dgventa.Rows(n).Cells("SubTotal").Value .estado = "D" End With app.insertaDetalleVentaPensionistas(reg1) Next Else MsgBox("No se Guardado el Registro", 0, "Fracaso") End If Catch ex As Exception MsgBox(ex.Message, 0, "ERROR") End Try End If End Sub

Private Sub txtcodigo_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtcodigo.KeyPress If Asc(e.KeyChar) = 13 Then txtserie.Focus() End If End Sub Private Sub txtserie_KeyPress(sender As Object, e As Windows.Forms.KeyPressEventArgs) Handles txtserie.KeyPress If Asc(e.KeyChar) = 13 Then txtcorrelativo.Focus() End If End Sub Private Sub btnbuscar_Click(sender As Object, e As EventArgs) Handles btnbuscar.Click frmbuscarpensionista.Show() End Sub Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click Me.Close() End Sub Private Sub btncancelar_Click(sender As Object, e As EventArgs) Handles btncancelar.Click FrmCancelarVentaPensionistas.Show() End Sub End Class

JAVA. FrmConsultarPersonal.

package Consultas; import Formulario.FrmRegistrar_Venta; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FRMConsultaPersonal extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i);}} public void LLenarTabla(String sql){ try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)this.JTblPersonal.getModel();

LimpiarTabla(model); while(cnx.rs.next()){ String col0=cnx.rs.getString("codpersonal"); String col1=cnx.rs.getString("nombre"); String col2=cnx.rs.getString("dni"); String col3=cnx.rs.getString("direccion"); String col4=cnx.rs.getString("telefono"); String col5=cnx.rs.getString("fecnacimiento"); Vector vRow=new Vector(); vRow.addElement(col0); vRow.addElement(col1); vRow.addElement(col2); vRow.addElement(col3); vRow.addElement(col4); vRow.addElement(col5); model.addRow(vRow);}} catch(SQLException a){ System.out.println(a);}} public FRMConsultaPersonal() { initComponents(); } public void Mostrar(){ String cod; try{ cod=this.JTblPersonal.getValueAt(JTblPersonal.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from Personal where codpersonal='"+cod+"'"); if(cnx.rs.next()){ FrmRegistrar_Venta.txtcodpersonal.setText(cnx.rs.getString(1)); FrmRegistrar_Venta.txtnombrepersonal.setText(cnx.rs.getString(2));}} catch(Exception a){ System.out.println(a.getMessage()); } }

private void JTblPersonalKeyPressed(java.awt.event.KeyEvent evt) { } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); this.LLenarTabla("SELECT * FROM Personal"); } private void JBTNMOSTRARActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } } private void JTXTMOSTRARKeyReleased(java.awt.event.KeyEvent evt) { switch (this.JCBOBuscar.getSelectedIndex()){ case 0:{ sql="SELECT * FROM Personal" ; break; } default:{ sql="SELECT * FROM Personal WHERE "+ this.JCBOBuscar.getSelectedItem()+" LIKE '%" +this.JTXTMOSTRAR.getText() +"%'"; break; } } this.LLenarTabla(sql); } private void JCBOBuscarActionPerformed(java.awt.event.ActionEvent evt) { } private void JTblPersonalMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose();

}

FrmConsutaProveedor

package Consultas; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FRMConsultaProveedor extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void CargaCombo(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT * FROM Ciudad order by 1"); while(cnx.rs.next()){

this.JCbCiudad.addItem(cnx.rs.getString(2)); } }catch(Exception a){ System.out.println(a.getMessage()); } } public void LLenarTabla(String sql){ try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)this.JTblPersonal.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codproveedor"); String nomb=cnx.rs.getString("nombre"); String dni=cnx.rs.getString("dni"); String ruc=cnx.rs.getString("ruc"); String dir=cnx.rs.getString("direccion"); String telef=cnx.rs.getString("telefono"); String mail=cnx.rs.getString("mail"); String nomciudad=cnx.rs.getString("NombreCiudad"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nomb); vRow.addElement(dni); vRow.addElement(ruc); vRow.addElement(dir); vRow.addElement(telef); vRow.addElement(mail); vRow.addElement(nomciudad); model.addRow(vRow); } }

catch(SQLException a){ System.out.println(a); } } public FRMConsultaProveedor() { initComponents(); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); this.CargaCombo(); this.LLenarTabla("SELECT * FROM V_PROVEEDOR"); } private void JBTNMOSTRARActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } } private void JTXTMOSTRARKeyReleased(java.awt.event.KeyEvent evt) { sql="SELECT * FROM V_PROVEEDOR WHERE nombreciudad= '" +this.JCbCiudad.getSelectedItem()+"' and NOMBRE LIKE '%"+this.JTXTMOSTRAR.getText()+"%'" ; LLenarTabla(sql); } private void JCbCiudadActionPerformed(java.awt.event.ActionEvent evt) { this.CargaCombo(); LLenarTabla("SELECT * FROM V_PROVEEDOR WHERE NombreCiudad='"+this.JCbCiudad.getSelectedItem().toString()+"'"); } private void JTXTMOSTRARActionPerformed(java.awt.event.ActionEvent evt) { // TODO add your handling code here:

} private void jRadioButton1ActionPerformed(java.awt.event.ActionEvent evt) { if(this.jRadioButton1.isSelected()){ this.LLenarTabla("SELECT * FROM V_PROVEEDOR"); } }

FrmConsultaProductosNaturales

package Consultas; import Formulario.FrmRegistrar_Venta; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmConsultaProductosNaturales extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public void CargaCombopresentacio(){ try{

cnx.rs=cnx.stm.executeQuery("SELECT * FROM Presentacion order by 1"); while(cnx.rs.next()){ this.JCbPresentacion.addItem(cnx.rs.getString(2)); } }catch(Exception a){ System.out.println(a.getMessage()); } } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String sql){ try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)this.JTblProductosNaturales.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String col1=cnx.rs.getString("codproductosnat"); String col2=cnx.rs.getString("nombre"); String col3=cnx.rs.getString("costo"); String col4=cnx.rs.getString("descripcion"); String col5=cnx.rs.getString("precioventa"); String col6=cnx.rs.getString("NombreProv"); String col7=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(col1); vRow.addElement(col2); vRow.addElement(col3); vRow.addElement(col4); vRow.addElement(col5);

vRow.addElement(col6); vRow.addElement(col7); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.JTblProductosNaturales.getValueAt(JTblProductosNaturales.getSelectedRow (),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from V_PRODUCTOSNATURALES where codproductosnat='"+cod+"'"); if(cnx.rs.next()){ FrmRegistrar_Venta.txtcodproducto.setText(cnx.rs.getString(1)); FrmRegistrar_Venta.txtnombreproducto.setText(cnx.rs.getString(2)); FrmRegistrar_Venta.txtprecioproducto.setText(cnx.rs.getString(3)); } } catch(Exception a){ System.out.println(a.getMessage()); } } public FrmConsultaProductosNaturales() { initComponents(); }

private void JtxtNombreKeyReleased(java.awt.event.KeyEvent evt) {

sql="SELECT * FROM V_PRODUCTOSNATURALES WHERE tipo= '" +this.JCbPresentacion.getSelectedItem()+"' and nombre LIKE '%"+this.JtxtNombre.getText()+"%'" ; LLenarTabla(sql); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); CargaCombopresentacio(); sql="SELECT * FROM V_PRODUCTOSNATURALES"; LLenarTabla(sql); } private void btnRegresar1ActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } } private void JCbPresentacionActionPerformed(java.awt.event.ActionEvent evt) { sql="SELECT * FROM V_PRODUCTOSNATURALES WHERE tipo='"+this.JCbPresentacion.getSelectedItem().toString()+"'"; LLenarTabla(sql); CargaCombopresentacio(); } private void JrbtTodosActionPerformed(java.awt.event.ActionEvent evt) { if(this.JrbtTodos.isSelected()){ this.LLenarTabla("SELECT * FROM V_PRODUCTOSNATURALES"); } }

private void JTblProductosNaturalesMouseClicked(java.awt.event.MouseEvent evt) { Mostrar();

dispose();

}

FrmConsultaProductosRestaurant

package Consultas; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.table.DefaultTableModel; public class FrmConsultaProductosRestaurant extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; String sql2; public void CargaCombopresentacio(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT * FROM Presentacion order by 1"); while(cnx.rs.next()){ this.JCbPresentacion.addItem(cnx.rs.getString(2)); } }catch(Exception a){ System.out.println(a.getMessage());

} } public void CargaComboProveedor(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT * FROM Proveedor order by 1"); while(cnx.rs.next()){ this.JCbProveedor.addItem(cnx.rs.getString(2)); } }catch(Exception a){ System.out.println(a.getMessage()); } } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String sql){ try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)this.JTblProductosRestaurant.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codproductosrest"); String nomb=cnx.rs.getString("nombre"); String costo=cnx.rs.getString("costo"); String prov=cnx.rs.getString("NombreProv"); String tipo=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nomb); vRow.addElement(costo);

vRow.addElement(prov); vRow.addElement(tipo); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public FrmConsultaProductosRestaurant() { initComponents(); } private void JtxtNombreKeyReleased(java.awt.event.KeyEvent evt) { sql="SELECT * FROM V_PRODUCTORESTAURANT WHERE nombreprov= '" +this.JCbProveedor.getSelectedItem()+"' and nombre LIKE '%"+this.JtxtNombre.getText()+"%'" ; LLenarTabla(sql); sql2="SELECT * FROM V_PRODUCTORESTAURANT WHERE tipo= '" +this.JCbPresentacion.getSelectedItem()+"' and nombre LIKE '%"+this.JtxtNombre.getText()+"%'" ; LLenarTabla(sql2); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); CargaComboProveedor(); CargaCombopresentacio(); sql="SELECT * FROM V_PRODUCTORESTAURANT"; LLenarTabla(sql); }

private void btnRegresar1ActionPerformed(java.awt.event.ActionEvent evt) { dispose(); } private void JCbPresentacionActionPerformed(java.awt.event.ActionEvent evt) {

sql="SELECT * FROM V_PRODUCTORESTAURANT WHERE tipo='"+this.JCbPresentacion.getSelectedItem().toString()+"'"; LLenarTabla(sql); CargaCombopresentacio(); } private void formWindowActivated(java.awt.event.WindowEvent evt) { } private void JCbProveedorActionPerformed(java.awt.event.ActionEvent evt) { sql2=("SELECT * FROM V_PRODUCTORESTAURANT WHERE NombreProv='"+this.JCbProveedor.getSelectedItem().toString()+"'"); this.LLenarTabla(sql2); this.CargaComboProveedor(); } private void JTblProductosRestaurantMousePressed(java.awt.event.MouseEvent evt) { } private void JrbtTodosActionPerformed(java.awt.event.ActionEvent evt) { if(this.JrbtTodos.isSelected()){ this.LLenarTabla("SELECT * FROM V_PRODUCTORESTAURANT"); } }

FrmConsulta_Cliente

package Consultas; import Formulario.FrmRegistrar_Venta; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmConsulta_Cliente extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmConsulta_Cliente() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i);

} } public void LLenarTabla(String uno){ try{ cnx.rs=cnx.stm.executeQuery(uno); DefaultTableModel model=(DefaultTableModel)this.usuario.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String nom=cnx.rs.getString("codcliente"); String des=cnx.rs.getString("nombre"); String fecha=cnx.rs.getString("direccion"); String sexo=cnx.rs.getString("telefono"); String dpto=cnx.rs.getString("dni"); String marca=cnx.rs.getString("idciudad"); Vector vRow=new Vector(); vRow.addElement(nom); vRow.addElement(des); vRow.addElement(fecha); vRow.addElement(sexo); vRow.addElement(dpto); vRow.addElement(marca); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.usuario.getValueAt(usuario.getSelectedRow(),0).toString();

cnx.rs=cnx.stm.executeQuery("Select * from vista_cliente where codcliente='"+cod+"'"); if(cnx.rs.next()){ FrmRegistrar_Venta.txtcodcliente.setText(cnx.rs.getString(1)); FrmRegistrar_Venta.txtnombrecliente.setText(cnx.rs.getString(2)); } } catch(Exception a){ System.out.println(a.getMessage()); } } private void txtdatoKeyReleased(java.awt.event.KeyEvent evt) { switch(this.cbocampo.getSelectedIndex()){ case 0:{ sql="Select * from vista_cliente"; break; } default:{ sql="Select * from vista_cliente where " +this.cbocampo.getSelectedItem()+ " like '%" +this.txtdato.getText()+ "%'"; break; } } LLenarTabla(sql); } private void btnsalirActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } }

private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); LLenarTabla("Select * from vista_cliente"); } private void usuarioMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } FrmConsulta_Pensionista_Tipo

package Consultas; import Formulario.FrmRegistrar_VentaPensionistas; import javax.swing.*; import java.util.Vector; import javax.swing.table.*; import javax.sql.*; import base.ConectaBD; import java.sql.SQLException; public class FrmConsulta_Pensionista_Tipo extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql;

public void limpiarTabla(DefaultTableModel model) { for(int i=model.getRowCount()-1;i>=0;i--)

{

model.removeRow(i); } } public void Llenartabla(String sql) { try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)tbltabla.getModel(); limpiarTabla(model); while(cnx.rs.next()) { String Col0=cnx.rs.getString("Codigo"); String Col1=cnx.rs.getString("nombre"); String Col2=cnx.rs.getString("dni"); String Col3=cnx.rs.getString("fecnac"); String Col4 =cnx.rs.getString("direccion"); String Col5 =cnx.rs.getString("telefono"); Vector vRow=new Vector(); vRow.addElement(Col0); vRow.addElement(Col1); vRow.addElement(Col2); vRow.addElement(Col3); vRow.addElement(Col4); vRow.addElement(Col5); model.addRow(vRow); } } catch(Exception e) { System.out.println(e.getMessage()); } }

public FrmConsulta_Pensionista_Tipo() { initComponents(); this.setLocationRelativeTo(null); } public void Mostrar(){ String cod; try{ cod=this.tbltabla.getValueAt(tbltabla.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from vista_Pensionistas where Codigo='"+cod+"'"); if(cnx.rs.next()){ FrmRegistrar_VentaPensionistas.txtcodpensionistas.setText(cnx.rs.getString(1)); FrmRegistrar_VentaPensionistas.txtnombrepensionistas.setText(cnx.rs.getString(2)); } } catch(Exception a){ System.out.println(a.getMessage()); } } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); Llenartabla("SELECT * FROM vista_Pensionistas"); } private void txtbuscarKeyReleased(java.awt.event.KeyEvent evt) { switch(this.cbobuscar.getSelectedIndex()){ case 0:{ sql="SELECT * FROM vista_Pensionistas"; break; } default : { sql="SELECT * FROM vista_Pensionistas WHERE "+ this.cbobuscar.getSelectedItem() +" LIKE '%"+ this.txtbuscar.getText() +"%'";

break; } } Llenartabla(sql); } private void btnsalirActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } } private void tbltablaMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } FrmConsulta_Venta

package Consultas; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmConsulta_Venta extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmConsulta_Venta() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String uno){ try{ cnx.rs=cnx.stm.executeQuery(uno); DefaultTableModel model=(DefaultTableModel)this.usuario.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String nom=cnx.rs.getString("codventa"); String des=cnx.rs.getString("serie"); String fecha=cnx.rs.getString("correlativo"); String sexo=cnx.rs.getString("fecha"); String dpto=cnx.rs.getString("cliente"); String marca=cnx.rs.getString("Comida"); Vector vRow=new Vector(); vRow.addElement(nom);

vRow.addElement(des); vRow.addElement(fecha); vRow.addElement(sexo); vRow.addElement(dpto); vRow.addElement(marca); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); LLenarTabla("Select * from vista_venta"); } private void txtventaKeyReleased(java.awt.event.KeyEvent evt) { String dpto=""; if(this.rbcodigoventa.isSelected()) sql="Select * from vista_venta where codventa like '%"+this.txtventa.getText()+"%'"; else if(this.rbcliente.isSelected()){ sql="Select * from vista_venta where cliente like '%"+this.txtventa.getText()+"%'"; } else{ sql="Select * from vista_venta where Comida like '%"+this.txtventa.getText()+"%'";} LLenarTabla(sql); } private void btnsalirActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE);

if (r==JOptionPane.YES_OPTION){ this.dispose(); } } FrmConsultar_Usuario

package Consultas; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmConsultar_Usuario extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmConsultar_Usuario() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){

for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String uno){ try{ cnx.rs=cnx.stm.executeQuery(uno); DefaultTableModel model=(DefaultTableModel)this.usuario.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String nom=cnx.rs.getString("codusuario"); String des=cnx.rs.getString("nombre"); String fecha=cnx.rs.getString("dni"); String sexo=cnx.rs.getString("correo"); String dpto=cnx.rs.getString("fecnac"); String clave=cnx.rs.getString("clave"); String esta=cnx.rs.getString("estado"); String nomusu=cnx.rs.getString("nombreusuario"); Vector vRow=new Vector(); vRow.addElement(nom); vRow.addElement(des); vRow.addElement(fecha); vRow.addElement(sexo); vRow.addElement(dpto); vRow.addElement(clave); vRow.addElement(esta); vRow.addElement(nomusu); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a);

} } private void txtdatoKeyReleased(java.awt.event.KeyEvent evt) { LLenarTabla("Select * from Usuario where dni like '"+txtdato.getText()+"%'"); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); LLenarTabla("Select * from Usuario"); } private void btnsalir3ActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } }

FrmBuscarProductosRestCompra

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmBuscarProductosRestCompra extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmBuscarProductosRestCompra() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String sql){ try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)this.producto.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codproductosrest"); String nomb=cnx.rs.getString("nombre"); String costo=cnx.rs.getString("costo"); String tipo=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nomb); vRow.addElement(costo); vRow.addElement(tipo);

model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.producto.getValueAt(producto.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from V_PRODUCTORESTAURANT where codproductosrest='"+cod+"'"); if(cnx.rs.next()){ FrmRegistrar_CompraRestaurant.txtcodproductorest.setText(cnx.rs.getString(1)); FrmRegistrar_CompraRestaurant.txtnombreproductosrest.setText(cnx.rs.getString(2)); FrmRegistrar_CompraRestaurant.txtprecioproductosrest.setText(cnx.rs.getString(3)); } } catch(Exception a){ System.out.println(a.getMessage()); } } private void btnRegresar1ActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); }

} private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); this.LLenarTabla("Select * from V_PRODUCTORESTAURANT"); } private void txtproductoKeyReleased(java.awt.event.KeyEvent evt) { switch(this.cboproducto.getSelectedIndex()){ case 0:{ sql=("Select * from V_PRODUCTORESTAURANT"); break; } default:{ sql=("Select * from V_PRODUCTORESTAURANT where "+this.cboproducto.getSelectedItem()+" like '"+this.txtproducto.getText()+"%'"); break; } } this.LLenarTabla(sql); } private void productoMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); }

FrmBuscar_ClientePro

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmBuscar_ClientePro extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmBuscar_ClientePro() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String uno){ try{ cnx.rs=cnx.stm.executeQuery(uno); DefaultTableModel model=(DefaultTableModel)this.usuario.getModel();

LimpiarTabla(model); while(cnx.rs.next()){ String nom=cnx.rs.getString("codcliente"); String des=cnx.rs.getString("nombre"); String fecha=cnx.rs.getString("direccion"); String sexo=cnx.rs.getString("telefono"); String dpto=cnx.rs.getString("dni"); String marca=cnx.rs.getString("idciudad"); Vector vRow=new Vector(); vRow.addElement(nom); vRow.addElement(des); vRow.addElement(fecha); vRow.addElement(sexo); vRow.addElement(dpto); vRow.addElement(marca); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.usuario.getValueAt(usuario.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from vista_cliente where codcliente='"+cod+"'"); if(cnx.rs.next()){ Frmregistrar_VentaProductoNaturales.txtcodcliente.setText(cnx.rs.getString(1)); Frmregistrar_VentaProductoNaturales.txtnombrecliente.setText(cnx.rs.getString(2));

} } catch(Exception a){ System.out.println(a.getMessage()); } } private void usuarioMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } private void txtdatoKeyReleased(java.awt.event.KeyEvent evt) { switch(this.cbocampo.getSelectedIndex()){ case 0:{ sql="Select * from vista_cliente"; break; } default:{ sql="Select * from vista_cliente where " +this.cbocampo.getSelectedItem()+ " like '%" +this.txtdato.getText()+ "%'"; break; } } LLenarTabla(sql); } private void btnsalirActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } }

private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); LLenarTabla("Select * from vista_cliente"); }

FrmBuscar_Comida

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmBuscar_Comida extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmBuscar_Comida() { initComponents(); }

public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String uno){ try{ cnx.rs=cnx.stm.executeQuery(uno); DefaultTableModel model=(DefaultTableModel)this.comidas.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String nom=cnx.rs.getString("codigo"); String des=cnx.rs.getString("nombre"); String fecha=cnx.rs.getString("precio"); String sexo=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(nom); vRow.addElement(des); vRow.addElement(fecha); vRow.addElement(sexo); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.comidas.getValueAt(comidas.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from vistabuscarcomidas where codigo='"+cod+"'");

if(cnx.rs.next()){ FrmRegistrar_VentaPensionistas.txtcodcomida.setText(cnx.rs.getString(1)); FrmRegistrar_VentaPensionistas.txtnombrecomidas.setText(cnx.rs.getString(2)); FrmRegistrar_VentaPensionistas.txtpreciocomidas.setText(cnx.rs.getString(3)); } } catch(Exception a){ System.out.println(a.getMessage()); } } private void comidasMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } private void txtcomidasKeyReleased(java.awt.event.KeyEvent evt) { this.LLenarTabla("Select * from vistabuscarcomidas where nombre like '"+this.txtcomidas.getText()+"%'"); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); this.LLenarTabla("Select * from vistabuscarcomidas"); } private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } }

FrmBuscar_Comidas

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmBuscar_Comidas extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmBuscar_Comidas() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } }

public void LLenarTabla(String uno){ try{ cnx.rs=cnx.stm.executeQuery(uno); DefaultTableModel model=(DefaultTableModel)this.comidas.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String nom=cnx.rs.getString("codigo"); String des=cnx.rs.getString("nombre"); String fecha=cnx.rs.getString("precio"); String sexo=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(nom); vRow.addElement(des); vRow.addElement(fecha); vRow.addElement(sexo); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.comidas.getValueAt(comidas.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from vistabuscarcomidas where codigo='"+cod+"'"); if(cnx.rs.next()){ FrmRegistrar_Venta.txtcodcomidas.setText(cnx.rs.getString(1)); FrmRegistrar_Venta.txtnombrecomidas.setText(cnx.rs.getString(2)); FrmRegistrar_Venta.txtpreciocomidas.setText(cnx.rs.getString(3)); }

} catch(Exception a){ System.out.println(a.getMessage()); } } private void txtcomidasKeyReleased(java.awt.event.KeyEvent evt) { this.LLenarTabla("Select * from vistabuscarcomidas where nombre like '"+this.txtcomidas.getText()+"%'"); } private void comidasMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); this.LLenarTabla("Select * from vistabuscarcomidas"); } private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } }

FrmBuscar_Personal

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmBuscar_Personal extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmBuscar_Personal() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } }

public void LLenarTabla(String sql){ try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)this.personal.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String col0=cnx.rs.getString("codpersonal"); String col1=cnx.rs.getString("nombre"); String col2=cnx.rs.getString("dni"); String col3=cnx.rs.getString("direccion"); String col4=cnx.rs.getString("telefono"); String col5=cnx.rs.getString("fecnacimiento"); Vector vRow=new Vector(); vRow.addElement(col0); vRow.addElement(col1); vRow.addElement(col2); vRow.addElement(col3); vRow.addElement(col4); vRow.addElement(col5); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.personal.getValueAt(personal.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from Personal where codpersonal='"+cod+"'"); if(cnx.rs.next()){

FrmRegistrar_VentaPensionistas.txtcodpersonal.setText(cnx.rs.getString(1)); FrmRegistrar_VentaPensionistas.txtnombrepersonal.setText(cnx.rs.getString(2)); } } catch(Exception a){ System.out.println(a.getMessage()); } } private void personalMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); this.LLenarTabla("Select * from personal"); } private void txtpersonalKeyReleased(java.awt.event.KeyEvent evt) { String dpto=""; if(this.rbnombre.isSelected()) sql="Select * from personal where nombre like '%"+this.txtpersonal.getText()+"%'"; else { sql="Select * from personal where dni like '%"+this.txtpersonal.getText()+"%'"; } LLenarTabla(sql); } private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose();

} }

FrmBuscar_PersonalPro

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmBuscar_PersonalPro extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmBuscar_PersonalPro() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i);}} public void LLenarTabla(String sql){

try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)this.JTblPersonal.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String col0=cnx.rs.getString("codpersonal"); String col1=cnx.rs.getString("nombre"); String col2=cnx.rs.getString("dni"); String col3=cnx.rs.getString("direccion"); String col4=cnx.rs.getString("telefono"); String col5=cnx.rs.getString("fecnacimiento"); Vector vRow=new Vector(); vRow.addElement(col0); vRow.addElement(col1); vRow.addElement(col2); vRow.addElement(col3); vRow.addElement(col4); vRow.addElement(col5); model.addRow(vRow);}} catch(SQLException a){ System.out.println(a);}} public void Mostrar(){ String cod; try{ cod=this.JTblPersonal.getValueAt(JTblPersonal.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from Personal where codpersonal='"+cod+"'"); if(cnx.rs.next()){ Frmregistrar_VentaProductoNaturales.txtcodpersonal.setText(cnx.rs.getString(1)); Frmregistrar_VentaProductoNaturales.txtnombrepersonal.setText(cnx.rs.getString(2));} } catch(Exception a){

System.out.println(a.getMessage()); } } private void JBTNMOSTRARActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } } private void JTXTMOSTRARKeyReleased(java.awt.event.KeyEvent evt) { switch (this.JCBOBuscar.getSelectedIndex()){ case 0:{ sql="SELECT * FROM Personal" ; break; } default:{ sql="SELECT * FROM Personal WHERE "+ this.JCBOBuscar.getSelectedItem()+" LIKE '%" +this.JTXTMOSTRAR.getText() +"%'"; break; } } this.LLenarTabla(sql); } private void JTblPersonalMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); this.LLenarTabla("SELECT * FROM Personal");

}

FrmBuscar_ProductosNatCompra

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmBuscar_ProductosNatCompra extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmBuscar_ProductosNatCompra() { initComponents(); } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String sql){ try{ cnx.rs=cnx.stm.executeQuery(sql);

DefaultTableModel model=(DefaultTableModel)this.JTblProductosNaturales.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String col1=cnx.rs.getString("codproductosnat"); String col2=cnx.rs.getString("nombre"); String col3=cnx.rs.getString("costo"); String col4=cnx.rs.getString("descripcion"); String col5=cnx.rs.getString("precioventa"); String col6=cnx.rs.getString("NombreProv"); String col7=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(col1); vRow.addElement(col2); vRow.addElement(col3); vRow.addElement(col4); vRow.addElement(col5); vRow.addElement(col6); vRow.addElement(col7); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.JTblProductosNaturales.getValueAt(JTblProductosNaturales.getSelectedRow (),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from V_PRODUCTOSNATURALES where codproductosnat='"+cod+"'");

if(cnx.rs.next()){ FrmRegistrar_Compra.txtcodproductonat.setText(cnx.rs.getString(1)); FrmRegistrar_Compra.txtnombreproductonat.setText(cnx.rs.getString(2)); FrmRegistrar_Compra.txtprecioproductosnat.setText(cnx.rs.getString(3)); } } catch(Exception a){ System.out.println(a.getMessage()); } } private void JtxtNombreKeyReleased(java.awt.event.KeyEvent evt) { switch(this.JCbPresentacion.getSelectedIndex()){ case 0:{ sql="Select * from V_PRODUCTOSNATURALES"; break; } default:{ sql="Select * from V_PRODUCTOSNATURALES where " +this.JCbPresentacion.getSelectedItem()+ " like '" +this.JtxtNombre.getText()+ "%'"; break; } } LLenarTabla(sql); } private void JTblProductosNaturalesMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } private void btnRegresar1ActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE);

if (r==JOptionPane.YES_OPTION){ this.dispose(); } } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); LLenarTabla("SELECT * FROM V_PRODUCTOSNATURALES"); }

FrmBuscar_ProveedorComRest

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmBuscar_ProveedorComRest extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); String sql; public FrmBuscar_ProveedorComRest() { initComponents(); }

public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } } public void LLenarTabla(String sql){ try{ cnx.rs=cnx.stm.executeQuery(sql); DefaultTableModel model=(DefaultTableModel)this.proveedor.getModel(); LimpiarTabla(model); while(cnx.rs.next()){

String cod=cnx.rs.getString("codproveedor"); String nomb=cnx.rs.getString("nombre"); String dni=cnx.rs.getString("dni"); String ruc=cnx.rs.getString("ruc"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nomb); vRow.addElement(dni); vRow.addElement(ruc); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void Mostrar(){ String cod; try{ cod=this.proveedor.getValueAt(proveedor.getSelectedRow(),0).toString();

cnx.rs=cnx.stm.executeQuery("Select * from V_PROVEEDOR where codproveedor='"+cod+"'"); if(cnx.rs.next()){ FrmRegistrar_CompraRestaurant.txtcodproveedor.setText(cnx.rs.getString(1)); FrmRegistrar_CompraRestaurant.txtnombreproveedor.setText(cnx.rs.getString(2)); } } catch(Exception a){ System.out.println(a.getMessage()); } } private void JBTNMOSTRARActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } } private void txtproveedorKeyReleased(java.awt.event.KeyEvent evt) { switch (this.cboproveedor.getSelectedIndex()){ case 0:{ this.LLenarTabla("Select * from V_PROVEEDOR"); break; } default:{ this.LLenarTabla("Select * from V_PROVEEDOR where "+this.cboproveedor.getSelectedItem()+" like '"+this.txtproveedor.getText()+"%'"); break; } } }

private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); this.LLenarTabla("Select * from V_PROVEEDOR"); } private void proveedorMouseClicked(java.awt.event.MouseEvent evt) { Mostrar(); dispose(); } FrmFormulario_Acceso

package Formulario; import base.ConectaBD; import java.awt.event.KeyEvent; import java.sql.SQLException; import javax.swing.JOptionPane; public class FrmFormulario_Acceso extends javax.swing.JFrame { JCMail mail = new JCMail(); ConectaBD cnx=new ConectaBD(); int contador; String uno="",dos,tres,cuatro; public FrmFormulario_Acceso() { initComponents(); setLocationRelativeTo(null);

}

private void txtcontraseñaKeyTyped(java.awt.event.KeyEvent evt) { char cTeclaPresionada = evt.getKeyChar(); if(cTeclaPresionada==KeyEvent.VK_ENTER){ btningresar.doClick(); } } private void btningresarActionPerformed(java.awt.event.ActionEvent evt) { int r; try{ cnx.conectar(); cnx.rs=cnx.stm.executeQuery("select * from Usuario where nombreusuario='"+txtusuario.getText()+"'and clave='" + txtcontraseña.getText()+"'"); if(cnx.rs.next()){ Frmmenuopciones menu=new Frmmenuopciones(); menu.show(); } else { JOptionPane.showConfirmDialog(null,"contraseña incorrecta","seguridad del sistema",2); txtcontraseña.setText(""); }} catch(SQLException a) { System.out.println(a.getMessage()); } } private void btncancelarActionPerformed(java.awt.event.ActionEvent evt) { int r=JOptionPane.showConfirmDialog(null,"salir del programa","salir ",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSAGE); if(r==JOptionPane.YES_NO_OPTION)

{ this.dispose(); } } private void txtusuarioActionPerformed(java.awt.event.ActionEvent evt) { String nombre; nombre=txtusuario.getText(); try { cnx.rs=cnx.stm.executeQuery("Select correo,clave from Usuario where nombreusuario='"+nombre+"'"); if(cnx.rs.next()){ tres=cnx.rs.getString("correo"); cuatro=cnx.rs.getString("clave"); txtcontraseña.requestFocus(); } }catch(SQLException ex){ JOptionPane.showMessageDialog(null,"NO SE HA PODIDO REALIZAR LA BUSQUEDA"+ex); } } private void btnenviarActionPerformed(java.awt.event.ActionEvent evt) { mail.setFrom("[email protected]"); String var = "71983311"; char cad[]; cad = var.toCharArray(); mail.setPassword(cad); mail.setTo(tres); mail.setSubject("RESTAURANT VEGETARIANO VIDA Y SALUD"); mail.setMessage("Su contraseña es: "+cuatro); mail.SEND(); } private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar();

}

FrmRegistrar_Artefactos

package Formulario; import base.ConectaBD; import java.sql.SQLException; import java.util.Vector; import javax.swing.JOptionPane; import javax.swing.table.DefaultTableModel; public class FrmRegistrar_Artefactos extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); int sw; public FrmRegistrar_Artefactos() { initComponents(); setLocationRelativeTo(null); } public void Limpiar(){ this.txtnombre.setText(""); this.txtcosto.setText(""); } public void Cajas(boolean estado){

this.txtartefactos.setEnabled(estado); this.txtnombre.setEnabled(estado); this.txtcosto.setEnabled(estado); } public void Botones(boolean estado){ this.btnnuevo.setEnabled(estado); this.btnguardar.setEnabled(!estado); this.btncancelar.setEnabled(!estado); this.btneditar.setEnabled(estado); this.btneliminar.setEnabled(estado); this.btnsalir.setEnabled(estado); } public void Mostrar(){ String cod; try{ cod=this.artefactos.getValueAt(artefactos.getSelectedRow(),0).toString(); cnx.rs=cnx.stm.executeQuery("Select * from Artefactos where codartefactos='"+cod+"'"); if(cnx.rs.next()){ this.txtartefactos.setText(cnx.rs.getString(1)); this.txtnombre.setText(cnx.rs.getString(2)); this.txtcosto.setText(cnx.rs.getString(3)); } } catch(Exception a){ System.out.println(a.getMessage()); } } public void LimpiarTabla(DefaultTableModel model){ for(int i=model.getRowCount()-1;i>=0;i--){ model.removeRow(i); } }

public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT * from Artefactos"); DefaultTableModel model=(DefaultTableModel)this.artefactos.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codartefactos"); String nom=cnx.rs.getString("nombre"); String des=cnx.rs.getString("costo"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nom); vRow.addElement(des); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void generaCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Artefactos"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT codciudad,nombre from Ciudad");

DefaultTableModel model=(DefaultTableModel)this.tblciudad.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codciudad"); String nom=cnx.rs.getString("nombre"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nom); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void GenerarCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Ciudad"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT codcliente,nombre,direccion, telefono,dni,idciudad from vista_cliente"); DefaultTableModel model=(DefaultTableModel)this.tblclientes.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String col1=cnx.rs.getString("codcliente"); String col2=cnx.rs.getString("nombre"); String col3=cnx.rs.getString("direccion"); String col4=cnx.rs.getString("telefono"); String col5=cnx.rs.getString("dni"); String col6=cnx.rs.getString("idciudad"); Vector vRow=new Vector(); vRow.addElement(col1); vRow.addElement(col2); vRow.addElement(col3); vRow.addElement(col4); vRow.addElement(col5); vRow.addElement(col6); model.addRow(vRow); } } catch(SQLException a){

System.out.println(a); } } public void GenerarCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Cliente"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){

model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT CodComidas,Nombre,Precio, idtipo from vista_Comidas"); DefaultTableModel model=(DefaultTableModel)this.tblcomidas.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String col1=cnx.rs.getString("CodComidas"); String col2=cnx.rs.getString("Nombre"); String col3=cnx.rs.getString("Precio"); String col4=cnx.rs.getString("idtipo");

Vector vRow=new Vector();

vRow.addElement(col1); vRow.addElement(col2); vRow.addElement(col3); vRow.addElement(col4); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void GenerarCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Comidas");

if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg= 0; i--) { tb.removeRow(tb.getRowCount()-1); } } public void eliminar1(){ DefaultTableModel tb = (DefaultTableModel) compra.getModel(); int uno=compra.getSelectedRow(); tb.removeRow(uno); } Calendar calendario = Calendar.getInstance(); int hora, minutos, segundos; public void Limpiar(){ this.txttotal.setText(""); this.txtcantidad.setText(""); this.txtsubtotal.setText(""); this.txtcodproveedor.setText(""); this.txtnombreproveedor.setText(""); this.txtcodproductonat.setText(""); this.txtnombreproductonat.setText("");

this.txtprecioproductosnat.setText("");

} public void Cajas(boolean estado){ this.txttotal.setEnabled(estado); this.txtsubtotal.setEnabled(estado); this.txtcodproveedor.setEnabled(estado); this.txtnombreproveedor.setEnabled(estado); this.txtcodproductonat.setEnabled(estado); this.txtnombreproductonat.setEnabled(estado); this.txtprecioproductosnat.setEnabled(estado); this.dchfecha.setEnabled(estado); this.txtcantidad.setEnabled(estado); this.txtcodigo.setEnabled(estado); this.btnproveedor.setEnabled(estado); this.btnproductonat.setEnabled(estado); } public void Botones(boolean estado){ this.btnnuevo.setEnabled(estado); this.btnguardar.setEnabled(!estado); this.btncancelar.setEnabled(!estado); this.btnsalir.setEnabled(estado); this.btnagregar.setEnabled(!estado); } public void LLenarTabla(){ DefaultTableModel model=(DefaultTableModel)this.compra.getModel(); String cod=this.txtcodigo.getText(); String nom=txtnombreproductonat.getText(); String can=txtcantidad.getText(); String dolar=txtsubtotal.getText(); Vector vRow=new Vector(); vRow.addElement(cod);

vRow.addElement(nom); vRow.addElement(can); vRow.addElement(dolar); model.addRow(vRow); } public void generacodigo(){ int reg; String cod; try{

cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Compra"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg= 0; i--) { tb.removeRow(tb.getRowCount()-1); } } public void eliminar1(){ DefaultTableModel tb = (DefaultTableModel) compra.getModel(); int uno=compra.getSelectedRow(); tb.removeRow(uno); } Calendar calendario = Calendar.getInstance(); int hora, minutos, segundos; public void Limpiar(){ this.txttotal.setText(""); this.txtcantidad1.setText(""); this.txtsubtotal.setText(""); this.txtcodproveedor.setText(""); this.txtnombreproveedor.setText(""); this.txtcodproductorest.setText(""); this.txtnombreproductosrest.setText(""); this.txtprecioproductosrest.setText(""); }

public void Cajas(boolean estado){ this.txttotal.setEnabled(estado); this.txtsubtotal.setEnabled(estado); this.txtcodproveedor.setEnabled(estado); this.txtnombreproveedor.setEnabled(estado); this.txtcodproductorest.setEnabled(estado); this.txtnombreproductosrest.setEnabled(estado); this.txtprecioproductosrest.setEnabled(estado); this.dchfecha.setEnabled(estado); this.txtcantidad1.setEnabled(estado); this.txtcodigo.setEnabled(estado); this.btnproveedor.setEnabled(estado); this.btnproductorest.setEnabled(estado); } public void Botones(boolean estado){ this.btnnuevo.setEnabled(estado); this.btnguardar.setEnabled(!estado); this.btncancelar.setEnabled(!estado); this.btnsalir.setEnabled(estado); this.btnagregar.setEnabled(!estado); } public void LLenarTabla(){ DefaultTableModel model=(DefaultTableModel)this.compra.getModel(); String cod=this.txtcodigo.getText(); String nom=txtnombreproductosrest.getText(); String can=txtcantidad1.getText(); String dolar=txtsubtotal.getText(); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nom); vRow.addElement(can); vRow.addElement(dolar);

model.addRow(vRow); } public void generacodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from CompraRestaurant"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT * from Menaje"); DefaultTableModel model=(DefaultTableModel)this.menaje.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codmenaje"); String nom=cnx.rs.getString("nombre"); String des=cnx.rs.getString("costo"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nom); vRow.addElement(des); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void generaCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Menaje"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){

try{ cnx.rs=cnx.stm.executeQuery("SELECT * from Moviliario"); DefaultTableModel model=(DefaultTableModel)this.moviliario.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codmoviliario"); String nom=cnx.rs.getString("nombre"); String des=cnx.rs.getString("costo"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nom); vRow.addElement(des); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void generaCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Moviliario"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{

cnx.rs=cnx.stm.executeQuery("SELECT * from vista_patrimonio"); DefaultTableModel model=(DefaultTableModel)this.patrimonio.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codpatrimonio"); String nom=cnx.rs.getString("nombre"); String des=cnx.rs.getString("artefactos"); String mo=cnx.rs.getString("moviliario"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nom); vRow.addElement(des); vRow.addElement(mo); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void generaCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Patrimonio"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); }

} public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT codpensionistas,nombre,dni, fecnac,direccion,telefono from Pensionistas"); DefaultTableModel model=(DefaultTableModel)this.tblpensionistas.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String col1=cnx.rs.getString("codpensionistas"); String col2=cnx.rs.getString("nombre"); String col3=cnx.rs.getString("dni"); String col4=cnx.rs.getString("fecnac"); String col5=cnx.rs.getString("direccion"); String col6=cnx.rs.getString("telefono"); Vector vRow=new Vector(); vRow.addElement(col1); vRow.addElement(col2); vRow.addElement(col3); vRow.addElement(col4); vRow.addElement(col5); vRow.addElement(col6); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void GenerarCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Pensionistas");

if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT codpersonal,nombre,dni,direccion,telefono,fecnacimiento from Personal"); DefaultTableModel model=(DefaultTableModel)this.JTblPersonal.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codpersonal"); String nomb=cnx.rs.getString("nombre"); String dni=cnx.rs.getString("dni"); String dir=cnx.rs.getString("direccion");

String telef=cnx.rs.getString("telefono"); String fecnac=cnx.rs.getString("fecnacimiento"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nomb); vRow.addElement(dni); vRow.addElement(dir); vRow.addElement(telef); vRow.addElement(fecnac); model.addRow(vRow); } } catch(Exception a){ System.out.println(a.getMessage()); } } public void generarcodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Personal"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=10 && reg=99 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT codpresentacion,tipo from Presentacion"); DefaultTableModel model=(DefaultTableModel)this.JTblPresentacion.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codpresentacion"); String tipo=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(tipo); model.addRow(vRow); } } catch(Exception a){ System.out.println(a.getMessage()); } } public void generarcodigo(){ int reg; String cod = null; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Presentacion"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=10 && reg=99 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT codproductosnat,nombre,costo,descripcion,precioventa,NombreProv,tipo from V_PRODUCTOSNATURALES"); DefaultTableModel model=(DefaultTableModel)this.JTblProductosNaturales.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codproductosnat"); String nomb=cnx.rs.getString("nombre");

String costo=cnx.rs.getString("costo"); String des=cnx.rs.getString("descripcion"); String pre=cnx.rs.getString("precioventa"); String prov=cnx.rs.getString("NombreProv"); String tipo=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nomb); vRow.addElement(costo); vRow.addElement(des); vRow.addElement(pre); vRow.addElement(prov); vRow.addElement(tipo); model.addRow(vRow); } } catch(Exception a){ System.out.println(a.getMessage()); } } public void generaCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from ProductosNaturales"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT codproductosrest,nombre,costo,NombreProv,tipo from V_PRODUCTORESTAURANT"); DefaultTableModel model=(DefaultTableModel)this.JTblProductosRestaurant.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codproductosrest"); String nomb=cnx.rs.getString("nombre"); String costo=cnx.rs.getString("costo"); String prov=cnx.rs.getString("NombreProv"); String tipo=cnx.rs.getString("tipo"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nomb); vRow.addElement(costo); vRow.addElement(prov); vRow.addElement(tipo); model.addRow(vRow); } } catch(Exception a){ System.out.println(a.getMessage()); }

} public void generarcodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from ProductosRestaurant"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT codproveedor,nombre,dni,ruc,direccion,telefono,mail,NombreCiudad from V_PROVEEDOR"); DefaultTableModel model=(DefaultTableModel)this.JTblProveedores.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codproveedor"); String nomb=cnx.rs.getString("nombre"); String dni=cnx.rs.getString("dni"); String ruc=cnx.rs.getString("ruc"); String dir=cnx.rs.getString("direccion"); String telef=cnx.rs.getString("telefono"); String mail=cnx.rs.getString("mail"); String nomciudad=cnx.rs.getString("NombreCiudad"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nomb); vRow.addElement(dni); vRow.addElement(ruc); vRow.addElement(dir);

vRow.addElement(telef); vRow.addElement(mail); vRow.addElement(nomciudad); model.addRow(vRow); } } catch(Exception a){ System.out.println(a.getMessage()); } } public void generarcodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Proveedor"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=10 && reg=99 && reg=0;i--){ model.removeRow(i);

} } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT Codtipo,Nombre from Tipo"); DefaultTableModel model=(DefaultTableModel)this.tbltipo.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("Codtipo"); String nom=cnx.rs.getString("Nombre"); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nom); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void GenerarCodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Tipo"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg=0;i--){ model.removeRow(i); } } public void LLenarTabla(){ try{ cnx.rs=cnx.stm.executeQuery("SELECT * from Usuario"); DefaultTableModel model=(DefaultTableModel)this.usuario.getModel(); LimpiarTabla(model); while(cnx.rs.next()){ String cod=cnx.rs.getString("codusuario"); String nom=cnx.rs.getString("nombre"); String fecha=cnx.rs.getString("dni"); String sexo=cnx.rs.getString("correo"); String fec=cnx.rs.getString("fecnac"); String est=cnx.rs.getString("estado"); String usu=cnx.rs.getString("nombreusuario");

Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(nom); vRow.addElement(fecha); vRow.addElement(sexo); vRow.addElement(fec); vRow.addElement(est); vRow.addElement(usu); model.addRow(vRow); } } catch(SQLException a){ System.out.println(a); } } public void generacodigo(){ try{ cnx.rs=cnx.stm.executeQuery("Select codusuario from Usuario"); while(cnx.rs.next()) { String mos,t1,t2,mo2,mos1; int suma=0,resultado=0; mos=(cnx.rs.getString(1)); mos=mos.substring(1); mos1=(cnx.rs.getString(1)); suma=Integer.parseInt(mos); resultado=suma+1; if(resultado>0 && resultado=10){

mos1=mos1.substring(0,1); } } this.txtcodigo1.setText((mos1+resultado)); } } catch(SQLException e) {JOptionPane.showMessageDialog(null,"No se ha podido acceder a la base de datos");} } private void btnelimiActionPerformed(java.awt.event.ActionEvent evt) { int r; try{ r= JOptionPane.showConfirmDialog(null,"Desea Borrar un Registro","Eliminar",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESS AGE); if (r==JOptionPane.YES_OPTION){ cnx.stm.execute("DELETE FROM Usuario WHERE codusuario='"+this.txtcodigo1.getText()+"'"); } }catch(SQLException a){ System.out.println(a.getMessage()); } LLenarTabla(); usuario.changeSelection(0, 0,false,true); Mostrar(); } private void btnnuevoActionPerformed(java.awt.event.ActionEvent evt) { sw=0; Botones(false); Limpiar(); Cajas(true); generacodigo(); }

private void btnguardarActionPerformed(java.awt.event.ActionEvent evt) { SimpleDateFormat formato=new SimpleDateFormat("yyyy-MM-dd"); String ing=formato.format(this.dchnac.getDate()); int r; String estado=String.valueOf(this.cboestado.getSelectedItem()); try{ if(sw==0){ r=JOptionPane.showConfirmDialog(null, "Grabar Datos","Registrar",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if(r==JOptionPane.YES_OPTION){ cnx.stm.execute("INSERT INTO Usuario VALUES ('"+this.txtcodigo1.getText()+"','"+this.txtnombreapellidos.getText()+"','"+this.txtdni.getT ext()+"','"+txtcorreo.getText()+"','"+ing+"','"+this.txtcontraseña3.getText()+"','"+estado+"' ,'"+this.txtdni.getText()+"')"); } } if(sw==1){ r=JOptionPane.showConfirmDialog(null, "Actualizar Datos","Registrar",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if(r==JOptionPane.YES_OPTION){ cnx.stm.execute("UPDATE Usuario SET nombre='"+ this.txtnombreapellidos.getText()+"',dni='"+ this.txtdni.getText()+"',correo='"+txtcorreo.getText()+"',fecnac='"+ing+"',clave='"+this.txt contraseña3.getText()+"',estado='"+estado+"',nombreusuario='"+this.txtdni.getText()+"' where codusuario='"+this.txtcodigo1.getText()+"'"); } } } catch(Exception a){ System.out.println(a.getMessage()); } LLenarTabla(); usuario.changeSelection(0, 0,false,true); Mostrar();

Botones(true); Cajas(false);; } private void btncancelarActionPerformed(java.awt.event.ActionEvent evt) { Botones(true); Cajas(false); this.usuario.changeSelection(0, 0, false, true); Mostrar(); } private void btneditarActionPerformed(java.awt.event.ActionEvent evt) { sw=1; Mostrar(); Botones(false); Cajas(true); } private void btnsalirActionPerformed(java.awt.event.ActionEvent evt) { int r; r= JOptionPane.showConfirmDialog(null,"Cerrar Programa","Salir",JOptionPane.YES_NO_OPTION,JOptionPane.QUESTION_MESSA GE); if (r==JOptionPane.YES_OPTION){ this.dispose(); } } private void usuarioMousePressed(java.awt.event.MouseEvent evt) { Mostrar(); } private void txtcodigo1KeyTyped(java.awt.event.KeyEvent evt) { }

private void formWindowOpened(java.awt.event.WindowEvent evt) { cnx.conectar(); LLenarTabla();

this.usuario.changeSelection(0, 0, false, true); Mostrar(); Botones(true); Cajas(false); }

FrmRegistrar_Venta

package Formulario; import Consultas.FRMConsultaPersonal; import Consultas.FrmConsultaProductosNaturales; import Consultas.FrmConsulta_Cliente; import base.ConectaBD; import java.sql.SQLException;

import java.text.SimpleDateFormat; import java.util.Calendar; import java.util.Vector; import javax.swing.table.DefaultTableModel; import javax.swing.JOptionPane; import java.util.GregorianCalendar; import javax.swing.table.TableColumnModel; public class FrmRegistrar_Venta extends javax.swing.JFrame { ConectaBD cnx=new ConectaBD(); int sw; double sumcan; double can1,can; double num2,precom1,num1,precom; String uno,dos,tres,cuatro,cinco,ho; public void fecha(){ Calendar c2 = new GregorianCalendar(); dchfecha.setCalendar(c2); } public FrmRegistrar_Venta() { initComponents(); setLocationRelativeTo(null); fecha(); } public void eliminar1(){ DefaultTableModel tb = (DefaultTableModel) venta.getModel(); int uno=venta.getSelectedRow(); tb.removeRow(uno);

} public void eliminar(){ DefaultTableModel tb = (DefaultTableModel) venta.getModel(); int a = venta.getRowCount()-1;

for (int i = a; i >= 0; i--) { tb.removeRow(tb.getRowCount()-1); } } Calendar calendario = Calendar.getInstance(); int hora, minutos, segundos; public void Limpiar(){ this.txtserie.setText(""); this.txtcorrelativo.setText(""); this.txtforma.setText(""); this.txttotal.setText(""); this.txtcantidad1.setText(""); this.txtsubtotal.setText(""); this.txttotal.setText(""); this.txtcodpersonal.setText(""); this.txtnombrepersonal.setText(""); this.txtcodcliente.setText(""); this.txtnombrecliente.setText(""); this.txtcodcomidas.setText(""); this.txtnombrecomidas.setText(""); this.txtpreciocomidas.setText(""); } public void Cajas(boolean estado){ this.txtserie.setEnabled(estado); this.txtcorrelativo.setEnabled(estado); this.txtforma.setEnabled(estado); this.btncliente2.setEnabled(estado); this.btnpersonal1.setEnabled(estado); this.btncomida.setEnabled(estado); this.txtcantidad1.setEnabled(estado); this.txtcodpersonal.setEnabled(estado); this.txtnombrepersonal.setEnabled(estado);

this.txtcodcliente.setEnabled(estado); this.txtcodcomidas.setEnabled(estado); this.txtnombrecomidas.setEnabled(estado); this.txtnombrecliente.setEnabled(estado); this.txtpreciocomidas.setEnabled(estado); this.txttotal.setEnabled(estado); this.txtsubtotal.setEnabled(estado); this.txtcodigo.setEnabled(estado); this.dchfecha.setEnabled(estado); } public void Botones(boolean estado){ this.btnnuevo.setEnabled(estado); this.btnguardar.setEnabled(!estado); this.btncancelar.setEnabled(!estado); this.btnsalir.setEnabled(estado); this.btnagregar.setEnabled(!estado); } public void LLenarTabla(){ DefaultTableModel model=(DefaultTableModel)this.venta.getModel(); String cod=this.txtcodigo.getText(); String serie=this.txtserie.getText(); String num=this.txtcorrelativo.getText(); String com=txtnombrecomidas.getText(); String can=txtcantidad1.getText(); String dolar=txtsubtotal.getText(); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(serie); vRow.addElement(num); vRow.addElement(com); vRow.addElement(can); vRow.addElement(dolar);

model.addRow(vRow); } public void generacodigo(){ try{ cnx.rs=cnx.stm.executeQuery("Select codventa from Venta"); while(cnx.rs.next()) { String mos,t1,t2,mo2,mos1; int suma=0,resultado=0; mos=(cnx.rs.getString(1)); mos=mos.substring(0); mos1=(cnx.rs.getString(1)); suma=Integer.parseInt(mos); resultado=suma+1; if(resultado>0 && resultado=10){ mos1=mos1.substring(0,3); } } this.txtcodigo.setText((mos1+resultado)); } } catch(SQLException e) {JOptionPane.showMessageDialog(null,"No se ha podido acceder a la base de datos");} } public void generaserie(){ txtserie.setText("0001"); } public void generacorrelativo(){

int reg; String cod; try{

cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from Venta"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg= 0; i--) { tb.removeRow(tb.getRowCount()-1); } } public void eliminar1(){ DefaultTableModel tb = (DefaultTableModel) venta.getModel(); int uno=venta.getSelectedRow(); tb.removeRow(uno);

} Calendar calendario = Calendar.getInstance(); int hora, minutos, segundos; public void Limpiar(){ this.txtforma.setText(""); this.txttotal.setText(""); this.txtcantidad1.setText(""); this.txtsubtotal.setText(""); } public void Cajas(boolean estado){ this.txtforma.setEnabled(estado); } public void Botones(boolean estado){ this.btnnuevo.setEnabled(estado); this.btnguardar.setEnabled(!estado); this.btncancelar.setEnabled(!estado); this.btnsalir.setEnabled(estado); } public void LLenarTabla(){ DefaultTableModel model=(DefaultTableModel)this.venta.getModel(); String cod=this.txtcodigo.getText(); String serie=this.txtserie.getText(); String num=this.txtcorrelativo.getText(); String com=txtnombrecomidas.getText(); String can=this.txtcantidad1.getText(); String dolar=txtsubtotal.getText(); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(serie); vRow.addElement(num); vRow.addElement(com); vRow.addElement(can);

vRow.addElement(dolar); model.addRow(vRow); } public void generacodigo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from VentaPensionistas"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg0 && reg0 && reg= 0; i--) { tb.removeRow(tb.getRowCount()-1); } } Calendar calendario = Calendar.getInstance(); int hora, minutos, segundos; public void Limpiar(){ this.txtserie.setText(""); this.txtcorrelativo.setText(""); this.txtforma.setText(""); this.txttotal.setText(""); this.txtcantidad.setText("");

this.txtsubtotal.setText(""); this.txttotal.setText(""); this.txtcodpersonal.setText(""); this.txtnombrepersonal.setText(""); this.txtcodcliente.setText(""); this.txtnombrecliente.setText(""); this.txtcodproducto.setText(""); this.txtnombreproducto.setText(""); this.txtprecioproducto.setText(""); } public void Cajas(boolean estado){ this.txtserie.setEnabled(estado); this.txtcorrelativo.setEnabled(estado); this.txtforma.setEnabled(estado); this.btncliente2.setEnabled(estado); this.btnpersonal1.setEnabled(estado); this.btnproducto.setEnabled(estado); this.txtcantidad.setEnabled(estado); this.txtcodpersonal.setEnabled(estado); this.txtnombrepersonal.setEnabled(estado); this.txtcodcliente.setEnabled(estado); this.txtcodproducto.setEnabled(estado); this.txtnombreproducto.setEnabled(estado); this.txtnombrecliente.setEnabled(estado); this.txtprecioproducto.setEnabled(estado); this.txttotal.setEnabled(estado); this.txtsubtotal.setEnabled(estado); this.txtcodigo.setEnabled(estado); this.dchfecha.setEnabled(estado); } public void Botones(boolean estado){ this.btnnuevo.setEnabled(estado);

this.btnguardar.setEnabled(!estado); this.btncancelar.setEnabled(!estado); this.btnsalir.setEnabled(estado); this.btnagregar.setEnabled(!estado); } public void LLenarTabla(){ DefaultTableModel model=(DefaultTableModel)this.venta.getModel(); String cod=this.txtcodigo.getText(); String serie=this.txtserie.getText(); String num=this.txtcorrelativo.getText(); String com=txtnombreproducto.getText(); String can=txtcantidad.getText(); String dolar=txtsubtotal.getText(); Vector vRow=new Vector(); vRow.addElement(cod); vRow.addElement(serie); vRow.addElement(num); vRow.addElement(com); vRow.addElement(can); vRow.addElement(dolar); model.addRow(vRow); } public void generacodigo(){ try{ cnx.rs=cnx.stm.executeQuery("Select codventa from VentaProducto"); while(cnx.rs.next()) { String mos,t1,t2,mo2,mos1; int suma=0,resultado=0; mos=(cnx.rs.getString(1)); mos=mos.substring(1); mos1=(cnx.rs.getString(1));

suma=Integer.parseInt(mos); resultado=suma+1; if(resultado>0 && resultado=10){ mos1=mos1.substring(0,3); } } this.txtcodigo.setText((mos1+resultado)); } } catch(SQLException e) {JOptionPane.showMessageDialog(null,"No se ha podido acceder a la base de datos");} } public void generaserie(){ txtserie.setText("0001"); } public void generacorrelativo(){ int reg; String cod; try{ cnx.rs=cnx.stm.executeQuery("Select COUNT(*) +1 from VentaProducto"); if(cnx.rs.next()){ reg=Integer.parseInt(cnx.rs.getString(1)); if(reg>0 && reg Terminales. Un ejemplo: un refresco cuyo precio en la ficha es de 1,5€ seguirá marcando este precio en el ticket al cobrarlo si trabajamos con IVA Incluido. Si trabajamos con IVA Añadido, a este mismo precio de 1,5€ se incrementará la parte proporcional del impuesto (la cantidad cobrada será mayor de 1,5€).  Diseña los salones según tus necesidades. En el software puedes modificar el diseño de tus salones añadiendo y quitando mesas o cambiándolas de lugar.

Puede que la organización por defecto de los salones no sea la más adecuada para ti y debas mover las mesas para adecuarlas visualmente a la organización de tu local y encontrarlas más rápidamente.

GLOSARIO DE TÉRMINOS. JDBC: Es el API para la ejecución de sentencias SQL. (Como punto de interés JDBC es una marca registrada y no un acrónimo, no obstante a menudo es conocido como “Java Database Connectivity”). Consiste en un conjunto de clases e interfaces escritas en el lenguaje de programación Java. JCalendar: Es una librería la cual nos proporciona un calendario completo, con los meses del año, puedes seleccionar el año, el día, etc. IReport: Es una herramienta visual que sirve para generar ficheros XML (plantillas de informes) utilizando la herramienta de generación de informes JasperReport. JTable: Es un componente visual de Java que nos permite dibujar una tabla, de forma que en cada fila/columna de la tabla podamos poner el dato que queramos; un nombre, un apellido, una edad, un número, etc. Orden de compra: Es un documento que emite el comprador para pedir mercaderías al vendedor; indica cantidad, detalle, precio y condiciones de pago, entre otras cosas. El documento original es para el vendedor e implica que debe preparar el pedido. El duplicado es para el comprador y es una constancia de las mercaderías o servicios encargados. Venta: Una definición general es cambio de productos y servicios por dinero. Desde el punto de vista legal, se trata de la transferencia del derecho de posesión de un bien, a cambio de dinero. Desde el punto de vista contable y financiero, la venta es el monto total cobrado por productos o servicios prestados. Producto Restaurant: Son los productos que compra el Gerente del Restaurant de los proveedores del restaurant para la elaboración del menú diario, como por ejemplo tomate, apio, coliflor, arroz, yuca, huevos, leche, plátano, etc. Producto Naturales: Son los productos Naturales que compra el Gerente del Restaurant de los proveedores de productos naturales para la venta de dichos productos naturales, como por ejemplo Aceite de Oliva, Miel de Abeja, Polen, Chía, Pan Integral, etc. Menaje: Son todos los utensilios que tiene el restaurant como por ejemplo, La vajilla, la cubertería y el servicio de mesa, el mobiliario.

LINKOGRAFÍA.  http://www.javatutoriales.com/2009/02/creacion-de-reportes-con-jasperrepotsy.html  https://www.youtube.com/watch?v=DeVSmx6X5aM  http://plugins.netbeans.org/plugin/4425/ireport  http://www.java2s.com/Code/Jar/j/Downloadjcalendar14jar.htm  https://www.microsoft.com/es-es/download/details.aspx?id=11774  https://www.google.com.pe/webhp?sourceid=chromeinstant&ion=1&espv=2&ie=UTF-8#q=que+es+una+venta+en+una+empresa  https://es.wikipedia.org/wiki/Menaje

ANEXOS.