Universidad de Ciencias Comerciales - RENIDA 0077 2005.pdf · Elaborar manual de usuario, ... Datos...

Universidad de Ciencias ComercialesFacultad de Ingeniería, Computación e Informática

SISTEMA DE INVENTARIO"

(SISTINV)

Tesina para optar el título de:

Ingeniería de Sistemas de Información.

Tutor:Lic. Jorge Ulises Rivera

Integrantes:• Maricela del Carmen Rodríguez Zúniga

... Cecilia del Carmen Rodríguez P~vón

- Bismarck Santiago Fletes Calderón

.. Ana Heidi Tórrez Gutiérrez

.. Milagros de los Ángeles Páramo Romero

Managua, Noviembre del 2005

IN DICE

INTRODUCCION 1

OBJETiVOS 2

JUSTlFICACION ~ 3

ANTECEDENTES 4

ANALlSIS DE SISTEMA. · 5

PLANIFICACION ESTRATEGICA DE LA INFORMACION 6

ANALlS DEL AREA DE NEGOCiO 7

DISEI\JO DEL SISTEMA DE NEGOCiO 9

ViABILIDAD 10

VIABILIDAD TECNICA 11

VIABILIDAD ECONOMICA 12

PANTALLAS DE COCOMO : 14

VIABILIDAD LEGAL. 17

GESTlON DE PROYECTO 18

PERSONAL 19

LOS PARTiCiPANTES 20

LOS JEFES DE EQUiPOS 21

EL PROBLEMA 22

DE~CRI¡;CIÓN DEL PROBJ,:ÉMt. 23

SELECCiÓN DEL MODELO DE DATOS 24

DIAGRAMA DE ENTIDAD RELAC\ON 25

MODELADO DEL PROCESO 26

, ACTIVIDADES DE PROCESO , , 27

FLUJO DEL PROCESO 28

MODELADO DEL PROCESO WEB 29

PAGINA WEB 30

GESTIONES DE APLICACiÓN...................................................... 31

GESTIONES DE APLICACIÓN WEB 32

AMBITO DEL SOFTWARE 33

ESTIMACIONES 34

ANALlSIS DE RIESGO 35

PLANIFICAC10N TEMPORAL DEL PROyECTO 36

CASO DE USO 37

DIAGRAMA DE CLASE 38

DIAGRAMA DE COLABORACION 39

DIAGRAMA DE SECUENCiA 040

DIAGRAMA DE ACTiViDAD ,.· 41

DIAGRAMA DE DESPLIEGUE 42

DIAGRAMA DE PAQUETES 43

CODIGOS 44

DISEÑO INTRANET 91

PRUEBA Y ENTREGA 93

CONCLUSiONES 94

RECOMENDACiONES 95

BIBLlOGRAFIA. 96

ANEXOS : 97

DEDICATORIA

A Dios Nuestro Padre, que por su infinita bondad ha permitido que

fructifiquemos y al mismo tiempo nos ha concedido culminar esta meta yel

camino de la superación profesional.

A nuestros Padres y Familiares por apoyarnos moral, material y

económicamente durante estos años de estudios, los que fueron de mucho

sacrificio y ahinco para nuestra superación.

A nuestros Tutores y Maestros, quienes fueron base de nuestro

aprendizaje y los principales promotores de nuestro conocimiento los que

mencionamos en este trabajo.

AGRADECIMIENTO

Agradecemos infinitamente a Dios todo poderoso, por todas las

bendiciones que derramó en nuestros Padres y Familiares para que con su

esfuerzo, nosotros estemos en la culminación de otra etapa importante de

nuestras vidas.

A la Universidad de Ciencias Comerciales, por darnos la oportunidad

de realizar nuestros estudios superiores en dicha alma Mater y llegar a

culminar con nuestra meta.

Muy particularmente agradecemos al Tutor de nuestro Proyecto, Lic.

Jorge Ulises Rivera y en mención especial al Ing. Erick Delgadillo

Loaislga, por ser un gran apoyo en los momentos difíciles de nuestro

proyecto, ya que nunca escatimaron esfuerzo y tiempo para corregir y

mejorar este trabajo, pero en especial porque nos demostraron en el trayecto

de esta tarea, que parecía no tener fin, que son grandes profesores y

excelentes seres humanos.

A nuestros amigos y compañeros, con los que compartimos estudios,

los del Curso de Titulación, con quienes vivimos los problemas cotidianos y

experiencias estudiantiles.

INTRODUCCION

La posibilidad de un libre comercio en el mundo, el cual significa mayor

competencia empresarial. Es la razón por la cual se elaboró una Página Web y

un Sistema Automatizado para [a Empresa Comercializadora de

E[ectrodomésticos (COMDELEC).

Debido a que muchas veces los clientes no tienen tiempo de hacer

consultas personalmente a la Empresa por sus múltiples ocupaciones, esta

nueva opción que tendrá la Página Web de COMDELEC solucionará este

problema desde la comodidad de su oficina u hogar ya que el cliente podrá

consultar los precios y los diferentes modelos de los productos.

Cabe mencionar que se pondrán en práctica los conocimientos

adquiridos durante el Curso de Graduación. Esto a través del Sistema de

Automatización y la Página Web que se elaboró, la qúe ayudará afianzar los

conocimientos, siendo un objetivo de esto ayudar a la Empresa a tener mejores

herramientas para la atención al cliente.

Sistema de Inventario. Empresa COMDELEC Curso de Graduación 2005

OBJETIVOS

OBJETIVO GENERAL:

Desarrollar e implementar el Sistema Distribuido de Inventario para Automatizar

los Procesos de Entradas! Salidas de Productos.

OBJETIVOS ESPECIFICaS:

Reconocer las necesidades del cliente para desarrollar el Sistema

adecuadamente.

Diseñar el software que cubra las necesidades del cliente.

Elaborar manual de usuario, fácil de usar para que resuelva las posibles

dudas de los mismos.

Realizar capacitaciones necesarias a los usuarios finales para obtener el

máximo rendimiento del Sistema.

2

Sistema de Inventario. Empresa COMDELEC Cnrso de Gradnación 2005

JUSTIFICACION

La forma en que la Empresa COMDELEC, llevaba el Proceso de

Inventario como se menciona en la parte introductoria es causa de algunos

problemas, pues la información graduada hace que el trabajo requiera de más

tiempo y además menor seguridad de la información.

Además la eficiencia y velocidad de llevar los controles de Inventario

anteriores son muy pobres al no estar en ninguno de estos procesos de la

Empresa el Sistema Automatizado de Inventario.

Cuando el Sistema sea instalado, la Empresa llevará un control eficiente

de todos los datos de información de cada producto, control de existencias,

estadisticas etc.

3


ANTECEDENTES

La Empresa COMDELEC es una Empresa Comercializadora de

Electrodomésticos nueva en el mercado del Departamento de Boaco, ubicada

en el Barrio Santa Isabel, de la Farmacia Alemán 1 Cuadra abajo.

Actualmente no cuenta con un Sistema de Inventario, por lo que sus

movimientos de Inventario, Reportes y kardex de los productos son lentos

debido a la falta de automatización.

Hasta el momento se lleva un control de las Entradas y Salidas

realizadas a través de una base de datos en el programa de MS- Excel, la cual

no le ofrecerá la seguridad, rapidez, ni eficiencia de un sistema basado en la

necesidad que la compañia necesita para realizar transacciones y compra

venta más efectiva y eficiente.

Con el propósito de cumplir con estas necesidades es que nace el

proyecto SISTINV (Sistema de Inventario) para la Empresa COMDELEC.

El Sistema de Inventario, automatizará los procesos necesarios para

llevar el control de las Entradas y Salidas realizadas, logrando que la

Empresa preste un rápido y mejor servicio a sus clientes.

4


ANALlSIS DEL SISTEMA

Para la realización del análisis del sistema a desarrollar, se tomó muy en

cuenta la forma en que la Empresa realiza sus actividades y las necesidades

de cada uno de los trabajadores (Gerencia, Bodega y Contabilidad),

identificando cada proceso y plasmándolo en caso de uso del funcionamiento

de la Empresa.

Para este análisis se llevó a cabo a través de tres estructuras diferentes

dentro del contexto de los objetivos:

1. Arquitectura de Datos.

2. Arquitectura de Aplicaciones.

3. Infraestructura Tecnológica.

Esto sirvió de gran ayuda para poder utilizar toda la información que se

recopiló de la Empresa, de forma eficiente, para lograr un posterior análisis del

sistema.

5

Sistema de Inventario. Empresa COMDELEC Cnrso de Graduación 2005

PLANIFICACIÓN ESTRATEGICA DE LA INFORMACIÓN:

A la Empresa COMDELEC se le elabora un Sistema de Inventario a

través de Visual Basic. NET. con el objetivo de dejar atrás el Sistema de

Control Manual del Inventario, a través de un Sistema de Archivo de

Microsoft Excel.

Se creará una Página Web para poder realizar cotizaciones y en un

futuro poder realizar las compras directamente a través de la Página.

El Sistema emitirá reporte de cada una de las actividades importantes

para la Empresa y de las cuales es necesario tener un soporte a la mano en

un determinado período de tiempo.

6


ANALlSIS DEL AREA DEL NEGOCIO

Ahora se mostraran la refinación de los objetos con sus atributos:

A,.

v

[codigo pr(producto}

nombre

[id marca]

proveedor

imagen

medida

Existencia

Descripcion

registro entrada producto

~•.• YJ [id entrdada]¡ codigo. DateEntrada

[codbProvr;:;;~edores Inom re Udireeeiontelefono[numero rue]emailimagen

7


Detalle Entrada Producto

8;~ detaUeentrada: [id entrada]; Producto: Cantidad

marcas

:.. 'lI1[id marca]., [Cod marca]

Descripcion

r"'" \ .... ~, ,-'"1. Detalle SalipR PrQ.qpctº· ;

3[id salida]ProductoCantidad

;'1'

8


DISEÑO DEL SISTEMA DEL NEGOCIO

Realización de un Sistema de un programa de Servidor de Base de

Datos como lo es Sal Server operando en una Plataforma de Visual Net.

Que el Sistema sea capaz de:

o Llevar el Control de Entradas y Salidas de los Productos

o Actualización de Existencia del Producto.

o Generar Reporte.

Secuencia de Tareas:

Se exportó Base de Datos de Excel a Sal Server (lenguaje de

Consulta Estructurado), debido a que Sal Server tiene ventajas significativas

respecto a Excel, ya que es un Servidor de Base de Datos que está diseñado

para manejar enormes cantidades de datos .

9


VIABILIDAD

VIABILIDAD OPERATIVA:

En el software de Inventario con la creación de su Página Web ha sido

aceptado por los usuarios, quienes brindaron el apoyo suficiente para la

elaboración del software, facilitando toda la información elemental y/o

necesaria, por parte de la dirección y los usuarios.

Los métodos que serán usados para el software son mejores, ya que

este va a ser más visual, es decir con gráficos, más fáciles de usar y entender.

El software no causara ningún prejuicio a la Empresa Comercializadora de

Electrodomésticos (COMDELEC), brindándoles mejores ventajas en el control

y/o manejo del inventario, así como la creación de la Página Web que les

servirá para tener una pequeña expansión de sus ventas.

10


VIABILIDAD TECNICA.

La viabilidad técnica indica que recursos se van a utilizar para

desarrollar el software y así recomendar al cliente el mejor hardware de

acuerdo a las necesidades y posibilidades económicas que ellos tengan.

Se presentaran por medio de tablas los soportes que necesitan para el

hardware y así poder hacer la instalación del software.

Necesidades de HW Cantidad

Torre ATX 1 -

Procesador Pentium Intel IV 3.00 GHZ 1

Memoria Ram 1G 1

Monitor 17" 1

CD-RW 52x24x52x Lite On 1

Floppy Orive 3 % Mitsumi 1

Teclado Genius 1

Mause Ps2 1

Disco Duro 80 G 1

Tarjeta de red de 10/100 2

Cable UTP Categoría 5 100mts

RJ 45 6

Regulador de Energía 1

Batería 1

11


VIABILIDAD ECONOMICA

En el uso de la viabilidad económica, se estimarán los costos del

software a través del COCOMO 11 y los gastos de las necesidades técnicas.

Por ser un software fácil de ejecutar, el encargado del Inventario solo

sustituirá al Programa Excel, mejorando las necesidades y factibilidades de uso

de este software, así que podrá decir que influirá en el mejor control de los

datos de la empresa y facilitará las tareas de los clientes.

Ahora los cálculos del COCOMO I1 y los Costos del Hardware.

Punto de objeto: 7

NOP: 5.6

Un Ratio de: 13

Mes-Persona: 0.43

Costo: 1,500

Costo total: 645

12

Sistema de Inventario.Empresa COMDELEC Curso de Graduación 2005

COSTO DEL HARDWARE

Necesidades del HW Cantidad Costo en dólares

Torre ATX 1 27.00

Procesador Pentium Intel IV 3.00 1 260.00

GHZ

Memoria RAM 1 G 1 240.00

Monitor de 17" 1 134.00

CD-RW 25x24x52x Lite On 1 41.00

Floppy Orive 3 ~ Mitsumi 1 8.00

Teclado Genius 1 7.00

Mause Ps2 1 4.00

Disco Duro 80 G 1 76.00

Tarjeta de Red de 10/100 2 6.00

Cable UTP Categoría 5 150 mts 59.00

RJ 45 14 0.35

Regulador de Energía 1 23.00

Batería 1 52.00

13


PANTALLAS COCOMO

Proceso del Cálculo de Pantalla

Usted Seleccionó: Retulntll J 3ig/lienle"'~

Por favor digite los siguientes datos adicionales:

No. de Formularios: ~]J

r: '-lTablas en el S€!'Mdor: 13 I

Tablas en el Cliente [j]

Proceso del Cá~cUllo de IflIfiOlrmes

Tatal >8 (>3sr ....IMedio!Oificil _

__¡DifiCil

Total <8 (2-3 srvr 3-5 eln~JSi[l1ple _¡Medio

____ ~JDificll~_____________ __

Descri ción Total <4 «2 srvr <3 c1n~

o-1 ¡Simple.~2-8:Simple

J\lliY_QJ4 JJ\i!~glL

Usted Seleccionó:L~~~] RetD/nOI

Por favor di gite los siguientes datos adicionales:

No. de Formularios:

Tablas en el Servidor

Tablas en el Cliente

14


Recuentos de Puntos de Objetos:PontallllS: Informes:

Número de Vist!ls: f16 Número de Secciones: ¡fflNúmero de Tobles en Servidor. -la Número de Tablas en Servidor: laNúmero de Tables en Clientes: 19 Número de TEIblfls en Clientes: 19

~ltJt:lJI8/NOP .. 1

Complejido.d Peso

Objeto de Pantalla:

Objeto de Informes:

Componentes 3GL:

Formularios de Reutilización:

Indique el NO.de Formulwios ll. reuijlizc.r:I-l-~

RetOlnl1l $j!Jujellte~ ~

Recuentos de Puntos de Objetos:PlllItallas: Informes:

Número de Vistes: 116~ Número de Secciones:[_·-16-'"

Número de Tablas en Servidor. ra- Número de Tablas en Servidor: I~B-

Número de Tablas en aientes: 19 Número de Toblas en Clientes: 19--

Formulmios de Reutilización:

Indique el NO.de Formularios areutilizar.

I 6

NOPComplejid!ld Peso

Objeto de Pantalla:

Objeto de Informes:

Componen.es 3Gl

1215 ---1--0 .

Sumotolio

T5'Ir -,-- ·······~IL:f~'!!!!/!!!.j

Betollll1l' J .$iguiente.n J

15


Proceso del Cálculo de Ratio de Productividad

Descrioclón IMuv Balo IBalo INominal INto IMuvNto I

Usted Seleccionó el Ratio de:

Valor Meses-Personas es:

[>13]

~

.B..elolRlU

Introduzca Costo del Software: 1i5Ó~ l;ufaúm cosj'OSolfwtue

.!1etornll Cált:uloPl1I1IB11l1.

Observación: Si usted decide retomar al Formulario Anterior, se limpiaran todas las valiables utilizadas en

esta pantalla.

Proceso del Cálculo de Ratio de Productlvidacj"---- -----~~~~~~5i3_-

Introduzca Costo del Software: [15~

Usted Seleccionó el Ratio de:

Valor Meses-Personas es:

[~J

ro-:-+iJCosto del Software

660.00

.B.elo/no CNcu/o IPl1I1llÚll1. J

Observación: Si usted decide retomar al Formulario Anterior, se limpiaran todas las variables utilizadas enesta pantalla.

VIABILIDAD LEGAL

Se respetará la información ofrecida por el cliente para el desarrollo del

software, no se divulgará a nadie los datos obtenidos. El software es

exclusivamente para la Empresa Comercializadora de Electrodomésticos

(COMDELEC).

Todos los accesorios para la instalación de las máquinas se realizarán

de acuerdo a las leyes establecidas en e País.

Se establecerán los derechos del autor, Licencia de uso a través de

abogados para evitar hagan copias piratas del software, que solo le

pertenecerá a la Empresa.

16


GESTION DEL PROYECTO

La gestión eficaz en un proyecto del software se centra en el personal, el

problema y el proceso.

El Personal: Se organiza en equipos eficaces para crear un software de

alta calidad con una comunicación efectiva.

Los requisitos del producto deben comunicarse desde el cliente al

desarrollador, dividirse en parte que lo constituyen y distribuyen para que

trabaje el equipo del software

17


PERSONAL

MMCGPC (Modelo de Madurez de la Capacidad de Gestión de

Personal); define las siguientes áreas prácticas claves para el personal que

desarrolla el software: reclutamiento, selección, gestión de rendimiento,

entrenamiento, retribución, desarrollo de la carrera, desarrollo cultural y de

espiritu de equipo.

ORGANIGRAMA DE LA EMPRESA

GERENTE

I CONTABILIDAD I I BODEGA I

18


LOS PARTICIPANTES:

Gestor Superior: Gerente de la Empresa Comercializadora de

Electrodomésticos. (COMDELEC); El señor: Ernesto Rojas Lanzas.

GESTOR (TECNICO) DEL PROYECTO.

GRUPO:

Milagros de los Angeles Páramo Romero.

Ana Heidi Tórrez Gutiérrez.

Bismark Santiago Fletes Calderón.

Cecilia del Carmen Rodríguez Pavón

Maricela del Carmen Rodríguez Zúñiga.

PROFESIONALES:

Los integrantes de la creación del Sistema SISTINV.

Milagros de los Angeles Páramo Romero.

Ana Heidl Tórrez Gutiérrez.

Bismark Santiago Fletes Calderón.


Maricela del Carmen Rodríguez Zúñiga

Cliente: Los trabajadores de la Empresa COMDELEC, tales como: Area de

Almacén, Gerencia y Area de Contabilidad.

Usuarios Finales: Los encargados de cada área de trabajo.

19


LOS JEFES DE EQUIPOS:

COORDINADORES:

Coordinadora del Sistema de Inventario.

Milagros de los Angeles Páramo Romero

Ana Heydl Torrez Gutiérrez

COORDINADOR DE LA PÁGINA WEB.

Bismark Santiago Fletes Calderón


Maricela del Carmen Rodríguez Zúñiga

El quipo del software: La estructura del equipo dei software se definirá de

la siguiente manera.

Se tomará la estructura Descentralizado Controlado (OC) para la

definición de los jefes de equipo tomado.

Los OC generan más y mejores soluciones que los indivíduales por

tanto, estos equipos tienen más probabílidades de éxito en ia resolución de

problemas complejos. Puesto que el equipo OC es centralizado para la

resolución de problema.

OC puede aplicarse con éxitos para problemas sencillos.

20

Sistema de Inventario. Empresa COMDELEC Curso de Graduacióu 2005

EL PROBLEMA:

El problema de la Empresa es que los datos se encuentran en una Base

de Datos Excel, siendo más tardada la realización de los controles del

inventario, por lo que no cuentan con un Sistema Automatizado para el

Inventario, que genere una toma de decisión oportuna más eficiente y segura.

DESCOMPOSICION DEL PROBLEMA:

Crear un Sistema de Inventario y su Página Web a la Empresa COMDELEC.

Realizar las compras para la introducción de los datos del Inventario.

Generar Reportes de Inventario actualizado.

Este usuario podrá buscar el producto en la Página Web y escogerlo para

realizar la cotización.

21


DESCRIPCION DEL PROBLEMA

El problema de la Empresa es que los datos se encuentran en un"! Base

de Datos Excel, siendo mas tardada la realización de ios controles del

inventario.

La Empresa lleva control de las Entradas y Salidas a través de una

Base de Datos de Excel. ya que no cuentan con un Sistema Automatizado.

PROCESO

Como ya se ha reflejado en el protocolo se aplicará el modelo del

proceso: "El modelo DRA (Desarrollo Rápido de Aplicaciones)" que

proporciona crear un sistema funcional dentro de un periodo de corto tiempo y

se dividen en cinco fases:

Modelado de Gestión

Modelado de Datos

Modelado de Procesos

Generación de Aplicaciones

Prueba y Entrega.

Manejados en equipos para acelerar la determinación de software: Sistema de

Inventario ( SISTINV).

22, ,.,.' "',


SELECCiÓN DE MODELO DE DATOS DRA

MODELADO DE GESTION:

Aquí se modelará el flujo de información entre las funciones de gestión,

para la definición del proceso del software a través de las siguientes preguntas:

1¿Qué información produce el proceso de gestión?

El software lo que conduce es: Inventario.

Este software conducirá el flujo de la información del Inventario.

2¿Qué información se genera?

Se generan todos los datos de cada uno de los objetos que se manejan en el

flujo de información, como los datos de los Productos, Proveedores, Entradas,

Salidas, Marca, Medida y los datos de los diferentes reportes necesarios.

3¿A dónde va la información?

A la BD del Sistema SISTINV en SQL.

4¿Qulén lo procesa?

El software a través del codificador del lenguaje orientado a datos visual. Net.

23


DIAGRAMA ENTIDAD RELACION

En este paso se definirán las características (Atributos) de cada uno de

los objetos y las relaciones que hay entre estos objetos.

Análisis de los tipos de Relaciones .de las Tablas.

~, ),1 ~r:~'kii:~j

.o:,;¡j p.~';';;;";·I:L~{j

~c·:tl kt!!¡¡~~t.;¡.~

.~'-~.J:ni=-·ü.:.·,,¡¡;

~"~....., _¡¡j,;¡¡i.;:~.i

i:""i¡;,F~'

~r&:~ii::4¡}J

24


MODELADO DE PROCESOS:

En este paso describiremos los procesos que se utilizan en los objetos

de datos, se tomarán los objetos para llevar a cabo una identificación del

proceso que llevaremos en grupo o equipos para la elaboración del software.

En la división del software están para el sistema de inventario:

Milagros Páramo.

Ana Tórrez

Cecilia Rodríguez

Para la división de la página Web:

Bismark Fletes

Maricela Rodríguez

Se generan varias interfaces tales como:

1. Tendrá una contraseña de acceso al SW.

2. La pantalla principal tendrá la barra de menú para acceder al resto de la

pantalla, como: proveedor, movimiento, reportes y consultas.

3. En la pantalla del menú movimientos, se realizarán diferentes acciones a

través de los submenús, como: entradas/salidas que lleva al contado o al

crédito que disminuyen el inventario y las cotizaciones.

4. En la pantalla del submenú reportes, visualizaremos los reportes en las

entrada y salidas de las ventas realizadas.

25


ACTIVIDADES DE PROCESO

o Establecer el contacto con los proveedores.

o Adquirir los productos.

o Abastecer la falta de existencia del producto..

o Descargar del inventario.

o Actualización de existencia del producto.

o Generar reporte.

26


FLUJO DEL PROCESO

Adquirirproducto

Establececontacto con losproveedores

Abastecer laexistencia delproducto

Generar reporte

Actualizaciónde existenciadel producto

Descargarinventario

27


MODELADO DEL PROCESO WEB

Se creara la página principal que tendrá la información que se optuvo

acerca de la Empresa.

Podrá seleccionar el (los) producto (s) deseado(s) y saldrá una pagina en

la cual estarán detallados los diferentes modelos de (los) producto(s) antes

seleccionado (s).

Se podrá realizar la cotización habiendo seleccionado el o los productos

que desea y lo (s) podrá imprimir.


PAGINA WEB EMPRESA COMERCIALIZADORA DEELECTRODOMESTICOS ( COMDELEC)

-~~ iCOM~______~r'e.a C<>mercializlldora de Electrodom.estic0'l. - ~i;;)

chos Re;log.rvados

Hogar

---~ " '.' """'~"'-'_X'"'~'"'\-"(~CCM~~~ ~·~:~:I:~·::_·~~'c t" " ,~ "">,,,1'>." W, ~ , ~=~_-~-~- ~ ..............._~~~~ C~ó~_~~nl_tindorn dé :El~ctr'odorn.es't.ie

J::Jorocho~ Ro.sorvl2do3

Bienvenidos a la Pa~Jna de Varios

¿;;;;-¡JjJ¡,~. •:;arnara 7.2 Pixel Mod DSCP200

OOlCA C~17088

Cam.ar:aDigtta11.5 pixel DSCLl

002CA C~13245

CaDlara Fotografi.c~

ModDLC2

29


GENERACION DE APLICACIONES

Para la realización de cada uno de los procesos se generaran sus

aplicaciones a través del lenguaje de programación Visual.Net; los reportes se

realizaran con Cristal Reports y Microsoft SQL Server como gestor de S¡;¡se de

Datos.

Con Visual.Net se utilizaran herramientas como el control ADO, para las

conexiones a la SO a los formularios en las pantallas.

Las cajas de textos, Data Combo, Data Grid y otros se utilizaran para

presentar la información necesaria que se encuentra en.la SO.

Por ultimo para llevar a cumplir las acciones se realizaran a través de los

botones de control.

30


GENERACION DE APLICACIONES EN LA WEB

Para la realización de los procesos de la página Web se generan las

aplicaciones a través de Macromedia Dreanweaver que facilita la realización de

la Página Web.

31


AMBITO DEL SOFTWARE

CONTEXTO: El software se ubica en el área de administración este llevará el

control del software en la introducción de datos, los reportes y las visitas a la

Web.

OBJETIVOS DE LA INFORMACION: El software se implementara para

mejorar el rendimiento de las áreas de trabajo de las empresas llevando un

mejor control, orden y facilitarles el trabajo a los usuarios encargados en la

utilización de este nuevo software, dejando obsoleto el programa anterior que

les proporcionaba tantos problemas.

FUNCION y RENDIMIENTO: El software al cumplir con un mejor control, orden

y facilidad de uso ya será más visible que el anterior en gráficos de las

interfaces y pantallas de captación.

Este creará un mejor control de inventario y almacenamiento de datos para

la impresión de los reportes.

Este software Cliente/Servidor para tener un mejor desempeño en

acelerar la realización de las funciones que se desempeñan en cada área de

trabajo en las Empresas.

32


ESTIMACIONES

En las estimaciones se utilizan las métricas para los proyectos, que busca

el punto de función en una estimación por proyecto y el COCOMO II para los

costos del Software hombre-mes, el esfuerzo persona encontrando las

estimaciones de los precios para la viabilidad econófTl i""

Total de Cuenta del Proyecto SISTINV

PARAMETROS CUENTA SIMPLE MEDIO COMPLEJO SUBTOTAL

Entradas de 10 X 40Usuario

Salidas de 14 X 60Usuario

Peticiones deUsuarios 15 X 60

Archivo 6 X 36

Interfaz 5 X 25Interna

Total 221

En los valores de la Cuenta se tomaron para el proyecto SISTINV 221

factores de complejidad y es el mismo factor agravante obteniendo PFB de

213.

33


ANALISIS DE RIESGO

En esta parte de la planificación, tomaremos el plan estratégico de

riesgo, limitado por el tiempo en la creación de software y asi hasta que algo

vaya mal en el equipo del SW hará algo al respecto.

Existen dos tipos de riesgo se dividen en:

Riesgo Genérico

Riesgo Especifico.

Abarcaremos estos dos riesgos de esta manera:

Riesgo Genérico.

o Características del cliente.

o' Definición del proceso.

Riesgo Especifico.

o Tecnologla por construir.

o Tamaño y experiencia de la plantilla.

34


PLANIFICACION TEMPORAL DEL PROYECTO

DESARROLLOEntrega de

Temaspor grupo de

Traba·oParte 1 Fase de

DefiniciónAnálisis del

SistemaPlanificación del

Pro ectoEntrega delProtocolo

Fase 2 Fase deDesarrollo

Diseño

Codificación

PruebasDefensa del

Proyecto

AGOSTO SEPTIEMBRE03- 10- 17- 24

20 al 27 09 16 23 30

OCTUBRE01- 02- 8- 15 - 22oct 07 14 21 29

NOVIEMBRE01- 2120 26

35


DIAGRAMA CASO DE USO

,,---~~<e_~e_nd>~~-¿,oRegistra nue\{} proo.eedor fl!1

catalogo :

Registrar nuelO prodUCiD encalalo;¡o

Verificar existencia de prodl.lCl.o en

"'ORegislra salida ~el produclo

'eJend>

el)

<incll.Kie>

O~tenCiadep.ro'leedoren

3\------- catalogo'<incflXJe>

Registra ootrada prod~lo~IM:'"

Responsable de Ii\ ~O

¿:;Visualiza existencja producto

3\ Actualiza existencia producto

G«ort~ORealizar pedido

OContaclar prowedores

36


DIAGRAMA DE CLASE:

responsablebodega

:'registra:'wrifica:,elimina:'lAsualiza:,genera

gerente

'lAsualiza:'wrifica:,elimina:,genera

contador

'tlAsualizaIftgenera

37


Diagrama de Colaboración

11: genera reporte-----7

~1: contacta proleedÓr,

2: realiza pedido

9: genera reporte-----7

ucto

:Contador

\'",7: ~sualiza existencia

4: reci5: IelÍfica existencia pro6: IelÍfica existencia prodIX:

8: registra salida prodIX:t10: geoora reporte

-----7

:Responsable debOOega

!I 3: en~a pedido

:Gerente

38


Diagrama de Secuencia

: Contador

I

P!'Q\M8dor: Gerente . Responsable de

, . ~,' ,~,----=~-nl~C~¡)-~ro"""!~~-~, i

I9 ~e:l""a(J<'di~O ~ ,f

¡ :¡ 9, ~~a~~~~~ oJ1 : yi ¡ r~:e ped~o¡ i :

: :

\ \erifies e~lstencia prmeedor

1 ~<E==Ji \erifica <b<islencia producto

IF¡ ¡

flualíza existencia producto

¡--------------------·-------1regist~ salida producto i

0< I! i1 \

ll'inera reporte i~< g~: reporte

, ,

r Ij 1: :

39_/._JI7I7I~I?'4Ir/_/,;w.__,/././_/.!#::I/I._4Ir4lr /_/ A: I7,/1/'/#7#/#7''''_


Re¡jslrapmW:to

Respons¡i¡le de Ixxlega

DIAGRAMA DE ACTIVIDAD

•

40


DIAGRAMA DE DESPLIEGUE

SW= SISTlNV

SW=WEB

SERVER

41


DIAGRAMA DE PAQUETE

IRegistros

IExistencia

IReportes

42


Imports Systea.Data.Sq1C1ientPub1ic Class contraseña

Inherits system.Windoll's.Foras.FormDim conexion As New Sq1C1ient.Sq1ConnectionDim ya As Sq1ConnectionDim datos As New DataSetDim ver As Sq1C1ient.SqmataAdapterDim porque As New Nenu_Principa1Dim sp1ash As New frmSp1ash

'Region n Código generado por e1 Diseñador de Windoll's Forms n

Public Sub New ()MyBase.Nell'O

'El Diseñador de Windows Forms requiere esta llamada.lnitia1izeComponent()

'Agregar cualquier inicialización después de la llamada a InitializeComponent()

End Sub

'Form reemp1aza a Dispose para limpiar la lista de componentes.Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing ThenIf Not (components Is Nothing) Then

components.Dispose()End If

End IfMyBase.Dispose(disposing)

End Sub

'Requerido por el Diseñador de Windows FormsPrivate components As System.ComponentMode1.IContainer

'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento'Puede modificarse uti1izando e1Diseñador de Windows Forms.'No lo modifique con el editor de código.Friend WithEvents Labe11 As System.Windows.Forms.Labe1Friend WithEvents Labe12 As Systea.Windows.Forms.Labe1Friend WithEvents txtusuario As System.Windoll's.Forms.TextBoxFriend WithEvents txtcontraseña As System.Windoll's.Forms.TextBoxFriend WithEvents ErrorProviderl As System.Windoll's.Forms.ErrorProviderFriend WithEvents Sq1Connectionl As System.Data.SqlC1ient.Sq1ConnectionFriend WithEvents Simp1eButtonl As DevExpress.XtraEditors.Simp1eButtonFriend WithEvents Simp1eButton2 As DevExpress.XtraEdítors.Simp1eButtonFriend WithEvents 01traStatusBar1 As

Infragistics.Win.01trawinStatusBar.01traStatusBar<System.Diagnostics . Debug9'9rS1;epThrough() > Private Sub·:tnitial.izeCoJlponent ()

Dim resources As System.Resources.ResourceManager = NewSystem.Resources.ResourceManager(GetType(contraseña»

Me.Labe11 = New Systea.Windows.Foras.Labe1Me.Labe12 = New System.Windoll's.Forms.Labe1Me. txtusuario = Ne.. System.Windoll's. FOrDlS. TextBox

43


Me.t:xtconuaseña = Ne.. Systea.lI'indows.ForJD8.~t:Box

Me.BrrorProvider1 = Ne.. Systea.lI'indo_s.ForJD8.BrrorProviderMe.Sq1Connection1 = Ne.. Systea.Data.Sq1Client.SqlConnectionMe.Si.JllpleButton1 = Ne.. DevBxpress.XuaBditors.Si~leButtonMe.Si.JllpleButton2 = Ne.. DevBxpress.XuaBditors.Si~leButtonMe.UluaStatusBar1 = Ne.. J:nfragistics.Win. UluaWinStatusBar.UluaStatusBarMe. SuspendLayout ()

'Labell

Me.Labell.Font = Ne.. Systea.Dra_ing.Font("Microsoft Sana Serif", 12.0!,Systea.Dra_ing.l!'ontSty1e.Regular, Syatea.Dra_ing.GraphicaUnit.Point, CType(O, Byte»

Me.Label1.ForeColor = Systea.Dra_ing.Systeaeolors.ConuolLightLightMe.Labe11.Location = Ne.. Systea.Dra_ing.Point(48, 24)Me.Label1.Name = "Label1"Me.Label1.~abJ:ndex= OMe.Label1.~ext = "Usuario"

'Labe12

Me. Labe12 .Font = Ne.. System.Dralfing .I!'ont ("Microsoft Sans Serif", 12.O! ,System.Dra_ing.FontStyle.Regular, Systelll. Dra_ing. GraphicaUnit. Point, CType(O, Byte»

Me. Labe12 .I!'orecolor = System. Dra_ing . SyateaColors .ConuolLightLightMe.Labe12.Location = Ne.. System.Dra_ing.Point(48, 64)Me. Labe12 .Neme = "Labe12"Me.Labe12.'rabJ:ndex = 1Me.Labe12.'rext = "Conuaseña "

'txtusuario

Me.t:xtusuario.Location = Ne.. Systea.Dra_ing.Point(168, 24)Me.t:xtusuario.Name = "t:xtusuario"Me.t:xtusuario.Size = Ne.. System.Dra_ing.Size(128, 20)Me.t:xtusuario.'rabJ:ndex = 2Me.t:xtusuario.'rext = ""

'txtcontraseña

Me.t:xtconuaseña.Location = Ne.. System.Dra_ing.Point(168, 64)Me.t:xtconuaseña.Name = "t:xtconuaseña"Me.txtconuaseña.Pass_ordChar = Microsoft.VisualBasic.ChrW(42)Me.txtconuaseña.Size = Ne.. Systea.Dra_ing.Size(128, 20)Me.t:xtconuaseña.'rabJ:ndex = 3Me.t:xtconuaseña.'rext

'ErrorProviderl

Me.BrrorProvider1.ContainerControl Me

'SqlConnectionl

Me. SqlConnectionl.ConnectionSuing = "_orkstation id=SOF'rNJ:CA;packetaize=4096;user id=sa;data source=SOF'rNJ:CA;persist " &

"seeurity info='rrue;initial cata1og=SisBog;pas'i_ord="

'SimpleButtonl

Me.SimpleButtonl.J:mage = CType(resources.GetObject("Si~leButtonl.J:mage"),

Systea.Dra_ing.J:mage)Me.Si.lllpleButton1.Location = Ne.. System.Dra_ing.Point(48, 96)Me.Si.lllpleButton1.Neme = "Si.lllpleButtonl"Me.Si.lllpleButtonl.Size = Ne.. Systea.Drawing.Size(112, 40)Me.Simp1eButton1.'rabJ:ndex = 6Me.Si.JllpleButton1.'rext = "Aceptar"

'SimpleButton2

Me. Si.JllpleButton2 . J:mage = CType (resources .GetObject ("Si.JllpleButton2 •J:aage") ,System.Dra_ing.J:mage)

Me.Si.JllpleButton2.Location = Ne.. Systea.Dra_ing.Point(184, 96)Me.Si.JllpleButton2.NUIe = "SimpleButton2"Me.SimpleButton2.Size = Ne.. Systea.Dra_ing.Size(112, 40)Me.Si.lllpleButton2.'rabJ:ndex = 7Me.SimpleButton2.'rext = "Cancelar"

44


'U1traStatusBar1

Me.Ul.traStatusBarl..Location = New Systea.Draving.Point(O, 151)Me.U1traStatueBarl..Name = "Ul.trastatusBarl."Me.Ul.traStatusBar1.Size = New Syst_.Draving.Size(472, 23)Me.U1traStatusBar1.TabXndex = 8Me.U1traStatusBar1.Text = "Sieteaa De Noaina"

'contraseña

Me.AutoScal.eBaseSize = New Syst:ea.Draving.Size(5, 13)Me.BackCol.or = Systea.Draving.SystemCol.ors.Bighl.ightMe.C1ientSize = New Syetem.Draving.Size(472, 174)Me. Control.s .Add(Me.Ul.traStatusBar1)Me.Control.s.Add(Me.S~l.eButton2)

Me. Contro1s .Add(Me. S~l.eButton1)Me.Control.s.Add(Me.txtcontraseña)Me.Control.s.Add(Me.txtusuario)Me.Contro1s.Add(Me.Labe1.2)Me.Control.s .Add(Me.Labe1.1)Me.MaxiaízeBox = Fal.seMe.MiniaízeBox = Fal.seMe.Mame = "contraseña"Me.Text = "contraseña"Me. ReeumeLayout (False)

End Sub

'End Regíon

Prívate Sub txtusuario KéyPress(ByVal sender As Object, ByVal e AsSystea.Windove.Foras.Keypr;SSEventArgs) Hand1es txtueuario.KéyPress

If e.KeyChar = Microsoft.VisualBasic.ChrW(13) ThenIf Me.txt~suario.Text= Nothíng Then

Me. BrrorProvider1.SetBrror (Me. txtusuario, "por favor escriba su no.mrede usuario")

ElseMe.txtcontraseña.Focus()Me.BrrorProvider1.SetBrror(Me.txtusuario, "")

End IfEnd If

End SubPrívate Sub txtcontraseña KéyPress(ByVal sender As Object, ByVal e As

System.Wíndovs •Foras. KéypreSSEventArge) Handles txtcontraseña.KeyPreesIf e.KeyChar = Microeoft.VieualBasic.ChrW(13) Then

Me. Silllpl.eButton1 . Focus ()

End If

End Sub

Prívate Sub txtcontraseña GotFocus(ByVal sender As Object, ByVal e AsSystem.EventArge) Handles txtcontraseña.GotFocus

If Me.txtusuario.Text = Nothíng ThenMe. BrrorProvider1. SetBrror (Me. txtusuario , "por favor escriba eu nombre de

usuario")Ma.txtusuario.Focus()

Else'Me. txtcontraseña.Focus ()Ma.BrrorProvider1.SetBrror(Me.txtusuario, "")

End IfEnd Sub

Prívate Sub SÍIIlp1eButton1 Click(ByVal sender As Syetea.Object, ByVa1 e AsSyst8m.EventArgs) Handles S~l.eButton1.C1ick

Dím veri As DataRovDím usuario As StringDím passvord As StringDim paraque As BooleanDim cadena As String

45


ya '" New Sq1Connection("worltstation id=SOJ!".rlUC&;packet silr:e=4096;user id=sa;datasource=SOJ!".rlUC&;persist security info='1'rue ;initia1 cata1og=SisBoq;pas_ord=")

Me.conexion.ConnectionString '" cadenaver'" New Sq1C1ient.Sq1Dat&Mapter("se1ect usuario ,contraseña froa usuarios",

ya)ver.Tab1eMappings.Add("Tab1e", "usuarios")Try

ya.OpenOver.i!'i11 (datos)

Catch updateException As System.BxceptionMsqBox ("un error ha ocurrido. Error NuIIIber: " & Err.Nulaber &

" Description: " & Err.Description & " Source: " & Err.Source)End Tryya.C1oseO

For Each veri In datos.Tab1es("usuarios") .Rowsusuario'" veri.Item("usuario")usuario'" usuario.Tri.password '" veri.ltea("contraseña")password = password.Trim

ThenIf (Me.txtusuario.Text

paraque = TrueExít For

End IfNext

usuario) And (Me.txtcontraseña.Text password)

If paraque = True ThenMe.BideOsp1ash.ShowDia1oq()porque. ShowDia1oq()

ElseMsqBox("escriba correctamente su Usuario y Contraseña")Me. txtusuario. Text = ""Me. txtcontraseña.Text = ""Me.ErrorProvider1.SetError(Me.txtusuario, "Por ,avor Escriba Correctamente

Usuario")Me.ErrorProvider1.SetError(Me.txtcontraseña, "Por Favor Escriba

Correctamente su Contraseña")Me. txtusuario . Focus ()

End IfEnd Sub

Prívate Sub SÍlllp1eButton2 C1ick(ByVal sender As System.Object, ByVal e AsSystem.EventArqs) Handles S~1eButton2.C1ick

EndEnd Sub

Prívate Sub contraseña_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArqs) Handles MyBase.Load

End SubEnd Class

46


~)4444gw+ * "A +0$ *!w§I.

Imports Infraqistics.WinImports Infraqistics.Win.UltraWinToolbarsPublic Class Menu Principal

Inherits system.Windo1fs.Forms.Form#Region " InitializeToolbarsManaqerl "

Private Sub InitializeToo1barsManaqerl()

, Get a reference to the menu bars we created atI designtime via the customizer.Dim mainMenuBar As UltraToolbar =

Me.UltraToolbarsManaqerl.Toolbars("MainMenuBar")

, Create the File Menu'que en la primera opcion aparesca archivoDim fileMenuTool As PopupMenuTool = New PopupMenuTool ("Archivo")

fileMenuTool.ShareclProps.Caption = "'Reqistro"fileMenuTool.Allo1fTeara1fay = True'tipo de formato colorfileMenuTool. Settinqs. IsSideStripVisible DefaultableBoolean.TruefileMenuTool.Settings.SideStripText = "Softnica Solutions"fileMenuTool.Settinqs.SideStripAppearance.ForeColor = SystemColors.HiqhliqhtfileMenuTool.Settinqs.SideStripAppearance.BackColor2 = Color.WhiteSmokefileMenuTool.Settinqs.SideStripAppearance.BackGradientStyle

GradientStyle.VerticalfileMenuTool.Settings.SideStripAppearance.FontData.Bold =

DefaultableBoolean.FalsefileMenuTool.Settinqs.SideStripAppearance.FontData.SizBInPoints 8fileMenuTool.Settings.SideStripAppearance.FontData.Name = "Arial"fileMenuTool.Settinqs.SideStripAppearance.Image = 30

, Add the tool to the root tools collection.'se agrega la barra que creamos anterior menteMe.UltraToo1barsManagerl.Tools.Add(fileMenuTool)

, Add the tool to the main menu bar.mainMenuBar.Tools.Add(fileMenuTool)

, Place tools we created at designtime onto the file menu.fileMenuTool.Tools.Add(Me.UltraToo1barsManaqerl.Tools("PRODUCTO"»fileMenuTool.Tools.Add(Me.UltraToolbarsManagerl.Tools("PROVEEDORES"»

" Create the Edit MenuDim editMenuTool As PopupMenuTool = New PopupMenuTool ("Catalogos")

editMenuTool.ShareclProps.Caption = "&Catalogos"editMenuTool.Allo1fTeara1fay = True, Add the tool to the root tools collection.Me.UltraToo1barsManagerl.Tools.Add(editMenuTool)

, Add the tool to the main menu bar.mainMenuBar.Tools.Add(editMenuTool)

47


, Place tools we created at designtime onto the edit menu.editMenuTool.Tools.Add(Me.OltraToolbarBManagerl.Tools("Catalogos de Marcas"»editMenuTool . Tools . Add (Me. 01traToolbarBManagerl. Toola ("Catalogos De Medida"»

, Create 2 more menus we can use to create cascadingI menus.Dim cascadeMenuTooll As PopupMenuTool = New PopupMenuTool("cascadel")

cascadeMenuTooll . SharedProps . Caption = ''Movimientos''cascadeMenuTooll.A11owTearaway = True

cascadeMenuTool1.TOols.Add(Me.OltraToolbarSManagerl.Tools("Entrada DeProductos") )

cascadeMenuTool1.Tools.Add(Me.OltraToolbarSManagerl.Tools("Salida DeProductos") )

, Add the Cascadel menu tool to the root tools collection.Me.OltraToolbarSManagerl.Tools.Add(cascadeMenuTool1)

mainMenuBar.Tools.Add(cascadeMenuTooll}

, Add the Cascadel menu tool to the File menu tools collection.'fileMenuTool.Tools.Add(cascadeMenuTooll)

, Create a second cascading menu and add it to the firstDim cascadeMenuToo12 As PopupMenuTool = New PopupMenuTool ("cascade2")

cascadeMenuToo12.SharedProps.Caption = "Reportes"cascadeMenuToo12.A11owTearaway = TruecascadeMenuToo12.Settings.Too1Appearance.BackColor = Color.TransparentcascadeMenuToo12.Settings.Appearance.BackColor = Systemcolors.ControlDarkcascadeMenuToo12.Settings.APPearance.BackColor2 = SystemColors.ControlcascadeMenuToo12.Settings·APPearance.BackGradientStyle

GradientStyle.HorizontalBump

'Add the Cascade2 menu tool to the root tools collection.Me.OltraToolbarBManagerl.Tools.Add(cascadeMenuToo12)

, Add some tools to the menu.cascadeMenuToo12.Tools.Add(Me.OltraToolbarSManagerl.Tools("Reportes de

Productos"} )cascadeMenuToo12.Tools.Add(Me.OltraToolbarSManagerl.Tools("Reporte De

Proveedores") )cascadeMenuToo12.Tools.Add(Me.OltraToolbarBManagerl.Tools("Reportes de

Medidas"»cascadeMenuToo12.Tools.Add(Me.OltraToolbarSManagerl.Tools("Reportes de Marcas"»cascac:leMenuToo12.Tools.Add(Me.OltraToolbarsManagerl.Tools("Reportes De Salida"»cascadeMenuToo12.Tools.Add(Me.OltraToolbarsManagerl.Tools("Reporte De Entrada"»

mainMenuBar.Tools.Add(cascadeMenuTool2)

Dim cascadeMenuToo13 As PopupMenuTool = New PopupMenuTool("cascade3")

cascadeMenuToo13.SharedProps.Caption = "Ayuda"cascadeMenuToo13.A11owTearaway = TruecascadeMenuToo13.Settings.ToolAPPearance.BackColor = Color.TransparentcascadeMenuTool3.Settings.Appearance.BackColor = Systemcolors.ControlDarkcascadeMenuToo13.Settings.APPearance.BackColor2 = SystemColors.ControlcascadeMenuToo13.Settings·APPearance.BackGradientStyle

GradientStyle.HorizontalBump

cascadeMenuToo13.Tools.Add(Me.OltraToolbarsManagerl.Tools("Ayuda"))cascadeMenuToo13.Tools.Add(Me.OltraToolbarsManagerl.Tools("Acerca"»

'Add the Cascade2 menu tool to the root tools collection.

Me.UltraToolbarsManagerl.TOols.Add(cascadeMenuTool3)mainMenuBar.Tools.Add(cascadeMenuToo13)

End SubiEnd RegionItRegion " código generado por el Diseñador de Windows Forma "

Public Sub New()MyBase.New()

48


'El Diseñador de Windows Forms requiere esta llamada.lnitializecomponent()

'Agregar cualquier inicialización después de la llamada a InitializeComponent()End Sub'Form reemplaza a Dispose para limpiar la lista de componentes.Protected Overloads Overrides Sub Dispose(ByVal disposinq As Boolean)




End Sub

'Requerido por el Diseñador de Windows FormsPrivate components As System.ComponentMOdel.IContainer

'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento'Puede modificarse utilizando el Diseñador de Windows Forms.'No lo modifique con el editor de código.Friend WithEvents UltraToolbarSManagerl As

Infragistics.Win.UltraWinToolbars.UltraToolbarSManagerFriend WithEvents Menu_Principal_Fill_Panel As System.Windows.Forms.PanelFriend WithEvents Menu Principal Toolbars Dock Area Left As

Infragistics.Win.UltraWinToolbars.UltraToolbarSDockArea -Friend WithEvents Menu Principal Toolbars Dock Area R1ght As

Infragistics.Win.UltraWinToolbars.Ult;aToolbarSDockArea -Friend WithEvents Menu Principal Toolbars Dock Area Top As

Infragistics.Win.UltraWinToolbars.Ult;aToolbarsDockArea -Friend WithEvents Menu Principal Toolbars Dock Area Bottom As

Infragistics.Win.UltraWinToolbars.U1t;aToolbarsDockArea -Friend WithEvents UltraStatusBarl As

Infragistics.Win.UltraWinStatusBar.UltraStatusBarFriend WithEvents HelpProviderl As System.Windows.Forms.HelpProviderFriend WithEvents PictureBoxl As System.Windows.Forms.PictureBox<System.Diagnostics.DebuggerStepThrough(» Private Sub.lnitializecomponent()

Me.components = New System.ComponentMOdel.ContainerDim UltraToolbarl As Infragistics.Win.UltraWinToolbars.UltraToolbar New

Infragistics.Win.UltraWinToolbars.UltraToolbar("MainMenuBar")Dim UltraToolbar2 As Infragistics.Win.UltraWinToolbars.UltraToolbar New

Infragistics.Win.UltraWinToolbars.UltraToolbar("Formatting")Dim ButtonTooll As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win. UltraWinToolbars. ButtonTool ("Catalogos de Marcas")Dim ButtonToo12 As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Catalogos De Medida")Dim ButtonToo13 As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Salida De Productos")Dim ButtonToo14 As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Entrada De Productos")Dim UltraToolbar3 As Infragistics.Win.UltraWinToolbars.UltraToolbar = New

Infragistics.Win.UltraWinToolbars.UltraToolbar("Reportes")Dim ButtonToo15 As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Reportes de Productos")Dim ButtonToo16 As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Reporte De Proveedores")Dim ButtonToo17 As Infragistics.Win.UltrawinToolbars.ButtonTool New

Infragistics.Win. UltraWinToolbars. ButtonTool ("Reportes de Medidas")Dim ButtonToolS As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Reportes de Marcas")Dim ButtonToo19 As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Reporte De Entrada")Dim ButtonTool10 As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Reportes de Productos")Dim ButtonToolll As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Ayuda")Dim ButtonTool12 As Infragistics.Win.UltraWinToolbars.ButtonTool New

Infragistics.Win.UltraWinToolbars.ButtonTool("Acerca")Dim UltraToolbar4 As Infragístics.Win.UltraWinToolbars.UltraToolbar = New

Infragistics.Win.UltraWinToolbars.UltraToolbar("Registro")Dim ButtonTool13 As Infragistics.Win.UltraWinToolbars.ButtonTool = New

Infragistics.Win.UltraWinToolbars.ButtonTool("PRODUCTO")

49


Dim Butt:onTool.l.4 As Infraqistics.Win. U1traWinTool.bars. Butt:onTool. NewInfraqistics.Win. Ul.traWinTool.bars. Butt:onTool. C"PMVEEDORES")

Dim ButtonTool.l5 As Infraqistics.Win. Ul.traWinTool.bars. ButtonTool. NewInfraqistics.Win.Ul.traWinTool.bars.Butt:onToolC"PRODUCTO")

Dim Appearance1 As Infraqistics.lIin.Appearance = New Infraqistics.Win.AppearanceDim resources As Systea.Resources.ResourceManager = New

Systea.Resources.ResourceManagerCGetType(Ménu_Principal.»Dim Appearance2 As Infraqistics.Win.Appearance = New Infraqistics.Win.AppearanceDim ButtonTooll6 As Infragistics.Win.Ul.traWinTool.bars.Butt:onTool. = New

Infragistics.Win. Ul.traWinTool.bars . ButtonTool. C"PMVEEDORES")Dim Appearance3 As Infragistics.Win.Appearance = New Infragistics.Win.AppearanceDim Appearance4 As Infraqistics.Win. Appearance = New Infraqistics.Win . AppearanceDim ButtonTool.l.7 As Infragistics.Win.Ul.traWinTool.bars.Butt:onTool. = New

Infraqistics.Win.Ul.traWinTool.bars.Butt:onToolC"Cat&l.oqos de Marcas")Dim Appearance5 As Infragistics.Win.Appearance = New Infragistics.Win.AppearanceDim Appearance6 As Infraqistics.Win.Appearance = New Infragistics.Win.AppearanceDim ButtonTool.l8 As Infraqistics.Win.Ul.traWinToolbars.Butt:onTool. = New

Infragistics.Win.Ul.traWinTool.bars.ButtonTool.C"Cat&l.ogos De Medida")Dim Appearance7 As Infraqistics.Win.Appearance = New Infragistics.Win.AppearanceDiro Appearance8 As Infragistics.Win.Appearance = New Infragistics.Win.AppearanceDim ButtonTool.l9 As Infragistics.Win.Ul.trallinTool.bars.ButtonTool. = New

Infragistics.Win.Ul.traWinTool.bars.ButtonTool.C"Entrada ~ Productos")Dim Appearance9 As Infragistics.Win.Appearance = New Infragistics.Win.AppearanceDim Appearance10 As Infragistics.Win.Appearance = New

Infragistics.Win.AppearanceDim ButtonTool.20 As Infragistics.Win.Ul.traWinTool.bars.ButtonTool. New

Infragistics.Win.Ul.traWinTool.bars.ButtonTool.C"Sal.ida ~ Productos")Dim Appearancell As Infragistics.Win.Appearance New

Infragistics.Win.AppearanceDim Appearancel2 As Infragistics.Win.Appearance New

Infragistics.Win.AppearanceDim ButtonTool.2l As Infragistics.Win.Ul.traWinTool.bars.ButtonTool New

Infragistics.Win.Ul.traWinTool.bars.ButtonTool.C"Reportes de Productos")Dim Appearancel3 As Infragistics.Win.Appearance New


Infragistics.Win.AppearanceDim ButtonTool.22 As Infragistics.Win.Ul.traWinTool.ba~s.ButtonTool New

Infragistics.Win.Ul.traWinToolbars.ButtonTool.C"Reporte De Proveedores")Dim Appearancel5 As Infragistics.Win.Appearance New

Infragistics.Win.AppearanceDim Appearancel6 As Infragistics.Win.Appearance Ne..

Infragistics.Win.AppearanceDim ButtonTool.23 As Infragistics.Win.Ul.traWinToolbars.ButtonTool. New

Infragistics.Win.Ul.traWinTool.bars.ButtonTool.C"Reportes de Medidas")Dim Appearancel7 As Infragistics.Win.Appearance New


Infragistics.Win.AppearanceDim ButtonTool.24 As Infragistics.Win.Ul.traWinToolbars.ButtonTool. New

Infragistics.Win.Ul.traWinTool.bars.ButtonTool.C"Reportes de Marcas")Dim Appearancel9 As Infragistics.Win.Appearance Ne..

Infragistics.Win.AppearanceDim Appearance20 As Infragistics.Win.Appearance New

Infragistics.Win.AppearanceDim ButtonTool.25 As Infragistics.Win.UltraWinTool.bars.ButtonTool. New

Infragistics.Win.Ul.traWinTool.bars.ButtonToolC"Reporte De Entrada")Dim Appearance2l As Infragistics.Win.Appearance New


Infragistics.Win.AppearanceDim ButtonTool26 As Infragistics.Win.Ul.traWinTool.bars.ButtonTool. New

Infragistics.Win.Ul.traWinToolbars.ButtonToolC"Acerca")Dim Appearance23 As Infragistics.Win.Appearance New


Infragistics.Win.AppearanceDim ButtonTool27 As Infragistics.Win.Ul.traWinTool.bars.Butt:onTool New

Infragistics.Win.Ul.traWinToolbars.Butt:onToolC"Ayuda")Dim Appearance25 As Infraqistics.Win.Appearance = New

Infraqistics.Win.AppearanceDim ButtonTool28 As Infraqistics.Win.Ul.trawinTool.bars.ButtonTool New

Infraqistics.Win.UltraWinToolbars.ButtonToolC"Reportes De Salida")

50


Dim Appearance26 As Xnfraqistics.Win.Appearance NewXnfraqistics.Win.Appearance

Me.Ul.traToolbarsManagerl = NewXnfraqistics.Win.Ul.traWinToolbars.Ul.traToolbarSManaqer(Me.components)

Me.Menu Principal. Fil.l. Panel. = New System.Windovs.Forms.Panel.Me. Ul.traStatusBarl = N;w Xnfraqistics.Win. Ul.traWinStatusBar. Ul.traStatusBarMe. Menu Principal. Toolbars Dock Area Left = New

Xnfraqistic;.win~Ul.traWinT~olbars.ultraT~olb';sDockAreaMe. Menu Principal. Toolbars Dock Area Riqht = New

Xnfraqistic;.win~Ul.traWinT~olbars.UltraT~olb';sDockAreaMe. Menu Principal. Toolbars Dock Area Top = New

Xnfraqistic;.Win~Ul.traWinT~olbars.UltraT~olba;sDockAreaMe. Menu Principal. Toolbars Dock Area Bottolll = New

xnfraqistic;.win~Ul.traWinT~olbars.ultraT~olba;sDockAreaMe.Hel.pProviderl = New Systelll.Windovs.Forms.Hel.pProviderMe. PictureBoxl = New Systelll.Windovs. Forms . PictureBoxCType(Me.Ul.traToolbarSManaqerl,

System.ComponentModel..XSupportXnitial.ize) .BeqinXnit()Me. Menu Principal. Fil.l. Panel.. SuspendLayout OMe.Susp;ndLayout() -

'UltraToolbarsManagerl

Me.Ul.traTool.barsManaqerl.DesiqnerFl.ags = 1Me.Ul.traToolbarsManagerl.DockWithinContainer MeMe.Ul.traToolbarsManagerl.XmageTransparentCol.or = Systelll.Draving.Col.or.Sil.verMe.Ul.traToolbarsManagerl.MdiMergeabl.e = FalseMe.Ul.traToolbarsManagerl.ShovFul.l.MenusDel.ay = SOOMe.Ul.traToolbarsManagerl.Styl.e =

Xnfragistics.Win.Ul.traWinTool.bars.ToolbarStyl.e.Office2003Ul.traToolbarl..DockedCol.umn = OUl.traToolbarl.DockedRov = OUl.traTool.barl.XsMainMenuBar = TrueUl.traTool.barl. Text = ''MainMenuBar''Ul.traToolbar2.DockedCol.umn = 1Ul.traToolbar2.DockedRov = 1U1traTool.bar2.Fl.oatingLocation = New Systelll.Draving.Point(-4, 187)Ul.traTool.bar2.Fl.oatingSize = New Systelll.Draving.Size(~70, 24)Ul.traTool.bar2.Text = "Formatting"Ul.traTool.bar2.Tool.s.AddRanqe(New Xnfragistics.Win.Ul.traWinToolbars.Tool.Base()

{ButtonTool.l, ButtonTool.2, ButtonTool.3, ButtonTool.4})Ul.traTool.bar3.DockedCol.umn = 2UltraTool.bar3.DockedRov = 1Ul.traTool.bar3.Text = "Reportes"Ul.traTool.bar3.Tool.s.AddRanqe(New Xnfragistics.Win.Ul.traWinToolbars.Tool.Base()

{ButtonTool.S, ButtonTool.6, ButtonTool.7, ButtonTool.8, ButtonTool.9, ButtonTool.lO,ButtonTool.ll, ButtonTool.l2})

Ul.traTool.bar4.DockedCol.umn = OUl.traTool.bar4.DockedRov = 1Ul.traTool.bar4.Text = "Registro"Ul.traTool.bar4.Tool.s.AddRanqe(New Xnfragistics.Win.Ul.traWinToolbars.Tool.Base()

{ButtonTool.l3, ButtonTool.l4})Me.Ul.traToolbarsManagerl.Toolbars.AddRange(New

Xnfragistics.Win.Ul.traWinToolbars.Ul.traToolbar() {Ul.traTool.barl, Ul.traTool.bar2,Ul. traToolbar3, Ul.traToolbar4} )

Appearancel. Xmage = CType (resources. GetObject ("Appearancel. Xmage"), Object)ButtonTool.lS.SharedProps.AppearancesLarge.Appearance = AppearancelAppearance2. Xmage = CType (resources. GetObject ("Appearance2 . Xmage"), Object)ButtonTool.lS.SharedProps.AppearancesSmal.l..Appearance = Appearance2ButtonTool.l5.SharedProps.Caption = "PRODUCTO"ButtonTool.lS.SharedProps.Shortcut = System.Windovs.Forms.Shortcut.Ctrl.NAppearance3. Xmage = CType (resources. GetObject ("Appearance3. Xmage"), Obj ect)ButtonTool.l6.SharedProps.AppearancesLarqe.Appearance Appearance3Appearance4 . Xmage = 1ButtonTool.l6.SharedProps.AppearancesBmal.l..Appearance Appearance4ButtonTool.l6.SharedProps.Caption = "PROVEEDORES"ButtonTool.l6.SharedProps.Shortcut = Systelll.Windovs.Forms.Shortcut.Ctrl.OAppearanceS.xmage = CType(resources.GetObject("Appearance5.Xmage"), Object)ButtonTool.l.7.SharedProps.AppearancesLarqe.Appearance = AppearanceSAppearance6.Xmage = 5ButtonTool.l7 . SharedProps •AppearancesSmal.l. .Appearance = Appearance6ButtonTool.l7.SharedProps.Caption = "catal.ogos de Marcas"ButtonTool.l7.SharedProps.Shortcut = Systelll.Windovs.Forms.Shortcut.Ctrl.SAppearance7 •Xmage = CType (resources. GetObject ("Appearance7 . Xmage"), Object)

51


ButtonTool18.SharedProps.AppearancesLarge.Appearance Appearance7Appearance8.l:mage = 2ButtonTool18.SharedProps.Appearances8mall.Appearance Appearance8ButtonTool18.SharedProps.Caption = "Catalogos De Medida"ButtonTool18.SharedProps.DisplayStyle =

l:nfragistics.Win.UltraWinToo1bars.ToolDisplayStyle.DefaultForToolTypeButtonTool18.SharedProps.Shortcut = System.Windows.Forms.Shortcut.Ctr1XAppearance9.l:mage = CType (resources. GetObject ("Appearance9. l:mage"), Object)ButtonTool19.SharedProps.AppearancesLarge.Appearance Appearance9Appearancel0.l:mage = 7ButtonTool19.SharedProps.AppearancesSmall.Appearance Appearancel0ButtonTool19.SharedProps.Caption = "Entrada De Productos"ButtonTool19.SharedProps.Shortcut = System.Windows.Forms.Shortcut.CtrlCAppearancell. l:mage = CType (resources. GetObject ("Appearancell.l:mage"), Obj ect)ButtonToo120.SharedProps.AppearancesLarge.Appearance = Appearance11Appearance12. l:mage = CType (resources . GetObject ("Appearance12 . l:mage"), Object)ButtonToo120.SharedProps.Appearances8mall.Appearance = Appearance12ButtonToo120.SharedProps.Caption = "Salida De Productos"Appearance13. l:mage = CType (resources . GetObject ("Appearance13 • l:mage"), Object)ButtonToo121.SharedProps.AppearancesLarge.Appearance = Appearance13Appearance14.l:mage = CType(resources.GetObject("Appearance14.l:mage"), Object)ButtonToo121.SharedProps.Appearances8mall.Appearance = Appearance14ButtonToo121.SharedProps.Caption = "Reportes de Productos"Appearance15.l:mage = CType (resources. GetObject ("Appearance15 .l:mage"), Object)ButtonToo122.SharedProps.AppearancesLarge.Appearance = Appearance15Appearance16.l:mage = CType (resources. GetObject ("Appearance16 .l:mage"), Obj ect)ButtonToo122.SharedProps.AppearancesSmall.Appearance = Appearance16ButtonToo122.SharedProps.Caption = "Reporte De Proveedores"Appearance17.l:mage = CType(resources.GetObject("Appearance17.l:mage"), Object)ButtonToo123.SharedProps.AppearancesLarge.Appearance = Appearance17Appearance18.l:mage = CType (resources . GetObject ("Appearance18 .l:mage"), Obj ect)ButtonToo123.SharedProps.AppearancesSmall.Appearance = Appearance18ButtonToo123.SharedProps.Caption = "Reportes de Medidas"Appearance19.Image = CType (resources. GetObject ("Appearance19 .l:mage"), Object)ButtonToo124.SharedProps.AppearancesLarge.Appearance = Appearance19Appearance20.Image = CType (resources. GetObject ("Appearance20. Image"), Object)ButtonToo124.SharedProps.AppearancesSmall.Appearance = Appearance20ButtonToo124.SharedProps.Caption = "Reportes de Marcl\s"Appearance21.l:mage = CType(resources.GetObject("Appearance21.l:mage"), Object)ButtonToo125.SharedProps.AppearancesLarge.Appearance Appearance21Appearance22.l:mage = 6ButtonToo125.SharedProps.Appearances8mall.Appearance Appearance22ButtonToo125.SharedProps.Caption = "Reporte De Entrada"Appearance23.l:mage = CType (resources. GetObject ("Appearance23. :l:mage"), Obj ect)ButtonToo126.SharedProps.AppearancesLarge.Appearance = Appearance23Appearance24.Image = CType (resources. GetObject ("Appearance24 .l:mage"), Obj ect)ButtonToo126.SharedProps.Appearances8mall.Appearance = Appearance24ButtonToo126.SharedProps.Caption = "Acerca"ButtonToo126.SharedProps.CustolllizerCaption = "Acerca"Appearance25.Image = CType (resources. GetObject ("Appearance25 .l:mage"), Object)ButtonToo127.SharedProps.AppearancesLarge.Appearance = Appearance25ButtonToo127.SharedProps.Caption = "Ayuda"Appearance26. Image = CType (resources . GetObject ("Appearance26 . l:maqe"), Object)ButtonToo128.SharedProps.AppearancesLarge.Appearance = Appearance26ButtonToo128.SharedProps.Caption = "Reportes De Salida"Me.UltraToo1barsManager1.Tools.AddRange(New

Infragistics.Win.UltraWinToolbars.ToolBase{) {ButtonToo115, ButtonToo116, ButtonToo117,ButtonToo118, ButtonToo119, ButtonToo120, ButtonToo121, ButtonToo122, ButtonToo123,ButtonToo124, ButtonToo125, ButtonToo126, ButtonToo127, ButtonToo128})

Me.UltraToo1barsManager1.UseLargeImagesOnMenu = TrueMe.UltraToo1barsManagerl.UseLargeImagesOnToo1bar = True

Me.Menu_Principal_Fill_Panel.Controls.Add(Me.UltraStatusBar1)Me.Menu Principal Fill Panel.Controls.Add(Me.PictureBoxl)Me.Menu-principal-Fill-panel.Cursor = System.Windows.Forms.Cursors.Defau1tMe.Menu-principal-Fil1-panel.Dock = System.Windows.Forms.DockStyle.FillMe.Menu-principal-Fill-panel.Location = New System.Drawing.Point{O, 62}Me.Men';-principal-Fill-Panel. Name = ''Menu Principal Fill Panel"Me.Menu-principal-Fil1-panel.Size = New sYstem.Drawing.Size{1028, 616)Me.Menu=principal=Fill=panel.Tabl:ndex = O

'UltraStatusBarl

52


Me.UltraStatusBarl.Location = New System.Drawing.Point(O, 593)Me.UltraStatusBarl.Name = "UltraStatusBarl"Me.UltraStatusBarl.Size = New System.Dravinq.Size(1028, 23)Me. UltraStatusBar1 . Tab:Index = 1

Me. Menu Principal Too1bars Dock Area Left.AccessibleRoleSystem.Wind"Ows.F"Orms.AccesSibleRole-:-GrouPing -

Me. Menu principal Too1bars Dock Area Left.BackColor =system.Drawing.C"Olor.Fro~gb(CType(158,-Byte), CType(190, Byte), CType(24S, Byte»

Me. Menu Principal Too1bars Dock Area Left.DockedPosition:Infragistics.Win-:-UltraWinT"Oo1bars.D"OckedPosition.Left

Me. Menu Principa1 Too1bars Dock Area Left.Forecolor =System.Dravinq.sYstemColors.ControlText - -

Me. Menu Principal Too1bars Dock Area Left.Location = NewSystem. Drawinq. P"Oint (O , 62) - - -

Me. Menu Principal Too1bars Dock Area Left.Name" Menu prin-;;ipal-Toolbars Dock Area-Left7." -- - Me._Menu=PrincipaI_Toolbars=Dock_Area_Left.size New System.Drawing.Size(O,

616)Me. Menu Principal Too1bars Dock Area Left.Too1barsManager

Me. UltraTooIbarsManager1 - - - -

Me. Menu Principal Too1bars Dock Area Right.AccessibleRoleSystem. Wind"Ows . F"Orms .AccessibleRole-:-GrouPing -

Me. Menu Principal Too1bars Dock Area Right. BackColor =system.Draving.C"Olor.Fro~gb(CType(158,-Byte), CType(190, Byte), CType(245, Byte»

Me. Menu Principal Toolbars Dock Area Right.DockedPositionInfragistics.Win-:-UltraWinT"Oo1bars.D"OckedPosition.Right

Me._Menu_Principal_Too1bars_Dock_Area_Right.ForeColor =System.Dravinq.Systemcolors.ControlText

Me. Menu Principal Toolbars Dock Area Right.Location = Newsystem.Drawinq.p"Oint(1028 ,-62) - - -

Me._Menu_Principal_Too1bars_Dock_Area_Right.Name" Menu Principal Toolbars Dock Area Right"- - Me._Menu=principaI_TooIbars=Dock_Area_Right.Size New System.Drawinq.Size(O,

616)Me. Menu Principal Toolbars Dock Area Right.ToolbarsManager

Me.UltraTooIbarsManager1 - - - -

'_Menu_Principal_Toolbars Dock Area Top

Me. Menu Principal Toolbars Dock Area Top.AccessibleRoleSystem.Wind"Ows.F"Orms.AccessibleRole-:-GrouPing -

Me. Menu Principal Toolbars Dock Area Top.BackColor =system.Drawing.C"Olor.Fro~gb(CType(158,-Byte), CType(190, Byte), CType(245, Byte»

Me. Menu Principa1 Too1bars Dock Area Top.DockedPositionInfragistics.Win-:-UltraWinT"Oolbars.D"OckedPosition.Top

Me. Menu Principal Toolbars Dock Area Top.ForeColor =System.Draving.SYstemColors.ControlText - -

Me._Menu_Principal_Toolbars_Dock~ea_Top.Location = New System.Drawinq.Point(O,O)

Me. Menu Principal Toolbars Dock Area Top. Name" Menu prin-;;ipal-Too1bars Dock Area-Top"- -- - Me._Menu=PrincipaI_Toolbars=Dock_Area_Top.Size

62)New System.Drawing.Size(1028,

Me. Menu Principal Too1bars Dock Area Top.ToolbarsManagerMe. UltraTooIbarsManagerl - - - -

• Menu_Principal_Toolbars Dock Area Bottom

Me. Menu Principal Toolbars Dock Area Bottom.AccessibleRoleSystem.Wind"Ows.F"Orms.AccessibleRole-:-GrouPing -

Me. Menu Principal Too1bars Dock Area Bottom.BackColor =System.Drawing.C"Olor.Fro~gb(CType(158,-Byte), CType(190, Byte), CType(245, Byte»

Me. Menu Principal Toolbars Dock Area Bottom.DockedPositionInfragistics.Win-:-UltraWinT"Oo1bars.D"OckedPosition.Bottom

Me. Menu Principal Too1bars Dock Area Bottom.ForeColorSystem.Draving.sYstemColors.ControlText - -

53


Me. Menu Principa1 Too1bars Dock Area BottOlll.Location NewSystem. DravInq. P;int (O , 670) - - -

Me. Menu Principa1 Too1bars Doclt Area Bottolll.Haae" Menu principal-'l'oo1bara Dock Area-Bott;." -- - Me. Menu-principa1 Toolbara-Doclt Area Bottom.Size New

Syatem.DravInq.SIze(l02S, O) - - -Me. Menu Principal 'l'oo1bars Doclt Area Bottoa.'l'oolbaraManaqer

Me.Ultra'l'ooIbar~aqer1 - - - -

'HelpProvider1

Me.HelpProvider1.HelpHameapace

'PictureBoxl

"C:\help\ayudainvenario2.chm"

Me.PictureBoxl.Imaqe = C'l'ype(resources.Getobject("PictureBox1.Iaage") ,Syatem.Dravinq.Iaage)

Me.PictureBoxl.Location = New System.Dravinq.Point(O, S)Me.pictureBox1.Hame = "PictureBox1"Me.pictureBox1.Size = New System.Dravinq.Size(1032, 60S)Me.PíctureBox1.SizeMede = System.Windovs.Forme.PictureBOXSizeMode.StretchImaqeMe.pictureBox1.'l'abIndex = OMe.PictureBox1.'l'abStop = False

'Menu_Principal

Me.AutoScaleBaseSize = New System.Draving.Size(5, 13)Me.ClientSize = New System.Draving.Size(1028, 678)Me.Controls.Add(Me.Menu_Principal_Fill_Panel)Me.Controls.Add(Me. Menu Principal 'l'oolbars Dock Area Left)Me.Controla.Add(Me.=Menu=principal='l'oo1bara=Dock=Area=Right)Me.Controla.Add(Me._Menu_Principal_'l'oolbara_DOck_Area_'l'op)Me.controls.Add(Me._Menu_Principal_'l'oo1bars_Doclt_Area_Bottom)Me.Hame '" ''Menu_Principal"Me.'l'ext = ''Menu Principal"Me.WindovState =System.Wíndovs.Forma.FormJfindovState.MaximizedC'l'ype(Me.Ultra'l'oo1baraManager1,

System.ComponentMQdel.ISupportInitialize) .Endrnit()Me.Menu Principal Fill Panel.ResumeLayout(False)Me.Res~ayout(F~lse)-

End SubItEnd Region

Private Sub Menu Principal Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Ha~dles MyBase.Load

InitializeToolbarsManaqer1()End SubPrivate Sub UltraToolbarsManager1 ToolClick(ByVal sender As Object, ByVal e As

Infraqistics.win.ultraWinToolbars.'l'oolClickEventArqs) HandlesUltraToolbarsManager1.ToolClick

If e.'l'ool.Key = "PRODUCTO" ThenDim q As New Productoq. ShovDialog ()g.CloseO

End If

If e.'l'ool.Key = "PROVEEDORES" ThenDim 9 As New Proveedoresg. ShowDialog Oq.CloseO

End If

If e.Tool.Key = "Entrada De Productos" ThenDim 9 As New Registro de Entradag.ShowDialoq() - -q.CloseO

End If

If e.'l'ool.Key = "Salida De Productos" ThenDim q As New Registro de Salidag. ShowDialog O - - -q.Close()

End If

If e.'l'ool.Key "Catalogos De Medida" Then

54


Dilll q As New Foral<J. ShovDialoqOq.CloseO

End If

If e.Tool.Key == "Cataloqos de Marcas" ThenDim q As New Marcaq. ShovDialoq Oq.CloseO

End If

If e.Tool.~y == "Repoz:tes de Productos" ThenDilll q As New vieweJ:Productoq. ShowDialoq Oq.CloseO

End If

If e.Tool.ltey == "Repoz:te De Entrada" ThenDim q As New viewez:entz:adaq . ShovDialoq ()q.CloseO

End IfIf e.Tool.ltey == "Repoz:tes de Marcas" Then

Dim q As New viewerMaz:casq. ShowDialoq Oq.CloseO

End If

If e.Tool.Key == "Reportes de Medidas" ThenDim q As New viewez:Medidasq. ShovDialoq Oq.CloseO

End If

If e.Tool.Key == "Repoz:te De Pz:oveedoz:es" ThenDim q As New ViewerProveedoresq . ShovDialoq ()q.CloseO

End If

If e.Tool.Key == "Reportes De Salida" ThenDim q As New vieversalidaq. ShovDialoq ()q.CloseO

End If

If e.Tool.~y == "Ayuda" ThenHelp.ShowHelp(Me, Me.HelpProviderl.HelpNaDlespace)

End If

If e.Tool.~y == "Acerca" ThenDim q As New Acercaq. ShovDialoq ()q.CloseO

End IfEnd Sub

Private Sub Henu Principal Fill Panel Paint(ByVal sender As Systelll.Object, ByVal eAs system.WindoWS.Foims.paintE;entA;qs) H~ndles Henu_Principal_Fill_Panel.Paint

End Sub

Private Sub PictureBoxl Click(ByVal sender As System.Object, ByVal e AsSystem.EventArqs) Handles PIctureBoxl.Click

End SubEnd Class

55


~----'-----"'_._--_ .._----']

1::B?~CXi----==::'::::'===-,';';{!

[Q..~===,::,:-_===~c~~1l_~_~~_~~ . ..._._ ....._.J

IY~ _...:~_.=--==.:.~==.:.~::.:.::.:.:-;~¡

Public Class Productolnherits System.Windows.Forms.Form

'Region n Código generado por e1 Diseñador de Windo1rs Forma n

Public Sub New()MyBase.New()

'El Diseñador de Windows Forms requiere esta llamada.Znitia1izecoJBponent ()

'Agregar cualquier inicialización después de la llamada a lnitializeComponent()End Sub

'Form reemplaza a Dispose para limpiar la lista de componentes.Protected Overloads Overrides Sub Di~se(ByVal disposing As Boolean)

lf di~sing Thenlf Not (components ls Nothing) Then

eomponents.Di~ose()

End lfEnd lfMyBase.Di~se(disposing)

End Sub

'Requerido por el Diseñador de Windows FormsPrivate eomponents As System.ComponentMOde1.ZContainer

'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento'Puede modificarse utilizando el Diseñador de Windows Forms.'No lo modifique con el editor de código.Friend WithEvents U1traGroupBoxl As Znfragisties .•in .Mise.U1traGroupBoxFriend WithEvents U1traGroupBox2 As Znfragisties.Win.Mise.U1traGroupBoxFriend WithEvents CIDbNavigatorl As Cl.Win.ClZnput.C1DbNavigatorFriend WithEvents-U1traLabe16 As Znfragisties.Win.Mise.U1traLabe1.Friend WithEvents U1traLabe15 As Infragisties.Win.Mise.U1traLabelFriend WithEvents U1traLabe14 As Infragisties.Win.Mise.U1traLabelFriend WithEvents UltraLabe12 As Znfragistics.1fin.Misc.UltraLabel.Friend WithEvents U1.traLabe11 As Znfragisties.Win.Misc.U1traLabelFriend WithEvents U1traTextEditor2 As

Znfragisties.Win. U1traWinEditors.U1traTextEditorFriend WithEvents U1.traTextEditorl As

Infragisties.Win. U1traWinEditors.U1traTextEditorFriend WithEvents U1traButtonl As Znfragisties.Win.Mise. U1traButtonFriend WithEvents UltraStatusBarl As

Infragisties.Win. U1traWinStatusBar.U1trastatusBarFriend WithEvents RavBarContro1.1 As DevExpress.XtraHavBar.NavBarControlFriend WithEvents NavBarGroupl As DevBxpress.XtraHavBar.NavBarGroupFriend WithEvents NavBarContro12 As DevExpress.XtraNavBar.NavBarControlFriend WithEvents NavBarGroup2 As DevBxpress.XtraHavBar . NavBarGroupFriend WithEvents UltraCombol As Znfragistics.Win. U1traWinGrid. U1traComboFriend WithEvents U1.traCombo2 As Znfragistics.Win. U1tralfinGrid. Ul.traComboFriend WithEvents U1traCombo3 As Znfragisties.Win.U1traWinGrid.U1traComboFriend WithEvents U1traLabe17 As Znfragistics.Win.Misc.U1traLabe1.Friend WithEvents U1traTextEditor4 As

Infragistics.Win.U1tralfiDEditors.U1traTextEditorFriend WithEvents U1traLabe18 As Znfragisties.Win.Mise.U1traLahel.Friend WithEvents Ul.traComboEditorl As

Znfragisties.lfin.U1uaWinEditors.U1traComboEditorFriend WithEvents C1DataSetl As Cl.Data.C1DataSet

56

Sistema de Inventario. Empresa COMDELEC Curso de Graduación 2005·

New

New

New

New

New

New

New

New

New

New

New

New

New

New

New.

New

New

New

New

New

New

Ne"

New Infragistics .•in•AppearanceNew Infragistics .1fin .AppearanceNew Infragi8tics.•in•AppearanceNew Infragistics.Win.AppearanceNew Infragistics.Win . AppearanceNew Infragistics.Win .AppearanceNew Infs:agi8tica .1fin•AppearanceNew Infragistics.Win .APPearanceNew I~ragistics .•in.APPearance

New - -

Friend WithEvents OpenFi1eDial.oql As Syat:ea.1find.ova.l'oraa.OpenI'i,leDialogFxiend WithEvents C1ScheaaDefl As Cl.Data.C1SchmIaDefFriend WithEvents C1PictureBozl As Cl.Win.C1Znput.ClPictureBoz<Syat:e.. Diagnostica. DebuggerStepThxough () > Private Sub Zni.tial:izeco.ponent ()

Dim Val.ueListZtem1 As Znfragiatics.Win.Va1ueL1atZtea = Ne"Znfragistics.W:in.Val.ueListltem

Dim Val.ueListZtem2 As Infragistics.1fin.Va1ueListZtea = Ne"Znfragistics.Win.Va1ueLiatI~ -

Dim ValueListlte1a3 As Infragistics.lfin.Val.ueListItea = NewZnfragistics.Win.Val.ueLiatltea

Dim A¡;pearancel As Infragistics.W:in.AppearanceDim Appearance2 As Infragistic$ .1fin.AppearanceDim Appearance3 As Znfragistics .1fin .AppearanceDim Appearance4 As Infragistics .1fin.AppearanceDim AppearanceS As Infragistics.Win.AppearanceDim Appearance6 As Infragistics.1fin.AppearanceDim .appearance1 As Infragistics.1fin.Appearance =Dim Appearanoe8 As Infragistics.Win.Appearance =Dim Appearance9 As Infragistics.1fin.Appearance =Dim AppearancelO As Infragistics.Win.Appearance

InfragistiC8.Win.AppearanceDim Appearancell As Infragistics.Win.Appearance =" Ne"

Infragistics.Win.AppearanceDim Appearance12 As Infragistics.Win.Appearance


Infragistics.Win.AppearanceDim Appearance14 As Infragistics.1fin.Appearance





Infragistics.Win.AppearanceDim Appearance19 As Infragistics.lIin.Appearance

Infragistics.1fin.AppearanceDim Appearance20 As Infragistics .1fin . Appearance

Infragistics.1fin.AppearanceDim Appearance21 As Infragistics.1fin.Appearance

Infragistics.Win.Appearance.. Dim Appearance22 As Infragistics.1fin.Appearance

Infragistics.Win.AppearanceDim Appearance23 As Infragistics.Win. Appearance

Infragistics.1fin.AppearanceDim Appearance24 As Infragistics.Win. Appearance

Infragistics.Win.AppearanceDim Appearance25 As Infragistics .1fin .Appearance

Infragistics.Win.AppearanceDim Appearance26 As Infragistics.Win . Appearance

Infragistics.Win.AppearanceDim Appearance2'1 As Infragist3.cs.Win.Appearance = New

Infragistics.Win.AppearanceDim Appearance28 As Infragistics .1fin•Appearance

Infragistics.1fin.AppearanceDim Appearance29 As Infragistics.1fin.Appearance

tlnfragistics.1fin.Appearance-. Dim Appearance30 As Infragistics.1fin.AppearanceInfragistics.Win.Appearance

Dim Appearance31 As Infragistics .Win.AppearanceInfragistics.Win.Appearance

Dim Appearance32 As Infragistics.1fin.Appearance = NawInfragistics.Win.Appearance

Dim Appearance33 As Infragiatics .1Iin.AppearanceInfragistics.Win.Appearance

Dim Appearance34 As Infragistics .1fin .AppearanceInfragistics.Win.Appearance

Dim Appearance35 As Infragistics.Win.AppearanceInfragistics.Win.Appearance

Dim Appearance36 As Infragistics.Win.Appearance = NewInfragistics.Win.Appearance

57


Dim resources As Syst:ea.Resources.ResourceManaqer = NewSystea.Resources •ResourceManager (GetType (Producto) )

Me. ultraGroupBox1 = New Xnfragistics.Win.Mísc. UltraGroupBoxMe.C1PictureBox1 = New C1.Win.C1Xnput.C1PictureBoxMe.U1traCOIIIboBditor1 = New Xnfragistics.Win.UltraWinBditora.Ultraeo.boBditorMe.UltraLabe18 = Ne.. Xnfragistics.Win.Misc.UltraLabe1Me.Ultra~extBditor4 = Ne.. Xnfragistics.Win. UltraWinBditors.Ultra~extBditorMe.UltraLabe3.7 Ne.. Xnfragistics.Win.Misc.uitraLabe1Me.UltraCo-bo3 Ne.. Xnfragistics.Win.UltraWinGrid.UltraCo-boMe. UltraC0IIIb02 Ne.. Xnfragistics.Win. UltraWinGrid. UltraCoIlboMe. UltraC0IIIb01 New I:nfragistics.Win. UltraWinGrid. UltraCOIIIboMe.UltraGroupBox2 = Ne.. I:nfragistics.Win.Misc.U1traGroupBoxMe.C1DbNavigator1 = Ne.. C1.Win.C1I:nput.C1DbNavigatorMe.UltraL8be16 Ne.. Xnfragistics.Win.Misc.U1traLabe1Me. UltraLsbe15 Ne.. Xnfragistics.Win.Misc.U1traLabe1Me.UltraLabe14 Ne.. Xnfragisq.cs.Win.Misc.U1traLabe1Me.UltraLabe12 Ne.. Xnfragistics.Win.Misc.U1traLabe1Me.UltraLabe11 Ne.. I:nfragistics.Win.Misc.U1traLabe1Me. U1traTextBditor2 = Ne.. Xnfragistics.Win.U1traWinBditors.Ultra~extBditorMe. U1tra~extBditor1 = Ne.. Xnfragistics.Win.U1traWinBditors.Ultra~extBditorMe.UltraButton1 = Ne.. Xnfragistics.Win.Misc.UltraButtonMe. UltraStatusBar1 = Ne.. I:nfragistics.Win. UltraWinStatusBar.UltraStatusBarMe.NavBarContro11 = Ne.. DevExpress.XtraNavBar.NavBarControlMe. NavBarGroup1 = Ne.. DevBxpress .XtraNavBar . NavBarGroupMe.NavBarContro12 = Ne.. DevBxpress.XtraNavBar.NavBareontrolMe. NavBarGroup2 Ne.. DevExpress .XtraNavBar •NavBarGroupMe.C1DataSetl = Ne.. Cl.Data.C1DataSetMe.C1SchemaDef1 = Ne.. C1.Data.C1SchealSDefMe.OpenJ!'ileDialog1 = Ne.. Syat:eJll.Windo..s.Foras.OpenFileDia1ogCType (Me.UltraGroupBoxl, Syst:eJll. ComponentModel. XSupportI:nitia1ize) . BeginXnit OMe. U1traGroupBox1. SuspendLayout ()CType (Me. UltraComboBditorl ,

System.ComponentModel.XSupportXnitialize) .BeginXnit()CType (Me. Ultra~extBditor4, System..ComponentMode1 •I:SupportI:nitialize) •BeginI:nit ()CType (Me. U1traCombo3, Bystea.COlllpOnentMode1. I:SupportXnitia1ize) •BeginI:nit ()CType (Me. UltraCombo2 , Systea. ComponentModel . XSupportXnitia1ize) •BeginInit ()CType (Me. UltraCombo1, Systela.ColllpOnentModel. ISupportInitialize) . BeginI:nit ()CType (Me.UltraGroupBox2, Syst:eJll. ComponentMode1 •ISuppqrtInitialize) . BeginInit ()Me. U1traGroupBox2 . SuspendLayout ()cType (Me. C1DbNavigator1, Systea.ComponentModel . ISupportInitia1ize) . BeginXnit ()cType (Me. Ultra~tBditor2, Syst:eJll. ComponentModel. I:SupportInitialize) . BeginXnit ()cType (Me. U1traTextBditor1, Systea.ComponentMode1. XSupportInitia1ize) . BeginXnit ()cType (Me. NavBarControl1, Syst:eJll.ComponentModel. ISupportXnitialize) . BeginI:nit ()cType (Me. NavBarContro12, Syst:eJll. C01IIponentMode1. XSupportXnitialize) . BeginI:nit OCType(Me. C1DataSetl, Byst:eJll.ComponentModel.ISupportInitia1ize) .BeginInit()CType(Me.C1SchemaDef1, Syst:eJll.COIIIpOnentMode1.XSupportXnitialize) .BeginI:nitOMe. SuspendLayout ()

'Ul.traGroupBoxl

Me.U1traGroupBoxl.Controls.Add(Me.C1PictureBox1)Me.U1traGroupBox1.Contro1s.Add(Me.UltraComboBditor1)Me.U1traGroupBoxl.Controls.Add(Me.U1traLsbe18)Me.U1traGroupBox1.Contro1s.Add(Me.U1tra~extBditor4)

Me. U1traGroupBox1.Contro1s .Add(Me. UltraLabe17)Me. U1traGroupBoxl.Controls .Add(Me. UltraCombo3)Me.U1traGroupBox1.Controls.Add(Me.U1traCombo2)Me.U1traGroupBox1.Controls.Add(Me.U1traCombo1)Me. UltraGroupBoxl.Controls .Add(Me. u1traGroupBox2)Me.UltraGroupBoxl.Controls.Add(Me.U1traLabe16)Me.U1traGroupBox1.Controls.Add(Me.UltraLabe15)Me.UltraGroupBox1.Controls.Add(Me.U1traLabe14)Me.UltraGroupBoxl.Controls.Add(Me.UltraLabe12)Me.UltraGroupBox1.Controls.Add(Me.UltraLabel1)Me.U1traGroupBoxl.Contro1s.Add(Me.UltraTextBditor2)Me.UltraGroupBox1.Controls.Add(Me.Ultra~tBditor1)

Me.U1traGroupBox1.Controls.Add(Me.UltraButton1)Me.UltraGroupBox1.Location = Ne.. Systea.Draving.Point(O, 56)Me. UltraGroupBoxl.Name = "UltraGroupBox1"Me.U1traGroupBox1.Size = Ne.. Bystea.Draving.Size(776, 520)Me.U1traGroupBox1.SupportTbemes = FalseMe. ultraGroupBox1. ~abXndex = 1Me.UltraGroupBoxl.Text = "Productos"Me.U1traGroupBox1.Vi_Style = Xnfragistics.Win.Misc.GroupBoXVievSty1e.Office2003

58


'C1PictureBoxl

Me.CIPictureBozl.Locatíon = New Sys1:ea.Draving.Point(504, 48)Me.CIPictureBozl.Ma.e = "CIPictureBoxl"Me.C1PictureBoxl.Size =New Systea.Drawing.Size(208, 184)Me.C1PictureBoxl.SizeMocle = Systea.1findows.Forms.PictureBoxSizeMode.StretchI1IageMe.CIPictureBoxl.TabIndex 24

'UltraComboEditorl

ValueListItem1.DataVa1ue mva1ueListItemO"ValueListIteal.Disp1ayrext = "B1ecuocro-estiCbS"ValueListItea2.DataVa1ue = nva1ueListJ:teal"ValueListItea2 .Disp1ayrezt = "Productos del Bogar"Va1ueListItem3.DataVa1ue = nva1ueListI~n

ValueListltea3.Disp1ayrext = "Otros"Me.U1traComboBditorl.Iteas.Acfd(Va1ueListlteal)Me. U1traComboBditorl. Iteas .Add(Val1ieL1stlteIa2)Me. U1traCOJIlboBditorl.l:qms .Add(ValueListzt;ea3)Me.UltraComboBditor1.Location = New Sys'tea.Dralling.Point(168, 288)Me. U1traComboBditorl. MaBte = "Ol.traCOJ!lboEditor1" .Me.U1traComboBditorl.Size = New Sy8teDl.Drawing.Size(224~21)

Me.U1traCoJllboEditor1.Tablndex = 23

'UltraLabe18

Me.U1traLabe18.BackCo1or = Syste..Draving.Co1or.TransparentMe.U1traLabe18.Location = New Systea.Draving.Point(24, 288)Me. UltraLabe18 . Mame = "UltraLabe18 nMe.U1traLabe18.Size = New Systea.Draving.Size(129, 24)Me. 01traLabel8. Tabl:ndex = 22Me. ultraLabe18. Text = "Tipo Producto"

'UltraTextEditor4

Me.UltraTextEditor4.Location = New Syste1a.Dravíng.Point(168, 248)Me. UltraTextEditor4 . Mame = "UItraTextEditor4 n

Me.U1traTextEditor4.Size = New System.Draving.Size(216, 21)Me.UltraTextEditor4.Tablndex = 21

'UltraLabe17

Me.UltraLabe17.BackColor = System.Draving.Color.TransparentMe.UltraLabe17.Location = New System.Draving.Point(24, 248)Me. UltraLabe17 .Mame = "UltraLabel7"Me.UltraLabe17.Size = New Syst:em.Draving.Síze(l28, 24)Me.UltraLabe17.TabIndex =20Me.UltraLabe17.Text = "Descripcion;P

'UltraCombo3

Me.UltraCombo3.CharacterCasing = System.Windovs.Forms.CharacterCasing.MormalAppearance1.BackCo1or = SysteB.Drawing.SystemCo1ors.WindowAppearance1.BorderColor = Systea.Drawing.SystemCo1ors.InactivecaptionMe. UltraCombo3. DisplayLayout .Appearance = Appearance1

}. Me.U1traCombo3.DisplayLayout.BorderSty1e =~Infragistícs.Win.UIB1ementBorderStyle.So1id

Me.U1traCombo3.DisplayLayout.C&ptionVisibleInfragistics.Win.Defaultab1eBoolean.False

Appearance2.BackCo1or = Systea.Drawing.SystemColors.ActiveBorderAppearance2. BackColor2 = System.Draving. Systemeolors .Contro1DarkAppearance2. BackGradientStyle = Infragistics.Vin. GradientStyle.VerticalAppearance2.BorderColor = Systea.Drawing.SystellColors.VindowMe. U1traCombó3 •DisplayLayout. GroupByBox.Appearance = Appearance2Appearance3.For8Co1or = SysteR.Drawing.SysteBColors.Gra~ext

Me.U1traC0JIIb03.DisplayLayout.GroupByBoz.BandLabelAppearance = Appearance3Me. U1traC0JIIb03. DisplayLayout . GroupByBox .BorderStyle =

Infragistics.Win.UXB1ementBorderSty1e.SolidAppearance4.BackColor = Syst8Jll.Drawing. Syst..eo1ors .ControlLightLigbtAp.pearance4.BackColor2 = Systea.Draving.Sys~lors.Control

Appearance4.BackGradientStyle =Znfragistics.Win.GradientSty1e.BoriaontalAppearance4.For8Color = SysteJll.Drawing.SystellColors.Gray'l'extMe. UltraCombo3 •DisplayLayout .GroupByBox. PromptAppearance = Appearance4

59


~$.01.1:raCoabo3.Displ.ayLayout.MaxColScroll.Begions =: 1Me. 01.1:raC0IBb03 •Disp1ayLayout•MadowScro11Regions = 1Appearance5.BackCo1or = SysteD.Drawing.Syste.Co1ors.WindowAppearance5.ForeCo1or = Systea.Draving.Syste.Co1ors.Con1:ro1TestMe.01traCoJDbo3 .DisplayLayout.Override •ActiveeellJlppearance = AppearanceSAppearance6 .BackCo1or = Systea.Draving. SystellColors •Bigh1ightAppearanc:e6.ForeCo1or = Systea.Drawing.Syste.Co1ors.Bigh1igbtTextMe. 0l.1:raeo.bo3 •DisplayLayout.~ride•.ActiveRovAppearanee = Appearance6Me.0l.traCombo3.Disp1ayLayout.Override.BorderSty1eCe11 =

Xnfragistics.Win~UXE1ementBorderSty1e.Dotted

Me. 01.traCombo3 .Disp1ayLayout.Override.BorderSty1eRow =Xnfragistics.Win.UXE1ementBorderSty1e.Dotted

Appearance7.BackCo1or = SysteD.Draving.SysteJaCo1ors.WindowMe. 011:raC0JIIb03 . Disp1ayLayout. Override. CardAreaAppearance = Appearanc:e7AppearanceS.BorderCo1or = SysteD.Draving.Color.Si1verAppearanc:eS . TextTr:i.-=ing = Infragistic:s.Win. TextTri-.ing •E11ipsisCharacterMe. U11:raCombo3. Disp1ayLayout.Override.Cell.Appearance = AppearanceSMe.OltraCombo3.Diap1ayLayout.Override.Ce11C1ickAction =

Xnfragistics •Win. U1traWinGrid.Ce11C1ickAction. Edit:And8e1ectText:Me.U1traCoJDbo3.Diap1ayLayout.Override.Ce11Padding = OAppearance9.BackColor = Systea.Drawing.Syste.eolors.ControlAppearance9.BackCo1or2 = Systea.Dra.ing.SystemCo1ors.Con~o1Dark

Appearance9 •BackGradientA1igmaent .= Xnfragistics .1fin~Gr.:dient:Alignment,.ElementAppearance9 . BackGradientStyle = Infragistics .trin.Gradientstyle.BorizontalAppearance9.BorderCo1or = Systea.Draving.SystemCo1ors.WindovMe.OltraCombo3.Diap1ayLayout.Override.GroupByRovAppearance = Appearance9Appearance10 . Tez:tBAl.ign = Infragistics.Win. BAl.ign .LeftMe.U1traCombo3.Disp1ayLayout.Override.BeaderAppearance =Appearancel0Me.U1traCoabo3.Diap1ayLayout.Override.BeaderClic:kAction ==

Xnfragistics.Win.U1traWinGrid.BeaderClickAction.SortMUltiMe. U1traCoabo3.Diap1ayLayout.Override. HeaderSty1e =

Xnfragistics.Win.HeaderSty1e.WindovsXPCc.aandAppearance11.Bac:kColor = Systea.Drawing.Systemeo1ors.1findovAppearance11.BorderCo1or = SysteD.Drawing.Color.Si1verMe. U1traCombo3 .DisplayLayout .Override. RovAppearance = AppearancellMe.U1traCombo3.DisplayLayout.Override.RowSelectors =

Infragistics.Win.Defaultable8001ean.FalseAppearance12.Bac:kCo1or = Systea.Dra.ing.SystemColors~Con1:roLLight

Me.UltraCombo3.DisplayLayout.Override.Te-plateAddRovAppearance =Appearance12Me.UltraCombo3.Disp1ayLayout.Sc:ro11Bounds =

Xnfragistics.Win.UltraWinGrid.ScrollBounds.Scro11ToFillMe.UltraCombo3.DisplayLayout.Scrol1Style =

Xnfragistics.Win.Ul1:raWinGrid.Sc:rollStyle.Xmmediate- Me. U11:raCombo3. DisplayLayout.ViewStyleBand =

Infragistics.Win.01traWinGrid.ViewSty1eBand.OUtlookGroupByMe. 01traCombo3. Disp1ayMember = n"Me.U1traCoIDbo3.Location = New System.Drawing.Point(169, 209)Me. U1traCombo3 •Mame = "Ul1:raCombo3 n

Me.U1traCombo3.Size = New SysteDl.Drawing.Size(144, 21)Me.U1traCombo3.T&bIndex = 19Me.Ul1:raCombo3.ValueMember

'UltraCombo2

Me.UltraCoIDbo2.Characi:erCasing = Systea.W.indovs.ForlllS.CharacterCasinq.N'o.nlalAppearance13.BackColor = Systea.Dra_ing.SystemColors.WindowAppearance13.BorderColor = Systea.Draving.Systemeolors.XnactiveCaptionMe.01traCoIDbo2 .DisplayLayout.Appearance = Appearance13Me.U1traCombo2.Disp1ayLayout.BorderSty1e =

Xnfragistics.Win.UXElementBorclerStyle.So1idMe.U1traCoIDbo2.Disp1ayLayout.C&ptionVisible

Infragistics.Win.Defau1tab1éBOolean.FalseAppearance14.Bac:kColor = SysteB.Drawing.SystemColors.ActivéBOrderAppearance14.BackColor2 = Sysb8B.Dra_ing.SystemColors.ControlDarkAppearanc::e14. BackGradientstyle = Infragistics.Win.Gradientstyle.VerticalAppearance14.BorderColor = Systea.Dra_ing.Systemeolors.WindovMe. U11:raCombo2 •DisplayLayout. GroupByBoz •Appearance = Appearance14Appearance15.Foreco1or = Sys'tea.Draving.8ystelaColora.GrayTestMe.ultraCoIDbo2 •Diáp1ayLayout. GroupByBoz. Bandt..belAppearance = Appearanc:e15Me. 01traCombo2 .DiaplayLayout.GroupByBoz.BorderSty1e =

XnfragistiC:8.Win~UXE1ementBorderStyle.Solid

Appearance16.BackColor = SySteD.Draving.SystemColors.ControlLightLiqbtAppearance16.Bac:kColor2 = Systea.Drawing.Sysbemeolors.ControlAppearance16. Bac:kGradientstyle = :Infragistics.Win.Gradientstyle.Horizontal

60


Appearance16.Po~ecolo~ = Syste..D~a.ing.Syst:eaColo~••G~ayrestM~.Ul.traC01Ib02 •DisplayLayout•GroupByBox. Pro.-ptAppeaJ:ance = Appearance16Me.UltraC0JDb02.DisplayLayout.MaxColScrollRegioDB = 1Me.U1traeo.bo2 •Displ.ayLayout•MaXRolrScro11Begi.oDB = 1.~ance1.7.BackColor= SysbeD.D~a.ing.Syst:eaCo1ors.Window

Appearance17.Porecolor = Systea.Drawing.SysteaCo1ors.Control'!'extMe. U1traCombo2 .DisplayLayout.Ove.rride.ActiveCel~ance:: Appearance17Appearance18.BackColor = Systea.Drawing.SystellColors.Bigb1igbtAppearance18.ForeColo~= Systea.D~a.ing.SystelColors.BiCJb1iqhtText

Me. UltraC0JDb02.• DisplayLayout. Override.ActiveRowAppearance = Appearance18Me.U1uaCombo2 •DisplayLayout .Override.BorderSqleCel1 =

Xnfragistics ••in.UZBleaen~rderSty1e.DottedMe.U1traCombo2 •Displ.ayLayout.Override.BorderStyl.eRov =

Xnfragi8tic8.Win.UXBl.ementBorderStyl.~.Dotted

Appearance19.Backco1or = SysteJa.Drawing.SystelaCo1ors.WindovMe. U1traC0JDb02 •DisplayLayout .OVerride. CardAreaAppéarance = 1lppearance19Appearance20 •BorderColor :: Systea.Drawing•COlor .. silverAppearance20. TextTriJalBing = Xnfragistics.Win.TextTr~ng.E11ipsisCharacterMe.01traCombo2 .DisplayLayout.OVerride.ce11Appearance = Jlppearance20Me.Ulb:aC0WIb02 •Diap1ayLayout.Override.Ce1.1ClickAction =

Xnfragistics.Win.01traWinGrid.CellC1ickAction.BditAndSe1ectTextMe.UltraCombo2 .DiaplayLayout.Override.ce11padding· = .O ..Appearance21.BackColor = Systea.Drawing.Sy.,teaColors.ControlAppearance21.BackColor2 = Sys~.Drawing.Sys~olors.ControlDark

Appearance21.BackGradientA1ignaent = Xnfragistics.Win. GradientAl.ignm.ent.ElementAppearance21. BackGradientStyle = Xnfragistics.Win.GradientStyle.HorizontalAppearance21.Bo~derCo1or# SysteB.Drawing.SystemColors.WindowMe. 01traCombo2 •Disp1ayLayout. Ove%'ride. GroupByRovAppearance = Appearance21Appearance22.TextBA1ign = XnfragiBtics.1fin.BJUign.LeftMe. U1traCombo2 .Disp1ayLayout .Ove%'ride. BeaderAppearance = Appearance22Me.UltraCOIIlbo2 .Disp1ayLayout.Override.BeaderC1ickAction

Xnfragistics.Win.01traWinGrid.BeaderClickAction.SortMUltiMe.U1traC0JIIb02.DisplayLayout.Override.BeaderStyle =

Xnfragistics.Win.BeaderStyle.windowsXPComaandAppearance23 . BackCo1or = System.Drawing•SystemCo~ors .1findowAppearance23.BorderColor = Sys~.Drawing.Color.Si~ver

Me.UltraC0JIIb02.DisplayLayout.Override.RovAppearanae = Appearance23Me.U~traCo1lbo2 •DisplayLayout.Overrid.e.RowSelectora = .

Xnfragistics.Win.Def_ultab1eBoo1ean.FalseAppearance24.BackColor = Syatea.Draving.SyatemColors.ControlLigbtMe.OltraCombo2.DisplayLayout.Override.TemplateAddRovAppearance =Appearance24Me.OltraCombo2.DisplayLayout.ScrollBounds :::

Xnfragistics.Win.UltrawinGrid.ScrollBounds.ScrollToFillMe.OltraCombo2.DisplayLayout.ScrollStyle =

Xnf~agistics.Win.OltraWinGrid.Scrol1Style.Xmmediate

Me. U1traCombo2 .DisplayLayout .ViewStyleBand :::I:nf~agiBtics.Win.U1traWinGrid.Vie1fStyleBand.OUtlookGroupBy

Me. 01traCombo2 •DisplayMember == n"Me.UltraCombo2.Location = New Systea.Drawing.Point(168, 168)Me.OltraCombo2.Hame = "01traCombo2"Me.UltraCombo2.Size - New Systea.Draving.Size(144, 21)Me.UltraCombo2.TabXndex = 18Me.OltraCombo2.ValueMember

'UltraCombol

Me.01traCOIIlbol . CharacterC&sing = System.Vindovs . li"os:ms •CharacterC&sing. NormalAppearance25.BaCkColor = Sysbem.Draving.Syst&mColora.WindovAppearance25.BorderCOlor = System.Drawing.SystemColors.XnactiveCaptionMe.OltraCombol.DisplayLayout.Appearance = Appearance25Me. UltraCombo1.DisplayLayout.BorderStyle =

Xnfragistics.Win.UXBlementBorderSty1e.SolidMe.OltraCombol.DisplayLayout.C8ptionVis1b1e

Znfragistics.Win.Defau1tableBoolean.Fa1seAppearance26.BacltColor ::: Systea.Drawing •SysteDlColors •ActiireBorderAppearance26.BackColor2 = Systea.Drawing.SystemColors.ControlDarkAppearance26 .BackGraclientSty1e = Xnfragistics.Win.Gradientstyle.VerticalAppearance26.SorderColor = Syste.l.Drawing.SyatelllColors.WindovMe.01traCombol.Disp1ayLayout. GroupByBoz .Appearance = Appearance26Appearance27 •Foreco1or = SysteBl.Drawing.SyatemCo1ors.Gray'rextMe. UltraCombol.Disp1ayLayout. GroupByBox •BandLahelAppearance = Appearance27Me.UltraCombol.Disp1ayLayout.GroupByBoz.BorderSty1e =

Znfragistias.Win.tJXElementBorderStyle.So1idAppearance28.BackColor ::: Systea.Draving.Sys~ol.or8.ControlLightLight

61


Appe~ance28 •BackCol.or2 = Syat:-.Drawing. Syat..eol.ors •Conuol.~ance28•BackGradientstyl.e = J:nfragistics .1fin.Gradientstyl.e.Borizontal.Appe~ance28.ForeCol.or = Syst:-.Drawing.Syst:-eol.ors •GrayTextMe. Ul.uaCOIIIbol. Displ.ayLayout. GroupSyBox. PrcmptJlppearance = Appearance28Me. U1uaCOIIIbol. Displ.ayLayout .MaxCol.Scro11llegi.ons = 1Me. U1uaCOIIIbol. Displ.ayLsyout •MaxRowScrol.1llegi.ons = 1Appe~ance29.BackCol.or = Syst:-.Drawing.SyatellColora .1findowAppe~ance29.ForeCol.or = Syst:-.Drawing.Syat:-eol.ora.Conuol.'l'extMe. U1uaCOIIIbol.Displ.ayLayout.Override.Activecel.lAppea,rance = ~ance29Appe~ance30.BackCo1or = Syst:-.Drawing.SyatellColors :tigh1ightAppearance30.ForeCol.or = Syst:-.Drawing.Syst..eo1ora.Bigh1ight'l'extMe.U1uaCOIIIbol.Displ.ayLayout.Override.ActiveBowAppe~ance = Appe~ance30

Me.U1uaC0JÜK)1.Displ.ayLayout.Override.BorderSty1~11 =J:nfragiatics.1fin.UJ:El.ementBorderStyl.e.Dotted

Me. U1uaCOIIIbol •Displ.ayLayout.Override.BorderStyl.eRow =J:nfragistics.Win.UJ:El.ementBorderStyl.e.Dotted

Appe~ance31.BackCol.or= Syst:-.Drawing.Systeaeol.ors.1findowMe. Ul.uaCOIIIbol. Displ.ayLayout.Override.CardAreaAppearance = Appe~ance31··

Appe~ance32.BorderCol.or = Syst:-.Drawing•Col.or •Sil.verAppearance32. TextTri.mming = J:nfragistics .1fin. 'l'extTriaaing. E11ipsisCharacterMe.U1uaCOIIIbol.Disp1ayLayout.Override.Ce1lAppearance = Appearance32Me.Ul.uaCombo1.Displ.ayLayout.Override.Ce11C1ickAction =

J:nfragistics.Win.Ul.uaWinGrid.Cel.l.Cl.ickAction.EditandSel.ectTextMe.U1uaCOIIIbol.Displ.ayLayout.Override.Cel.l.Padding = OAppearance33.BackCo1or = System.Drawing.SysteaCo1ors.Conuo1Appearance33.BackCol.or2 = System.Drawing.Systemeo1ors.Conuo1DarkAppearance33 •BackGradientAl.ignaent = J:nfragistics.Win. GradientAl.ignment.El.-.mtAppearance33 •BackGradientstyl.e = J:nfragiatics .1fin.GradientStyl.e. Horizontal.Appearance33.BorderCo1or = Systea.Drawing.Systemeo1ors.WindovMe. U1uaCombol.Displ.ayLayout •Override •GroupSyRovAppearance = Appearance33Appearance34 •'l'extRAl.ign = J:nfragistics.Win. BAl.ign.LeftMe. Ul.uaCOIIIbol •Displ.ayLayout.Override. HeaderAppearance = Appearance34Me.U1traCOIIIbol.Disp1ayLsyout.Override.HeaderC1ickAction

J:nfragistics.Win.UluaWinGrid.HeaderC1ickAction.SortMU1tiMe. U1uaC0IIIb01 •Displ.ayLayout.Override. HeaderSty1e =

J:nfragistics.Win.HeaderSty1e.WindowsXPComaandAppearance35.BackCo1or = System.Drawing.Syst:-eo1ors.1findowAppearance35.BorderCo1or = System.Drawing.Co1or.Si1~r

Me.U1uaCombol.Disp1ayLayout.Override.RovAppearance =Appearance35Me.U1uaCOIIIbol.DisplayLsyout.Override.RovSe1ectors =

J:nfragistics.Win.Defau1tableBoolean.Fa1seAppearance36.BackCo1or = Systea.Draving.Systemeo1ors.Conuo1LightMe. U1uaCombol. Disp1ayLayout.Override. 'l'e.p1ateAddRo1rAppearance = Appearance36Me.U1uaCOIIIbol.Disp1ayLayout.Scrol.1Bounds =

J:nfragistics.Win.U1uaWinGrid.Scro11Bounds.Scrol1ToFi11Me.U1uaCOIIIbo1.Disp1ayLayout.Scro11Sty1e =

J:nfragistics.Win.U1uaWinGrid.Scro11Sty1e.J:mmediateMe.U1uaCombo1.Disp1ayLayout.VievSty1eBand =

J:nfragistics.Win.U1uaWinGrid.VievSty1eBand.OutlookGroupByMe.U1uaCOIIIbo1.Disp1ayMeJd)er = nnMe.U1uaCombol.Location = New System.Drawing.Point(168, 128)Me.Ul.uaC0IIIb01.Name = nU1uaCOIIIbol"Me.U1uaCOIIIbo1.Size = New System.Drawing.Size(144, 21)Me.U1uaCombol.TabJ:ndex = 17Me.U1uaCOIIIbol.Va1ueMember

'UltraGroupBox2

Me. U1uaGroupBox2 •BackCo1or = System.Draving•SystemCo1ors •J:nactiveBorderMe.U1traGroupBox2.Conuo1s.Add(Me.C1DbNavigator1)Me.U1uaGroupBox2.Location = New Systea.Drawing.Point(24, 392)Me. U1uaGroupBox2. Name = nUluaGroupBox2 nMe.U1uaGroupBox2.Size = New System.Drawing.Size(704, 112)Me.U1uaGroupBox2.Support'l'heaes = FalseMe.U1uaGroupB0x2.TabJ:ndex = 15Me. UluaGroupBox2 •Text = nNavegacion De RegisuosnMe.U1uaGroupBox2.ViewSty1e = J:nfragistica.1fin.Misc.GroupBoXVievStyl.e.Office2003

'C1DbNavigatorl

Me.C1DbNavigatorl.BackCo1or = Syatem.Draving.Syatemeo1ors.J:nactiveCaptionTextMe. clDbNavígatorl.Button'l'extAl.ign =

Cl •Win. C1J:nput.NavígatorButton'l'extAl.ignEnua.RíghtMe.ClObNavigatorl.Co1orButtons = True

62


Me.C1DbNavigaÚ)r1.Location" Ne" Sys~.Dra.ing.Point(16,40)Me.C1DbNavigaÚ)r1.N_ '"' "C1DbRavigaú)r1"Me.ClDhNavigaÚ)r1.Size .. Ne" Systea.Drawing.Size(664, 40)Me. C1DbNavigator1. '.rabIndes ... OMe. ClDhNavigator1.Visih1eButtons = C1.Win. C1Input.NavigaÚ)rButÚ)nP1ags .Al.1

'UltraLabe16

Me. 01traLabe16.BacltColor ... Systea.Dra"ing. Color.TransparentMe.OltraLabs16.Location '"' Ne. Systea.Dra,,:i.II9.Point(24, 208)Me.OltraLabe16.Name = "OltraLabs16"Me.OltraLabel6.Size = Ne" Syetea.Drawing.Size(128, 24)Me.OltraLabel6.'.rabInde& ... 14Me.OltraLabs16.Tezt = "Medida:"

'UltraLabelS

Me. 01traLabsl5.BacltColor Systea.Drawing •Color. TranspaJ;entMe.OltraLabel5.Location New Syst:ea.Dra.ing.Point(24, 168)Me.OltraLabs15.N_ = "01traLabe15"Me.OltraLabe15.Size = New Syetea.Drawing.Size(128, 24)Me.UltraLabe15.TabInde& = 12Me. 01traLabe15. Text = "Proveedor:"

'UltraLabe14

Me.OltraLabel4.BacltColor ... Syst:ea.Drawing.Color.TranaparentMe.OltraLabel4.Location .. New Syst:ea.Drawill9.Point(24, 128)Me.OltraLabe14.NUIe = "0ItraLahe14"Me.OltraLabel4.Size = New Systea.Drawing.Size(128, 24)Me. 01traLabs14 .TabIndex ... 11Me. OltraLabe14 . Text = "Marca:"

'UltraLabe12

Me.OltraLabe12.BacltColor = Syst:ea.Dra"ing.Color.TransparentMe.OltraLabe12.Location = New Systea.Dra"ing.Point(24, 88)Me.01traLabeI2.Name = "01traLabe12"Me.UltraLabe12.Size = New Systea.Drawing.Size(l28, 24)Me.UltraLabs12.TabIndex = 9Me.OltraLabe12.Text = "Reabre Del Producto:"

'UltraLabell

Me.OltraLabell.BacltColor = Syst:ea.Dra.:i.ng.Color.TransparentMe.OltraLabe11.Location = Ne. Systea.Dra_ing.Point(24, 48)Me.UltraLabell.Name = nUltraLabel1"Me.OltraLabell.Size = Ne. Systea.Drawing.Size(128, 24)Me.UltraLabe1l.TabIndex = 8Me.UltraLabel1.Text = "Codigo Del ProDucÚ)"

'UltraTextEditor2

Me.OltraTeztEditor2.Location = Ne.. Systea.Dra_inq.Point(168, 88)Me. UltraTextEdiÚ)r2 .Name ... "01tra'reztEdiÚ)r2"Me.OltraTaxtEdiÚ)r2.Size'" New Syst:ea.Drawing.Size(144, 21)Me. 01traTextEditor2. TabIndex = 2

'UltraTextEditorl

Me.OltraTextEditor1.Location = Ne.. Systea.Drawing.point(l68, 48)Me.OltraTextEditorl.Name = "OltraTextEdiÚ)rl"Me.OltraTextBditorl.Size ... Ne.. Systea.Dra_ing.Size(144, 21)Me.OltraTextEditor1.TabIndex = 1

'UltraButtonl

Me.OltraButÚ)nl.Location ... Ne. Systea.Drawing.Point(544, 264)Me.OltraButton1.N_ = "01traButÚ)n1"Me.01traButÚ)n1.Size = Ne.. Systea.Drawing.9ize(120, 40)Me.01tr&ButÚ)nl.TabIndes .. OMe.OltraButÚ)n1.Text = nCaJlbiar Loqo"

'UltraStatusBarl

63


Me.UltraS1:atusBarl.Location = New 8yst:ea.Draring.Poi.nt(O, 583)Me.UltraStatusBarl.Name = ~ltraStatusBarl"

Me.UltraStatusBarl.Si.ze == New Systea.Drawi.ng.Si.ze(9l2, 23)Me. UltraStatusBarl. '.rabIndez = 2

'NavBarControll

Me. HavBarControl1.ActiveGroup = Me •MavBarGrouplMe. NavBarControl1. A11a.Drop = TrueMe. HavBarControl1. Groupa.AddRange (New DevExpreas .XtraHavBar•HavBarGroup ()

{Me.HavBarGroupl} )Me.N'avBarControll.Loc:ation = New Systea.Dravi.ng.Poi.nt(776, 56)Me. NavBarControl1. N'ame = "N'avBarControll"·Me.N'avBarControll.Size = New Syatea.Drawinq.Si.ze(l36, 520)Me.NavBarControll.'.rab:tndex = 3Me.N'avBarControl1. '.rext = "HavBarControll°Me.NavBarControl1.View = New

DevExpress.xtraHavBar.Vi.ev:tnfo.N'avigationPaneView:tnfoRegi.strator

'NavBarGroupl

Me.NavBarGroup1.Caption = "Productos"Me. NavBarGroupl. Espanded. = TrueMe. N'avBarGroupl. Naae = nHa'ITBarGroupl"

'NavBarContro12

Me.N'avBarContro12.ActiveGroup = Me.HavBarGroup2Me.N'avBarContro12.A11owDrop = TrueMe. N'avBarContro12 •Groups .AddRange (New DevEspress.XtraHavSar •NavBarGroup ()

{Me. N'avBarGroup2} )Me.N'avBarContro12.Loc:ation = New Systelll.Dravinq.Poi.nt(O, O)Me.NavBarContro12.N-.e = °HavBarContro12n

Me.N'avBarContro12.Si.ze = New Syst:ea.Draving.Si.ze(912, 56)Me.N'avBarContro12.Tab:tndex = 4Me.NavBarContro12 . 'rext = 0NavBarContro12oMe.NavBarContro12.Vi.ev = New

DevExpress.XtraHavBar.ViewZnfo.XP2View:tnfoReg1strator

'NavBarGroup2

Me.HavBarGroup2.capti.on = nSist:ema De :tnventari.onMe. HavBarGroup2. Expanded = TrueMe. NavBarGroup2. Name = nNavBarGroup2 n

'CIDataSet1

Me.C1DataSetl.BindingCont:eztctrl MeMe.C1DataSet1.DataL1brary = noMé.C1DataSet1.DataL1braryUrl = un

Me.CIDataSetl.DataSetDef = UDataSetnMe.C1DataSet1.Locale = New Syst:8a.Globalization.Cu1ture:tnfo("es-NIn)Me.C1DataSetl.Name = "C1DataSet1"Me.C1DataSetl.8cheaaClaasHame = no

Me.CIDataSetl.SchemaDef = Me.ClSch..-Def1

'C1SchemaDefl

Me.C1SchemaDefl.DataL1braryOpti.onsCType(resources.Getobject(nC1ScheaaDefl.DataL1braryOptiona"),Cl. Data. Design.DataLibraryOptiona)

Me.Cl8chemaDefl.DataObjectsAssemblyFlaqa = Cl.Data.DataObjectsAssemblyFlags.A11Me.C18cheaaDefl.8erializedBchema =

Me. C18chemaDefl. GetSchemal'rODlResources2 (resources , °C18cheaaDefl", Me)

'Producto

Me.AutoScaleBaseSize = New System.Drarinq.Si.ze(5, 13)Me.Cli.entSize = New Syatelll.Drawing.Size(912, 606)Me.Controls.Add(Me.NavBarContro12)Me.Controla.Add(Me.NavBarControll)Me. Controla.Add (Me.UltraStatusBarl)Me.Controls.Add(Me.UltraGroupBoxl)

64


"e.HaBIe := "Producto"Me. ~ext; = "Producto"C'l'ype (Me. U1.uaGroupBoxl , Bys1=ea. COIIpOIlent:Model. . ISupporUnitialize) •Bnc:U:nit; ()Me.U1t;raGroupBoxl.Res~yout;(False)

CType (Me.U1uaComoBditorl., Bystea.eo-ponent:Model.1 Bupportl:ni.tial..ize) •BndIni.t; ()CType (Me. Ul.t;raText;Bditor4, Bysi:ela. Component:Model. ISupport;l:nitialize) •EndInit; ()CType (Me. UltraCoJd)o3, By.teIa. CoaponentModel. • :ISupport:Initialize) •BndInit; ()C'l'ype (Me. Uluaeo.bo2, Bystem. ComponentModel. • ISupporUnitia1.ize) •BndInit; ()CType (Me. UluaCombol. , Bystea.Componen1:Model.l:SupporUnitia1.ize) •BndInit; ()C'l'ype (Me.UluaGroupBox2, Systea.eo.ponent:Model. :ISupport;:Initialize) •Bnc:U:nit ()Me.ult;raGroupBox2 . ResuaeLa.yout; (False)CType (Me. CIDbHavigatorl, Systela.COJIPQnentModel. :ISupporUnitialize) •EndInit ()C'l'ype (Me.UluaTextEditor2, SysteD.. CompoDent:Mode1. :ISupportJ:nit;ialize) •EndInit ()CType (Me. UluaTextEditorl. , Bystea. Component:Moc:lel. • l:Support;J:nit;ialize) •BndInit; ()CType (Me. NavBarConuoll, Bystea.COJIPQnent:Mode1. • J:SupporUnit;ialize) •BndInit; ()CType (Me. NavBarCont;ro12, Systea.ColIPonentModel. • ISupportJ:nitia1ize) •Bnc:U:nit; ()CType (Me. C1Dat;aSet;1, Sys1:eJll. Cc.ponentMode1. ISUpport;Initia1.ize) •BndInit; ()CType (Me. C1SchemaDefl, Systea.Cc.ponentMode1. . ISupportlnitialize) •EndXnit ()Me. ResumeLayout (False)

End Sub

'End Region

Public Function cargardat;os()

Dim oBind As Binding

oBind = New Binding("Text", Me.ClDataSet;l, "producto.codigo producto")Me.U1uaTextEditorl.DataBindings.Add(oBind)oDind = Nothing

oDind = New Binding("t;ext", Me.ClDat;aSet;l, "producto.nombre")Me.U1traTextEdit;or2.DataBindings.Add(oBind)oBind = Nothing

oBind = New Dinding("text", Me.ClDataSetl, "producto". Descripcion")Me.UluaTextEditor4.DataBindings.Add(oBind)oDind = Nothing

oDind = New Binding("image", Me.ClDat;aSetl, "producto.imagen")Me.ClPictureBoxl.DataBindings.Add(oBind)oDind = Nothing

Me.Ult;raCombol.DataSource Me.ClDataSetl.Tables("marcas")

With Me.01.UaCombol.Display.Member = "Descripcion".ValueMember = "id marca"•DataBindings.Add (New Binding (rrva1.ue", Me. C1DataSetl, "producto. id marca"».DisplayLayout.Bands(O).Colum1S(nid marca").Bidden = True

End With

Me.U1uaCombo2.DataSouroe = Me.CIDataSetl.Tab1es(~roveedores")

With Me.OluaCombo2.DisplayMember = "nombre".ValueMellber = "id proveedor"•DataDindings.Add (New Dinding (rrva1.ue", Me. ClDabSetl, "producto.proveedor") ).DisplayLayout.Bands(O).Columns("id proveedor") .Bidden = Trua.Disp1.ayLayout.Bands(O).Co1umns("imagen").Bidden = True

End With

Me.OltraCombo3.Dat;aSource = Me.ClDat;&Setl.Tab1.es("medidas")With Me.OltraCombo3

.Display.Meaber = "descripcion"•Va1.ueMeBaber = "id aedida".DataBindings.Add(New Binding(rrva1ue", Me.CIDabSetl, "producto.medida"»'.DisplayLayout.Bands(O) .Columns(tlid proveedortl ) .Hidden = True'.DisplayLayout.Bands(O) .Columns("imagen tl

) .Hidden = True

65


End WithMe.01traCOJDboEditor1.DataBindings .Add("t8xt", Me. C1Da'taSet1, "producto."ripo

Producto")Me. ClUbNavigator1. SetDataBinding(Me. CIDataSet1 , "producto")'Desactivar (False)

End Function

Private Sub Producto Load(ByVal sender As Systea.Object, ByVal e AsSystea.EventArgs) Handle; MyBase.Load

cargardatos ()End Sub

Private Sub ClUbNavigatorl ButtonClick(ByVal sender As Object, ByVal e AsCl.Win. CU:nput.NavigatorButtonCliokEventArgs) Handles CIDb!favigatorl.ButtonClick

J:f e.Button = Cl.Win.Cl:Input.NaV1gatorButtonEnua.AddThen ...,.'Desactivar (True)

End J:f

J:f e.Button = Cl.Win.CI:Input.NavigatorButtonEnua.Edit Then'Desactivar (True)

End J:f

If e.Button = CI.Win.CI:Input.NavigatorButtonEnua.Update ThenMe. CIDataSetl.Opdate ()

End J:f

If e.Button = Cl.Win.Cl:Input.NavigatorButtonEnua.Edit Then'Desactivar (True)

End If

J:f e.Button = Cl.Win.Cl:Input.HavigatorButtonEnua.Cancel ThenMe. C1DataSetl.RejectChanges ()

End 'If

If e.Button Cl.Win.C1Input.HavigatorButtonEnua.Refresh ThenMe.ClDataSetl.Clear()Me.ClDataSetl.Fill()

End IfEnd Sub

Private Sub UltraButtonl Click(ByVal sender As Syst:ea.Object, ByVal e AsSystem.EventArgs) Handles UltraButtonl.Click

With OpenFileDialogl.InitialDirectory = "C:\".Filter = "All Filesl*.*IMapa de bitsl*.bmpIGifal*.gifIJPEGSI*.jpg".Filter:Index = 4

End With

If OpenFileDialogl.ShowDialog()With Me.C1PictureSoxl

DialogResult.OK Then

.Image = lmage.FromFile(OpenFileDialogl.FileName)

End With

End IfEnd Sub

Private Sub UltraGroupBoxl Click(ByVal sender As Systea.Object, ByVal e AsByatea.EventArgs) Handles UltraGroupBoxl. Click

End SubEnd Class

66


Public Class ProveedoresInherits System.Windows.Forms.Form

#Region n Código generado por el Diseñador de Windows Forms n

Public Sub New ()MyBase. Nev ()

'El Diseñador de Windows Forms requiere esta llamada.InitializeComponent()

'Agregar cual~~ier inicialización después de la llamada a Ini.tializeComponent()

End Sub

'Form re~~plaza a Dispose para limpiar la lista de componentes.Protected Overloads Overrides Sub Dispose(ByVal disposinq As Boolean) ~


components.Dispose{}End If


End Sub

'ReqQerido por el Diseñador de Windows PormsPrívate components As System.ComponentModel.IContainer

'-NOTA: el Diseñador de Windows Forms requiere el si~úiente proce¿imien~o

% Puede modificarse ut.ilizando el Diseñador de 'Fifincio':'Js Forms.~No lo modifique con el editor de código.Friend WithEvents UltraGroupBoxl As Infraqistics.Win.Masc.UltraGroupBoxFriend WithEvents NavBarControll As DevExpress.XtraNavBar.NavBarControlFriend WithEvents NavBarGroupl As DevExpress.XtraNavBar.NavBarGroupFriend WithEvents NavBarGroup2 As DevExpress.XtxaNavBar.NavBarGroupFriend WithEvents NavBarContro12 As DevExpress.XtraNavBar.NavBarControlFriend WithEvents NavBarGroup3 As DevExpress.XtraNavBar.NavBarGroupFriend WithEvents UltraStatusBarl As

Infragistics.Win.UltraWinStatusBar.Ultra8tatusBarFriend WithEvents UltraButtonl As Infraqistics.Win.M1sc.UltraButtonFriend WithEvents UltraTextEditorl As

Infragistics.Win.UltraWinEditors.UltraTextEditorFriend WithEvents UltraTextEditor2 As


Infraqistics.Win.UltraWinEditors.UltraTextEditorFriend WithEvents UltraTextEditor4 As


Infragistics.Win.UltraWinEditors.UltraTextEditorFriend WithEvents UltraLabel1 As I:nfragistics.Win.Misc.UltraLabe1Friend WithEvents UltraLabe12 As I:nfragistics.Win.Misc.U1traLabelFriend WithEvents UltraLabe13 As I:nfragistics.Win.Misc.U1traLabe1Friend WithEvents UltraLabe14 As I:nfraqistics.Win.Mi.sc.U1traLabelFriend WithEvents UltraLabe15 As Infragistics.Win.~sc.UltraLabel

Friend WithEvents UltraTextEditor6 AsI:nfragistics.Win.UltraWinEditors.UltraTextEditor

67


Friend withEvents 0~traLabe1.6 As Infragistics.Win.Mi.sc.U1traLabe1Friend WithEvents U1traGroupBoz2 As Znfragistics.Win.Mísc.01traGroupBoxFriendWithEvents Open.Fi~eDialoglAs Syst:ea.lI'incIows. Poras. OpenPileDialogFriend WithEvents U1traPictureBoxl As

Xnfragistics.Win.UltraWinBditors.UltraPictureBoxFriend WithEvents ClDataSetl As Cl.Data.CIDataSetFriend WithEirents ClSchesaDefl As Cl.Data.ClScheaaDefFriend WithEvents Ol.traLabel7 As Infragistics .•in.Misc.U1traLabe~Friend WithEvents U~traTezt:Bditor7As .

Infragistics.Win.Oltrall'inBditors.U~tra'1'ext:Bditor

Friend WitbEvents CIDbNa"iqatorl As Cl.Win.Cllnput.ClDhNavigator<Systea.Diagnostics.DebuggerStep'1'hrough () > Private Sub lnitia~izecomponent()

Oim OltraStatusPanell As Infragi.stics .1I'in.01tr.Wi.nStatusBar •U1traStatusPanelNew Infragisti.cs .1I'i.n.UltraWinStatusBar.01traStatusPanel

Dim U1traStatusPane12 As Infragisti.cs.Wi.n. 01traVi.nStatusBar .01traStatusPane1New Infragisti.cs.Win.U1traWinSt:at:usBar . U1traStatu.Pane1

Dim U~traStatusPanel.3 As Infragi.st.ícs .Vin.U1traWi.nStatusBar •U~traStatu8p~e1New Infrcagisti.cs .1I'i.n. U1traWi.nStatuaBar.01traStatusPane1· ··0 ,

Dim resotirC8s As Systea.Resources. ResourceManager .= NewSystea.Resources . ResourceManager (GetType (Proveedores) )

Me.OltraGroupBoxl = Ne. Infragistics.Wi.n.Mi.sc.OltraGroupBoxMe.O~tra'rext:Bditor7 = New Infragistics.Wi.n.U~trawiDEditor.s.01tra'1'ext:BditorMe.OltraLabe17 = New Znfragistics.Wi.n.Misc.01traLabe1.· '.0Me.O~traPietureBoxl= New Xnfragistics .1I'in.01traWinEditors.UltraPictureBoxMe.01traGroupB0x2 = New Infragistics.Vin.Misc.U~traGroupBox

Me.ClObNavi.gatorl = New Cl.Vin.Cllnput.ClDhNavigatorMe.OltraLabe16 = Ne. Infragisties.Vin.Mise.U1traLabe1Me. Ultra'1'ext:Bditor6 = New Znfragistics.Win. 01traWinBditors.01traTextEditorMe.01traLabel5 New Infragistics.lI'in.Misc.OltraLabe~

Me. 01traLabel4 New Infragisti.cs .Vin.Mise.01traLabe1Me. 01traLabe13 New Infragisties .Vin.Mise.01traLabelMe.0l.traLabel.2 New I:nfragistics.Win.Mise.Ul.traLabelMe. 01traLabel.1 New Infragistics .Vin .Misc.01traLabelMe. 01tra'1'extEditor5 New Znfragistics .Vin.UltraWinEditors .01traTe.xtEditerMe. U1tra'1'e.xtEditor4 New Infragistics.wil1.01traWinEditors .01tra'1'e.xt:BditerMe. 01tra'1'extEditor3 New Znfragisties .Vin.01traWinBditors. 01traText:BditorMe. 01traTextEditor2 New Xnfragistics. lI'in.01traWinEditors .01traText:BditorMe. 01traTextEditorl New Infragistics.lI'in.01traWi.nBdi1:ors .01traTextEditorMe.UltraButton1 = New Infragistics.Win.Misc.OltraButtonMe.HavBarControl.l = New DevE:xpress .XtraNavBar.NavBarControlMe. NavBarGroupl = New DevExpress .XtraHavBar.HavBarGroupMe.HavBarGroup2 = New DevExpress.XtraNavBar.Na"BarGroupMe. HavBarContro12 = New DevBxpress.XtraNadar .1favBarControl.Me. HavBarGroup3 = New DevExpress .XtraNavBar.HavBarGroupMe.Ol.traStatusBarl = New Infragistics.1I'i.n.U1traWinStatusBar.0~traStatusBar

Me.OpenFileDialog1 = New SysteD.Vi.ndo.s.Foras.OpenFileDial.ogMe.CIDataSetl = New Cl.Data.C1Data8etMe.ClScheaaDef1 = New Cl.Data.C1ScheaaDefCType (Me. 01traGroupBosl, Systea.Co~nentModel.ZSupportlnitiali.ze) . Begi.nZnit ()Me. U1traGroupBozl. SuspendLayout ()CType (Me.Ultra"lesUditor7, Bystea.C01IIPonen1:Mode1. J:Suppo~tJ:nitial.i.ze) . SeginJ:nit ()CType (Me.O~traGroupBox2, Bystea.Co-.ponentModel. ISupportInitialize) . BeginInit ()Me. 01traGroupBox2 . SuspendLayout ()CType(Me.ClDbNavigatorl, Systea.ComponentMOdel.ZSupportJ:nitialize).BeginInit()CType (Me. Ultra'1'extEditor6, Syate-.CoJllponentMode1. ISupportlnitialize) . Seginlnit ()CType(Me.U1traTextBditor5, Systea.Componen~l.ISupportlnitialize).Beginlnit()

CType (Me. U1traTextEditor4 , Systea. COJllponent:Mode1. ZSupportJ:nitiali.ze) •&eginlnit ()CType (Me. 01traTextBditor3, Sysa-.Co.-ponent:Mode1. ISupportInitializa) . &eginlnit ()CType (Me.01tra'.l!extEditor2, Systea.ComponentModel. 18upportInitialize) •BeginZnit ()CType (Me. Ultra'1'extEdit;or1, Systea. COlllponentMode1. 18upportJ:ni.tiali.ze) . Begí.nlnit ()CType (Me. HavBarContro1l , System. CcmponentModel . 1 SupportZniti.alize) . BeginInit ()CType (Me. NavBarContro12 , Bystem. CoIIponent:Model. 18upportInitia~ize) . BegínInit ()CType (Me. ClData8etl , System. ComponentModel. ZBupportlnitialize) . Beginlnit ()CType(Me.ClScheaaDefl, Systea.Ca-ponentMOdel.ZSupportlnitiali.ze).BeginInit()Me. SuspendLayoutO

'UltraGroupBoxl

Me. UltraGroupBoxl. Controle .Ad.d (Me. 01traTextEditor7)Me.UltraGroupBoxl.Controls.Add(Me.~traLabe1')

Me. 01traGroupBoxl. Controls.Ad.d (Me. U1traPictureBoz1)Me.OltraGroupBoxl.Contro1s.Add(Me.UltraGroupBoz2)Me. U1traGroupBoxl.Controls .Add (Me.01traLahel.6)Me. UltraGroupBozl.Controls .Add(Me. U1traTextEditor6)

68


Me.U.1traGroupBos:1. Conb:01a .Md(Me.Ulb:aXoabel5)Me. 0.1traGroupBox1.Contro1a.Adcl (Me.Ulb:aLabe14)Me. 0.1b:aGroupBox1. Conb:01a .Add(Me. 01b:aLabe13)Me. 01traGroupBoxl. Conb:01s •A&! (Me •UltraLabe12)Me. U.1traGroupBoxl.Conuo1a .Add(Me.UluaLabell)Me. U1uaGroupBox1. Conuo1a •A&! (Me.01b:aTextBditor5)Me. U.1uaGroupBoxl.Conuola . A&!(Me. U1b:a'textBditor4)Me.0.1traGroupBox1. Controla •A&! (Me. U1tra'l'extBditor3) ...Me. 01traGroupBoxl. Controla.Add (Me.01traTextBditor2)Me. U1traGroupBox1. Contro1a.Add (Me. U1tra'1'extBditor1)Me. 01b:aGroupBoxl. Contro1a.A&l (Me.UltraButtonl)Me.U1traGroupBoxl.Loeation = New Sys1:ea.Drawinq.Point(O, 56)Me. 01traGroupBoxl.H_ = "mtraGroupBoxl"Me. 01traGroupBox1. Size = New Syatea.Draving . Size (760, 488)Me.01traGroupBox1.Support'lheaes = FalseMe. U1traGroupBoxl. 'l'abIndex = OMe.01traGroupBox1.'l'ext = "Proveedores"Me. UltraGroupBoxl.ViewStyle = Infraqisties.Win .Mise .Gr91lpBoxVievSty1e·.Office2003

'UltraTextEditor7

Me.UltraTaxtBditor7.Location = New Systeal.Dravinq~Point(168, 2$8)Me. U1traTextBditor7 •Ha-e = "Ul.traTextBditor7" ....Me.01traTextEditor7.Size = New Syst:ea.Drawinq.Size(144, 21)Me.OltraTextBditor7 . TabIndex = 18

'UltraLabe17

Me.UltraLBbel7.BackColor = Syat:ea.Draving.Color.'1'ransparentMe.Ul.tral.abe17.Location = New Syatem.Drawinq.Point(16, 288)Me. Ul.traLabel7.Haae = "Ol.traLabe17"Me.UltraLabel.7 .Size = New System.Drawinq.Size(144, 24)Me. Ul.traLabe17. T8bIndex = 17Me. U1traLabe17. Taxt = "Nombre de Representante"

'UltraPictureBoxl

Me. U1traPietureBox1.BackCo10r = Systea.Dravinq. Color .. '1'ransparentMe.UltraPictureBox1.BorderShadovCo10r = System.Draving.Color.B*ptyMe.Ul.traPietureBox1.Location = New System.Drawinq.Point(472, 64)Me. UltraPietureBoxl.Ruse = "UItraPictureBoxl"Me.Ul.traPictureBox1.Size = New Syatem.Draving.Size(208, 160)Me.Ul.traPietureBox1.T&bIndex = 16

'UltraGroupBox2

Me.Ul.traGroupBox2.BaekC010r = SysteD.Draving.SystemCo10rs.InaetiveBorderMe.Ul.traGroupBox2.Contro1s.Add(Me.C1DbNaviqator1)Me.Ul.traGroupBox2.Location = New Systea.Dravinq.Point(24, 344)Me. Ul.traGroupBox2 •Name = "U1traGroupBox2"Me.Ul.traGroupB0x2.Size = New Systea.Dra.ing.Size(704, 104)Me.UltraGroupBox2.SupportTheaes = FalseMe. U1traGroupBox2. TabIndex = 15Me. u1traGroupBox2 . 'l'ext = "Ravegacion De Registros"Me. UltraGroupBox2 •ViewSty1e = Infragisties .Vin .Mise.GroupBoXViewStyle.Office2003

'CIDbNavigatorl

Me.C1DbHavígatorl.BaekCo10r = Systea.Drawing.SystemCo10rs.InaetiveCaptionTextMe.ClDbNavigator1.ButtonTextAlign =

C1.Win.C1Input.RavigatorButton'1'extAlignEnua.RigbtMe.C1DbHavigator1.Co10rButtons = TrueMe.C1DbHavigatorl.Loeation = New Systea.Drawing.Point(32, 40)Me.C1DbHavigatorl.Ra-e = "C1DbRavigatorl"Me.C1DbRavigatorl~Size= New Syst:ea.Dravinq.Size(648, 32)Me.C1DbHavigatorl.TabIndex ~ 19Me. C1DbRavígator1.VisibleButtona = Cl ••in.C1Input.RavígatorButtonFlaqs.&11

'UltraLabe16

Ma.Ul.traLabe16.BackCo1or = Systea.Drawing.Color.TransparentMe.Ul.traLabe16.Location = Naw Systea.Drawing.Point(24, 248)Me. u1traLabe16 .Rame = "U1traLabe16"Me.U1traLabe16.Size - New Syst:.ea.Dravinq.Size(128, 24)

69


',.:.

Me.U1uaLabel.6.'rabXndex = 1 ..Me.U1uaLabe16.Text = "Correo Blecuonico:"

'UltraTextEditor6

Me.Ultra'l'e><tBditor6.Location = Ne.. Syaa-.Dra..ing.Point(168, 2 ..8)Me. UluaTextBditor6 .H_ = "U1traTextBditor6"Me.U1ua'l'e><tBditor6.Sille = Ne.. Sya~.Drawing.Sille(i4",21)Me.UluaTeztBditor6.'fabXndex = 13

'UltraLabe15

Me.UluaL~S. BacJtColor = Sya~.Dra..ing•Color . 'franaparentMe.UluaLabelS.Location = Ne.. Sya~.Dra..ing.Point(24, 208)Me.UluaLabelS.H_ = "UluaLabelS"Me.U1uaLabelS.Sille = Ne.. Sya~.Drawin9'.Sille(128,2")Me.UluaLabe15.TabXndex = 12Me.UIUaLabelS.Text = "~o Ruc:"

'UltraLabe14

Me. UluaLabel...BacJtColor = Sys~.Dra..ing . Color . TranaparentMe.UluaLabe14.Location = New Sys~.Drawing.Point(24,'168)

Me.UluaLabe14.Haae = "UluaLabe14"Me.UltraLabe1".Sille = New Sys~.Dra..inq.Sille(128, 24)Me.UluaLabe14.'fabXndex = 11Me.UltraLabe14.'I'e><t = "Telefono Del Proveedor:"

'UltraLabe13

Me. UluaLabe13. BacJtColor = Sya~.Drawing •Color . 'franaparentMe.U1uaLabe13.Location = Ne.. Sya~.Dra..ing.Point(24, 128)Me.UluaLabe13.Hame = "UltraLabe13"Me.UluaLabe13.Sille = Ne.. Sya~.Drawinq.Sille(128,24)Me.UluaLabe13.'fabxndex = 10Me.UluaLabe13.Tezt = "Direccion Del Proveedor"

'UltraLabe12

Me.UluaLabe12.BacJtColor Sys~.Drawing.Color.Tranaparent

Me.UIUaLabel.2.Location = Ne.. Syst8a.Dra..ing.Point(24, 88)Me.UIUaLabel.2.Hame = "UltraLabe12"Me.UluaLabe12.Sille = New Sya~.Drawinq.Sille(128, 24)Me.UltraLabe12.TabIndex = 9Me. UlUaLabe12 . Text = "Nombre Del Proveedor :"

'UltraLabel1

Me. ultraLabell.BackColor = Syatea.Dra..inq . Color •TranaparentMe.UltraLabel1.Location = New Sye~.Drawinq.Point(24, 48)Me.UluaLabe11.Haae = "UltraLabel1"Me.UluaLabell.Sille = New Syatea.Drawinq.Size(128, 24)Me.UluaLabell.TabXndex = 8Me.UluaLabel1.Text = "Codigo Del Proveedor:"

'UltraTextEditor5

Me.U1uaTextBditorS.Location = New Syetea.Drawing.Point(l68, 208)Me.UluaTeztBditorS.N_ = "UluaTextBditorS"Me.UluaTeztBditorS.Sille = Ne.. Sye~.Dra..inq.Sille(144, 21)Me.UluaTeztBditorS.TabIndex = 5

'UltraTextEditor4

Me.U1traTeztBditor4.Location = Ne.. Syetea.Drawing.Point(168, 168)Me. UltraTeztBditor4 .N_ = "UluaTextBditor""Me.UluaTextBditor4.Sille = Ne.. Syatea.Drawing.Size(144, 21)Me.U1uaTextBditor".'fabXndex = 4

'UltraTextEditor3

Me.UluaTeztBditor3.Location = New Sya~.Drawing.Point(168, 128)Me. UluaTextBditor3 .N_ = "Ulua'fextBditor3"Me.UluaTeztBditor3.Sille = Ne.. Syetea.Drawinq.Sille(144, 21)

70


Me. U1traText:Editor3 . TabZndex 3

'UltraText:Editor2

Me.u1traText:Editor2.Location = Ne.. SysteB.Draving.Point(168, 88)Me. U1traText:Editor2 .Name = "UltraText:Editor2"Me.U1traText:Editor2.Size = Ne.. Systea.Draving.Size(l44, 21)Me.U1traText:Editor2.TabZndex = 2

'UltraTextEditorl

Me.U1traText:Editor1.Location = Ne.. SysteB.Draving.Point(168, 48)Me.U1traText:Editorl.Naae = "UltraText:Editorl"Me.UltraText:Editor1.Size = Ne.. System.Draving.Size(144, 21)Me.UltraText:Editor1.TabZndex = 1

'UltraButtonl

Me.UltraButton1.Location = Ne.. Systea.Dravinq.Point(520, 248)Me.U1traButton1.Naae = "UltraButtonl"Me.U1traButton1.Size = Ne.. Syst_.Draving.Size(120, 40)Me.U1traButton1.TabZndex = OMe.UltraButton1.Text = "Cambiar Logo"

'NavBarControll

Me.NavBarControll.ActiveGroup = Me.HavBarGrouplMe.HavBarControll.Al.lovDrop = TrueMe. HavBarControll. Groups .AddRanqe (Ne.. DevExpress .XtraHavBar •HavBarGroup ()

{Me. NavBarGroup1} }Me.NavBarControll.Location = Ne.. System.Dra..inq.Point(O, O}Me.NavBarContro11.Name = "HavBarControll"Me.HavBarControll.Size = Ne.. Syst_.Draving.Size(888, 56}Me.NavBarControll.TabZndex = 1Me.HavBarControll.Text = "HavBarControll"Me.HavBarControll.Viev = Ne..

DevExpress.xtraHavBar.Vi_Znfo.NaviqationPaneVievZnfoReqistrator

'NavBarGroupl

Me.NavBarGroupl.Caption = "Sistema De Znventario"Me.NavBarGroupl.Expanded = TrueMe.NavBarGroupl.Name = "NavBarGroupl"

'NavBarGroup2

Me.NavBarGroup2.Caption = "Sis~ De Znventario"Me. HavBarGroup2. Expanded = TrueMe. NavBarGroup2 . Hame = "NavBarGroup2"

'NavBarContro12

Me.NavBarContro12.ActiveGroup = Me.HavBarGroup3Me. NavBarContro12 .A11ovDrop = TrueMe. HavBarContro12. Groups .AddRanqe (Ne.. DevExpress .xtraHavBar•NavBarGroup ()

{Me. HavBarGroup3} )Me.HavBarContro12.Location = Ne.. Systea.Dravinq.Point(760, 56)Me.HavBarContro12.Na-e = "HavBareontro12"Me.NavBarContro12.Size = Ne.. Systea.Draving.Size(l28, 488)Me.NavBarContro12.TabZndex = 2Me.NavBarContrc>12.Text = "SisteJla De Znventario"Me.NavBarContro12.Viev = Ne..

DevExpress.XtraHavBar.Vi_Znfo.XP1VievZnfoReqistrator

'NavBarGroup3

Me.NavBarGroup3.Caption = "Siste.. De Znventario"Me. NavBarGroup3. Expanded = TrueMe. NavBarGroup3. Hame = "HavBarGroup3"

'UltraStatusBarl

Me.UltraStatusBar1.Location = Ne.. Syst_.Draving.Point(O, 550)Me.UltraStatusBar1.Hame = "UltraStatusBarl"

71


UltraStatusPane1l.Style =:Infragistias.Win. UltraWinStatusBar •PanelStyle.AutoStatusText

UltraStatusPanell.Width 200UltraStatusPane12. Style = :Infragistias.Win.U1traWinStatusBar. Pane1Style.Key8tateUltraStatusPane12.Width = 200UltraStatusPane13.KeyState:Info.Key =

:Infragistias.Win.UltraWinStatusBar.KeyState.CapsLoakUltraStatusPane13.Style = :Infragistias.Win.UltraWinStatusBar. PanelStyle .Key8tateUltraStatusPane13.Width = 300Me.UltraStatusBarl.Pane1s.AddRange(Ne"

:Infragistias . Win. UltraWinStatusBar . UltraStatusPanel O {U1traStatusPanell ,UltraStatusPane12, UltraStatusPane13} }

Me.UltraStatusBarl.Size = New Syst:elll.Drawing.Size(888, 32)Me.UltraStatusBarl.Tab:Index = 3

'CIDataSetl

Me.C1DataSetl.BindingeontextCtrl MeMe.C1Data8etl.DataLibrary = " ..Me.C1DataSetl.DataLibraryUrl = ""Me.C1DataSetl.DataSetDef = "DataSet"Me.C1DataSetl.Loaale = Ne" SySte8.Globalization.Cu1ture:Info("es-N:I")Me.C1DataSetl.Name = "C1DataSetl"Me.C1DataSetl.SaheaaClassName = ....Me.C1DataSetl.ScbemaDef = Me.C1SchemaDefl

'C1SchemaDefl

Me.C1SahemaDefl.DataLibraryOptionsCType(resources.GetObjeat("C1SahemaDefl.DataLibraryOptions"),Cl.Data.Design.DataLibraryOptions)

Me.C1SahemaDefl.DataabjeatsAssemblyFlags = Cl.Data.DataObjeatsAssemblyFlags.AllMe.C1SahemaDefl.SerializedSahema =

Me. C1SchemaDefl.GetSahemaFromResources2 (resouraes , "C1SahemaDefl", Me)

'Proveedores

Me.AutoSaaleBaseSize = New System.Drawing.Size(5, l~)

Me.ClientSize = New Syst:elll.Drawing.Size(888, 582)Me.Controls.Add(Me.UltraStatusBarl)Me.Controls.Add(Me.NavBarContro12)Me.Controls.Add(Me.NavBarControll)Me.Controls.Add(Me.UltraGroupBoxl)Me.Name = "Proveedores"Me.Text = "Proveedores"CType (Me. UltraGroupBoxl, Syst:elll. COlIIPonentModel. :ISupport:Initialize) . End:Init OMe.UltraGroupBoxl.ResumeLayout(False)CType (Me. UltraTextEditor7, Systes. COlllponentMode1. :ISupport:Initialize) . End:Init ()CType (Me. U1traGroupBox2, Syst:elll.ColllponentModel. :ISupport:Initialize) •End:Init ()Me.UltraGroupB0x2.ResumeLayout(False)CType (Me. C1DbNavigatorl, System.COlllPOnentMode1. :ISupport:Initialize) . End:Init OCType (Me. Ultra'l'extEditor6, Syste.. ColllponentMode1. :ISupport:Initialize) . End:Init OCType (Me. U1traTextEditor5, System. CoIIIPonentModel. :ISupport:Initialize) . End:Init OCType (Me. UltraTextEditor4 , Systelll. ComponentModel. :ISupport:Initialize) . End:Init ()CType (Me. U1traTextEditor3, Syste.. ColIIPonentModel. :ISupport:Initialize) . End:Init OCType (Me. U1traTextEditor2 , System. ComponentModel. :ISupport:Initialize) . End:Init OCType (Me.UltraTextEditorl, System. ColllPOnentModel. ISupport:Initialize) . End:Init ()CType(Me.NavBarControll, Syst:elll.ColllPOnentModel.:ISupport:Initialize) .End:InitOCType (Me. NavBarContro12, System.COlllPOnentModel. :ISupport:Initialize) •End:Init OCType (Me. C1DataSetl, System.COlIIPonentModel. :ISupport:Initialize) . End:Init ()CType(Me.C1SahemaDefl, Syst:elll.CoBponentModel.:ISupport:Initialize) .End:InitOMe. ResumeLayout (False)

End Sub

'End Region

Private Sub Proveedores Load(ByVal sender As System.Objeat, ByVal e AsSystes.EventArgS) Handles M.YBase.Load

aargarOEnd Sub

tRegion "cargar"Sub aargarO

Dim oBind As Binding

72


oBind = New Binding(nTextn , Me.CIDataSetl, nproveedores.cod proveedor")Me.UltraTextBditorl.DataBindings.Add(oBind)oBind = Nothing

oBind = New Binding(nTe>lt", Me.CIDataSetl, nproveedores.no.-bre")Me. UltraTextBditor2 .DataBindings.Add(oBind)oBind = Nothing

oBind = New Binding("Text", Me.CIDataSetl, nproveedores.direcoion")Me.UltraTextBditor3.DataBindings.Add(oBind)oBind = Nothing

oBind = New Binding("Text", Me.C1DataSetl, nproveedores.telefonon)Me. UltraTextBditor4 •DataBindings .Add(oBind)oBind = Nothing

oBind = New Binding(nTextn , Me.CIDataSetl, "proveedores.nu.ero ruen)Me.UltraTextBditorS.DataBindings.Add(oBind)oBind = Nothing

oBind = New Binding(nTe>ltn , Me.CIDataSetl, nproveedores._il")Me.UltraTextBditor6.DataBindings.Add(oBind)oBind = Nothing

oBind = New Binding("Text", Me.CIDataSetl, nproveedores.no.-bre de representate")Me.UltraTextBditor7.DataBindings.Add(oBind)oBind = Nothing

oBind = New Binding("image", Me.CIDataSetl, nproveedores.imagen")Me.UltraPietureBoxl.DataBindings.Add(oBind)oBind = Nothing

Me. c1DhNavigator1. DataSourceMe. ClObNavigator1. DataMemberDesaetivar(False)

End SubiEnd Region

Me.CIDataSet1"proveedores"

'Private Sub DataNavigatorl_ButtonClick(ByVal sender As System.Objeet, ByVal e AsDevExpress.xtraEditors.NavigatorButtonClickEventArgs)

lf e.Button ls Me.DataNavigatorl.Buttons.EndEdit ThenMe.CIDataSetl.Update()Desactivar (False)

End lf

lf e.Button ls Me.DataNavigatorl.Buttons.Append ThenDesactivar (True)

End lf'End Sub

Private Sub UltraButtonl_Click(ByVal sender As Systelll.Objeet, ByVal e AsSystem.EventArgs) Handles UltraButtonl.Click

With OpenFileDialoql.InitialDireetory = "C:\".Filter = "All Filesl*.*IMapa de bitBl*.bmpIGifsl*.gifIJPEGSI*.jpg".FilterIndex = 4

End with

lf OpenFileDialog1.ShowDialog()with Me.UltraPietureBox1

DialogResult.OK Then

.lmage = lmage.FromFile(QpenFileDialogl.FileName)

End with

End lfEnd SubPrivate Sub Desaetivar(ByRef Valor As Boolean)

Me. UltraTextBditor1 . Enabled. = Valor Me. UltraTe>ltBditor2 . Enabled = ValorMe.UltraTextBditor3.Enabled = Valor Me.UltraTextBditor4.Enabled "" ValorMe. UltraTextBditorS •Enabled = Valor Me. UltraTextBditor6. Enabled. =ValorMe.UltraButton1.Enabled. = Valor: Me.UltraTextBditor7.Enabled = Valor

73


End Sub

Private Sub ClDbHavigatorl ButtonC1ickl(ByVa1 sender As Object, ByVa1 e AsC1.Win. Cl:Input.HavigatorButtonC1ickBventArgs) Hand1es ClDbHavigatorl. ButtonC1íck

lf e.Button = Cl.Wín.C1J:nput.NavigatorButtonEnua.Add ThenDesactivar (True)

End lf

lf e.Button = cl.Win.C1J:Dput.HavigatorButtonEnua.Bdit ThenDesactivar (True)

End lf

lf e.Button = Cl.1fin.Cllnput.NavigatorButtonEnUBl.Update ThenMe.C1DataSetl.Update()Desactivar (Fa1se)

End lf

If e.Button = cl.1fín.C1J:Dput.NavigatorButtonBnua.Bdit ThenDesactivar (True)

End lf

lf e.Button = Cl.1fín.C1J:Dput.NavigatorButtonEnUDl.cance1 ThenMe. C1DataSetl . RejectChanges ()

End lf

If e.Button = Cl.1fin.C1I:nput.HavigatorButtonBnua.Refresh ThenDesactivar (False)Me.C1DataSetl.C1ear(}Me.C1DataSetl.Fi11()

End lfEnd Sub

End C1ass

u- --~c:::=:.=J[=~=JC===J==::==i

Pub1ic C1ass Registro de Entradalnherits System..W¡nd~.s. Forms. FOrJa

#Region n Código generado por e1 Diseñador de Winclovs Forms n

Pub1i.c Sub NewOMyBase.New()

'El Diseñador de Windows Forms requiere esta llamada.Xnitia1izecomponent ()

'Agregar cualquier inicialización después de la llamada a Initia1izeComponent()

End Sub

'Fo~ reemplaza a Dispose para limpiar la lista de componentes.Protected Over1oads Overrides Sub Di~se(ByVa1 di~sing As Boo1ean)

If disposing ThenIf Not (co.-ponents ls Nothing) Then

components.Di~ose()

End IfEnd lf~Base.Di~se(di~osing)

End Sub

74

Sistema de Inventario. Empresa COMDELEC Curso de Graduación 2005-

'Requerido por el Diseñador de Windo"s FormaPrivate co-.ponents As 8yat:ea.COJIIPonent:Mode1.ZContainer

Ne.. Znfraqistics.Win.AppearanceNe.. Znfragistica .Vin.AppearanceNe.. Znfragistics .Vin.AppearanceNe.. Znfragistics.Win.AppearanceNe.. Znfraqistica.Vin.AppearanceNe.. Znfraqiatica.Vin.AppearanceNe.. Znfragistics .Vin.Appearance

Ne..

Ne..

Ne..

Ne..

Ne..

Ne..

Ne..

Ne"

Ne"

Ne..

Ne..

Ne..

Ne..

Ne..

'NOTA: el Diseñador de Windo"s Forms requiere el siguiente procedimiento'Puede modificarse utilizando el Diseñador de Windo"s Forms.'No lo modifique con el editor de código.Friend withEvents U1traGroupBoxl As Znfragistics.Win.Misc.UltraGroupBoXFriend withEvents UltraGroupBox2 As Znfragistics.Win.Misc.U1traGroupBoXFriend WithEvents C1DbNavigator1 As C1.Win.C1Znput.C1DbNavigatorFriend WithEvents UltraLabe11 As Znfragistics.Win.Misc.U1traLabe1Friend withEvents U1traTextBditor1 As

Znfragistics.Win.U1traW1nEditors.U1traTextEditorFriend withEvents U1traLabe12 As Znfragistics.Win.Misc.UltraLabelFriend WithEvents U1traDateTilIleEditor1 As

Znfragistics.Win.U1traWinEditors.U1traDate'rimeEditorFriend withEvents UltraGrid1 As Znfragistics.Win.U1traWinGrid.U1traGridFriend withEvents C1DataSet1 As C1.Data.C1DataSetFriend WithEvents DataNavigator1 As DevBxpress.XtraEditors.DataNavigatorFriend WithEvents C1SchemaDef1 As C1.Data.C1ScheaaOefFriend VithEvents U1traStatuaBar1 As

Znfragistics.Win.01traWinStatusBar.01traStatusBarFriend WithEvents NavBarContro11 As DevBxpress.XtraNavBilr.NavBarContro1Friend WithEvents NavBarGroup1 As DevExpress.XtraNavBar.NavBarGroupFriend WithEvents 01traGroupBox3 As Znfragistics.Win.Misc.01traGroupBoXFriend WithEvents 01traDropDovn1 As Znfragistics.Win.UltraWinGrid.UltraDropDovnFriend WithEvents ErrorProvider1 As 8yatéa.Windova.Forma.ErrorProvider<System.Diagnostics. DebuggerStepTbrough () > Private Sub ZnitializeCoJlPOnent ()

Dim Appearance1 As Znfragistics.Win.Appéarance = Ne" Znfragistics.Vin.AppearanceDim resources As 8ystem.Resources.ResourceManager = Ne..

System.Resources •ResourceManager (GetType(Registro_de_Entrada) )Dim Appearance2 As Znfragistics.Vin.Appéarance = Ne.. Znfragistics.Vin.AppearanceDim OltraGridBandl As Znfragistics.Win.01traVinGrid.01traGridBand = Ne..

Znfragistics.Vin.UltraVinGrid.01traGridBand("_Deta11e Entrada Producto", ,-1)Dim UltraGridCo1umn1 As Znfragistics.Vin.01traVinGrid.01traGridCo1umn = Ne..

Znfragistics.Win.01traVinGrid.01traGridCo1umn("deta11eentrada")Dim 01traGridCo1umn2 As Znfragistics.Vin.UltraVinGrid.UltraGridCo1umn = Ne..

Znfragistics.Win.01traWinGrid.01traGridCo1umn("id entrada")Dim 01traGridCo1umn3 As Znfragistics.Win. 01traWinGrid.01traGridCo1umn

Znfragistics.Win.01traWinGrid.01traGridCo1uan("Producto")Dim UltraGridCo1umn4 As Znfragistics.Win. UltraVinGrid.01traGridCo1umn

Znfragistics . Win. 01traWinGrid.01traGridCo1umn("Cantidad")Dim 01traGridCo1U1111l5 As Znfraqistics.Win. UltraWinGrid. UltraGridCo1umn

Znfragistics.Win.UltraWinGrid.01traGridCo1umn("precio")Dim Appearance3 As Znfragistics.Win.AppéaranceDim Appearance4 As Znfraqistics.Win.AppearanceDim Appearance5 As Znfragistics.Win.AppéaranceDim Appearance6 As Znfraqistics.Win.AppéaranceDim Appearance7 As Znfragistics.Win.AppearanceDim Appearance8 As Znfragiatics.Win. AppearanceDim Appearance9 As Znfragistics .Vin.AppéaranceDim Appearance10 As Znfraqistics.Win.Appearance

Znfragistics.Vin.AppearanceDim Appearance11 As Znfragistics.Win.Appearance

Znfraqistics.Vin.AppearanceDim Appearance12 As Znfragistics.Win.Appearance

Znfragistics.Vin.AppearanceDim Appearance13 As Znfragistics.Win.Appearance

Znfragistics.Win.AppearanceDim Appearance14 As Znfraqistics.Win.Appearance

Znfraqiatics.Win.AppearanceDim Appearance15 As Znfragistics.Win.Appearance

Znfraqistics.Win.AppearanceDim Appearance16 As Znfragistics.Win.Appearance

Znfragistics.Win.AppearanceDim Appearance17 As Znfragistics .Vin.Appearance

Znfragistics.Win.AppearanceDim Appearance18 As Znfragistics.Win. Appearance

Znfragistics.Win.AppearanceDim Appearance19 As Znfraqistics.Win.Appearance

Znfraqistics.Win.AppearanceDim Appearance20 As Znfraqistics.Win .Appearance

Znfragistics.Win.Appearance

75


Dim Appearance21 Aa J:Dfragisties.Win.Appearaace .. Ne..IDfragisties ••in.Appearauce

Dim Appearance22 AS J:Dfragistiea.Win.Appearance Ne..IDfragistiea.Win .Appearance

Dim Appearance23 As J:Dfragistics.Win.Appearance Ne..J:Dfragisties.Win.Appearance

Dim Appearance24 As J:Dfragistiea.Win.Appearance Ne..IDfragisties.Win.Appearance

Dim Appearance25 As J:Dfragiatiea.Win.Appearance Ne..IDfragistiea.Win.Appearance

Me. tntraGroupJioxl Ne.. J:Dfragistics ••in.Mise. tntraGroupBoxMe.tntraGroupB0x3 = Ne.. IDfragisties.Win.Mise.OltraGroupBoxMe.DataNavigatorl = Ne.. DevIlxpress.XtraBdi.tora.DataHavigatorMe.ClOata8etl = Ne.. Cl.Data.C1DatasetMe.C1ScheaaDefl = Ne.. Cl.Data.C1SeheaaDefMe.U1traGric:n .. Ne.. J:Dfragistiea ••in.tntraWinGrid.U1traGridMe.U1traDateTiJleBditorl = Ne..

IDfragistiea.Win.U1traWinEditora.U1traDateTiDeBditorMe.U1traLabe12 .. Ne.. IDfragistiea~Win.Mise.U1traLabe1

Me.U1traGroupB0x2 = Ne.. J:Dfragistiea.Win.Miae.tntraGroupBoxMe.C1DhNavigatorl = Ne.. Cl.Win.C1Input.C1DbNavigatorMe.U1traLabel.l = Ne.. J:Dfragiatiea.Win.Miae.UltraLabe1Me.U1traTextBditorl = Ne.. IDfragistiea.Win. U1traWinBditora.tntraTextBditorMe. U1traStatusBarl = Ne.. J:Dfragisties.Win. U1traWinStatusBar.U1traStatusBarMe.NavBarContro11 = Ne.. DevExpreaa.XtraNavBar.NavBarContro1Me.NavBarGroupl = Ne.. DevExpresa.XtraNavBar.NavBarGroupMe. U1traDropDownl = Ne.. IDfragiatics.Vin. U1traVinGrid. U1traDropDownMe.ErrorProvider1 = Ne.. Syatea.VindD..a.Foras.ErrorProvidercType (Me. OltraGroupBoxl, Syatea. eo.ponentModel. . ISupportJ:nitialize) . BeginJ:nit OMe. U1traGroupBoxl. SuspendLayout ()CType (Me. OltraGroupBox3, Systea.Co.ponent:Model. • ISupportJ:nitia1ize) . BeginJ:nit OMe. U1traGroupBox3. SuspendLayout ()CType (Me. C1DataSetl , Syatea.Co.ponentMode1 . ISupportInitia1ize) . BegínJ:nit OCType (Me. C1Sehe-aDefl, Syatea.eo.ponentMode1 . J:SupportJ:nitia1ize) ,BegínJ:nit OCType (Me. tntraGridl. , Syatea.Ca-ponentMode1 • ISupportInitial.ize) . BeginJ:nit ()CType (Me. U1traDateT:iaeEditorl ,

Systea.Co1llponentModel..J:SupportJ:nitia1ize) .BeginJ:nitOCType (Me. tntraGroupBox2, Syatem.Co.ponentMode1 • ISuppqrtJ:nitiaU.ze) . BegínInit OMe. U1traGroupBox2 . SuspendLayout ()CType (Me. ClDbNavigatorl , Syatem.Co1llpOnentModel. . ISupportJ:nitia1iza) .BeginJ:nit ()CType (Me. U1traTextBditorl, Syates. Co1llpOnentModel . ISupportInitial.iza) . BeginInit OCType (Me. NavBarContro11, System.C01llpOnent:Mode1 . ISupportInitia1iza) .BeginJ:nit OCType (Me. U1traDropDown1, Syatea.COlllpOnentMode1 . I8upportJ:nitia1ize) •BeginInit ()Me. SuspendLayout (1

'UltraGroupBoxl

Me.U1traGroupBoxl.Contro1a.Add(Me.U1traGroupBox3)Me. U1traGroupBoxl. Contro1a .Add(Me. U1traDateT:imeEditorl)Me.U1traGroupBoxl.Contro1a.Add(Me.OltraLabe12)Me. U1traGroupBoxl. Contro1a . Add(Me. U1traGroupBox2)Me. U1traGroupBoxl. Controla.Add (Me. OltraLabe11)Me. U1traGroupBox1. Contro1s.Add(Me. OltraTextBditor1)Appearanee1.FontData.Bo1dasString = "True"Appearanea1.FontData.N_ = "Aria1"Appearance1.FontData.Size:rnPoints .. 14.0!Appearance1 . TextVAl.ign = Infragiatiea.Win.VAl.ign .MiddleAppearance1.~1e-entAlpha= J:Dfragistics.Win.A1pha. TransparentMe. U1traGroupBoxl. BeacSerAppearance .. AppearancelMe. U1traGroupBox1. BeaderBorder8ty1e =

IDfragisties.Win.tJIE1e.entBorder8ty1e.EtchedMe.U1traGroupBox1.BeaderPoaition =

Infragisties.Win.Mise.GroupBoxBeaderPosition.TopOnBorderMe.U1traGroupBoxl.Location" Ne.. 8ystea.Dra"ing.Point(0, O)Me.U1traGroupBox1. Naae = "OltraGroupBox1..Me.UltraGroupBoxl.Size .. Ne.. System.Dra..ing.8ize(912, 688)Me.OltraGroupBox1.Suppor~.. Fa1seMe. U1traGroupBox1. Tab:rndex =. 1Me.U1traGroupBox1.Text = "Registro de Entrada de Productos"Me. tntraGroupBoxl.Vertica1'.rextorientation =

:rDfragiatics.Win.Miac.GroupBoXVertiea1Text:Orientation.Bot~oTop

Me. U1traGroupBoxl.View8tyJ.e .. :rnfragisties.Vin .Mise .GroupBoxVie"8tyJ.e.Offi0e2003

'UltraGroupBox3

76


Me.UluaGroupB0x3.CoDUols.Add(Me.01UaDJ:opDown1)Me.UluaGroupB0x3.CoDUols.Add(M".DataNavigator1)Me.UluaGroupB0x3.CoDuols.Add(M8.01uaGridl)Me.01uaGroupB0x3.Location = Ne. Syst:ea.Drawinq.Point(32, 120)Me. UluaGrouPBox3.N_ = "01uaGroupBoz3"Me.01uaGroupB0z3.Size = Ne. Syst:ea.Draring.Size(816,. 392)Me.01uaGroupB0x3.Support~a= False .Me. UluaGroupB0x3. ~abIndez = 20Me.UluaGroupBox3.Tezt = "Detalle De Bnuadan

Me. Ultr&GroupB0x3.viewStyle = Infraqiatica.1fin.MiBC •GroupBoXVie.Style .Office2003

'DataNavigatorl

Me. DataNavigator1. Buttons. EndBdit.Visible ., FalseMe. DataNavigator1.Buttons.Hex~age.Visible = FalseMe.DstaNavigator1.Buttons.PrevPage.Viaible = FalseMe.DataNavigator1.DataMeldJer "_regiauo enuada producto.regisuo entrada

producto - Detalle Bnuada ProductonMe.DataNavigator1.DataSouroe Me.ClDataSet1Me.DataNavigator1.Location = Ne. Syst:ea.Draving.Point(8, 344)Me.DataNavigator1.Naae = "DataNavigator1n

Me.DataNavigator1.Size = Ne. Syst:ea.Draving.Size(800, 32)Me.DataNavigator1.TabIndex ., 19 .Me.DataNavigator1.Text = nDataNavigatorln

Me.DataNavigator1.TextLocation =DevExpress.XuaEditora.NavigatorButtonsTextLocation.Center

'C1DataSetl

Me. C1Dataget1. BindingConteztcul MeMe.ClDataget1.DataLibrary = nnMe.ClDatagetl.DataLíbraryUrl = n"Me.ClDatagetl.DatagetDef = nDataSet"Me.ClDatagetl.Locale = Ne. Syst:ea.GlObalization.CultureInfo("es-BX")Me.ClDatagetl.Na.e = nC1Dataget1n

Me.C1Datagetl.Schea&ClassNaae = n"Me.C1DataSet1.ScheaaOef = Me.C1ScheaaDef1

'ClSchemaDefl

Me.C1ScheaaOef1.DataLibraryOptionsCType(resources.GetObject("C1SchemaDefl.DataLibraryOptions"),C1.Data.Design.DataLíbraryOptions)

Me.C1SchemaDef1.DataObjectaAssemblyFlags = C1.Data.DataObjectaAssemblyFlags.A1lMe.C1SohemaDef1.gerializedSchema =

Me. C1SohemaDef1 . Getsoh-.FromResources2 (resources , nC1SchemaDefl n, Me)

'UltraGridl

Me.U1uaGridl.DataMember n_regi.suo anuada producto.regisUo anuada producto- Detalle Enuada Producto"

Me.UluaGridl.DataSource Me.C1DataSet1Appearance2.BacltCo1or = Systea.Draving.SysteJaCo1ors.1findo.Appearance2.BorderCo1or = Syst:ea.Draring.Systemeolors.Inactiv8CaptionMe.U1uaGridl.Disp1ayLayout.Appearanoe = Appearance2U1uaGridCo1U8Dl.Reader.VisiblePoaition = OU1uaGridCo1U8Dl. Ridden = TrueUltraGridColumn2.Reader.VisiblePosition = 1U1uaGridCo1URD2.Ridden = TrueUltraGridColURD3.Reader.Viaib1ePosition = 2UluaGridColURD3.1fidth = 100UluaGridColU8D4.Reader.VisiblePosition 3U1uaGridCo1_4.1fidth = 100U1traGridCol1D11l5.Reader.VisiblePosition 4U1traGridCo1-S.1fidth = 100U1uaGridBand1.Co1U1111s.AddRange (New Object () (01uaGridColuanl,

U1uaGridCo1Ul1lD2, U1uaGridCo1URD3, UluaGridColU111114, O1uaGridCol-S})Me.01uaGridl.DisplayLayout.Band.eSerializer.Add(UluaGrid8and1)Me.UluaGridl.Disp1ayLayout.BorderStyle =

Infragistics.Win.UIB1.-entBorderStyle.So1idMe.UluaGridl.Disp1ayLayout.CaptionViaib1e

Infragistics.Win.Defaultab1eBoo1ean.Fals.Appearance3.BacltCo1or = Systea.Draving.Syste.co1ors.ActiveBorder

77


Appearance3. BacltColor2 = Sy.tea.Dralfi.ng' •Syst..colors.Cont:ro1DarkAppearance3 . BacltGradientstyle .. Infragistics.Win.Gradientstyle.Vertica1Appearance3 . BorderColor = Systea.Dra1fi.nq. Syste.Colors .WiDdowMe. U1t:raGricU. DisplayLayout.GroupByBoz.Appear&DCe .. App8ar&DCe3Appearance4 •PoreColor = Systea.DrawiDg . Syst:..eolors.Gray'1'extMe .111t:raGricU . DisplayLayout. GroupByBoa. 8IlndLabel appearance = Appearance4Me .111t:raGricU. DisplayLayout. GroupByBoa. BorderStyle =

Infragistics.Win.11IE1.-eotBorderStyle.SolidAppearanceS . BacltColor = Syst:ea.Dra1fi.ng . Syst..eolors,Cont:rolLigh~ghtAppearance5 . BacltColor2 = Systea.Dralfi.ng' •Syst:..eolors. Cont:rolAppearance5. sacltGradientstyle .. Infragistics.Win. Gradientstyle. BoriEontalAppearance5.PoreColor = Syst:ea.Dra1finq.Syst..eolors.Gray'1'extMe. U1t:raGricU.DisplayLayout. GroupByBox. Prc.ptAppearance .. Appearance5Me .111t:raGricU. DisplayLayout .MaxColSCrollRegions = 1Me .111t:raGricU. DisplayLayout . MaxRo1fSCrollllegions = 1Appearance6.BacltColor = Systea.Dra1fing. Syste.Colors.WiDdowAppearance6.PoreColor = Systea.Dra1fing.SysteaColors.ContrOl~ext

Me .111t:raGricU. DisplayLayout.Override .ActiveCe1J.Appear&DCe = Appearance6Appearance7.BacltColor = Syst:ea.Dra1finq.Sy.t..eolors.HighlightAppearance7.PoreColor = Systea.Dra1finq.SysteaColors.HigblightTextMe .111t:raGricU.DisplayLayout.OVerride •ActiveRolfAppearance = Appearance7Me .111t:raGricU. DisplayLayout.OVerride.BorderStyleCell =

Infragistics.Win.11IE1.-ntBorderStyle.DottedMe.111t:raGricU.DisplayLayout.Override.BorderStyleRolf =

Infragistica.Win.11IB1.-ntBorderStyle.DottedAppearanceS.BacltColor = Syst&a.Dra1fing.SysbeaColors.WindolfMe .111t:raGricU. DisplayLayout. Override. Cardareallppearance .. Appearance8Appearance9. BorderColor = Systea.Dra1fi.ng. Color.SilverAppearance9 . TextTri.-ing = Infragistics.Win. '.l'extTri.-ing•EllipaisCharacterMe.111t:raGricU.DisplayLayout.Override.Cel1Appearance = Appearance9Me.111t:raGricU.DisplayLayout.OVerride.CellClicItAction =

Infragiatics.Win.111t:raWinGrid.Ce11C1icItAction.Edit:AndSelectTextMe.111t:raGricU.DisplayLayout.Override.CellPadding = OAppearance10. BacJr.Color = Systea.Dralfing.Systeaeolors.Cont:rolAppearance10.BacJr.Color2 = Systea.Drawing.Syste.Colors.ControlDarJr.Appearance10.BacJr.GradientAl.i~t.. Infragistics.Win.GradientAl.i~t.El_tAppearance10 . BacltGradientstyle = l:nfraAJistics.Win.Gradientstyle.HorizontalAppearance10.BorderColor = Systea.Dralfinq.Syat..coloJ;s.WindowMe.U1t:raGricU.DisplayLayout.Override.GroupByRowAppearance '"' Appearance10Appearance11. TextlUUign = l:nfragistica.Win. BAlign .LeftMe .111t:raGricU. DisplayLayout. OVerride. BeaderAppearance = Appearance11Me.111t:raGricU.DisplayLayout.OVerride.BeaderelicItAction

Infragistica.Win.111t:raWinGrid.HeaderClicItAction.SortMUlti~ Me .111t:raGricU . DisplayLayout.Override.HeaderStyle =

l:nfragiatics.Win.BeaderStyle.WindolfaXPComaandAppearance12.BacJr.Color = System.Dralfing.SystemColors.WindovAppearance12.BorderColor = Syatea.Dravinq.Color.SilverMe.111t:raGricU.DisplayLayout.Override.RovAppearance = Appearance12Me .111t:raGricU. DisplayLayout.Override.RoVSelectora =

l:nfragistica.Win.DefaultableBoolean.Fa1seAppearance13.BacltColor = Systea.Draving.SystemColors.Cont:rolLightMe.111t:raGricU.DisplayLayout.OVerride.TellplateAddRovAppearance .. Appearance13Me.111t:raGricU.DisplayLayout.ScrollBounda =

Infragistics.Win.Ult:raWinGrid.ScrollBounds.ScrollToFillMe.111t:raGricU.DisplayLayout.ScrollStyle =

l:nfragistics.Win.U1t:raWinGrid.ScrollStyle.I.-ediateMe.111t:raGricU.DisplayLayout.VieVStyleB&nd =

l:nfragistica.Win. U1t:raWinGrid.ViewStyleB&nd.OUtlooJr.GroupayMe.11It:raGricU.Location = Nev Syst:ea.Draving.Point(S, 48)Me.111t:raGricU.Na- = "tJlt:raGrid1"Me.11It:raGricU.SiEe = Nev Syst_.Dralfing.SiEe(800, 32S)Me.111t:raGricU.~abl:ndex= 18Me .111t:raGricU .~ = "111t:raGricU"

'UltraDateTimeEditor1

Me.111t:raDate'l'iaeBditorl.DataBindings.Add(NevSyatea.Windolfa. Foras.Bindinq ("Value", Me. ClOataBetl, "_regiat:ro entradaproducto.DateEnt:rads"»

Me.111t:raDateTiaeBditorl.DateTbIe = Nev Date(200S, 11, 17, O, O, O, O)Me.111t:raDateTiaeBditor1.Location'"' Nev Syat:ea.Dra1fing.Point(S04, 48)Me .111t:raDateTimeEditor!.Na- = "111t:raDate'l'UleEditor1"Me .111t:raDateTiaeBditor1 . Tabl:ndex = 17Me.111t:raDateTi-zclitor!.Value = New Date(200S, 11, 17, O, O, O, O)

78


'UltraLabe12

Me.UltraLabel2 •BaokColor = Sys~.Dra1fing . Color •TransparentMe.UltraLabe12.Looation = Ne.. Syst:ea.Dra1fing.Point(360, 48)Me.UltraLabe12.M_ = "UltraLabel2"Me.UltraLabe12.Size = Ne.. Syst:ea.Dra1fing.Size(128, 24)Me.UltraLabe12.TabXndex = 16Me.U1traLabe12.Text = "Fecha Bntrada:"

'UltraGroupBox2

Me.U1traGroupB0x2.BaokCo1or = Syst:ea.Dra1fing.Syst:emCo1ors.XnactiveBorderMe. U1traGroupBox2. Contro1s .Add(Me. C1DbNavígator1)Me.U1traGroupBox2.Location = Ne.. Syst:ea.Draving.Point(24, 528)Me. U1traGroupB0x2. Mame = "OltraGroupBox2"Me.U1traGroupBox2.Size = Ne.. Syst:ea.Draving.Size(824, 112)Me.U1traGroupB0x2.SupportTh_s = FalseMe.U1traGroupB0x2.TabXndex = 15Me.U1traGroupBox2.Text = "Mavegacion De Registros"Me.U1traGroupB0x2.ViewSty1e = Xnfragistics .1fin.Misc .GroupBoXViewStyl.e •Office2003

'CIDbNavigatorl

Me. C1DbNavigatorl.BaokCol.or = Syst:ea.Draving.Syst:-eol.ors. XnactiveCaptionTextMe.ClObNavigator1.BorclerStyl.e =System.1findovs.Forms.BorderSty1e.Fixed3DMe.C1DbNavigator1.Button'rext:Al.ign =

Cl.Win. C1Xnput.MavígatorButtonText:Al.ignBnwa.RíghtMe.ClObNavigatorl.Col.orButtons = TrueMe.C1DbNavígatorl.Dat:aMEmher = " registro entrada producto"Me.C1DbNavígator1.Data8ource = M~.C1DataSet1Me.ClObNavigatorl.Location = Ne.. Syst:ea.Draving.Point(80, 40)Me.C1DbNavígator1.N_ = "C1DbNavigatorl"Me.C1DbNavígator1.Size = Ne.. Syst:ea.Draving.Size(648, 40)Me.C1DbNavigatorl.TabXndex = OMe. C1DbNavígator1.Visib1eButtons Cl.Win. C1Xnput. NavigatorButtonF1ags .1U1.

'UltraLabell

Me. UltraLabel.l . BaokCo1or = Syst:ea.Draving. Color. TransparentMe.UltraLabel.1.Location = Ne.. System.Draving.Point(24, 48)Me.UltraLabe11.N_ = "Ul.traLabel1"Me.Ul.traLabell.Size = Ne.. Syst:ea.Drawing.Size(128, 24)Me.UltraLabell.TabXndex = 8Me.UltraLabel.1.Text = "Codígo De Entrada"

'UltraTextEditorl

Me.UltraTextBditorl.DataBindings.Add(Ne.. Syst:ea.Windovs.Foras.Binding("Va1ue",Me.C1DataSetl, "_registro entrada producto.codigo"»

Me.UltraTextBditorl.Location = Ne.. Syst:ea.Draving.Point(168, 48)Me.UltraTextBditor1.N_ = "UltraTextBditorl"Me.Ul.traTextBditor1.Size = Ne.. Syst:ea.Draving.Size(144, 21)Me.U1traTextBditor1.TabXndex = 1

'UltraStatusBarl

Me.U1traStatusBarl..Location = Ne.. Syst:ea.Draving.Point(O, 687)Me.UltraStatusBarl.Name = "UltraStatusBarl"Me.ultraStatusBarl..Size = Ne.. Syst:ea.Draving.Size(1028, 23)Me.ultraStatusBar1.TabXndex = 2

'NavBarControll

Me.NavBarControl.l.ActiveGroup = Me.NavBarGrouplMe.NavBarControl.l.1UlovDrop = TrueMe. NavBarContro1.1. Groups .AddRange (Ne.. DevBzpress.XtraNavBar . NavBarGroup ()

{Me. NavBarGroupl} )Me.NavBarContro1.1.Location = Ne.. Syst:ea.Draving.Point(912, O)Me.NavBarControl.l.N_ = "NavBarControl.l"Me.NavBarControl.l.Size = Ne.. Syst:ea.Draving.Size(120, 688)Me.NavBarControll.TabXndex = 3Me.NavBarControll.Text = "NavBarControl.l"

79


Me.NavBarControll.Viev = NewDevEzpreas.XtraNavBar.VievJ:Dfo.XP2ViewJ:DfoRegistrator

'NavBarGroupl

Me.NavBarGroupl.Caption = "Siste.a de J:nventario"Me.NavBarGroupl.DragDropJ!'l.aqs =

CType ( (DevEzpress .XtraNavBar•NavBarDragDrop.Default 01'DevEzpress .XtraNavBar . NavBarDragDrop .A1.1owDrop), DevEzpress ;XtraNavBar •NavBarDragDrop)

Me.NavBarGroupl.Ezpanded = TrueMe.NavBarGroupl. GroupCsptionUseJ:maqe = DevEzpress .XtraNavBar•NavBarJ:aaqe. LarqeMe. NavBarGroupl.N_ = "NavBarGroupl"

'UltraDropDownl

Appearance14.BackColor = Syst:ea.Drawinq.Syst:ellColors.WindowAppearance14.BorderColor = Syst:eB.Drawing.Syst:ellColors.J:nactiveCaptionMe. UltraDropDownl. DisplayLayout .Appearance = Appearance14Me. UltraDropDownl. DisplayLayout.BorderStyle =

J:Dfragistics.Win .UJ:El.-entBorderStyle.SolidMe.UltraDropDownl. DisplayLayout.CaptionVisible =

J:nfraqistics.Win.DefaultableBoolean.PalseAppearance15.BackColor = Syst:ea.Drawing.Syst:eaeolors.ActiveBorderAppearance15.BackColor2 = Syst:ea.Drawinq.SysteaColors.ControlDarkAppearance15. BackGradientstyle = J:Dfragistics.Win. Gradientstyle.VerticalAppearance15.BorderColor = Systea.Drawinq.SysteaColors.WindowMe. UltraDropDownl. DisplayLayout.GroupByBox. Appearance = Appearance15Appearance16. poreeolor = Systea.Drawinq . Syst:eaeolors .GrayTextMe. UltraDropDownl. DisplayLayout.GroupByBox. BandLabe1Appearance = Appearance16Me.UltraDropDownl.DisplayLayout.GroupByBox.BorderStyle =

J:Dfraqistics.Win.UJ:Ele-entBorderStyle.SolidAppearance17 . BackColor = Systea.Drawing . Syst:eaeolors. Contro1LiqhtLightAppearance17.BackColor2 = Syst:ea.Drawing.Syste.Colors.ControlAppearance17 . BackGradientstyle = J:Dfraqistics.Win.GradientStyle .!(orizontalAppearance17 . PoreColor = Systea.Drawinq. Syst:eaeolors. GrayTextMe. UltraDropDownl.DisplayLayout . GroupByBox. Pro.-ptAppearance = Appearance17Me.UltraDropDownl.DisplayLayout.MaxColScrollRegions = 1Me. UltraDropDownl. DisplayLayout .MaxRowScrollReqions =; 1Appearance18.BackColor = Systea.Drawing.SystelDColors.WindowAppearance18.PoreColor = Systea.Drawing.Syst:eaeolors.ControlTextMe.UltraDropDownl.DisplayLayout.Override.Activecel1Appearance = Appearance18Appearance19.BackColor = System.Drawing.SystelDColors.High1iqhtAppearance19.poreeolor = Systea.Drawing.Syst:eaeolors.High1iqhtTextMe. UltraDropDownl. DisplayLayout.Override .ActiveRowAppearance = Appearance19Me.UltraDropDownl.DisplayLayout.Override.BorderStyleCell =

J:Dfraqistics.Win.UJ:Ele8e1ltBorderStyle.DottedMe. UltraDropDownl. DisplayLayout.Override. BorderStyleRow =

J:Dfraqistics.Win.UJ:ElementBorderStyle.DottedAppearance20.BackColor = Systea.Drawinq.Syst:eaeolors.WindowMe.UltraDropDownl.DisplayLayout.Override.CardAreaAppearance = Appearance20Appearance21.BorderColor = Systea.Drawinq.Co1or.Si1verAppearance21. TextTrimainq = J:Dfraqistics.Win.T_tTr~nq.EllipsisCharacterMe. U1traDropDownl. DisplayLayout.Override. cel1Appearance = Appearance21Me.U1traDropDownl.DisplayLayout.Override.ce11ClickAction

J:Dfraqistics.Win.U1traWinGrid.ce11ClickAction.EditAndSelectTextMe. U1traDropDownl. DisplayLayout.Override. cel1Paddinq = OAppearance22.BackCo1or = System.Drawinq,SysteaCo1ors.Contro1Appearance22.BackCo1or2 = Systea.Drawinq.Systemeolors.ControlDarkAppearance22. BackGradientJUiqnment = J:Dfraqistics.Win. GradientJUiqrment.E1eaentAppearance22. BackGradientStyle = J:Dfraqistics.Win. Gradientsty1e. HorizontalAppearance22. BorderCo1or = Systea. Drawinq. Syste-oCo1ors.WindowMe. U1traDropDownl. DisplayLayout.Override. GroupByRovAppearance = Appearance22Appearance23. TextRJUiqn = J:Dfraqistics.Win. RJUiqn.LeftMe.UltraDropDownl.Disp1ayLayout.Override.HeaderAppearance = Appearance23Me. U1traDropDownl. DisplayLayout.Override. HeaderC1ickAction

J:Dfraqistics.Win.UltraWinGrid.HeaderCliCkAction.SortMUltiMe. U1traDropDownl. DisplayLayout.Override.HeaderStyle =

J:Dfraqistics.Win.HeaderStyle.WindowsXPC~d

Appearance24.BackCo1or = Systea.Drawinq.SysteaCo1ors.WindowAppearance24. BorderColor = Systea.Drawinq.Color . SilverMe. U1traDropDownl. DisplayLayout.Override.RowAppearance = Appearance24Me.U1traDropDownl.DisplayLayout.Override.Rowselectors =

J:Dfraqistics.Win.Defaultab1eBoo1ean.PalseAppearance25.BackColor = Systea.Drawinq.SystelDCo1ors.Contro1Liqht

80


Me. U1t:raDropDo1ll11. Disp1ayLayout.Override. 're8p1at:eAddRovAppearance = Appearance25Me.U1t:raDropDo1ll11.Disp1ayLayout.Scro11Bounds =

Xnfragistics.Win.U1t:raWinGrid.Scro11Bounds.Scro11ToFi11Me. U1t:raDropDo1ll11. Disp1ayLayout. Scro11Sty1e =

Xnfragistics.Win.U1t:raWinGrid.Scro11Sty1e.X-.ediateMe.U1t:raDropDo1ll11.Disp1ayLayout.Vi_Sty1eBand =

Xnfragistics.Win.U1t:ra1l'inGrid.Vi_Sty1eBand.Out1ooltGroupByMe. U1t:raDropDo1ll11.Disp1a~ = nnMe.U1t:raDropDo1ll11.Location = Ne" Systea.Dra"ing.point(152, 168)Me. U1t:raDropDo1ll11.H_ = nU1t:raDropDo1ll11 nMe.U1t:raDropDo1ll11.Size = Ne" Systea.Dra"ing.Size(336, 88)Me.Ult:raDropDo1ll11.TabXndez = 20Me.U1t:raDropDo1ll11. Text = nUlt:raDropDo1ll11 nMe.U1t:raDropDo1ll11.Val.ueMeIIlber = nnMe.Ult:raDropDo1ll11.Visib1e = False

'ErrorProvider1

Me.ErrorProvider1.Cont&inerCont:rol Me

Me.AutoScaleBaseSize = Ne" Systea.Dra"ing.Size(5, 13)Me.Clientsize = New System.Dra"ing.Size(1028, 710)Me.Cont:ro1s.Add(Me.HavBarCont:ro11)Me.Cont:rols.Add(Me.U1t:raStatusBar1)Me.Cont:ro1s.Add(Me.U1t:raGroupBox1)Me.Naae = nReqist:ro de Ent:radan

Me. Text = nRegist:ro- de- Ent:radanMe.Windo"State = Sy;tea.Windo"s. Forma. FormWindo"State.MaxiaizedCType (Me. U1t:raGroupBox1, Syste-..COlllpOnent:Mode1 • XSupportIni.tialize) . EndXni.t OMe.U1t:raGroupBox1.ResumeLayout(False)CType (Me. Ul.t:raGroupBox3, System.Component:Model. • XSupportxni.tialize) . EndXni.t ()Me.U1t:raGroupBox3. ResumeLayout (False)CType (Me. C1DataSet1, System. ComponentMode1. XSupportXni.tia1ize) . EndXni.t ()CType(Me.C1SchemaDefl, System.COIIponent:Mode1.XSupportXni.tia1ize) .EndXni.tOCType (Me.U1t:raGridl, System.ComponentModel. l:SupportXnitia1ize) . EndXnit ()CType (Me. Ul.t:raDateTi1IIeEditor1 ,

System. ComponentMode1. XSupportxni.tia1ize) •EndXni.t OCType (Me. U1t:raGroupBox2, System.. COlllpOnentModel •XSupportXni.tia1ize) . EndXni.t ()Me.U1t:raGroupBox2.ResumeLayout(Fa1se)CType (Me. C1DbNavigator1, System..ComponentMode1. XSupportxni.tialize) . EndXni.t OCType (Me. U1t:raTextEditorl, System.. ComponentMode1 . XSupportXnitia1ize) . EndXni.t ()CType (Me. NavBarCont:ro1l, System.. Colllponent:Mode1. XSupportxni.tialize) . EndXni.t OCType (Me. U1t:raDropDo1ll11, System. ComponentMode1. XSupportxni.tialize) •EndXni.t OMe. ResumeLayout (False)

End Sub

tEnd Region

Sub cargarODim oBind As Binding

oBind = New Binding(nTextn , Me.C1DataSetl, n registro ent:rada producto.codigon)Me.U1t:raTextEditor1. DataBindings .Add(oBind) -oBind = Nothing

oBind = New Binding(nTextn , Me.C1DataSet1, n_regist:ro ent:radaproducto.DateEnt:radan)

Me. U1t:raDateTillleEditor1.DataBindings .Add(oBind)oBind = Nothing

End Sub

Private Sub C1DbNavigatorl ButtonC1iclt(ByVal sender As Object, ByVal eAsC1 .Win. C1Xnput.NavigatorButtonC1ickEventArgs) Handles C1DbNavigator1.ButtonC1ick

Xf e.Button = C1.Win.C1Xnput.NavigatorButtonEnum.Add ThenDesactivar (True)

End If

If e.Button = C1.Win.C1Xnput.HavigatorButtonEnum.Edit ThenDesactivar (True)

End If

81


If e.Button = Cl.Win.Cl:tnput.NavigatorButtoDEnua.Update ThenMe.C1DataSetl.Update()

End If

If e.Button = Cl.Win.Cl:tnput.NavigatorButtoDEnum.Bdit ThenDesactivar (True)

End If

If e.Button = Cl.Win.Cl:tnput.NavigatorButtonEnua.Cance1 ThenMe. C1DataSetl . RejectChanges ()

End IfIf e.Button = Cl.1fin.Cl:tnput.NavigatorButtoDEnua.Refresh Then

Me.C1DataSetl.C1ear()Me.C1DataSetl.Fi11()

End IfEnd SubPrivate Sub Desactivar(ByRef Va10r As Boolean)

Me.U1traTextEditorl.Bnab1ed = Va10r : Me.U1traDateTimeEdi.torl.Bnab1ed == Va10r'Me.UltraTextEditor3.Enabled = Valor Me.UltraTextEditor4.Enabled Valor'Me.UltraTextEditor5.Enabled = Valor: Me.UltraTextEditor6.Enabled = Valor'Me.UltraButtonl.Enabled = Valor

End Sub

Private Sub Registro_de_Bntrada_Load(ByVal sender As Syste:lll.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

cargar()dropl()

End Sub

tRegion "drop con gridIJ

Sub dropl()

Me.U1traDropDownl.DataSource = Me.C1DataSetlMe.U1traDropDownl.DataMember = "producto"Me.U1traDropDownl.VaJ.ueMember = "id producto"Me. U1traDropDownl. Disp1ayMember = "descripcion IJ

Me.U1traGridl.Disp1ayLayout.Bands(O).Co1umns("Producto").Va1ueListMe.U1traDropDownl

End Sub

#End RegionEnd Class

'~ __~I

¡I=~~

II II

¡ L. ~~~_.-~=_.=~_=~=~==~i'.~~~_~~~~-~ __c=c=J_~~~=J.~:

Public Class Registro de Sa1idaInherits System.wInd~.s.Fo~s.Form

'Region n Código generado por e1 Diseñador de Windows Fo:r:ms n

Public Sub New()MyBase.New(}

'El Diseñador de Windows Forms requiere esta llamada.

82


Initia1izeComponent()

'Agregar cua1quier inicia1ización después de 1a 11amada a Initia1izeComponent()

End Sub

'Form reemp1aza a Dispose para 1impiar 1a 1ista de componentes.Protected OVer10ads Overrides Sub Dispose(ByVa1 disposinq As Bo01ean)



End IfMyBase.Dispose(disposinq)

End Sub

'Requerido por e1 Diseñador de Windows FormsPrivate components As System.ComponentMode1.IContainer

'NOTA: e1 Diseñador de Windows Forms requiere e1 siguiente procedimiento'Puede modificarse uti1izando e1 Diseñador de Windows Forms.'No 10 modifique con e1 editor de código.Friend WithEvents U1traGroupBox1 As Infragistics.Win.Mi.sc.U1thIGroupBoxFriend WithEvents U1traGroupBox3 As Infragistics.Win.Mi.sc.U1traGroupBoxFriend WithEvents U1traDropDown1 As Infragistics.Win.U1traWinGrid.U1traDropDownFriend WithEvents DataNavigator1 As DevExpress.XtraEditors.DataNavigatorFriend WithEvents U1traGrid1 As Infragistics.Win.U1traWinGrid.U1traGridFriend WithEvents U1traDateTimeEditor1 As

Infragistics.Win.U1traWinEditors.U1traDateTimeEditorFriend WithEvents U1traLabe12 As Infragistics.Win.Mi.sc.U1traLabe1Friend WithEvents U1traGroupBox2 As Infragistics.Win.Mi.sc.U1traGroupBoxFriend WithEvents C1DbNavigator1 As C1.Win.C1Input.C1DbNavigatorFriend WithEvents U1traLabe11 As Infragistics.Win.Mi.sc.U1traLabe1Friend WithEvents U1traTextEditor1 As

Infragistics.Win.U1traWinEditors.U1traTextEditorFriend WithEvents U1traStatusBar1 As

Infragistics.Win.U1traWinStatusBar.U1traStatusBarFriend WithEvents C1DataSet1 As C1.Data.C1DataSetFriend WithEvents C1SchemaDef1 As C1.Data.C1SchemaDef<System.Diagnostics.DebugqerStepi'brough(» Private Sub Initia1izecomponent()

Dim Appearance1 As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim Appearance2 As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim Appearance3 As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim Appearance4 As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim Appearance5 As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim Appearance6 As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim Appearance7 As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim AppearanceS As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim Appearance9 As Infragistics.Win.Appearance New Infragistics.Win.AppearanceDim Appearance10 As Infragistics.Win.Appearance New





Infragistics.Win.App8aranceDim U1traGridBandl As Infragistics.Win. U1traWinGrid. U1traGridBand = New

Infragistics.Win.U1traWinGrid.U1traGrióBand(" Deta11e Sa1ida Producto", -1)Dim U1traGridCo1umn1 As Infragistics.Win.U1traWinGrid.U1traGridco1umn New

Infragistics.Win.U1traWinGrid.U1traGridCo1umn("deta11esa1ida")Dim U1traGridC01umn2 As Infragistics.Win.U1traWinGrid.U1traGriclCo1umn New

Infragistics.Win.U1traWinGrid.U1traGridCo1umn("id salida")Dim U1traGridC01umn3 As Infragistics.Win.U1traWinGrid.U1traGriclCo1umn New

Infragistics.Win.U1traWinGrid.U1traGridCo1umn("Producto")Dim U1traGridCo1umn4 As Infragistics.Win.U1traWinGrid.U1traGridCo1umn New

Infragistics.Win.U1traWinGrid.U1traGridCo1umn("eantidad")Dim Appearance15 As Infragistics.Win.App8arance New

Infragistics.Win.App8aranceDim Appearance16 As Infragistics.Win.App8arance New

Infragistics.Win.Appaarance

83


Dim Appearance17 As l:nfragistics.lfin.Appearance Ne..l:nfragistics .lfin.Appearance

Dim Appearance18 As l:nfragistics.lfin.Appearance Ne..l:nfragistics.lfin.Appearance


Dim Appearance20 As l:nfragistics.lfin.Appearance Newl:nfragistics.lfin.Appearance

Dim Appearance21 As l:nfragistics.lfin.Appearance Newl:nfragistics .lfin •Appearance





Dim resources As Systea.Resources.ResourceManager = NewSystea.Resources.ResourceManager(GetType(Regillltro_de_Salida_) )

Me.Ul.traGroupBox1 Ne.. l:nfragisticllI.lfin.Misc.Ul.traGroupBoxMe.Ul.traGroupBox3 Ne.. l:nfragistics .lfin.Misc.tJl. traGroupBoxMe .Ul.traDropDown1 New l:nfragistics .lfin.U1tralfinGrid.1JltraDropDownMe. DataNavigator1 New DevExpress.XtraEditors . DataNavigatorMe .Ul.traGrid1 = New l:nfragistics .lfin. tJl.tralfinGrid.Ul.traGridMe.Ul.traDateTimeEdi.tor1 = New

l:nfragistics .lfin.Ul.tralfinEditors •Ul.traDateTimeEditorMe.Ul.traLabel.2 = New l:nfragistiClll.lfin.Misc.tJl.traLabel.Me .Ul.traGroupBox2 = New l:nfragistics .lfin.Misc. tJl.traGroupBoxMe.C1DbNavigator1 = New C1.lfin.C1l:nput.C1DbNavigatorMe.C1Data8et1 = Ne.. C1.Data.C1DataSetMe .Ul.traLabel.1 = New l:nfragistics .lfin.Misc.Ul.traLabel.Me .Ul.traTextEditor1 = New l:nfragistics . lfin.Ul.tralfinEditors .Ul.traTextEditorMe.Ul.traStatusBar1 = New l:nfragistics .lfin. tJl.tralfinStatusBar . Ul.traStatusBarMe.C1ScbeJlUlDef1 = New C1.Data.C1ScbemaDefCType (Me. Ul.traGroupBox1, System.ComponentModel.l:Supportl:ni.tial.ize) . Begi.nl:nit ()Me. tll.traGroupBox1. SuapendLayout ()CType (Me. tJl.traGroupBox3, Systea.Co~nentMode1.l:Supportl:ni.tial.ize) . Begi.nl:nit ()Me. tll.traGroupBox3 . SuspandLayout ()CType (Me. tJl. traDropDown1, Systea.COJI¡)onentMode1.l:Supportl:ni.tial.ize) . Begi.nl:ni.t ()CType (Me .u1traGrid1, Systea. ComponentModel.l:8upportl:nitia1ize) . Beginl:ni.t ()CType(Me.U1traDateTimeBditor1,

System.ComponentMode1.l:Supportl:ni.tial.ize).Begi.nl:nit()- CType (Me .UltraGroupBox2, Systea. ComponentModel. l:Supportl:ni.tial.ize) •Begi.nl:ni.t ()

Me. tl1traGroupBox2 •SuspendLayout ()CType (Me. C1DbNavigator1, Systea.ColaponentMode1 .l:Supportl:ni.tial.ize) . Beginl:ni.t ()CType (Me. C1DataSet1, Systea. ComponentModel. .l:8upportl:nitialize) . Beginl:ni.t ()CType (Me. tlltraTextEditor1, System. COlllPonentMode1.l:Supportl:ni.tialize) . Begi.nl:nit ()CType(Me.C1ScbemaDef1, Systea.ComponentModel..l:Supportl:ni.tial.ize) .Beginl:ni.tOMe. SuspendLayout ()

'UltraGroupBoxl

Me. tll.traGroupBox1. Control.s . Add (Me. Ul.traGroupBox3)Me.U1traGroupBox1.Control.s.Add(Me.tJl.traDateTi.meEditor1)Me.Ul.traGroupBox1.Contro1s.Add(Me.tJl.traLabe12)Me. U1traGroupBox1. Controls . Add (Me. U1traGroupBox2)Me.UltraGroupBox1.Controls.Add(Me.tJl.traLabe11)Me.UltraGroupBox1.Controls.Add(Me.tJl.traTextEditor1)Appearance1.FontData . BoldAsString = "True"Appearance1.FontData.Na-e = "Arial"Appearance1.FontData.Sizel:nPointlll = 14.0!Appearancel. TextVAlign = l:nfragistics .lfin.VAlign .Midd1eAppearance1. ThemedBlement&1pba = l:nfragistics .lfin .Al.pha. TransparentMe. UltraGroupBox1.HeaderAppearance = Appearance1Me.UltraGroupBox1.HeaderBoXderStyle =

l:nfragillltics.lfin.Ul:EleaentBorderStyle.BtchedMe.UltraGroupBox1.HeaderPosition =

l:nfragistics.lfin.Misc.GroupBoxJIeaderPosition.TopOnBorderMe.UltraGroupBox1.Location = Ne.. Systea.Draving.Point(O, O)Me. U1traGroupBox1. Nase = "UltraGroupBox1"Me.UltraGroupBox1.Size = Nev Systea.Draving.Size(1016, 680)Me. UltraGroupBox1. SupportTheaes = FalseMe.UltraGroupBox1.Tabl:ndex = 2

84


Me.OltraGroupBoxl.~_t = "Reqiatro de Salida De Productos"Me. OltraGroupBoxl.VertiealTextOrientation =

Lnfraqisties.Win.Mise .GroupBoxVerticalTextOrientation.BottoaTo~opMe.OltraGroupBoxl.ViewStyle = Infraqisties.Win.Miae . GroupBoxVi_Style . Office2003

'ultraGroupBox3

Me. 01traGroupB0x3. Controla .Add(Me.OltraDropDcnm1)Me. OltraGroupBox3. Controla . Add (Me. DataHaviqatorl)Me. 01traGroupBox3. Controla .Add(Me.OltraGrid1)Me.OltraGroupBox3.Location = New Systea.Drallinq.Point(32, 120)Me. 01traGroupBox3. Rame = "UltraGroupBox3"Me.OltraGroupBox3.Size = New Systea.Drawinq.Size(816, 392)Me.UltraGroupBox3.Supp«)rtTh_s = FalseMe.01traGroupBox3. ~abLnclex = 20Me.OltraGroupBox3.~_t= "Detalle De Entrada"Me.OltraGroupBox3.View8tyle = Lnfraqisties.Win.Misc.GroupBoxViellStyle.Office2003

'UltraDropDownl

Appearance2.BackColor = Systea.Drallinq.Systeaeolors.Wind01lAppearance2.BorderColor = Systea.Drallinq.Syateaeolors.Lnaetiv8CaptionMe. 01traDropDownl.DisplayLayout.Appearance = Appearance2Me.OltraDropDownl.DisplayLayout.BorderStyle =

Lnfraqisties.Win.UXEle8entBorderStyle.SolidMe.UltraDropDownl.DisplayLayout.CaptionVisible

Lnfraqiaties.Win.DefaultableBoolean.FalseAppearance3.BackColor = Systea.Drallinq. SysteaColors •ActiveBorderAppearanee3.BackColor2 = System.Drallinq.Syst:-eolors.ControlDarkAppearance3 . BackGradientStyle .. Lnfraqisties.Win.Gradientstyle.VerticalAppearance3.BorderColor .. Systea.Drallinq.Syste.eolors.WindowMe. UltraDrapDownl. DisplayLayout.GroupByBox.Appearance = Appearance3Appearance4 . ForeColor = Systea.Drawinq •Syste.eolors •GrayTextMe. UltraDrapDownl.DisplayLayout.GroupByBox.BandLabelAppearance =,Appearance4Me. UltraDrapDownl.DisplayLayout.GroupByBox.BorderStyle =

Lnfraqistics.Win.UJ:ElementBorderStyle.Solid.AppearanceS .BackColor = Systea.Drallinq.SysteaColora •ControlLightLightAppearanceS . BackColor2 = Systea.Drallinq . SysteaColora.ControlAppearaneeS.BackGradientStyle = Lnfraqistics.Win.Gradientstyle.BorizontalAppearanceS.ForeColor = Systea.Drallinq.SysteaColora.GrayTextMe.01traDropDownl.DisplayLayout.GroupByBox.PromptJlppearance = AppearaneeSMe.UltraDrapDownl.DisplayLayout.MaxeolScrollReqions = 1Me.oltraDropDownl. DisplayLayout.MaxRollScrollReqions = 1Appearance6.BackColor = Systea.Drallinq.SysteaColors.WindowAppearance6.ForeColor .. System.Drallinq.SystemColors.Control~ext

Me. u1traDropDownl. DisplayLayout.OVerride.Activ8Cel1Appearance = Appearance6Appearance7.BackColor = Systea.Drallinq.Syate.eolors.BiqhliqhtAppearance7.ForeColor = Systea.Drallinq.SystemColors.Bighliqht~ext

Me.UltraDrapDownl.DisplayLayout.OVerride.ActiveRollAppearance = Appearance7Me. u1traDropDownl. DisplayLayout.OVerride.BorderStyl8Cell =

Lnfraqisties.Win.UJ:El~tBorderStyle.Dotted

Me. UltraDropDownl.DisplayLayout.OVerride. BorderStyleRoll =Lnfraqisties.Win.UJ:EleaentBorderStyle.Dotted

Appearanee8.BackColor = Systea.Drallinq.Syste.eolors.WindowMe.OltraDropDownl.DisplayLayout.OVerride.CardAre~arance= Appearance8Appearance9.BorderColor = Systea.Drawinq.Color. SilverAppearanee9 . ~ext~rimminq = Lnfraqisties.Win. Text~rimminq. EllipsisCharaeterMe. UltraDrapDownl. DisplayLayout •OVerride.CellAppearance = Appearance9Me.UltraDrapDownl.DisplayLayout.OVerride.CellClickAction

Lnfraqisties.Win.OltraWinGrid.CellClicItAction.EditAndSe1eetTextMe. UltraDrapDownl. DisplayLayout.OVerride. CellPaddinq = OAppearancel0.BaekColor = Systea.Drallinq.SysteaColora.ControlAppearancel0.BaekColor2 = Systea.Drallinq.Syste.eolors.ControlDarkAppearancel0.BackGradientJUiq.-nt = Lnfraqiaties.Win. GradientJUig.-nt.ElementAppearancel0.BackGradientstyle = Lnfraqisties.Win.GradientStyle. BórizontalAppearancel0.BorderColor = Systea.Drallinq.Systeaeolors.Wind01lMe. UltraDrapDownl.DisplayLayout.OVerride. GroupByRowAppearance = Appearancel0Appearancel1.~_tBAliqn = Lnfraqisties.Win.BA1iqn.LeftMe.oltraDrapDownl. DisplayLayout .0000ride. BeaclerAppearance = AppearancellMe.U1traDropDownl. DisplayLayout.override.BeaderClickAction

Lnfraqisties.Win.OltraWinGrid.BeaderClickAction.SortMUltiMe. UltraDrapDownl. DisplayLayout.OVerride. BeaderStyle =

Lnfraqisties.Win.BeaderStyle.Windoll~d

Appearance12.BackColor = Systea.Drallinq.SystemColora.Windoll

85


Appearance12.Bo~derColo~ = SysteR.Drawing.Color.SilverMe. U1traDropDown1.DisplayJ;.ayout.Override.llowAppearance = Appearance12Me. UltraDropDown1.DisplayLayout.Override.llowSeleotors =

Xnfragistics.Win.DefaultableBoo1ean.FalseAppearance13.BacltColor = Systea.Drawing.Syst..e:olors.ControlLiqbtMe.UltraDropDown1.DisplayLayout.Override. '.rtmplateaddRowAppearance Appearance13Me.UltraDropDown1.DisplayLayout. ScrollBounds =

Xnfraqistics.Win.UltraWinGrid.ScrollBounds.ScrollToFillMe. UltraDropDown1. DisplayLayout. scrollStyle =

Xnfraqistics.Win.UltraWinG~id.ScrollStyle.X-.ediate

Me. UltraDropDown1. DisplayI.ayout.ViewStyleBand =Xnfraqistics.Win.UltraWinGrid.ViewStyleBand.OutlookGroupBy

Me. UltraDropDown1. DisplayMBmber = ""Me.UltraDropDown1.Location = New Systea.Drawing.Point(152, 168)Me. UltraDropDown1.HIUIe = "UltraDropDown1"Me.UltraDropDownl.Size = New Syste..Drawing.Size(336, 88)Me.UltraDropDown1.TabXndex = 20Me.UltraDropDown1. Te:ltt = "UltraDropDown1"Me.UltraDropDown1.ValueMe8lber = nn

Me.UltraDropDown1.Visible = False

'DataNaviqatorl

Me.DataNaviqator1.Buttons.EndEdit.Visible = FalseMe.DataNaviqator1.Buttons.Neztpaqe.Visible = FalseMe.DataNaviqator1.Buttons.PrevPaqe.Visible = FalseMe.DataNaviqator1.Da~ n_salida producto. salida producto - Detalle

Salida Producton

Me.DataNaviqator1.DataSource Me.C1DataSet1Me.DataNaviqator1.Location = Ne" Syst:ea.Drawinq.Point(8, 344)Me.DataNaviqator1.H8IIle = nDataNaviqator1"Me.DataNaviqator1.Size = New Systea.Drawing.Size(800, 32)Me.DataNaviqator1.TabXndex = 19Me.DataNaviqator1.Te:ltt = nDataHaviqator1n

Me.DataNaviqator1.Te:lttLocation =DevExpress.XtraEditors.HaviqatorButtons'.rextLocation.eenter

'UltraGridl

Me.UltraGridl.DataMember = "_salida producto. salida producto - Detalle SalidaProducton

Me.UltraGridl.DataSource Me.C1DataSet1Appearance14.BacltColor = System.Drawinq.SysteaColors.WindowAppearance14.BorderColor = System.Drawinq.Systemeolors.XnactivecaptionMe. UltraGridl.DisplayLayout.Appearance = Appearance14UltraGridColumn1.Header.VisiblePosition OUltraGridColumn1.Hidden = TrueUltraGridColumn2.Header.Visib1ePosition 1UltraGridColumn2.Hidden = TrueUltraGridColumn3.Header.VisiblePosition 2UltraGridColumn3.Widtb = 200U1traGridColumn4.Header.VisiblePosition 3UltraGridColumn4.Widtb = 200UltraGridBandl.Columns.AddRanqe(New Object() (UltraGridColumn1,

UltraGridColumn2, UltraGridColuml3, UltraGridColwm4})Me.UltraGridl.DisplayLayout.BandsSerializer.Add(UltraGridBandl)Me.UltraGridl.DisplayLayout.BorderStyle =

Xnfraqistics.Win.UXElementBorderStyle.SolidMe.UltraGridl.DisplayLayout.CaptionVisible

Xnfraqistics.Win.DefaultableBoolean.FalseAppearance15.BackColor = Systea.Drawing.Systeaeolors.ActiveBord&rAppearance15.BackColor2 = Syst:ea.Drawinq.Syste.eolors.ControlDarkAppearance15.BackGradientstyle = Xnfraqistics.Win.Gradientsty1e.VerticalAppearance15.BorderColor = Systea.Drawing.SysteaColors.WindowMe. UltraGridl. DisplayLayout.GroupByBox.Appearance = Appearance15Appearance16.Forecolor = System.Drawinq.SysteaColors.GrayTe:lttMe. UltraGridl. DisplayLayout.GroupByBox .BandLabe1Appearance = Appearance16Me. UltraGridl. DisplayLayout.GroupByBox •BorderStyle =

Xnfraqistics.Win.UXE1ementBorderStyle.SolidAppearance17.BacltColor = System.Drawinq.SysteaColors.ControlLiqbtLiqbtAppearance17.BacltColor2 = Systea.Drawinq.Systemeolors.ControlAppearance17 •BacltGradientstyle = :Infraq¡istics.Win.Gradientstyle.HorizontalAppearance17.ForeColor = SysteR.Drawing'.Syste-Colors.GrayTextMe. UltraGridl.DisplayLayout. GroupByBo:ll:. PrQBlPt&ppearance = Appearance17

86


Me.01t:raGridl. Disp1ayt.ayout •MaxCo18cro111legions = 1MA. 01t:raGridl.Disp1ayLayout.MaslIo.Scroll.Regi.ons .. 1Appearance18.BackColor = Systea.Dra.i.Dg.Sys~lors.Windo..Appearance18. ForeCo1or = Syatea.Dra.i.Dg.Sys~lors.Cont:ro1'.reztMe. 01t:raGridl.Disp1ayLayout.0gerride •ActiveCe1lAppearance = Appearance18Appearance19.BackColor = Systea.Dravi.Dg.SysteaColors.Bigb1igbt&ppearance19.ForeCo1or = Systea.Dra.i.Dg.SysteaColors.Bigb1igbt'.rextMe. 01t:raGridl.DisplayLayout.0gerride.ActiveRovJlppearaDce .. Appearance19Me. 01t:raGridl •Disp1ayLayout. 0gerride •BorderSty1ece11 =

J:nfragistics.Win.tJJ:J:1-.>tBorderStyle.DotteclMe. tJ1t:raGrid1. Disp1ayLayout.0gerride. BorderSty1eRov ..

J:nfragistics.Win.tJJ:Bl-.>tBorderStyle.DotteclAppearan0e20. BackColor = Systea.Draving.Sys~lors.WindovMe. tJ1t:raGridl. DisplayLayout.0gerride.Cardareaappearance = Appearance20Appearance21. BorderColor = Systea.Dra.ing.Color.Si1verAppearan0e21. TeztTri.-ing .. J:nfragistics.Win.Tezt'.rri.-inq.E11ipsisCharacterMe.01t:raGridl.Disp1ayLayout.Override.cellAppearance = Appearance21Me.01t:raGridl.Disp1ayLayout.Override.ce11C1iCkAction=

J:nfragistics.Win.tJ1t:raWinGrid.Cel1C1iCkAction.BditAndSe1ectTeztMe.01t:raGridl •Disp1ayLayout. 0gerride.ce11Paddíng = OAppearance22.BackCo1or = System.Draving.Syste.Co1ors.Cont:ro1Appearance22.BackCo1or2 = Sys~.Draving.Syst8lllCo1ors.Cont:ro1J)arlt

Appearance22. BackGradientAlignment .. J:nfraqistics.Win~GradientAlignllent.BlementAppearance22 •BacltGradientstyle .. J:nfragistics.Win.Gradient8ty1e. Borizonta1Appearan0e22.BorderColor = System.Draving.SystemCo1ors.WindovMe.01t:raGridl. DisplayLayout. Override.GroupByRowAppearance ... Appearance22Appearance23 . Tezt:BAl.ign .= J:nfragistics.Win. BAlign.LeftMe. 01t:raGridl. Disp1ayLayout. Override.BeaderAppearance '" Appearance23Me.01t:raGridl.Disp1ayLayout.0gerride.BeaderC1iCkAction

J:nfragistics.Win.01t:raWinGrid.BeaderC1iCkAction.SortMUltiMe.Olt:raGridl.DisplayLayout.Override.BeaderSty1e =

J:nfragistics.Win.BeaderStyle.WindovsXPCcmaandAppearance24.BackCo1or = Systea.Draving.SysteaColors.Windo.Appearance24. BorderCo1or = Systea.Draving•Color •Si1verMe.01t:raGridl.Disp1ayLayout.0gerride.Ro1dlppearance .. Appearance24Me.Olt:raGridl.DisplayLayout.Override.RovSe1ectors =

J:nfragistics.Win.Defaultab1eBoo1ean.Fa1seAppearance25.BackColor = Systea.Dravinq.SystemColo~s.Cont:rolLigbt

Me.01t:raGridl.DisplayLayout.Override.o.re.plateaddRovAppearance = Appearance25Me.01t:raGridl.DisplayLayout.Scro11Bounds =

J:nfragistics.Win.Olt:raWinGrid.Scro11Bounds.Scro11ToFil1Me.U1t:raGridl.Disp1ayLayout.Scro11Sty1e =

J:~fragistics.Win.Ult:raWinGrid.Scro11Sty1e.J:.-ediate

Me. 01t:raGridl •DisplayLayout.VievSty1eBand =J:nfragistics.Win.01t:raWinGrid.VievSty1eBand.OutlookGroupBy

Me.Olt:raGridl.Location = Ne.. Systea.Draving.Point(8, 48)Me. 01t:raGridl.M... = "01t:raGrid1"Me.U1t:raGridl.Size = Ne.. Systea:Dra"ing.Size(800, 328)Me. U1t:raGridl. TabJ:ndez = 18Me.U1t:raGridl.Text = "Ult:raGrid1"

'U1traDateTimeEditor1

Me.U1t:raDateTimeBditor1.DateTime = Ne.. Date(2005, 11, 17, O, O, O, O)Me.U1t:raDateT:iaeBditorl.Location .. New Systea.Dra"ing.Point(504, 48)Me. U1t:raDateTi.eBditor1 .Mame = "U1t:raDateTilleBditor1"Me.U1t:raDateTilleBditor1.TabJ:ndex '" 17Me.U1t:raDate'.rilleBditorl.Va1ue .. New Date(2005, 11, 17, O, O, O, O)

'UltraLabe12

Me. U1t:raLabe12 •BackCo1or = Systea.Dra"ing•Color. TransparentMe.tJ1t:raLabe12.Location = Ne.. Systea.Dra"ing.Point(360, 48)Me. U1t:raLabe12 .Rame = "U1t:raLabe12"Me.U1t:raLabe12. Size = Ne". Systea.Dra"ing. Size (128, 24)Me.U1t:raLabe12.TabJ:ndex = 16Me. 01t:raLabe12 •Text = "Fecha Salida:"

'UltraGroupBox2

Me.tJ1t:raGroupB0x2.BackCo1or = System.Dra"ing.Syst:ellCo1ors.J:nactiveBorderMe.01t:raGroupB0x2 •Cont:ro1s .Add(Me. ClDbMavigator1)Me.U1t:raGroupB0x2.Location'" Ne" Systaa.Drawi.Dg.Point(24, 528)Me. 01t:raGroupBox2 •M... '" "Ult:raGroupBox2"

87


We.UltraGroupB0x2.Size = New Systea.Drawing.Size(824, 112)Me.UltraGroupB0x2.Supportn-s = FalseMe. UltraGroupBoz2. TabIndez = 15Me.UltraGroupBoz2.Text = "Navegacion De llegi.stros De Salida"Me.UltraGroupB0x2.ViewSt::yle = Infragistics.1fin.Misc.GroupBoXViewSt::yle.Office2003

'C1DbNavigatorl

Me. ClDbHavigatorl. BacJtColor = Systea.Drawing•Sys-te.Colors •InactiveCaptionTextMe. ClDbHavigatorl. BorderStyle = Systea.1findows .I!'onus. BorderSt::yle .l!'ixed3DMe. ClDbHavigatorl.ButtonText:Align =

Cl.1fin. C1Input.NavigatorButtonText:AlignBnwa.RightMe. ClDbHavigatorl. ColorButtons = TrueMe.ClDbHavigatorl.Dat:aMellber = " salida producto"Me.C1DbHavigatorl.Dat:a8ourca = M;.C1DataSetlMe.ClDbHavigatorl.Location = New Systea.Drawing.Point(80, 40)Me.ClDbHavigatorl.Na.e = "C1DbHavigatorl"Me.ClDbHavigatorl.Size = New Systea.Drawing.Size(648, 40)Me.ClDbNavigatorl.TabIndez = OMe. C1DbNavigatorl.VisibleButtons = Cl.1fm. C1Input. NavigatorButtonl!'lags .All

'C1DataSetl

Me. ClDataSetl.BindingCont:extCtrl MeMe.ClDataSetl.DataLibrary = ""Me.C1DataSetl.DataLibraryUrl = ""Me.C1Data8etl.DataSet:Def = "DataSet"Me.ClDataSetl.Locale = New Systea.Globalization.Cu1tureInfo("es-HI")Me.ClDataSetl.Name = "C1DauSetl"Me.C1DataSetl.Schem&ClassName = ""Me.C1DataSetl.SchemaDef = Me.C1SchemaOefl

'UltraLabell

Me.UltraLabell.BackColor = Systea.Drawing.Color.TransparentMe.UltraLabell.Location = New Systea.Drawing.Point(24, 48)Me.UltraLabel.l..Name = "Ul.traLabel.l"Me.UltraLabell.Size = New Syst:em.Drawing.Size(128, .24)Me.UltraLabell.TabIndex = 8Me.UltraLabell.Text = "Codigo De Sal.ida"

'UltraTextEditorl

Me.UltraTextEditorl.Location = New Syst:em.Drawing.Point(168, 48)Me. Ul.traTextEditorl •Name = "UltraTextEditorl"Me.UltraTextEditorl.Size = New Syst:em.Drawing.Size(144, 21)Me.Ul.traTextEditorl.TabIndex = 1

'UltraStatusBarl

Me.UltraStatusBarl.Location = New Syst:em.Drawing.Point(O, 687)Me.Ul.traStatusBarl.Name = "Ul.traStatusBarl"Me.Ul.traStatusBarl.Size = New Syst:em.Drawing.Size(10l6, 23)Me.UltraStatusBarl.TabIndex = 3

'C1SchemaDefl

Me.C1SchemaDefl.DataLibraryOptionsCType (resourcas. GetObject ("C1SchemaDefl. DaULibraryOptions") ,Cl.Data.Design.DataLibraryOptions)

Me.C1SchemaDefl.DataObjectsAsseablyl!'lags = Cl.Data.DataObjectsAsseabl.yl!'lags.AllMe.C1SchemaDefl.8erial.izedScheaa =

Me. C1SchemaDefl. GetScheaal!'rolllResources2 (resources , "C1SchemaDefl", Me)

Me.AutoScaleBaseSize = New Systea.Drawing.Size(5, 13)Me.Cl.ientsize = New Syst:em.Drawing.Size(1016, 710)Me.Controls.Add(Me.Ul.traStatusBarl)Me. Control.s .Add(Me.UltraGroupBoxl)Me.Nase = "Registro de Sal.ida "Me.Text = "Registro-de-Sal.ida-"Me .1findowStat:e = Syitei.1findo;s .I!'onus .l!'ontWindowStat:e •MaximizadCType (Me. Ul.traGroupBoxl, Systea. Coaaponent:Model. . ISupportInitialize) . BndInit ()

88


Me. UluaGroupBoal.Re~yout(False)C'1'ype(Me. UltraGroupBoz3, Syau..CoIIpo_tModel. ISupporUnitialise) .EndInit ()He". U1traGroupB0s3. Res.-Layout(False)CType (He. UltraDropDcnm1, Syau..Co-..onentModel. ISupportInitialisa) •EndInit ()CType (Me.UltraGrid1, Byatea.COIIpOnentMode1. ISupporUniti.lisa) •BndInitOCType (Me.UltraDateT~ditor1,

Syatea. CoJlf>OlUUltModel. ISupporUni.tialise) . EndInit ()CType (Me. UltraGroupBox2, Syatea.Co-..onentModel. ISupporUnitialisa) . EncU:nit OHe.U1uaGroupB0x2.Res.-Layout(False)CType (He. C1DbNsvigatorl, Systaa.COIIpOnentModel. ISupporUnitialise) . BodInit OCType (Me. CIDataSetl, Systea. CoIIponentMode1. ISupporUnitialise) . EndInit OCType(Me.OltraTextBditorl, Systea.Co-..onentModal.ISupportInitializa) .BncUnit()CType (Me. C1Sche.aDefl, Syatea.ComponentMode1. ISupporUnitialis.) . BodInit OMe. ResumeLayout (False)

End" Sub

'End Regíon

'Regíon "drop con grid"Sub dropl0

He.OltraDropDown1.DataSource = He.C1DataSatlHe.01traDropDown1.Dat:aMeJlber '" "producto"He.01traDropDown1.Valu~r'" "id producto"He. UltraDropDown1 . Disp1ayMellber = "descripcion"He.U1traGrid1.DisplayLayout.Bands(O).Colu.os("Producto").ValuéList

He. 01traDropDown1

End Sub

iEnd Regíon

Prívate Sub CIDbNavigatorl ButtonClick(ByVal aander As Object, ByVal e AsCl.1fin.C1Input.NavigatorButtonClicltEvenUrgs) Handles C1DbNavigatorl.ButtonC1.ick

If e.Button '" C1.1fin.C1Input.NaviqatorButtonEnua.Add ThenDesactivar (True)

End If

If e.Button = CI.1fin.C1Input.NaviqatorButtonEnua.Edit ThenDessctivar(True)

End If

If e.Button = C1.Win.CIInput.NaviqatorButtonEnum.update ThenMe. C1DataSet1. tJpdate ()

End If

If a.Button = C1.1fin.CIInput.NavigatorButtonEnua.Edit ThenDesactivar (True)

End If

If e.Button '" CI.1fin.CIInput.NaviqatorButtonEnum.Cancel ThenHe. CIDataSetl.Rejectchanges O

End IfIf e.Button = Cl.1fin.CIInput.NaviqatorButtonEnua.Refresh Then

He.CIDataSetl.Clear()He.CIDataSetl.Fill()

End IfEnd SubPrivate Sub Desactivar(ByRef Valor As Boolean)

Me.UltraTextBditorl.Enabled = Valor : He.UltraDate'1'imeEditorl.Enabled = Valor'Me.UltraTextEditor3.Enabled '" Valor He.UltraTextEditor4.Enabled Valor'He.UltraTextEditor5.Enabled '" Valor : Me.UltraTextEditor6,Enabled = Valor'He.UltraButtonl.Enabled '" Valor

End Sub

Sub carqarODim oBind As Binding

oBind = New Binding("Text", Me.C1DataSetl, " salida producto.codigo")Me.01traTextBditorl.DataBindinga.Add(oBind) -oBind = Nothíng

89

Sistema de Inventario. Empresa COMDELEC Cur~,o de Graduación 2005

oBind = New Binding("~ext", Me.CIDataSetl, "_salida producto.DateBalida")Me.UltraDate~i.eEditorl.DataBindings.Add(oBind)

oBind = NothíngEnd Sub

Prívate Sub Registro de Salida Load(ByVal sender As Systea.Object, ByVal e AsSystea.Event:Args) Handles MYBase.LOid

cargar OdroplO

End SubEnd Class

90

Sistema de Inventario. Empresa COMDELEC CurSo de Graduación 2005

DISEÑO DE LA INTRANET:

La Empresa COMDELEC, no cuenta con una Intranet, por lo cual

planteamos la siguientes propuesta:

Se tiene una antena la cual recibe, la señal de Internet, esta conexión se

da por medio de microondas (recibe señal de otra ántena), que es la del

proveedor, luego a esta se conecta el Lan Modem, el cual hace la misma

función del router, este se conecta al Servidor, que contiene un IP público

(209.124.106.60), con una máscara de red (255.255.255.248), DNS

(165.98.134.2), y un broadcast que esta viene por defecto, a este se conecta el

Switch, el cual contiene un IP privado (Gateway), máscara de red, DNS, luego

se conectan al switch en este caso dos Computadoras,las que serán utilizadas

en el área de Contabilidad y Bodega.

En la Primera Cómputadora tendrá las siguientes características IP

privada (192.168.20.1)" máscara (255.255.255.0), puerta de enlace

(192.168.20.254), DNS (165.98.134.2) y la segunda Computadora IP privada

(192.168.20.2, máscara (255.255.255.0), puerta de enlace (192.168.20.254),

DNS (165.98.134.2).

91


Antena

Lan Modem

INTRANET DE LA EMPRESA "COMDELEC".

PC2

92


PRUEBA Y ENTREGA

Las pruebas se irán realizando en un laboratorio, para probar las

conexiones o comunicaciones entre las bases de datos, el flujo de información

la comunicación cliente! servidor, las comunicaciones de cada interfaz, el

almacenamiento de datos, las impresiones por salida de reporte y realizar la

prueba al cliente si es de su agrado o requiere modificar algo en el último

momento.

Se realizó una Pagina Web y ejecutó en un periodo de tiempo, si las

conexiones se realizaron satisfactoriamente.

Si existieran errores se corregiría y se entregará en el tiempo acordado ya

con la página funcionando perfectamente en la Web.

93

Sistema de Inventario. Empresa COMl)ELEC Curso de Graduación 2005

CONCLUSIONES

En la búsqueda de nuevas técnicas que faciliten las labores en las

oficinas de trabajo, se crearon ideas, planteadas en el proyecto que ~sumant·,:",.

la responsabilidad de dar respuesta a todas aquellas necesidades que surjan

en el cumplimiento de cualquier actividad dentro de la Empresa.

La informática es utilizada como una herramienta destinada a dar

soluciones a problemas de flujo y control más importante de una empresa, que .

es la información traducida en términos financieros contables de negocio. El

objetivo principal es el de mejorar el rendimiento, la cqpacidad y funcionalidad

de la empresa con el fin de brindar un mejor servicio al cliente.

Hemos llegado a la conclusión de que mientras existan alternativas

capaces de ayudar a la automatización de cualquier sistema, se lograran

resultados brillantes, pues el ahorro de factores importantes e imprescindibles

como el tiempo y el dinero son los que hacen que una empresa trabaje eficaz y

eficientemente en el mercado. No obstante, logramos llegar al convencimiento

que los recursos humanos son la clave principal para logara todos los objetivos

trazados para la culminación de todo proyecto utilizando como instrumento la

base tecnológica.

94


RECOMENDACIONES

1. Darle mantenimiento al sistema cada cierto tiempO.

2. Hacer modificaciones y reestructuraciones al sistema para el control

automatizado de las muestra si la institución lo requiere.

3. Capacitar al personal que lo opera o maneja el sistema.

4. Contratar a una persona que de periódicamente mantenimiento a la BD

en el servidor.

5. Evitar contacto con el sistema si no es una persona capacitado o

autorizado para hacer ejecución del sw ya que originaria problemas.

95


BIBLIOGRAFIA.

; ....

I modulo de Ingeniería de Software

Modulo de Aplicaciones Web

Modulo Microsoft Visual Net

Diccionario Larruse y Océano

Trabajos monográficos de apoyo.

Internet

96


97


ANEXOS

Glosario:

KAROEX: Fichas en el que se lleva el control de la descripción del

producto.

VISUAL.NET: Lenguaje de programación.

SQL Server: Lenguaje de Consulta estructurado

ORA: Desarrollo Rápido de Aplicaciones.

COCOMO 11: Sirve para calcular la estimación de costo del

proyecto.

SW: Software.

HW: Hardware.

SISTINV: Sistema de Inventario.

OSN: Diseño del Sistema del Negocio.

UTP: Protocolo de Transmisión Universal.

SWITCH: Conector de Red.

Activ- Reports: Software que utilizamos para generar reportes.


98

MODELADO DEL DISEÑO DE LA ARQUITECTURA

SISTINV

MEDIDA

ENTRADAS PROVEEDOR PRODUCTO

REPORTES

99


DIAGRAMA DE CLASIFICACION PARA ELSUBSISTEMA DE REPORTES

REPORTES

SEMANAL QUINCENAL

100


Date post:	22-May-2018
Category:	Documents
Upload:	buikhue
View:	213 times
Download:	0 times

Universidad de Ciencias Comerciales - RENIDA 0077 2005.pdf · Elaborar manual de usuario, ... Datos...

Documents