Imports System.Globalization

Public Class VentaTec
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents MenuPrincipal As System.Windows.Forms.MainMenu
    Friend WithEvents BarraEstado As System.Windows.Forms.StatusBar
    Friend WithEvents Seccion1 As System.Windows.Forms.StatusBarPanel
    ' ATENCION: 19/03/2008 CAMBIE EL PRIVATE POR PUBLIC
    Friend WithEvents BHEComprobanteProducto As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHEComprobanteDinero As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHNCliente As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHNProveedor As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHNComprobanteProducto As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHNComprobanteDinero As System.Windows.Forms.ToolBarButton
    Friend WithEvents ImagenListaBarraHerramienta As System.Windows.Forms.ImageList
    Friend WithEvents BHNProducto As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHNPrecioLista As System.Windows.Forms.ToolBarButton
    Friend WithEvents BarraHerramienta As System.Windows.Forms.ToolBar
    Friend WithEvents BHSeparador1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHSeparador2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHSeparador3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHCSaldoCliente As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHCSaldoProveedor As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHSeparador4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents BHCResumenBanco As System.Windows.Forms.ToolBarButton
    <System.Diagnostics.DebuggerStepThrough()> Public Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(VentaTec))
        Me.MenuPrincipal = New System.Windows.Forms.MainMenu
        Me.BarraEstado = New System.Windows.Forms.StatusBar
        Me.Seccion1 = New System.Windows.Forms.StatusBarPanel
        Me.BarraHerramienta = New System.Windows.Forms.ToolBar
        Me.BHEComprobanteProducto = New System.Windows.Forms.ToolBarButton
        Me.BHEComprobanteDinero = New System.Windows.Forms.ToolBarButton
        Me.BHSeparador1 = New System.Windows.Forms.ToolBarButton
        Me.BHNCliente = New System.Windows.Forms.ToolBarButton
        Me.BHNProveedor = New System.Windows.Forms.ToolBarButton
        Me.BHSeparador2 = New System.Windows.Forms.ToolBarButton
        Me.BHNProducto = New System.Windows.Forms.ToolBarButton
        Me.BHNPrecioLista = New System.Windows.Forms.ToolBarButton
        Me.BHSeparador3 = New System.Windows.Forms.ToolBarButton
        Me.BHNComprobanteProducto = New System.Windows.Forms.ToolBarButton
        Me.BHNComprobanteDinero = New System.Windows.Forms.ToolBarButton
        Me.BHSeparador4 = New System.Windows.Forms.ToolBarButton
        Me.BHCSaldoCliente = New System.Windows.Forms.ToolBarButton
        Me.BHCSaldoProveedor = New System.Windows.Forms.ToolBarButton
        Me.BHCResumenBanco = New System.Windows.Forms.ToolBarButton
        Me.ImagenListaBarraHerramienta = New System.Windows.Forms.ImageList(Me.components)
        CType(Me.Seccion1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'BarraEstado
        '
        Me.BarraEstado.Location = New System.Drawing.Point(0, 603)
        Me.BarraEstado.Name = "BarraEstado"
        Me.BarraEstado.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.Seccion1})
        Me.BarraEstado.ShowPanels = True
        Me.BarraEstado.Size = New System.Drawing.Size(1008, 24)
        Me.BarraEstado.TabIndex = 1
        Me.BarraEstado.Text = "StatusBar1"
        '
        'Seccion1
        '
        Me.Seccion1.Width = 500
        '
        'BarraHerramienta
        '
        Me.BarraHerramienta.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.BHEComprobanteProducto, Me.BHEComprobanteDinero, Me.BHSeparador1, Me.BHNCliente, Me.BHNProveedor, Me.BHSeparador2, Me.BHNProducto, Me.BHNPrecioLista, Me.BHSeparador3, Me.BHNComprobanteProducto, Me.BHNComprobanteDinero, Me.BHSeparador4, Me.BHCSaldoCliente, Me.BHCSaldoProveedor, Me.BHCResumenBanco})
        Me.BarraHerramienta.DropDownArrows = True
        Me.BarraHerramienta.ImageList = Me.ImagenListaBarraHerramienta
        Me.BarraHerramienta.Location = New System.Drawing.Point(0, 0)
        Me.BarraHerramienta.Name = "BarraHerramienta"
        Me.BarraHerramienta.ShowToolTips = True
        Me.BarraHerramienta.Size = New System.Drawing.Size(1008, 28)
        Me.BarraHerramienta.TabIndex = 3
        '
        'BHEComprobanteProducto
        '
        Me.BHEComprobanteProducto.ImageIndex = 0
        Me.BHEComprobanteProducto.ToolTipText = "Emitir comprobante de producto"
        '
        'BHEComprobanteDinero
        '
        Me.BHEComprobanteDinero.ImageIndex = 1
        Me.BHEComprobanteDinero.ToolTipText = "Emitir comprobante de dinero"
        '
        'BHSeparador1
        '
        Me.BHSeparador1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'BHNCliente
        '
        Me.BHNCliente.ImageIndex = 3
        Me.BHNCliente.ToolTipText = "Nuevo/Modificar/Eliminar cliente"
        '
        'BHNProveedor
        '
        Me.BHNProveedor.ImageIndex = 6
        Me.BHNProveedor.ToolTipText = "Nuevo/Modificar/Eliminar proveedor"
        '
        'BHSeparador2
        '
        Me.BHSeparador2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'BHNProducto
        '
        Me.BHNProducto.ImageIndex = 4
        Me.BHNProducto.ToolTipText = "Nuevo/Modificar/Eliminar producto"
        '
        'BHNPrecioLista
        '
        Me.BHNPrecioLista.ImageIndex = 7
        Me.BHNPrecioLista.ToolTipText = "Nuevo/Modificar/Eliminar Precios por lista"
        '
        'BHSeparador3
        '
        Me.BHSeparador3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'BHNComprobanteProducto
        '
        Me.BHNComprobanteProducto.ImageIndex = 5
        Me.BHNComprobanteProducto.ToolTipText = "Nuevo/Modificar/Eliminar comprobante de producto"
        '
        'BHNComprobanteDinero
        '
        Me.BHNComprobanteDinero.ImageIndex = 2
        Me.BHNComprobanteDinero.ToolTipText = "Nuevo/Modificar/Eliminar comprobante de dinero"
        '
        'BHSeparador4
        '
        Me.BHSeparador4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'BHCSaldoCliente
        '
        Me.BHCSaldoCliente.ImageIndex = 8
        '
        'BHCSaldoProveedor
        '
        Me.BHCSaldoProveedor.ImageIndex = 9
        '
        'BHCResumenBanco
        '
        Me.BHCResumenBanco.ImageIndex = 10
        '
        'ImagenListaBarraHerramienta
        '
        Me.ImagenListaBarraHerramienta.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImagenListaBarraHerramienta.ImageStream = CType(resources.GetObject("ImagenListaBarraHerramienta.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImagenListaBarraHerramienta.TransparentColor = System.Drawing.Color.Transparent
        '
        'VentaTec
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(1008, 627)
        Me.Controls.Add(Me.BarraHerramienta)
        Me.Controls.Add(Me.BarraEstado)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MenuPrincipal
        Me.Name = "VentaTec"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        CType(Me.Seccion1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub VentaTec_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim FrmUsuario As New Usuario
        ' Colocar cursor en espera
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
        '' Inicializar
        'VentanaComoListado = False
        ' Crear menú
        On Error Resume Next
        ' Crear menú Programa
        MenuPrincipal.MenuItems.Add("&Programa")
        Dim MiPrograma As MenuItem = MenuPrincipal.MenuItems(0)
        Dim handlerPrograma As EventHandler = New EventHandler(AddressOf MenuItemProgramaClick)
        With MiPrograma.MenuItems
            .Add(New IconMenuItem("&Maestro de ventanas ", New Icon(Application.StartupPath & "\vbMDIForm.ico"), handlerPrograma, Shortcut.CtrlM))
            .Add(New IconMenuItem("C&onfiguración general ", Nothing, handlerPrograma, Shortcut.CtrlO))
            .Add("-")
            .Add(New IconMenuItem("MundoTec.com.ar Sitio &web ", Nothing, handlerPrograma, Shortcut.CtrlW))
            .Add(New IconMenuItem("&Acerca de VentaTec.. ", New Icon(Application.StartupPath & "\MundoTec.ico"), handlerPrograma, Shortcut.CtrlA))
            .Add(New IconMenuItem("&Salir ", Nothing, handlerPrograma, Shortcut.CtrlS))
        End With
        ' Crear menú Tareas
        MenuPrincipal.MenuItems.Add("&Tareas")
        Dim MiTareas As MenuItem = MenuPrincipal.MenuItems(1)
        Dim handlerTareas As EventHandler = New EventHandler(AddressOf MenuItemTareasClick)
        With MiTareas.MenuItems
            .Add(New IconMenuItem("Consulta saldos deudores &clientes", Nothing, handlerTareas, Shortcut.None))
            .Add(New IconMenuItem("Consulta saldos acreedores &proveedores", Nothing, handlerTareas, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("&Movimiento de productos entre depósitos", Nothing, handlerTareas, Shortcut.None))
            .Add(New IconMenuItem("&Ajustes de productos en existencia", Nothing, handlerTareas, Shortcut.None))
            .Add(New IconMenuItem("Consulta &existencias de productos", Nothing, handlerTareas, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("&Extracción de valores económicos del banco", Nothing, handlerTareas, Shortcut.None))
            .Add(New IconMenuItem("&Busqueda de valores económicos", Nothing, handlerTareas, Shortcut.None))
            .Add(New IconMenuItem("Consulta &saldos de bancos", Nothing, handlerTareas, Shortcut.None))
            .Add(New IconMenuItem("Consulta &resumen de bancos", Nothing, handlerTareas, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Macro-modificar precios de pro&ductos", Nothing, handlerTareas, Shortcut.F2))
            .Add("-")
            .Add(New IconMenuItem("Calcular comisiones de &vendedores", Nothing, handlerTareas, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("&Tablero de control", Nothing, handlerTareas, Shortcut.None))
        End With
        ' Crear menú Listados
        MenuPrincipal.MenuItems.Add("&Listados")
        Dim MiListados As MenuItem = MenuPrincipal.MenuItems(2)
        Dim handlerListados As EventHandler = New EventHandler(AddressOf MenuItemListadoClick)
        With MiListados.MenuItems
            .Add(New IconMenuItem("Listado &deudores", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado cuenta corriente &cliente", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado &resumen clientes deudores", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado &acreedores", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado cuenta corriente pro&veedor", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado re&sumen proveedores acreedores", Nothing, handlerListados, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("&Listado de comprobantes de productos", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado de comprobantes de &dinero", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado Libro IVA &ventas", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado Libro IVA co&mpras", Nothing, handlerListados, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Listado ba&ncos", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado c&heques", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado resumen de &bancos", Nothing, handlerListados, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("L&istado de clientes", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Li&stado de proveedores", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado de &vendedores", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado de comisiones de ve&ndedores", Nothing, handlerListados, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Lis&tado de productos y depósitos", Nothing, handlerListados, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Listad&o de cuentas de compras", Nothing, handlerListados, Shortcut.None))
            .Add(New IconMenuItem("Listado de &transportistas", Nothing, handlerListados, Shortcut.None))
        End With
        ' Crear sub menú Listado/ProductosDepositos
        Dim MiProductosDepositos As MenuItem = MiListados.MenuItems(21)
        Dim handlerProductosDepositos As EventHandler = New EventHandler(AddressOf MenuItemProductosDepositosClick)
        With MiProductosDepositos.MenuItems
            .Add(New IconMenuItem("Lis&tado de productos", Nothing, handlerProductosDepositos, Shortcut.None))
            .Add(New IconMenuItem("Listado de depósi&tos", Nothing, handlerProductosDepositos, Shortcut.None))
            .Add(New IconMenuItem("Listado de &existencia de productos", Nothing, handlerProductosDepositos, Shortcut.None))
            .Add(New IconMenuItem("Listado de p&unto de pedido de productos", Nothing, handlerProductosDepositos, Shortcut.None))
            .Add(New IconMenuItem("Listado &por rubros", Nothing, handlerProductosDepositos, Shortcut.None))
        End With
        ' Crear menú Comprobantes
        MenuPrincipal.MenuItems.Add("&Comprobantes")
        Dim MiComprobantes As MenuItem = MenuPrincipal.MenuItems(3)
        Dim handlerComprobantes As EventHandler = New EventHandler(AddressOf MenuItemComprobantesClick)
        With MiComprobantes.MenuItems
            .Add(New IconMenuItem("&Emitir comprobante de producto", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("&Reimprimir comprobante de producto emitidos", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("&Consultar comprobante de producto emitidos", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("&Generar cierre X y/o Z para controlador fiscal", Nothing, handlerComprobantes, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Emitir co&mprobante de dinero", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("Reimprimir comprobante de diner&o emitidos", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("Consultar compro&bante de dinero emitidos", Nothing, handlerComprobantes, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Consultar configuración comprobante de &producto", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar configuración comprobante de producto", Nothing, handlerComprobantes, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Consultar configuración comprobante de &dinero", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("Nuevo/Modificar/&Eliminar configuración comprobante de dinero", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("Consultar &tipo de valores económicos", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("Nuevo/Modificar/Eliminar tipo de va&lores económicos", Nothing, handlerComprobantes, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Consultar Numeración de comproban&tes", Nothing, handlerComprobantes, Shortcut.None))
            .Add(New IconMenuItem("Nuevo/Modificar/Eliminar Numeración de comprobante&s", Nothing, handlerComprobantes, Shortcut.None))
        End With
        ' Crear menú Datos
        MenuPrincipal.MenuItems.Add("Dat&os")
        Dim MiDatos As MenuItem = MenuPrincipal.MenuItems(4)
        Dim handlerDatos As EventHandler = New EventHandler(AddressOf MenuItemDatosClick)
        With MiDatos.MenuItems
            .Add(New IconMenuItem("&Clientes", New Icon(Application.StartupPath & "\cliente.ico"), handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("&Vendedores", Nothing, handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("&Transportistas", Nothing, handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("&Proveedores", Nothing, handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("Cuent&as de compras", Nothing, handlerDatos, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Pr&oductos", Nothing, handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("&Precios", Nothing, handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("&Impuestos", Nothing, handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("Depó&sitos", Nothing, handlerDatos, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Condición i&mpositiva", Nothing, handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("&Bancos", Nothing, handlerDatos, Shortcut.None))
            .Add(New IconMenuItem("E&mpresas ", New Icon(Application.StartupPath & "\argentina.ico"), handlerDatos, Shortcut.CtrlE))
            .Add(New IconMenuItem("Modificar &Documentación ", Nothing, handlerDatos, Shortcut.CtrlD))
            .Add("-")
            .Add(New IconMenuItem("&Usuarios", Nothing, handlerDatos, Shortcut.None))
            .Add("-")
            .Add(New IconMenuItem("Compactar &base de datos ", New Icon(Application.StartupPath & "\compactar.ico"), handlerDatos, Shortcut.CtrlB))
            .Add(New IconMenuItem("Es&tado ", Nothing, handlerDatos, Shortcut.CtrlT))
        End With
        ' Crear sub menú Datos/Clientes
        Dim MiClientes As MenuItem = MiDatos.MenuItems(0)
        Dim handlerClientes As EventHandler = New EventHandler(AddressOf MenuItemClientesClick)
        With MiClientes.MenuItems
            .Add(New IconMenuItem("&Consultar cliente ", Nothing, handlerClientes, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar cliente ", New Icon(Application.StartupPath & "\empleado.ico"), handlerClientes, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Vendedores
        Dim MiVendedor As MenuItem = MiDatos.MenuItems(1)
        Dim handlerVendedor As EventHandler = New EventHandler(AddressOf MenuItemVendedorClick)
        With MiVendedor.MenuItems
            .Add(New IconMenuItem("&Consultar vendedor ", Nothing, handlerVendedor, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar vendedor ", New Icon(Application.StartupPath & "\empleado.ico"), handlerVendedor, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Transportista
        Dim MiTransporte As MenuItem = MiDatos.MenuItems(2)
        Dim handlerTransporte As EventHandler = New EventHandler(AddressOf MenuItemTransporteClick)
        With MiTransporte.MenuItems
            .Add(New IconMenuItem("&Consultar transportista ", Nothing, handlerTransporte, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar transportista ", New Icon(Application.StartupPath & "\empleado.ico"), handlerTransporte, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Proveedores
        Dim MiProveedores As MenuItem = MiDatos.MenuItems(3)
        Dim handlerProveedores As EventHandler = New EventHandler(AddressOf MenuItemProveedoresClick)
        With MiProveedores.MenuItems
            .Add(New IconMenuItem("&Consultar proveedor ", Nothing, handlerProveedores, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar proveedor ", New Icon(Application.StartupPath & "\empleado.ico"), handlerProveedores, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Cuentas de compras
        Dim MiCuentasCompras As MenuItem = MiDatos.MenuItems(4)
        Dim handlerCuentasCompras As EventHandler = New EventHandler(AddressOf MenuItemCuentasComprasClick)
        With MiCuentasCompras.MenuItems
            .Add(New IconMenuItem("&Consultar cuentas de compras ", Nothing, handlerCuentasCompras, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar cuentas de compras ", New Icon(Application.StartupPath & "\empleado.ico"), handlerCuentasCompras, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Productos
        Dim MiProductos As MenuItem = MiDatos.MenuItems(6)
        Dim handlerProductos As EventHandler = New EventHandler(AddressOf MenuItemProductosClick)
        With MiProductos.MenuItems
            .Add(New IconMenuItem("&Consultar producto ", Nothing, handlerProductos, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar producto ", New Icon(Application.StartupPath & "\empleado.ico"), handlerProductos, Shortcut.F3))
            .Add("-")
            .Add(New IconMenuItem("Consultar &rubro de productos ", Nothing, handlerProductos, Shortcut.F2))
            .Add(New IconMenuItem("Nuevo/&Modificar/Eliminar rubro de productos ", New Icon(Application.StartupPath & "\empleado.ico"), handlerProductos, Shortcut.F3))
            .Add("-")
            .Add(New IconMenuItem("Consultar &familia de productos ", Nothing, handlerProductos, Shortcut.F2))
            .Add(New IconMenuItem("Nueva/Modificar/&Eliminar familia de productos ", New Icon(Application.StartupPath & "\empleado.ico"), handlerProductos, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Precios
        Dim MiPrecios As MenuItem = MiDatos.MenuItems(7)
        Dim handlerPrecios As EventHandler = New EventHandler(AddressOf MenuItemPreciosClick)
        With MiPrecios.MenuItems
            .Add(New IconMenuItem("&Consultar lista de precios ", Nothing, handlerPrecios, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar lista de precios ", Nothing, handlerPrecios, Shortcut.F2))
            .Add("-")
            .Add(New IconMenuItem("Consultar &precios por lista ", Nothing, handlerPrecios, Shortcut.F2))
            .Add(New IconMenuItem("Nuevo/Modificar/Eliminar precios por &lista ", New Icon(Application.StartupPath & "\empleado.ico"), handlerPrecios, Shortcut.F3))
            .Add("-")
            .Add(New IconMenuItem("Consultar precios p&or cliente", Nothing, handlerPrecios, Shortcut.F2))
            .Add(New IconMenuItem("Nuevo/Modificar/Eliminar precios por &cliente ", Nothing, handlerPrecios, Shortcut.F2))
        End With
        ' Crear sub menú Datos/Impuestos
        Dim MiImpuestos As MenuItem = MiDatos.MenuItems(8)
        Dim handlerImpuestos As EventHandler = New EventHandler(AddressOf MenuItemImpuestosClick)
        With MiImpuestos.MenuItems
            .Add(New IconMenuItem("&Consultar impuestos ", Nothing, handlerImpuestos, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Eliminar impuesto ", New Icon(Application.StartupPath & "\empleado.ico"), handlerImpuestos, Shortcut.F3))
            .Add("-")
            .Add(New IconMenuItem("&Macro-modificar impuesto ", Nothing, handlerPrecios, Shortcut.F2))
        End With
        ' Crear sub menú Datos/Depósito
        Dim MiDepositos As MenuItem = MiDatos.MenuItems(9)
        Dim handlerLocales As EventHandler = New EventHandler(AddressOf MenuItemDepositoClick)
        With MiDepositos.MenuItems
            .Add(New IconMenuItem("Consulta &depósito ", Nothing, handlerLocales, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Elimnar depósito ", New Icon(Application.StartupPath & "\empleado.ico"), handlerLocales, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Condición impositiva
        Dim MiImpositiva As MenuItem = MiDatos.MenuItems(11)
        Dim handlerImpositiva As EventHandler = New EventHandler(AddressOf MenuItemImpositivaClick)
        With MiImpositiva.MenuItems
            .Add(New IconMenuItem("&Consulta condición impositiva ", Nothing, handlerImpositiva, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Elimnar condición impostiva ", New Icon(Application.StartupPath & "\empleado.ico"), handlerImpositiva, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Bancos
        Dim MiBancos As MenuItem = MiDatos.MenuItems(12)
        Dim handlerBancos As EventHandler = New EventHandler(AddressOf MenuItemBancosClick)
        With MiBancos.MenuItems
            .Add(New IconMenuItem("Consulta &banco ", Nothing, handlerBancos, Shortcut.F2))
            .Add(New IconMenuItem("&Nuevo/Modificar/Elimnar banco ", New Icon(Application.StartupPath & "\empleado.ico"), handlerBancos, Shortcut.F3))
        End With
        ' Crear sub menú Datos/Usuarios
        Dim MiUsuarios As MenuItem = MiDatos.MenuItems(16)
        Dim handlerUsuarios As EventHandler = New EventHandler(AddressOf MenuItemUsuariosClick)
        With MiUsuarios.MenuItems
            .Add(New IconMenuItem("&Nuevo/Elimnar usuario ", New Icon(Application.StartupPath & "\empleado.ico"), handlerUsuarios, Shortcut.F3))
            .Add("-")
            .Add(New IconMenuItem("Permisos de &usuarios registrados ", Nothing, handlerUsuarios, Shortcut.F2))
        End With
        ' Crear menú Ventana
        MenuPrincipal.MenuItems.Add("&Ventana")
        Dim MiVentana As MenuItem = MenuPrincipal.MenuItems(5)
        Dim handlerVentana As EventHandler = New EventHandler(AddressOf MenuItemVentanaClick)
        With MiVentana.MenuItems
            .Add(New IconMenuItem("&Mosaico ", New Icon(Application.StartupPath & "\mosaico.ico"), handlerVentana, Shortcut.CtrlM))
            .Add(New IconMenuItem("&Cascada ", New Icon(Application.StartupPath & "\cascada.ico"), handlerVentana, Shortcut.CtrlC))
            .Add("-")
            .Add(New IconMenuItem("&Ayuda ", Nothing, handlerVentana, Shortcut.F1))
            .Add(New IconMenuItem("&Ordenar Iconos ", Nothing, handlerVentana, Shortcut.CtrlO))
            .Add(New IconMenuItem("&Listado de ventanas ", Nothing, handlerVentana, Shortcut.CtrlL))
        End With
        '' Definir lista de ventanas
        'MenuPrincipal.MenuItems(5).MenuItems(5).MdiList = True
        'On Error GoTo 0

        ' Establecer ruta de acceso
        'On Error Resume Next
        'FileOpen(1, Application.StartupPath & "\Ruta.txt", OpenMode.Input)
        'If CBool(Err.Number) Then
        Ruta = Application.StartupPath
        'Else
        '    Input(1, Ruta)
        '    FileClose()
        'End If
        ' Limpiar error en caso de generarse
        'Err.Clear()

        '' Restablecer cursor
        'Me.Cursor = System.Windows.Forms.Cursors.Default
        '' Llamar definición usuario
        'FrmUsuario.ShowDialog()
        '' Colocar cursor en espera
        'Me.Cursor = System.Windows.Forms.Cursors.WaitCursor

        ' Mostrar VentaTec
        'Show()

        ' ATENCION: 07/06/2008 DEBIDO A CALCULOS NECESARIOS EN UN ORDEN NECESARIOS AL PINICIALR EL PROGRAMA SE SACA PORTADA
        ' Mostrar portada
        'FrmPortada.Show()

        '' ATENCION: 13/03/2008 ESTO DEBERIA IR EN PORTADA, PERO EL "ME" DE MDIPARENT NO LO PERMITE
        '' Saber si hay que mostrar ventana maestro o no
        'Dim FrmMaestro As New Maestro

        '' Abrir base de datos general
        'On Error Resume Next
        ''SubAbrirTablaBDGral("SELECT * FROM Configuracion WHERE Usuario = '" & UsuarioActual & "'")
        'SubAbrirTablaBDGral("SELECT * FROM Configuracion WHERE Usuario = 'Admin'")
        'SubAbrirTablaBDGral2("SELECT * FROM VEmpresa")
        'SubAbrirTablaBDGral3("SELECT * FROM VEmpresas")
        'Dim FTablaGral As DataRow = TTablaGral.Rows(0)
        'Dim FTablaGral2 As DataRow = TTablaGral2.Rows(0)
        'Dim FTablaGral3 As DataRow = TTablaGral3.Rows(0)

        'If Not FnErrorADONET(Me) Then

        ' Calcular clave aleatoria
        ' Saber si ya tiene ClaveVersion
        'If CDbl(FTablaGral2("DocEmpleado").ToString) = 0 Then
        '' El codigo versión no fue realizado con anterioridad
        '' Calcularlo con números aleatorios
        'Randomize(Val(DateTimeFormatInfo.CurrentInfo.LongTimePattern))
        '' ATENCION: VERIFICAR SI HAY QUE MODIFICAR ECUACION
        'FTablaGral2("DocEmpleado") = ((CInt(Rnd() * 10000)) ^ 2) + 315
        'BDTablaGral2.Update(TTablaGral2)
        'TTablaGral2.AcceptChanges()
        'End If
        '' Determinar el estado
        'On Error GoTo 0
        'SubDeterminarEstado(TTablaGral2)
        'If EstadoPrograma = Profesional And Not Evaluacion Then
        '' Deshabilitar menú Estado
        'Me.MenuPrincipal.MenuItems(4).MenuItems(19).Enabled = False
        'Else
        '    ' Habilitar menú Estado
        '    Me.MenuPrincipal.MenuItems(4).MenuItems(19).Enabled = True
        'End If
        'On Error Resume Next
        '' Mostrar ventana Maestro en caso necesario
        'If CBool(FTablaGral("IniciarMaestroVentana").ToString) = True Then
        'On Error GoTo 0
        'FrmMaestro.MdiParent = Me
        'FrmMaestro.Visible = True
        '' Desactivar menú
        'MenuPrincipal.MenuItems(0).MenuItems(0).Enabled = False
        'Else
        '    FrmMaestro.Close()
        'End If

        '' Configuración de preguntar antes de modificar o crear
        'If CBool(FTablaGral("PreguntarCrearModificar").ToString) Then
        'PreguntarCrearModificar = True
        'Else
        '    PreguntarCrearModificar = False
        'End If
        '' Configuración cambiar punto por coma
        'If CBool(FTablaGral("CambiarPuntoPorComa").ToString) Then
        'CambiarPunto = True
        'Else
        '    CambiarPunto = False
        'End If
        '' Configuración cambiar coma por punto interno
        'If CBool(FTablaGral("CambiarComaPorPuntoInterno").ToString) Then
        'CambiarComaInterno = True
        'Else
        '    CambiarComaInterno = False
        'End If

        '' Escribir título
        'Me.Text = LeyendaTitulo & FTablaGral3("NombreEmpresa").ToString
        '' Establecer empresa
        'If FTablaGral3("Directorio").ToString = "0" Then
        'Directorio = "\"
        'Else
        '    Directorio = "\" & FTablaGral3("Directorio").ToString & "\"
        'End If

        'Else
        '' Se generó error
        '' ATENCION: 08/03/2008 SI DA ERROR NO DETERMINA ESTADO

        'End If

        On Error GoTo 0

        '' Configurar ayuda
        'Ayuda.SetHelpNavigator(Me, HelpNavigator.TableOfContents)

        ' Colocar cursor normal
        Me.Cursor = System.Windows.Forms.Cursors.Default

    End Sub

    Private Sub MenuItemProgramaClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Maestro de ventanas
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                ' Llamar ventana
                Dim FrmMaestro As New Maestro
                FrmMaestro.MdiParent = Me
                FrmMaestro.Visible = True
                ' Anular menu
                MenuPrincipal.MenuItems(0).MenuItems(0).Enabled = False
                Me.Cursor = System.Windows.Forms.Cursors.Default
            Case 1    ' Configuración general
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO: EN CONFIGURACION NO CUENTA
                Dim FrmConfiguracion As New Configuracion
                FrmConfiguracion.MdiParent = Me
                FrmConfiguracion.Visible = True
                ' Anular menu
                MenuPrincipal.MenuItems(0).MenuItems(1).Enabled = False
                Me.Cursor = System.Windows.Forms.Cursors.Default
            Case 3    ' MundoTec sitio web
                System.Diagnostics.Process.Start(LeyendaWebMundotec)
            Case 4    ' Acerca de VentaTec
                Dim FrmAcercade As New Acercade
                FrmAcercade.ShowDialog()
            Case 5    ' Salir
                SubSalirSoft()
        End Select
    End Sub

    Private Sub MenuItemTareasClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consulta saldos deudores clientes
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO: HECHO
                If FnConAutorizacionVentana("CSaldoCliente") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    Dim FrmCSaldoCliente As New CSaldoCliente
                    FrmCSaldoCliente.MdiParent = Me
                    FrmCSaldoCliente.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(0).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Consulta saldos acreedores proveedores
                If FnConAutorizacionVentana("CSaldoProveedor") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCSaldoProveedor As New CSaldoProveedor
                    FrmCSaldoProveedor.MdiParent = Me
                    FrmCSaldoProveedor.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(1).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 3    ' Movimiento de productos entre depósitos
                If FnConAutorizacionVentana("MExistencia") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmMExistencia As New MExistencia
                    FrmMExistencia.MdiParent = Me
                    FrmMExistencia.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(3).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 4    ' Ajustes de productos en existencia
                If FnConAutorizacionVentana("AExistencia") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmAExistencia As New AExistencia
                    FrmAExistencia.MdiParent = Me
                    FrmAExistencia.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(4).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 5    ' Consulta existencias de productos
                If FnConAutorizacionVentana("CExistencia") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCExistencia As New CExistencia
                    FrmCExistencia.MdiParent = Me
                    FrmCExistencia.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(5).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 7    ' Extracción de valores económicos del banco
                If FnConAutorizacionVentana("EValorBanco") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmEValorBanco As New EValorBanco
                    FrmEValorBanco.MdiParent = Me
                    FrmEValorBanco.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(7).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 8    ' Busqueda de valores económicos
                If FnConAutorizacionVentana("BValorEconomico") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmBValorEconomico As New BValorEconomico
                    FrmBValorEconomico.MdiParent = Me
                    FrmBValorEconomico.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(8).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 9    ' Consulta saldos de bancos
                If FnConAutorizacionVentana("CSaldoBanco") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCSaldoBanco As New CSaldoBanco
                    FrmCSaldoBanco.MdiParent = Me
                    FrmCSaldoBanco.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(9).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 10   ' Consulta resumen de bancos
                If FnConAutorizacionVentana("CResumenBanco") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCResumenBanco As New CResumenBanco
                    FrmCResumenBanco.MdiParent = Me
                    FrmCResumenBanco.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(10).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 12   ' Macro-modificar precios de productos
                If FnConAutorizacionVentana("MPrecio") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmMPrecio As New MPrecio
                    FrmMPrecio.MdiParent = Me
                    FrmMPrecio.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(12).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 14   ' Calcular comisiones de vendedores
                If FnConAutorizacionVentana("CComisionVendedor") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCComisionVendedor As New CComisionVendedor
                    FrmCComisionVendedor.MdiParent = Me
                    FrmCComisionVendedor.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(14).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 16   ' Tablero de control
                If FnConAutorizacionVentana("TableroControl") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    'Dim FrmTableroControl As New TableroControl
                    'FrmTableroControl.MdiParent = Me
                    'FrmTableroControl.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(1).MenuItems(16).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemListadoClick(ByVal sender As Object, ByVal e As EventArgs)
        ' Activar ventana listado
        VentanaComoListado = True
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Listado deudores
                If FnConAutorizacionVentana("LDeudores") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLDeudores As New LDeudores
                    FrmLDeudores.MdiParent = Me
                    FrmLDeudores.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(0).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Listado cuenta corriente cliente
                If FnConAutorizacionVentana("LSaldoCliente") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCSaldoCliente As New CSaldoCliente
                    FrmCSaldoCliente.MdiParent = Me
                    FrmCSaldoCliente.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(1).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 2    ' Listado resumen clientes deudores
                If FnConAutorizacionVentana("LResumenDeudor") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLResumenDeudor As New LResumenDeudor
                    FrmLResumenDeudor.MdiParent = Me
                    FrmLResumenDeudor.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(2).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 3    ' Listado acreedores
                If FnConAutorizacionVentana("LAcreedores") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLAcreedores As New LAcreedores
                    FrmLAcreedores.MdiParent = Me
                    FrmLAcreedores.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(3).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 4    ' Listado cuenta corriente proveedor
                If FnConAutorizacionVentana("LSaldoProveedor") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCSaldoProveedor As New CSaldoProveedor
                    FrmCSaldoProveedor.MdiParent = Me
                    FrmCSaldoProveedor.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(4).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 5    ' Listado resumen proveedor acreedores
                If FnConAutorizacionVentana("LResumenAcreedor") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLResumenAcreedor As New LResumenAcreedor
                    FrmLResumenAcreedor.MdiParent = Me
                    FrmLResumenAcreedor.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(5).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 7    ' Listado de comprobantes de productos
                If FnConAutorizacionVentana("LComprobanteProducto") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLComprobanteProducto As New LComprobanteProducto
                    FrmLComprobanteProducto.MdiParent = Me
                    FrmLComprobanteProducto.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(7).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 8    ' Listado de comprobantes de dinero
                If FnConAutorizacionVentana("LComprobanteDinero") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLComprobanteDinero As New LComprobanteDinero
                    FrmLComprobanteDinero.MdiParent = Me
                    FrmLComprobanteDinero.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(8).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 9    ' Listado Libro IVA ventas
                If FnConAutorizacionVentana("LLibroIVAVenta") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLLibroIVAVenta As New LLibroIVAVenta
                    FrmLLibroIVAVenta.MdiParent = Me
                    FrmLLibroIVAVenta.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(9).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 10    ' Listado Libro IVA compras
                If FnConAutorizacionVentana("LLibroIVACompra") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLLibroIVACompra As New LLibroIVACompra
                    FrmLLibroIVACompra.MdiParent = Me
                    FrmLLibroIVACompra.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(10).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 12    ' Listado bancos
                If FnConAutorizacionVentana("LBanco") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLBanco As New LBanco
                    FrmLBanco.MdiParent = Me
                    FrmLBanco.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(12).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 13    ' Listado cheques
                If FnConAutorizacionVentana("LCheque") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLCheque As New LCheque
                    FrmLCheque.MdiParent = Me
                    FrmLCheque.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(13).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 14    ' Listado resumen de bancos
                If FnConAutorizacionVentana("LResumenBanco") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCResumenBanco As New CResumenBanco
                    FrmCResumenBanco.MdiParent = Me
                    FrmCResumenBanco.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(14).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 16    ' Listado de clientes
                If FnConAutorizacionVentana("LCliente") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLCliente As New LCliente
                    FrmLCliente.MdiParent = Me
                    FrmLCliente.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(16).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 17    ' Listado de proveedores
                If FnConAutorizacionVentana("LProveedor") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLProveedor As New LProveedor
                    FrmLProveedor.MdiParent = Me
                    FrmLProveedor.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(17).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 18    ' Listado de vendedores
                If FnConAutorizacionVentana("LVendedor") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLVendedor As New LVendedor
                    FrmLVendedor.MdiParent = Me
                    FrmLVendedor.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(18).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 19    ' Listado de comisiones de vendedores
                If FnConAutorizacionVentana("LComisionVendedor") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCComisionVendedor As New CComisionVendedor
                    FrmCComisionVendedor.MdiParent = Me
                    FrmCComisionVendedor.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(19).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 23    ' Listado de cuentas de compras
                If FnConAutorizacionVentana("LCtaCompra") Then
                    VentanaComoListado = False
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLCtaCompra As New LCtaCompra
                    FrmLCtaCompra.MdiParent = Me
                    FrmLCtaCompra.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(23).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 24    ' Listado de transportistas
                If FnConAutorizacionVentana("LTransporte") Then
                    VentanaComoListado = False
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLTransporte As New LTransporte
                    FrmLTransporte.MdiParent = Me
                    FrmLTransporte.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(24).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
        ' Inicializar
        VentanaComoListado = False
    End Sub

    Private Sub MenuItemProductosDepositosClick(ByVal sender As Object, ByVal e As EventArgs)
        VentanaComoListado = True
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Listado de productos
                If FnConAutorizacionVentana("LProducto") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLProducto As New LProducto
                    FrmLProducto.MdiParent = Me
                    FrmLProducto.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(21).MenuItems(0).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Listado de depósitos
                If FnConAutorizacionVentana("LDeposito") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLDeposito As New LDeposito
                    FrmLDeposito.MdiParent = Me
                    FrmLDeposito.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(21).MenuItems(1).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 2    ' Listado de existencia de productos
                If FnConAutorizacionVentana("LExistenciaProducto") Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLExistenciaProducto As New LExistenciaProducto
                    FrmLExistenciaProducto.MdiParent = Me
                    FrmLExistenciaProducto.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(21).MenuItems(2).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 3    ' Listado de punto de pedido de productos
                If FnConAutorizacionVentana("LPtoPdoProducto") Then
                    VentanaComoListado = False
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLExistenciaProducto As New LExistenciaProducto
                    FrmLExistenciaProducto.MdiParent = Me
                    FrmLExistenciaProducto.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(21).MenuItems(3).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 4    ' Listado por rubros
                If FnConAutorizacionVentana("LRubro") Then
                    VentanaComoListado = False
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmLRubro As New LRubro
                    FrmLRubro.MdiParent = Me
                    FrmLRubro.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(2).MenuItems(21).MenuItems(4).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
        ' Inicializar
        VentanaComoListado = False
    End Sub

    Private Sub MenuItemComprobantesClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Emitir comprobante de producto
                If FnConAutorizacionVentana("EComprobanteProducto") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmEComprobanteProducto As New EComprobanteProducto
                    FrmEComprobanteProducto.MdiParent = Me
                    FrmEComprobanteProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Reimprimir comprobante de producto emitdos
                If FnConAutorizacionVentana("RComprobanteProducto") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmRComprobanteProducto As New RComprobanteProducto
                    FrmRComprobanteProducto.MdiParent = Me
                    FrmRComprobanteProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 2    ' Consultar comprobante de producto emitidos
                If FnConAutorizacionVentana("CEComprobanteProducto") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCEComprobanteProducto As New CEComprobanteProducto
                    FrmCEComprobanteProducto.MdiParent = Me
                    FrmCEComprobanteProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(2).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 3    ' Generar cierre X y/o Z para controlador fiscal
                MessageBox.Show(LeyendaNoControlFiscal, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)

            Case 5    ' Emitir comprobante de dinero
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("EComprobanteDinero") Then
                    Dim FrmEComprobanteDinero As New EComprobanteDinero
                    FrmEComprobanteDinero.MdiParent = Me
                    FrmEComprobanteDinero.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(5).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 6    ' Reimprimir comprobante de dinero emitidos
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("RComprobanteDinero") Then
                    Dim FrmRComprobanteDinero As New RComprobanteDinero
                    FrmRComprobanteDinero.MdiParent = Me
                    FrmRComprobanteDinero.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(6).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 7    ' Consultar comprobante de dinero emitidos
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CEComprobanteDinero") Then
                    Dim FrmCEComprobanteDinero As New CEComprobanteDinero
                    FrmCEComprobanteDinero.MdiParent = Me
                    FrmCEComprobanteDinero.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(7).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 9    ' Consultar configuración comprobantes de producto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CComprobanteProducto") Then
                    Dim FrmCComprobanteProducto As New CComprobanteProducto
                    FrmCComprobanteProducto.MdiParent = Me
                    FrmCComprobanteProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(9).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 10    ' Nuevo/Modificar/Elimimnar configuración compronates de producto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NComprobanteProducto") Then
                    Dim FrmNComprobanteProducto As New NComprobanteProducto
                    FrmNComprobanteProducto.MdiParent = Me
                    FrmNComprobanteProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(10).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 12    ' Consultar configuración comprobantes de dinero
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CComprobanteDinero") Then
                    Dim FrmCComprobanteDinero As New CComprobanteDinero
                    FrmCComprobanteDinero.MdiParent = Me
                    FrmCComprobanteDinero.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(12).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 13    ' Nuevo/Modificar/Elimimnar configuración compronates de dinero
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NComprobanteDinero") Then
                    Dim FrmNComprobanteDinero As New NComprobanteDinero
                    FrmNComprobanteDinero.MdiParent = Me
                    FrmNComprobanteDinero.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(13).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 14    ' Consultar tipo de valores
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CTipoValor") Then
                    Dim FrmCTipoValor As New CTipoValor
                    FrmCTipoValor.MdiParent = Me
                    FrmCTipoValor.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(14).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 15    ' Nuevo/Modificar/Elimimnar tipo de valores
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NTipoValor") Then
                    Dim FrmNTipoValor As New NTipoValor
                    FrmNTipoValor.MdiParent = Me
                    FrmNTipoValor.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(15).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 17    ' Consultar numeración de comprobantes
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CNumeracion") Then
                    Dim FrmCNumeracion As New CNumeracion
                    FrmCNumeracion.MdiParent = Me
                    FrmCNumeracion.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(17).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 18    ' Nuevo/Modificar/Eliminar Numeración de comprobante&s
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NNumeracion") Then
                    Dim FrmNNumeracion As New NNumeracion
                    FrmNNumeracion.MdiParent = Me
                    FrmNNumeracion.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(3).MenuItems(18).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

        End Select
    End Sub

    Private Sub MenuItemDatosClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index

            Case 13    ' Empresa
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NEmpresa") Then
                    Dim FrmNEmpresa As New NEmpresa
                    FrmNEmpresa.MdiParent = Me
                    FrmNEmpresa.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(13).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 14    ' Modificar documentación
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("MDocumento") Then
                    Dim FrmMDocumento As New MDocumento
                    FrmMDocumento.MdiParent = Me
                    FrmMDocumento.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(14).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 18    ' Compactar base de datos
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CompactarBD") Then
                    Dim FrmCompactarBD As New CompactarBD
                    FrmCompactarBD.MdiParent = Me
                    FrmCompactarBD.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(18).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 19    '  Estado
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NEstado") Then
                    Dim FrmNEstado As New NEstado
                    FrmNEstado.MdiParent = Me
                    FrmNEstado.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(19).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemClientesClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar cliente
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CCliente") Then
                    Dim FrmCCliente As New CCliente
                    FrmCCliente.MdiParent = Me
                    FrmCCliente.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(0).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar cliente
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NCliente") Then
                    Dim FrmNCliente As New NCliente
                    FrmNCliente.MdiParent = Me
                    FrmNCliente.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(0).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemProveedoresClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar proveedor
                If FnConAutorizacionVentana("CProveedor") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCProveedor As New CProveedor
                    FrmCProveedor.MdiParent = Me
                    FrmCProveedor.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(3).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar proveedor
                If FnConAutorizacionVentana("NProveedor") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmNProveedor As New NProveedor
                    FrmNProveedor.MdiParent = Me
                    FrmNProveedor.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(3).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemTransporteClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar transportista
                If FnConAutorizacionVentana("CTransporte") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCTransporte As New CTransporte
                    FrmCTransporte.MdiParent = Me
                    FrmCTransporte.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(2).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar transportista
                If FnConAutorizacionVentana("NTransporte") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmNTransporte As New NTransporte
                    FrmNTransporte.MdiParent = Me
                    FrmNTransporte.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(2).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemVendedorClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar vendedor
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CVendedor") Then
                    Dim FrmCVendedor As New CVendedor
                    FrmCVendedor.MdiParent = Me
                    FrmCVendedor.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(1).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar vendedor
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NVendedor") Then
                    Dim FrmNVendedor As New NVendedor
                    FrmNVendedor.MdiParent = Me
                    FrmNVendedor.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(1).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemCuentasComprasClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar cuentas de compras
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CCuentaCompra") Then
                    Dim FrmCCuentaCompra As New CCuentaCompra
                    FrmCCuentaCompra.MdiParent = Me
                    FrmCCuentaCompra.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(4).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar cuentas de compras
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NCuentaCompra") Then
                    Dim FrmNCuentaCompra As New NCuentaCompra
                    FrmNCuentaCompra.MdiParent = Me
                    FrmNCuentaCompra.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(4).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemProductosClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar lista de precios
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CProducto") Then
                    Dim FrmCProducto As New CProducto
                    FrmCProducto.MdiParent = Me
                    FrmCProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(6).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar producto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NProducto") Then
                    Dim FrmNProducto As New NProducto
                    FrmNProducto.MdiParent = Me
                    FrmNProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(6).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 3    ' Consultar rubro de productos
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CRubroProducto") Then
                    Dim FrmCRubroProducto As New CRubroProducto
                    FrmCRubroProducto.MdiParent = Me
                    FrmCRubroProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(6).MenuItems(3).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 4    ' Nuevo/Modificar/Eliminar rubro de productos
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NRubroProducto") Then
                    Dim FrmNRubroProducto As New NRubroProducto
                    FrmNRubroProducto.MdiParent = Me
                    FrmNRubroProducto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(6).MenuItems(4).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 6    ' Consultar familia de productos
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CFamilia") Then
                    Dim FrmCFamilia As New CFamilia
                    FrmCFamilia.MdiParent = Me
                    FrmCFamilia.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(6).MenuItems(6).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 7    ' Nuevo/Modificar/Eliminar producto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NFamilia") Then
                    Dim FrmNFamilia As New NFamilia
                    FrmNFamilia.MdiParent = Me
                    FrmNFamilia.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(6).MenuItems(7).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemDepositoClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar depósito
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CDeposito") Then
                    Dim FrmCDeposito As New CDeposito
                    FrmCDeposito.MdiParent = Me
                    FrmCDeposito.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(9).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar lista de precios
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NDeposito") Then
                    Dim FrmNDeposito As New NDeposito
                    FrmNDeposito.MdiParent = Me
                    FrmNDeposito.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(9).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemBancosClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar banco
                If FnConAutorizacionVentana("CBanco") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmCBanco As New CBanco
                    FrmCBanco.MdiParent = Me
                    FrmCBanco.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(12).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar banco
                If FnConAutorizacionVentana("NBanco") Then
                    ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                    Dim FrmNBanco As New NBanco
                    FrmNBanco.MdiParent = Me
                    FrmNBanco.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(12).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemImpositivaClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar condición impositiva
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CImpositiva") Then
                    Dim FrmCImpositiva As New CImpositiva
                    FrmCImpositiva.MdiParent = Me
                    FrmCImpositiva.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(11).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar condición impositiva
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NImpositiva") Then
                    Dim FrmNImpositiva As New NImpositiva
                    FrmNImpositiva.MdiParent = Me
                    FrmNImpositiva.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(11).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemPreciosClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar lista de precio
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO: HECHO
                If FnConAutorizacionVentana("CListaPrecio") Then
                    Dim FrmCListaPrecio As New NListaPrecio
                    FrmCListaPrecio.MdiParent = Me
                    FrmCListaPrecio.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(7).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar lista de precios
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO: HECHO
                If FnConAutorizacionVentana("NListaPrecio") Then
                    Dim FrmNListaPrecio As New NListaPrecio
                    FrmNListaPrecio.MdiParent = Me
                    FrmNListaPrecio.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(7).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 3    ' Consultar precios por lista
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO: HECHO
                If FnConAutorizacionVentana("CPrecioLista") Then
                    Dim FrmCPrecioLista As New CPrecioLista
                    FrmCPrecioLista.MdiParent = Me
                    FrmCPrecioLista.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(7).MenuItems(3).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 4    ' Nuevo/Modificar/Eliminar precios por lista
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO: HECHO
                If FnConAutorizacionVentana("NPrecioLista") Then
                    Dim FrmNPrecioLista As New NPrecioLista
                    FrmNPrecioLista.MdiParent = Me
                    FrmNPrecioLista.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(7).MenuItems(4).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 6    ' Consultar precios por cliente
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CPrecioCliente") Then
                    Dim FrmCPrecioCliente As New CPrecioCliente
                    FrmCPrecioCliente.MdiParent = Me
                    FrmCPrecioCliente.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(7).MenuItems(6).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 7    ' Nuevo/Modificar/Eliminar precios por cliente
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NPrecioCliente") Then
                    Dim FrmNPrecioCliente As New NPrecioCliente
                    FrmNPrecioCliente.MdiParent = Me
                    FrmNPrecioCliente.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(7).MenuItems(7).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemImpuestosClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Consultar impuesto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("CImpuesto") Then
                    Dim FrmCImpuesto As New CImpuesto
                    FrmCImpuesto.MdiParent = Me
                    FrmCImpuesto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(8).MenuItems(0).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 1    ' Nuevo/Modificar/Eliminar impuesto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("NImpuesto") Then
                    Dim FrmNImpuesto As New NImpuesto
                    FrmNImpuesto.MdiParent = Me
                    FrmNImpuesto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(8).MenuItems(1).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If

            Case 3    ' Macro-modificar impuesto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                If FnConAutorizacionVentana("MImpuesto") Then
                    Dim FrmMImpuesto As New MImpuesto
                    FrmMImpuesto.MdiParent = Me
                    FrmMImpuesto.Visible = True
                    ' Bloquear menú
                    MenuPrincipal.MenuItems(4).MenuItems(8).MenuItems(3).Enabled = False
                Else
                    MessageBox.Show(LeyendaNoIngresoVentana, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemUsuariosClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0    ' Nuevo/Eliminar usuarios
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO: HECHO
                If UsuarioActual.ToLower = "admin" Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    Dim FrmNUsuario As New NUsuario
                    FrmNUsuario.MdiParent = Me
                    FrmNUsuario.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(4).MenuItems(16).MenuItems(0).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaSoloIngresoAdmin, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Case 2    ' Consulta saldos acreedores proveedores
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO: HECHO
                If UsuarioActual.ToLower = "admin" Then
                    Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                    Dim FrmPUsuario As New PUsuario
                    FrmPUsuario.MdiParent = Me
                    FrmPUsuario.Visible = True
                    ' Anular menu
                    MenuPrincipal.MenuItems(4).MenuItems(16).MenuItems(2).Enabled = False
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                Else
                    MessageBox.Show(LeyendaSoloIngresoAdmin, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
        End Select
    End Sub

    Private Sub MenuItemVentanaClick(ByVal sender As Object, ByVal e As EventArgs)
        Select Case CType(sender, MenuItem).Index
            Case 0  ' Mosaico
                Me.LayoutMdi(MdiLayout.TileHorizontal)
            Case 1  ' Cascada
                Me.LayoutMdi(MdiLayout.Cascade)
            Case 3

                'Help.ShowHelp(Me, "file://" & Application.StartupPath & "\Ayuda.chm")
                'On Error Resume Next
                'Shell(Application.StartupPath & "\Ayuda.chm")
                'With ComandoDialogo
                '.HelpFile = Ruta & "\Ayuda.hlp"
                '.HelpCommand = MSComDlg.HelpConstants.cdlHelpContents
                '.ShowHelp()
                'End With
                'On Error GoTo 0

            Case 4  ' Ordenar iconos
                Me.LayoutMdi(MdiLayout.ArrangeIcons)
        End Select
    End Sub

    Private Sub SubSalirSoft(Optional ByRef Cancelar As Boolean = False)
        On Error Resume Next
        VBMath.Randomize()
        On Error GoTo 0
        If Rnd() >= 0.6 Then MsgBox("MundoTec.com.ar recomienda realizar Copias de seguridad periódicas para evitar pérdidas de información no deseadas.", MsgBoxStyle.Exclamation)
        If MessageBox.Show("Gracias por usar VentaTec 2008." & vbCrLf & "¿Desea salir del programa?", LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
            ' ATENCION: 08/12/2007 ¿ESTE CANCELAR ESTARA BIEN?
            Cancelar = True
            End
        Else
            Cancelar = True
        End If
    End Sub

    Private Sub VentaTec_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        SubSalirSoft(e.Cancel)
    End Sub

    Private Sub VentaTec_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        ' Determinar resolución de pantalla
        SubResolucion(True)
    End Sub

    Private Sub BarraHerramienta_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles BarraHerramienta.ButtonClick
        If e.Button Is BHEComprobanteDinero Then
            If FnConAutorizacionVentana("EComprobanteDinero") Then
                Dim FrmEComprobanteDinero As New EComprobanteDinero
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmEComprobanteDinero.MdiParent = Me
                FrmEComprobanteDinero.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHNComprobanteDinero Then
            If FnConAutorizacionVentana("NComprobanteDinero") Then
                Dim FrmNComprobanteDinero As New NComprobanteDinero
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmNComprobanteDinero.MdiParent = Me
                FrmNComprobanteDinero.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHNComprobanteProducto Then
            If FnConAutorizacionVentana("NComprobanteProducto") Then
                Dim FrmNComprobanteProducto As New NComprobanteProducto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmNComprobanteProducto.MdiParent = Me
                FrmNComprobanteProducto.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHEComprobanteProducto Then
            If FnConAutorizacionVentana("EComprobanteProducto") Then
                Dim FrmEComprobanteProducto As New EComprobanteProducto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmEComprobanteProducto.MdiParent = Me
                FrmEComprobanteProducto.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHNCliente Then
            If FnConAutorizacionVentana("NCliente") Then
                Dim FrmNCliente As New NCliente
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmNCliente.MdiParent = Me
                FrmNCliente.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHNProveedor Then
            If FnConAutorizacionVentana("NProveedo") Then
                Dim FrmNProveedor As New NProveedor
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmNProveedor.MdiParent = Me
                FrmNProveedor.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHNProducto Then
            If FnConAutorizacionVentana("NProducto") Then
                Dim FrmNProducto As New NProducto
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmNProducto.MdiParent = Me
                FrmNProducto.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHCSaldoCliente Then
            If FnConAutorizacionVentana("CSaldoCliente") Then
                Dim FrmCSaldoCliente As New CSaldoCliente
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmCSaldoCliente.MdiParent = Me
                FrmCSaldoCliente.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHCSaldoProveedor Then
            If FnConAutorizacionVentana("CSaldoProveedor") Then
                Dim FrmCSaldoProveedor As New CSaldoProveedor
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmCSaldoProveedor.MdiParent = Me
                FrmCSaldoProveedor.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        ElseIf e.Button Is BHCResumenBanco Then
            If FnConAutorizacionVentana("CResumenBanco") Then
                Dim FrmCResumenBanco As New CResumenBanco
                ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
                FrmCResumenBanco.MdiParent = Me
                FrmCResumenBanco.Visible = True
            Else
                MessageBox.Show(LeyendaNoIngresoVentana, _
                                LeyendaTituloMensaje, _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
    End Sub

    Private Sub BarraEstado_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BarraEstado.Click
        Dim FrmMaestro As New Maestro
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
        ' Llamar ventana
        FrmMaestro.MdiParent = Me
        FrmMaestro.Visible = True
        ' Anular menu
        MenuPrincipal.MenuItems(0).MenuItems(0).Enabled = False
        Me.Cursor = System.Windows.Forms.Cursors.Default
    End Sub

End Class
