Public Class NComprobanteProducto
    Inherits System.Windows.Forms.Form
    Private lvwColumnSorter As ListViewColumnSorter

#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

        ' Crear una instancia de una ordenación de columna ListView y asignarla 
        ' al control ListView. 
        lvwColumnSorter = New ListViewColumnSorter
        Me.TablaImpuesto.ListViewItemSorter = lvwColumnSorter

    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 CombinadaComprobante As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaSeleccionComprobante As System.Windows.Forms.Label
    Public WithEvents BotonEliminar As System.Windows.Forms.Button
    Public WithEvents Imagen2 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen4 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen3 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen1 As System.Windows.Forms.PictureBox
    Friend WithEvents EtiquetaLetra As System.Windows.Forms.Label
    Friend WithEvents CombinadaLetra As System.Windows.Forms.ComboBox
    Friend WithEvents CheckValorizable As System.Windows.Forms.CheckBox
    Friend WithEvents TextoNombre As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaNombre As System.Windows.Forms.Label
    Friend WithEvents EtiquetaObervacion As System.Windows.Forms.Label
    Friend WithEvents DisenoImpuesto As System.Windows.Forms.GroupBox
    Friend WithEvents OpcionIncluido As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionDescriminado As System.Windows.Forms.RadioButton
    Friend WithEvents DisenoDeduccion As System.Windows.Forms.GroupBox
    Friend WithEvents DisenoImpresión As System.Windows.Forms.GroupBox
    Friend WithEvents OpcionPregunta As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionImprime As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionNoImprime As System.Windows.Forms.RadioButton
    Friend WithEvents DisenoExistencia As System.Windows.Forms.GroupBox
    Friend WithEvents OpcionExistenciaSuma As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionExistenciaResta As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionExistenciaNo As System.Windows.Forms.RadioButton
    Friend WithEvents DisenoValorImpuesto As System.Windows.Forms.GroupBox
    Friend WithEvents TextoValorTipo As System.Windows.Forms.TextBox
    Friend WithEvents TextoValor As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaValor As System.Windows.Forms.Label
    Friend WithEvents EtiquetaValorImpuesto As System.Windows.Forms.Label
    Friend WithEvents CombinadaImpuesto As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaImpuesto As System.Windows.Forms.Label
    Friend WithEvents EtiquetaUsuario As System.Windows.Forms.Label
    Friend WithEvents TextoUsuario As System.Windows.Forms.TextBox
    Friend WithEvents TextoCopia As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaCopia As System.Windows.Forms.Label
    Friend WithEvents TextoReferencia As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaReferencia As System.Windows.Forms.Label
    Public WithEvents BotonModificar As System.Windows.Forms.Button
    Friend WithEvents TextoObservacion As System.Windows.Forms.TextBox
    Friend WithEvents CheckConTransporte As System.Windows.Forms.CheckBox
    Friend WithEvents CheckConCtaCompra As System.Windows.Forms.CheckBox
    Friend WithEvents DisenoDeducible As System.Windows.Forms.GroupBox
    Friend WithEvents OpcionProveedor As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionCliente As System.Windows.Forms.RadioButton
    Public WithEvents BotonNuevo As System.Windows.Forms.Button
    Public WithEvents BotonCerrar As System.Windows.Forms.Button
    Friend WithEvents PrintDocument As System.Drawing.Printing.PrintDocument
    Friend WithEvents CombinadaImpresora As System.Windows.Forms.ComboBox
    Friend WithEvents OpcionCtaCteNo As System.Windows.Forms.RadioButton
    Friend WithEvents ETiquetaComentarioImpresion As System.Windows.Forms.Label
    Friend WithEvents BotonImpuestoRapido As System.Windows.Forms.Button
    Friend WithEvents DisenoComentario As System.Windows.Forms.GroupBox
    Friend WithEvents EtiquetaComentario As System.Windows.Forms.Label
    Friend WithEvents EtiquetaUsuarioImpuesto As System.Windows.Forms.Label
    Friend WithEvents TextoUsuarioImpuesto As System.Windows.Forms.TextBox
    Friend WithEvents OpcionCtaCteCredito As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionCtaCteDebito As System.Windows.Forms.RadioButton
    Friend WithEvents TablaImpuesto As System.Windows.Forms.ListView
    Friend WithEvents BotonModificarImpuesto As System.Windows.Forms.Button
    Friend WithEvents BotonEliminarImpuesto As System.Windows.Forms.Button
    Friend WithEvents DisenoMedida As System.Windows.Forms.GroupBox
    Friend WithEvents OpcionMedidaCompra As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionMedidaVenta As System.Windows.Forms.RadioButton
    Friend WithEvents CheckConImputarProducto As System.Windows.Forms.CheckBox
    Friend WithEvents CheckPrevisualizar As System.Windows.Forms.CheckBox
    Friend WithEvents DisenoImpresoras As System.Windows.Forms.GroupBox
    Friend WithEvents OpcionFiscal As System.Windows.Forms.RadioButton
    Friend WithEvents OpcionImpresora As System.Windows.Forms.RadioButton
    Friend WithEvents CombinadaPuertoCOM As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaPuertoCOM As System.Windows.Forms.Label
    Friend WithEvents OrejaCP As System.Windows.Forms.TabControl
    Friend WithEvents OrejaCPDato As System.Windows.Forms.TabPage
    Friend WithEvents OrejaCPCuenta As System.Windows.Forms.TabPage
    Friend WithEvents OrejaCPImpuesto As System.Windows.Forms.TabPage
    Friend WithEvents BotonEnlazarImpuesto As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.BotonCerrar = New System.Windows.Forms.Button
        Me.Imagen2 = New System.Windows.Forms.PictureBox
        Me.CombinadaComprobante = New System.Windows.Forms.ComboBox
        Me.EtiquetaSeleccionComprobante = New System.Windows.Forms.Label
        Me.BotonEliminar = New System.Windows.Forms.Button
        Me.BotonNuevo = New System.Windows.Forms.Button
        Me.BotonModificar = New System.Windows.Forms.Button
        Me.Imagen4 = New System.Windows.Forms.PictureBox
        Me.Imagen3 = New System.Windows.Forms.PictureBox
        Me.Imagen1 = New System.Windows.Forms.PictureBox
        Me.OrejaCP = New System.Windows.Forms.TabControl
        Me.OrejaCPDato = New System.Windows.Forms.TabPage
        Me.CheckConImputarProducto = New System.Windows.Forms.CheckBox
        Me.DisenoMedida = New System.Windows.Forms.GroupBox
        Me.OpcionMedidaCompra = New System.Windows.Forms.RadioButton
        Me.OpcionMedidaVenta = New System.Windows.Forms.RadioButton
        Me.ETiquetaComentarioImpresion = New System.Windows.Forms.Label
        Me.TextoReferencia = New System.Windows.Forms.TextBox
        Me.EtiquetaReferencia = New System.Windows.Forms.Label
        Me.TextoCopia = New System.Windows.Forms.TextBox
        Me.EtiquetaCopia = New System.Windows.Forms.Label
        Me.DisenoImpuesto = New System.Windows.Forms.GroupBox
        Me.OpcionIncluido = New System.Windows.Forms.RadioButton
        Me.OpcionDescriminado = New System.Windows.Forms.RadioButton
        Me.CheckConTransporte = New System.Windows.Forms.CheckBox
        Me.EtiquetaObervacion = New System.Windows.Forms.Label
        Me.TextoObservacion = New System.Windows.Forms.TextBox
        Me.CheckConCtaCompra = New System.Windows.Forms.CheckBox
        Me.EtiquetaLetra = New System.Windows.Forms.Label
        Me.CombinadaLetra = New System.Windows.Forms.ComboBox
        Me.CheckValorizable = New System.Windows.Forms.CheckBox
        Me.TextoNombre = New System.Windows.Forms.TextBox
        Me.EtiquetaNombre = New System.Windows.Forms.Label
        Me.OrejaCPCuenta = New System.Windows.Forms.TabPage
        Me.DisenoComentario = New System.Windows.Forms.GroupBox
        Me.EtiquetaComentario = New System.Windows.Forms.Label
        Me.DisenoImpresoras = New System.Windows.Forms.GroupBox
        Me.CombinadaPuertoCOM = New System.Windows.Forms.ComboBox
        Me.EtiquetaPuertoCOM = New System.Windows.Forms.Label
        Me.OpcionImpresora = New System.Windows.Forms.RadioButton
        Me.OpcionFiscal = New System.Windows.Forms.RadioButton
        Me.CheckPrevisualizar = New System.Windows.Forms.CheckBox
        Me.CombinadaImpresora = New System.Windows.Forms.ComboBox
        Me.DisenoDeduccion = New System.Windows.Forms.GroupBox
        Me.OpcionCtaCteNo = New System.Windows.Forms.RadioButton
        Me.OpcionCtaCteCredito = New System.Windows.Forms.RadioButton
        Me.OpcionCtaCteDebito = New System.Windows.Forms.RadioButton
        Me.DisenoImpresión = New System.Windows.Forms.GroupBox
        Me.OpcionPregunta = New System.Windows.Forms.RadioButton
        Me.OpcionImprime = New System.Windows.Forms.RadioButton
        Me.OpcionNoImprime = New System.Windows.Forms.RadioButton
        Me.DisenoExistencia = New System.Windows.Forms.GroupBox
        Me.OpcionExistenciaSuma = New System.Windows.Forms.RadioButton
        Me.OpcionExistenciaResta = New System.Windows.Forms.RadioButton
        Me.OpcionExistenciaNo = New System.Windows.Forms.RadioButton
        Me.DisenoDeducible = New System.Windows.Forms.GroupBox
        Me.OpcionProveedor = New System.Windows.Forms.RadioButton
        Me.OpcionCliente = New System.Windows.Forms.RadioButton
        Me.OrejaCPImpuesto = New System.Windows.Forms.TabPage
        Me.DisenoValorImpuesto = New System.Windows.Forms.GroupBox
        Me.BotonModificarImpuesto = New System.Windows.Forms.Button
        Me.BotonEnlazarImpuesto = New System.Windows.Forms.Button
        Me.BotonEliminarImpuesto = New System.Windows.Forms.Button
        Me.EtiquetaUsuarioImpuesto = New System.Windows.Forms.Label
        Me.TextoUsuarioImpuesto = New System.Windows.Forms.TextBox
        Me.BotonImpuestoRapido = New System.Windows.Forms.Button
        Me.TextoValorTipo = New System.Windows.Forms.TextBox
        Me.TextoValor = New System.Windows.Forms.TextBox
        Me.EtiquetaValor = New System.Windows.Forms.Label
        Me.EtiquetaValorImpuesto = New System.Windows.Forms.Label
        Me.CombinadaImpuesto = New System.Windows.Forms.ComboBox
        Me.EtiquetaImpuesto = New System.Windows.Forms.Label
        Me.TablaImpuesto = New System.Windows.Forms.ListView
        Me.EtiquetaUsuario = New System.Windows.Forms.Label
        Me.TextoUsuario = New System.Windows.Forms.TextBox
        Me.PrintDocument = New System.Drawing.Printing.PrintDocument
        Me.OrejaCP.SuspendLayout()
        Me.OrejaCPDato.SuspendLayout()
        Me.DisenoMedida.SuspendLayout()
        Me.DisenoImpuesto.SuspendLayout()
        Me.OrejaCPCuenta.SuspendLayout()
        Me.DisenoComentario.SuspendLayout()
        Me.DisenoImpresoras.SuspendLayout()
        Me.DisenoDeduccion.SuspendLayout()
        Me.DisenoImpresión.SuspendLayout()
        Me.DisenoExistencia.SuspendLayout()
        Me.DisenoDeducible.SuspendLayout()
        Me.OrejaCPImpuesto.SuspendLayout()
        Me.DisenoValorImpuesto.SuspendLayout()
        Me.SuspendLayout()
        '
        'BotonCerrar
        '
        Me.BotonCerrar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonCerrar.BackColor = System.Drawing.SystemColors.Control
        Me.BotonCerrar.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonCerrar.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.BotonCerrar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonCerrar.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonCerrar.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonCerrar.Location = New System.Drawing.Point(520, 344)
        Me.BotonCerrar.Name = "BotonCerrar"
        Me.BotonCerrar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonCerrar.Size = New System.Drawing.Size(120, 25)
        Me.BotonCerrar.TabIndex = 37
        Me.BotonCerrar.Text = "&Cerrar ventana"
        '
        'Imagen2
        '
        Me.Imagen2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen2.Location = New System.Drawing.Point(568, 304)
        Me.Imagen2.Name = "Imagen2"
        Me.Imagen2.Size = New System.Drawing.Size(32, 32)
        Me.Imagen2.TabIndex = 31
        Me.Imagen2.TabStop = False
        '
        'CombinadaComprobante
        '
        Me.CombinadaComprobante.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaComprobante.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaComprobante.Location = New System.Drawing.Point(200, 16)
        Me.CombinadaComprobante.Name = "CombinadaComprobante"
        Me.CombinadaComprobante.Size = New System.Drawing.Size(312, 21)
        Me.CombinadaComprobante.Sorted = True
        Me.CombinadaComprobante.TabIndex = 0
        '
        'EtiquetaSeleccionComprobante
        '
        Me.EtiquetaSeleccionComprobante.AutoSize = True
        Me.EtiquetaSeleccionComprobante.Location = New System.Drawing.Point(8, 16)
        Me.EtiquetaSeleccionComprobante.Name = "EtiquetaSeleccionComprobante"
        Me.EtiquetaSeleccionComprobante.Size = New System.Drawing.Size(191, 16)
        Me.EtiquetaSeleccionComprobante.TabIndex = 35
        Me.EtiquetaSeleccionComprobante.Text = "Selección comprobante de producto :"
        '
        'BotonEliminar
        '
        Me.BotonEliminar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonEliminar.BackColor = System.Drawing.SystemColors.Control
        Me.BotonEliminar.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonEliminar.Enabled = False
        Me.BotonEliminar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonEliminar.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonEliminar.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonEliminar.Location = New System.Drawing.Point(520, 256)
        Me.BotonEliminar.Name = "BotonEliminar"
        Me.BotonEliminar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonEliminar.Size = New System.Drawing.Size(120, 25)
        Me.BotonEliminar.TabIndex = 36
        Me.BotonEliminar.Text = "&Eliminar comprobante"
        '
        'BotonNuevo
        '
        Me.BotonNuevo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonNuevo.BackColor = System.Drawing.SystemColors.Control
        Me.BotonNuevo.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonNuevo.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonNuevo.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonNuevo.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonNuevo.Location = New System.Drawing.Point(520, 176)
        Me.BotonNuevo.Name = "BotonNuevo"
        Me.BotonNuevo.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonNuevo.Size = New System.Drawing.Size(120, 25)
        Me.BotonNuevo.TabIndex = 35
        Me.BotonNuevo.Text = "&Nuevo comprobante"
        '
        'BotonModificar
        '
        Me.BotonModificar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonModificar.BackColor = System.Drawing.SystemColors.Control
        Me.BotonModificar.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonModificar.Enabled = False
        Me.BotonModificar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonModificar.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonModificar.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonModificar.Location = New System.Drawing.Point(520, 56)
        Me.BotonModificar.Name = "BotonModificar"
        Me.BotonModificar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonModificar.Size = New System.Drawing.Size(120, 32)
        Me.BotonModificar.TabIndex = 34
        Me.BotonModificar.Text = "&Modificar comprobante"
        '
        'Imagen4
        '
        Me.Imagen4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen4.Location = New System.Drawing.Point(568, 216)
        Me.Imagen4.Name = "Imagen4"
        Me.Imagen4.Size = New System.Drawing.Size(33, 33)
        Me.Imagen4.TabIndex = 56
        Me.Imagen4.TabStop = False
        '
        'Imagen3
        '
        Me.Imagen3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen3.Location = New System.Drawing.Point(568, 136)
        Me.Imagen3.Name = "Imagen3"
        Me.Imagen3.Size = New System.Drawing.Size(32, 32)
        Me.Imagen3.TabIndex = 57
        Me.Imagen3.TabStop = False
        '
        'Imagen1
        '
        Me.Imagen1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen1.Location = New System.Drawing.Point(568, 16)
        Me.Imagen1.Name = "Imagen1"
        Me.Imagen1.Size = New System.Drawing.Size(32, 32)
        Me.Imagen1.TabIndex = 58
        Me.Imagen1.TabStop = False
        '
        'OrejaCP
        '
        Me.OrejaCP.Controls.Add(Me.OrejaCPDato)
        Me.OrejaCP.Controls.Add(Me.OrejaCPCuenta)
        Me.OrejaCP.Controls.Add(Me.OrejaCPImpuesto)
        Me.OrejaCP.Location = New System.Drawing.Point(8, 48)
        Me.OrejaCP.Name = "OrejaCP"
        Me.OrejaCP.SelectedIndex = 0
        Me.OrejaCP.Size = New System.Drawing.Size(504, 320)
        Me.OrejaCP.TabIndex = 11
        '
        'OrejaCPDato
        '
        Me.OrejaCPDato.Controls.Add(Me.CheckConImputarProducto)
        Me.OrejaCPDato.Controls.Add(Me.DisenoMedida)
        Me.OrejaCPDato.Controls.Add(Me.ETiquetaComentarioImpresion)
        Me.OrejaCPDato.Controls.Add(Me.TextoReferencia)
        Me.OrejaCPDato.Controls.Add(Me.EtiquetaReferencia)
        Me.OrejaCPDato.Controls.Add(Me.TextoCopia)
        Me.OrejaCPDato.Controls.Add(Me.EtiquetaCopia)
        Me.OrejaCPDato.Controls.Add(Me.DisenoImpuesto)
        Me.OrejaCPDato.Controls.Add(Me.CheckConTransporte)
        Me.OrejaCPDato.Controls.Add(Me.EtiquetaObervacion)
        Me.OrejaCPDato.Controls.Add(Me.TextoObservacion)
        Me.OrejaCPDato.Controls.Add(Me.CheckConCtaCompra)
        Me.OrejaCPDato.Controls.Add(Me.EtiquetaLetra)
        Me.OrejaCPDato.Controls.Add(Me.CombinadaLetra)
        Me.OrejaCPDato.Controls.Add(Me.CheckValorizable)
        Me.OrejaCPDato.Controls.Add(Me.TextoNombre)
        Me.OrejaCPDato.Controls.Add(Me.EtiquetaNombre)
        Me.OrejaCPDato.Location = New System.Drawing.Point(4, 22)
        Me.OrejaCPDato.Name = "OrejaCPDato"
        Me.OrejaCPDato.Size = New System.Drawing.Size(496, 294)
        Me.OrejaCPDato.TabIndex = 3
        Me.OrejaCPDato.Text = "Datos de comprobante"
        '
        'CheckConImputarProducto
        '
        Me.CheckConImputarProducto.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckConImputarProducto.Location = New System.Drawing.Point(200, 216)
        Me.CheckConImputarProducto.Name = "CheckConImputarProducto"
        Me.CheckConImputarProducto.Size = New System.Drawing.Size(216, 16)
        Me.CheckConImputarProducto.TabIndex = 158
        Me.CheckConImputarProducto.Text = "I&mputar a comprobantes de productos"
        '
        'DisenoMedida
        '
        Me.DisenoMedida.Controls.Add(Me.OpcionMedidaCompra)
        Me.DisenoMedida.Controls.Add(Me.OpcionMedidaVenta)
        Me.DisenoMedida.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoMedida.Location = New System.Drawing.Point(336, 136)
        Me.DisenoMedida.Name = "DisenoMedida"
        Me.DisenoMedida.Size = New System.Drawing.Size(136, 72)
        Me.DisenoMedida.TabIndex = 157
        Me.DisenoMedida.TabStop = False
        Me.DisenoMedida.Text = "Configuración u. medida"
        '
        'OpcionMedidaCompra
        '
        Me.OpcionMedidaCompra.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionMedidaCompra.Location = New System.Drawing.Point(8, 48)
        Me.OpcionMedidaCompra.Name = "OpcionMedidaCompra"
        Me.OpcionMedidaCompra.Size = New System.Drawing.Size(120, 16)
        Me.OpcionMedidaCompra.TabIndex = 7
        Me.OpcionMedidaCompra.Text = "U. medida c&ompra"
        '
        'OpcionMedidaVenta
        '
        Me.OpcionMedidaVenta.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionMedidaVenta.Location = New System.Drawing.Point(8, 24)
        Me.OpcionMedidaVenta.Name = "OpcionMedidaVenta"
        Me.OpcionMedidaVenta.Size = New System.Drawing.Size(120, 16)
        Me.OpcionMedidaVenta.TabIndex = 6
        Me.OpcionMedidaVenta.Text = "U. medida &venta"
        '
        'ETiquetaComentarioImpresion
        '
        Me.ETiquetaComentarioImpresion.AutoSize = True
        Me.ETiquetaComentarioImpresion.Location = New System.Drawing.Point(328, 72)
        Me.ETiquetaComentarioImpresion.Name = "ETiquetaComentarioImpresion"
        Me.ETiquetaComentarioImpresion.Size = New System.Drawing.Size(148, 16)
        Me.ETiquetaComentarioImpresion.TabIndex = 156
        Me.ETiquetaComentarioImpresion.Text = "Si está configurado imprimir."
        '
        'TextoReferencia
        '
        Me.TextoReferencia.Location = New System.Drawing.Point(256, 184)
        Me.TextoReferencia.MaxLength = 3
        Me.TextoReferencia.Name = "TextoReferencia"
        Me.TextoReferencia.Size = New System.Drawing.Size(48, 20)
        Me.TextoReferencia.TabIndex = 9
        Me.TextoReferencia.Text = ""
        '
        'EtiquetaReferencia
        '
        Me.EtiquetaReferencia.AutoSize = True
        Me.EtiquetaReferencia.Location = New System.Drawing.Point(168, 184)
        Me.EtiquetaReferencia.Name = "EtiquetaReferencia"
        Me.EtiquetaReferencia.Size = New System.Drawing.Size(84, 16)
        Me.EtiquetaReferencia.TabIndex = 150
        Me.EtiquetaReferencia.Text = "Referencia (R) :"
        '
        'TextoCopia
        '
        Me.TextoCopia.Location = New System.Drawing.Point(224, 72)
        Me.TextoCopia.Name = "TextoCopia"
        Me.TextoCopia.Size = New System.Drawing.Size(96, 20)
        Me.TextoCopia.TabIndex = 2
        Me.TextoCopia.Text = ""
        '
        'EtiquetaCopia
        '
        Me.EtiquetaCopia.AutoSize = True
        Me.EtiquetaCopia.Location = New System.Drawing.Point(16, 72)
        Me.EtiquetaCopia.Name = "EtiquetaCopia"
        Me.EtiquetaCopia.Size = New System.Drawing.Size(102, 16)
        Me.EtiquetaCopia.TabIndex = 148
        Me.EtiquetaCopia.Text = "Número de copias :"
        '
        'DisenoImpuesto
        '
        Me.DisenoImpuesto.Controls.Add(Me.OpcionIncluido)
        Me.DisenoImpuesto.Controls.Add(Me.OpcionDescriminado)
        Me.DisenoImpuesto.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoImpuesto.Location = New System.Drawing.Point(16, 136)
        Me.DisenoImpuesto.Name = "DisenoImpuesto"
        Me.DisenoImpuesto.Size = New System.Drawing.Size(136, 72)
        Me.DisenoImpuesto.TabIndex = 147
        Me.DisenoImpuesto.TabStop = False
        Me.DisenoImpuesto.Text = "Configuración impositiva"
        '
        'OpcionIncluido
        '
        Me.OpcionIncluido.Enabled = False
        Me.OpcionIncluido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionIncluido.Location = New System.Drawing.Point(8, 48)
        Me.OpcionIncluido.Name = "OpcionIncluido"
        Me.OpcionIncluido.Size = New System.Drawing.Size(120, 16)
        Me.OpcionIncluido.TabIndex = 7
        Me.OpcionIncluido.Text = "&Incluido"
        '
        'OpcionDescriminado
        '
        Me.OpcionDescriminado.Enabled = False
        Me.OpcionDescriminado.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionDescriminado.Location = New System.Drawing.Point(8, 24)
        Me.OpcionDescriminado.Name = "OpcionDescriminado"
        Me.OpcionDescriminado.Size = New System.Drawing.Size(120, 16)
        Me.OpcionDescriminado.TabIndex = 6
        Me.OpcionDescriminado.Text = "&Discriminado"
        '
        'CheckConTransporte
        '
        Me.CheckConTransporte.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckConTransporte.Location = New System.Drawing.Point(200, 104)
        Me.CheckConTransporte.Name = "CheckConTransporte"
        Me.CheckConTransporte.Size = New System.Drawing.Size(120, 16)
        Me.CheckConTransporte.TabIndex = 4
        Me.CheckConTransporte.Text = "In&dicar transporte"
        '
        'EtiquetaObervacion
        '
        Me.EtiquetaObervacion.AutoSize = True
        Me.EtiquetaObervacion.Location = New System.Drawing.Point(24, 224)
        Me.EtiquetaObervacion.Name = "EtiquetaObervacion"
        Me.EtiquetaObervacion.Size = New System.Drawing.Size(86, 16)
        Me.EtiquetaObervacion.TabIndex = 145
        Me.EtiquetaObervacion.Text = "Observaciones :"
        '
        'TextoObservacion
        '
        Me.TextoObservacion.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoObservacion.Location = New System.Drawing.Point(16, 240)
        Me.TextoObservacion.MaxLength = 150
        Me.TextoObservacion.Name = "TextoObservacion"
        Me.TextoObservacion.Size = New System.Drawing.Size(456, 20)
        Me.TextoObservacion.TabIndex = 10
        Me.TextoObservacion.Text = ""
        '
        'CheckConCtaCompra
        '
        Me.CheckConCtaCompra.Enabled = False
        Me.CheckConCtaCompra.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckConCtaCompra.Location = New System.Drawing.Point(344, 104)
        Me.CheckConCtaCompra.Name = "CheckConCtaCompra"
        Me.CheckConCtaCompra.Size = New System.Drawing.Size(128, 16)
        Me.CheckConCtaCompra.TabIndex = 5
        Me.CheckConCtaCompra.Text = "Co&n Cta. compras"
        '
        'EtiquetaLetra
        '
        Me.EtiquetaLetra.AutoSize = True
        Me.EtiquetaLetra.Location = New System.Drawing.Point(184, 144)
        Me.EtiquetaLetra.Name = "EtiquetaLetra"
        Me.EtiquetaLetra.Size = New System.Drawing.Size(36, 16)
        Me.EtiquetaLetra.TabIndex = 140
        Me.EtiquetaLetra.Text = "Letra :"
        '
        'CombinadaLetra
        '
        Me.CombinadaLetra.Items.AddRange(New Object() {"Sin", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "Ñ", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"})
        Me.CombinadaLetra.Location = New System.Drawing.Point(256, 144)
        Me.CombinadaLetra.Name = "CombinadaLetra"
        Me.CombinadaLetra.Size = New System.Drawing.Size(48, 21)
        Me.CombinadaLetra.TabIndex = 8
        '
        'CheckValorizable
        '
        Me.CheckValorizable.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckValorizable.Location = New System.Drawing.Point(16, 104)
        Me.CheckValorizable.Name = "CheckValorizable"
        Me.CheckValorizable.Size = New System.Drawing.Size(80, 16)
        Me.CheckValorizable.TabIndex = 3
        Me.CheckValorizable.Text = "&Valorizable"
        '
        'TextoNombre
        '
        Me.TextoNombre.Location = New System.Drawing.Point(224, 40)
        Me.TextoNombre.MaxLength = 50
        Me.TextoNombre.Name = "TextoNombre"
        Me.TextoNombre.Size = New System.Drawing.Size(248, 20)
        Me.TextoNombre.TabIndex = 1
        Me.TextoNombre.Text = ""
        '
        'EtiquetaNombre
        '
        Me.EtiquetaNombre.AutoSize = True
        Me.EtiquetaNombre.Location = New System.Drawing.Point(16, 40)
        Me.EtiquetaNombre.Name = "EtiquetaNombre"
        Me.EtiquetaNombre.Size = New System.Drawing.Size(201, 16)
        Me.EtiquetaNombre.TabIndex = 136
        Me.EtiquetaNombre.Text = "Nombre comprobante de producto (R) :"
        '
        'OrejaCPCuenta
        '
        Me.OrejaCPCuenta.Controls.Add(Me.DisenoComentario)
        Me.OrejaCPCuenta.Controls.Add(Me.DisenoImpresoras)
        Me.OrejaCPCuenta.Controls.Add(Me.DisenoDeduccion)
        Me.OrejaCPCuenta.Controls.Add(Me.DisenoImpresión)
        Me.OrejaCPCuenta.Controls.Add(Me.DisenoExistencia)
        Me.OrejaCPCuenta.Controls.Add(Me.DisenoDeducible)
        Me.OrejaCPCuenta.Location = New System.Drawing.Point(4, 22)
        Me.OrejaCPCuenta.Name = "OrejaCPCuenta"
        Me.OrejaCPCuenta.Size = New System.Drawing.Size(496, 294)
        Me.OrejaCPCuenta.TabIndex = 1
        Me.OrejaCPCuenta.Text = "Datos de cuenta"
        '
        'DisenoComentario
        '
        Me.DisenoComentario.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.DisenoComentario.Controls.Add(Me.EtiquetaComentario)
        Me.DisenoComentario.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoComentario.Location = New System.Drawing.Point(16, 112)
        Me.DisenoComentario.Name = "DisenoComentario"
        Me.DisenoComentario.Size = New System.Drawing.Size(472, 64)
        Me.DisenoComentario.TabIndex = 232
        Me.DisenoComentario.TabStop = False
        '
        'EtiquetaComentario
        '
        Me.EtiquetaComentario.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaComentario.Location = New System.Drawing.Point(8, 16)
        Me.EtiquetaComentario.Name = "EtiquetaComentario"
        Me.EtiquetaComentario.Size = New System.Drawing.Size(456, 40)
        Me.EtiquetaComentario.TabIndex = 0
        Me.EtiquetaComentario.Text = "Deducción de Cta. C. establece si es un crédito, débito, o no se imputa en cuenta" & _
        " corriente. Configuración deducción indica si los movimientos de cta cte y/o exi" & _
        "stencia se hacen sobre los clientes o proveedores."
        '
        'DisenoImpresoras
        '
        Me.DisenoImpresoras.Controls.Add(Me.CombinadaPuertoCOM)
        Me.DisenoImpresoras.Controls.Add(Me.EtiquetaPuertoCOM)
        Me.DisenoImpresoras.Controls.Add(Me.OpcionImpresora)
        Me.DisenoImpresoras.Controls.Add(Me.OpcionFiscal)
        Me.DisenoImpresoras.Controls.Add(Me.CheckPrevisualizar)
        Me.DisenoImpresoras.Controls.Add(Me.CombinadaImpresora)
        Me.DisenoImpresoras.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoImpresoras.Location = New System.Drawing.Point(160, 184)
        Me.DisenoImpresoras.Name = "DisenoImpresoras"
        Me.DisenoImpresoras.Size = New System.Drawing.Size(328, 96)
        Me.DisenoImpresoras.TabIndex = 139
        Me.DisenoImpresoras.TabStop = False
        Me.DisenoImpresoras.Text = "Configuración tipo impresoras"
        '
        'CombinadaPuertoCOM
        '
        Me.CombinadaPuertoCOM.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaPuertoCOM.Enabled = False
        Me.CombinadaPuertoCOM.ItemHeight = 13
        Me.CombinadaPuertoCOM.Items.AddRange(New Object() {"1", "2", "3", "4"})
        Me.CombinadaPuertoCOM.Location = New System.Drawing.Point(216, 64)
        Me.CombinadaPuertoCOM.Name = "CombinadaPuertoCOM"
        Me.CombinadaPuertoCOM.Size = New System.Drawing.Size(56, 20)
        Me.CombinadaPuertoCOM.TabIndex = 237
        '
        'EtiquetaPuertoCOM
        '
        Me.EtiquetaPuertoCOM.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaPuertoCOM.AutoSize = True
        Me.EtiquetaPuertoCOM.Location = New System.Drawing.Point(216, 40)
        Me.EtiquetaPuertoCOM.Name = "EtiquetaPuertoCOM"
        Me.EtiquetaPuertoCOM.Size = New System.Drawing.Size(101, 16)
        Me.EtiquetaPuertoCOM.TabIndex = 236
        Me.EtiquetaPuertoCOM.Text = "Puerto serie COM :"
        '
        'OpcionImpresora
        '
        Me.OpcionImpresora.Checked = True
        Me.OpcionImpresora.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionImpresora.Location = New System.Drawing.Point(20, 16)
        Me.OpcionImpresora.Name = "OpcionImpresora"
        Me.OpcionImpresora.Size = New System.Drawing.Size(136, 16)
        Me.OpcionImpresora.TabIndex = 235
        Me.OpcionImpresora.TabStop = True
        Me.OpcionImpresora.Text = "&Impresora &convencional"
        '
        'OpcionFiscal
        '
        Me.OpcionFiscal.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionFiscal.Location = New System.Drawing.Point(200, 16)
        Me.OpcionFiscal.Name = "OpcionFiscal"
        Me.OpcionFiscal.Size = New System.Drawing.Size(96, 16)
        Me.OpcionFiscal.TabIndex = 234
        Me.OpcionFiscal.Text = "Impresora &fiscal"
        '
        'CheckPrevisualizar
        '
        Me.CheckPrevisualizar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CheckPrevisualizar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckPrevisualizar.Location = New System.Drawing.Point(32, 40)
        Me.CheckPrevisualizar.Name = "CheckPrevisualizar"
        Me.CheckPrevisualizar.Size = New System.Drawing.Size(144, 16)
        Me.CheckPrevisualizar.TabIndex = 162
        Me.CheckPrevisualizar.Text = "&Previsualizar impresión"
        '
        'CombinadaImpresora
        '
        Me.CombinadaImpresora.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaImpresora.Location = New System.Drawing.Point(16, 64)
        Me.CombinadaImpresora.Name = "CombinadaImpresora"
        Me.CombinadaImpresora.Size = New System.Drawing.Size(184, 21)
        Me.CombinadaImpresora.TabIndex = 25
        '
        'DisenoDeduccion
        '
        Me.DisenoDeduccion.Controls.Add(Me.OpcionCtaCteNo)
        Me.DisenoDeduccion.Controls.Add(Me.OpcionCtaCteCredito)
        Me.DisenoDeduccion.Controls.Add(Me.OpcionCtaCteDebito)
        Me.DisenoDeduccion.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoDeduccion.Location = New System.Drawing.Point(184, 8)
        Me.DisenoDeduccion.Name = "DisenoDeduccion"
        Me.DisenoDeduccion.Size = New System.Drawing.Size(136, 96)
        Me.DisenoDeduccion.TabIndex = 138
        Me.DisenoDeduccion.TabStop = False
        Me.DisenoDeduccion.Text = "Deducción de Cta. C."
        '
        'OpcionCtaCteNo
        '
        Me.OpcionCtaCteNo.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionCtaCteNo.Location = New System.Drawing.Point(16, 24)
        Me.OpcionCtaCteNo.Name = "OpcionCtaCteNo"
        Me.OpcionCtaCteNo.Size = New System.Drawing.Size(112, 16)
        Me.OpcionCtaCteNo.TabIndex = 14
        Me.OpcionCtaCteNo.Text = "&No cuenta"
        '
        'OpcionCtaCteCredito
        '
        Me.OpcionCtaCteCredito.Enabled = False
        Me.OpcionCtaCteCredito.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionCtaCteCredito.Location = New System.Drawing.Point(16, 72)
        Me.OpcionCtaCteCredito.Name = "OpcionCtaCteCredito"
        Me.OpcionCtaCteCredito.Size = New System.Drawing.Size(112, 16)
        Me.OpcionCtaCteCredito.TabIndex = 16
        Me.OpcionCtaCteCredito.Text = "&Crédito"
        '
        'OpcionCtaCteDebito
        '
        Me.OpcionCtaCteDebito.Enabled = False
        Me.OpcionCtaCteDebito.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionCtaCteDebito.Location = New System.Drawing.Point(16, 48)
        Me.OpcionCtaCteDebito.Name = "OpcionCtaCteDebito"
        Me.OpcionCtaCteDebito.Size = New System.Drawing.Size(112, 16)
        Me.OpcionCtaCteDebito.TabIndex = 15
        Me.OpcionCtaCteDebito.Text = "&Débito"
        '
        'DisenoImpresión
        '
        Me.DisenoImpresión.Controls.Add(Me.OpcionPregunta)
        Me.DisenoImpresión.Controls.Add(Me.OpcionImprime)
        Me.DisenoImpresión.Controls.Add(Me.OpcionNoImprime)
        Me.DisenoImpresión.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoImpresión.Location = New System.Drawing.Point(16, 184)
        Me.DisenoImpresión.Name = "DisenoImpresión"
        Me.DisenoImpresión.Size = New System.Drawing.Size(136, 96)
        Me.DisenoImpresión.TabIndex = 137
        Me.DisenoImpresión.TabStop = False
        Me.DisenoImpresión.Text = "Configuración impresión"
        '
        'OpcionPregunta
        '
        Me.OpcionPregunta.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionPregunta.Location = New System.Drawing.Point(16, 72)
        Me.OpcionPregunta.Name = "OpcionPregunta"
        Me.OpcionPregunta.Size = New System.Drawing.Size(112, 16)
        Me.OpcionPregunta.TabIndex = 22
        Me.OpcionPregunta.Text = "&Pregunta"
        '
        'OpcionImprime
        '
        Me.OpcionImprime.Checked = True
        Me.OpcionImprime.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionImprime.Location = New System.Drawing.Point(16, 48)
        Me.OpcionImprime.Name = "OpcionImprime"
        Me.OpcionImprime.Size = New System.Drawing.Size(112, 16)
        Me.OpcionImprime.TabIndex = 21
        Me.OpcionImprime.TabStop = True
        Me.OpcionImprime.Text = "I&mprime"
        '
        'OpcionNoImprime
        '
        Me.OpcionNoImprime.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionNoImprime.Location = New System.Drawing.Point(16, 24)
        Me.OpcionNoImprime.Name = "OpcionNoImprime"
        Me.OpcionNoImprime.Size = New System.Drawing.Size(112, 16)
        Me.OpcionNoImprime.TabIndex = 20
        Me.OpcionNoImprime.Text = "&No imprime"
        '
        'DisenoExistencia
        '
        Me.DisenoExistencia.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.DisenoExistencia.Controls.Add(Me.OpcionExistenciaSuma)
        Me.DisenoExistencia.Controls.Add(Me.OpcionExistenciaResta)
        Me.DisenoExistencia.Controls.Add(Me.OpcionExistenciaNo)
        Me.DisenoExistencia.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoExistencia.Location = New System.Drawing.Point(352, 8)
        Me.DisenoExistencia.Name = "DisenoExistencia"
        Me.DisenoExistencia.Size = New System.Drawing.Size(136, 96)
        Me.DisenoExistencia.TabIndex = 136
        Me.DisenoExistencia.TabStop = False
        Me.DisenoExistencia.Text = "Configuración existencia"
        '
        'OpcionExistenciaSuma
        '
        Me.OpcionExistenciaSuma.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.OpcionExistenciaSuma.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionExistenciaSuma.Location = New System.Drawing.Point(8, 72)
        Me.OpcionExistenciaSuma.Name = "OpcionExistenciaSuma"
        Me.OpcionExistenciaSuma.Size = New System.Drawing.Size(120, 16)
        Me.OpcionExistenciaSuma.TabIndex = 19
        Me.OpcionExistenciaSuma.Text = "Sum&a"
        '
        'OpcionExistenciaResta
        '
        Me.OpcionExistenciaResta.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.OpcionExistenciaResta.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionExistenciaResta.Location = New System.Drawing.Point(8, 48)
        Me.OpcionExistenciaResta.Name = "OpcionExistenciaResta"
        Me.OpcionExistenciaResta.Size = New System.Drawing.Size(120, 16)
        Me.OpcionExistenciaResta.TabIndex = 18
        Me.OpcionExistenciaResta.Text = "&Resta"
        '
        'OpcionExistenciaNo
        '
        Me.OpcionExistenciaNo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.OpcionExistenciaNo.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionExistenciaNo.Location = New System.Drawing.Point(8, 24)
        Me.OpcionExistenciaNo.Name = "OpcionExistenciaNo"
        Me.OpcionExistenciaNo.Size = New System.Drawing.Size(120, 16)
        Me.OpcionExistenciaNo.TabIndex = 17
        Me.OpcionExistenciaNo.Text = "&No cuenta"
        '
        'DisenoDeducible
        '
        Me.DisenoDeducible.Controls.Add(Me.OpcionProveedor)
        Me.DisenoDeducible.Controls.Add(Me.OpcionCliente)
        Me.DisenoDeducible.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoDeducible.Location = New System.Drawing.Point(16, 8)
        Me.DisenoDeducible.Name = "DisenoDeducible"
        Me.DisenoDeducible.Size = New System.Drawing.Size(136, 96)
        Me.DisenoDeducible.TabIndex = 135
        Me.DisenoDeducible.TabStop = False
        Me.DisenoDeducible.Text = "Configuración deducción"
        '
        'OpcionProveedor
        '
        Me.OpcionProveedor.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionProveedor.Location = New System.Drawing.Point(16, 56)
        Me.OpcionProveedor.Name = "OpcionProveedor"
        Me.OpcionProveedor.Size = New System.Drawing.Size(112, 16)
        Me.OpcionProveedor.TabIndex = 13
        Me.OpcionProveedor.Text = "Pro&veedor"
        '
        'OpcionCliente
        '
        Me.OpcionCliente.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.OpcionCliente.Location = New System.Drawing.Point(16, 32)
        Me.OpcionCliente.Name = "OpcionCliente"
        Me.OpcionCliente.Size = New System.Drawing.Size(112, 16)
        Me.OpcionCliente.TabIndex = 12
        Me.OpcionCliente.Text = "Clie&nte"
        '
        'OrejaCPImpuesto
        '
        Me.OrejaCPImpuesto.Controls.Add(Me.DisenoValorImpuesto)
        Me.OrejaCPImpuesto.Location = New System.Drawing.Point(4, 22)
        Me.OrejaCPImpuesto.Name = "OrejaCPImpuesto"
        Me.OrejaCPImpuesto.Size = New System.Drawing.Size(496, 294)
        Me.OrejaCPImpuesto.TabIndex = 2
        Me.OrejaCPImpuesto.Text = "Condición de impuestos"
        '
        'DisenoValorImpuesto
        '
        Me.DisenoValorImpuesto.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.DisenoValorImpuesto.Controls.Add(Me.BotonModificarImpuesto)
        Me.DisenoValorImpuesto.Controls.Add(Me.BotonEnlazarImpuesto)
        Me.DisenoValorImpuesto.Controls.Add(Me.BotonEliminarImpuesto)
        Me.DisenoValorImpuesto.Controls.Add(Me.EtiquetaUsuarioImpuesto)
        Me.DisenoValorImpuesto.Controls.Add(Me.TextoUsuarioImpuesto)
        Me.DisenoValorImpuesto.Controls.Add(Me.BotonImpuestoRapido)
        Me.DisenoValorImpuesto.Controls.Add(Me.TextoValorTipo)
        Me.DisenoValorImpuesto.Controls.Add(Me.TextoValor)
        Me.DisenoValorImpuesto.Controls.Add(Me.EtiquetaValor)
        Me.DisenoValorImpuesto.Controls.Add(Me.EtiquetaValorImpuesto)
        Me.DisenoValorImpuesto.Controls.Add(Me.CombinadaImpuesto)
        Me.DisenoValorImpuesto.Controls.Add(Me.EtiquetaImpuesto)
        Me.DisenoValorImpuesto.Controls.Add(Me.TablaImpuesto)
        Me.DisenoValorImpuesto.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoValorImpuesto.Location = New System.Drawing.Point(16, 24)
        Me.DisenoValorImpuesto.Name = "DisenoValorImpuesto"
        Me.DisenoValorImpuesto.Size = New System.Drawing.Size(456, 256)
        Me.DisenoValorImpuesto.TabIndex = 122
        Me.DisenoValorImpuesto.TabStop = False
        Me.DisenoValorImpuesto.Text = "Configuración de valores predeterminados de impuestos"
        '
        'BotonModificarImpuesto
        '
        Me.BotonModificarImpuesto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonModificarImpuesto.Enabled = False
        Me.BotonModificarImpuesto.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonModificarImpuesto.Location = New System.Drawing.Point(352, 48)
        Me.BotonModificarImpuesto.Name = "BotonModificarImpuesto"
        Me.BotonModificarImpuesto.Size = New System.Drawing.Size(96, 24)
        Me.BotonModificarImpuesto.TabIndex = 31
        Me.BotonModificarImpuesto.Text = "&Modificar impuesto"
        '
        'BotonEnlazarImpuesto
        '
        Me.BotonEnlazarImpuesto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonEnlazarImpuesto.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonEnlazarImpuesto.Location = New System.Drawing.Point(352, 16)
        Me.BotonEnlazarImpuesto.Name = "BotonEnlazarImpuesto"
        Me.BotonEnlazarImpuesto.Size = New System.Drawing.Size(96, 24)
        Me.BotonEnlazarImpuesto.TabIndex = 30
        Me.BotonEnlazarImpuesto.Text = "&Enlazar impuesto"
        '
        'BotonEliminarImpuesto
        '
        Me.BotonEliminarImpuesto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonEliminarImpuesto.Enabled = False
        Me.BotonEliminarImpuesto.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonEliminarImpuesto.Location = New System.Drawing.Point(352, 80)
        Me.BotonEliminarImpuesto.Name = "BotonEliminarImpuesto"
        Me.BotonEliminarImpuesto.Size = New System.Drawing.Size(96, 24)
        Me.BotonEliminarImpuesto.TabIndex = 32
        Me.BotonEliminarImpuesto.Text = "&Eliminar impuesto"
        '
        'EtiquetaUsuarioImpuesto
        '
        Me.EtiquetaUsuarioImpuesto.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaUsuarioImpuesto.AutoSize = True
        Me.EtiquetaUsuarioImpuesto.Location = New System.Drawing.Point(16, 224)
        Me.EtiquetaUsuarioImpuesto.Name = "EtiquetaUsuarioImpuesto"
        Me.EtiquetaUsuarioImpuesto.Size = New System.Drawing.Size(177, 16)
        Me.EtiquetaUsuarioImpuesto.TabIndex = 186
        Me.EtiquetaUsuarioImpuesto.Text = "Ultimo usuario modificó impuesto :"
        '
        'TextoUsuarioImpuesto
        '
        Me.TextoUsuarioImpuesto.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoUsuarioImpuesto.BackColor = System.Drawing.SystemColors.Control
        Me.TextoUsuarioImpuesto.Location = New System.Drawing.Point(216, 224)
        Me.TextoUsuarioImpuesto.Name = "TextoUsuarioImpuesto"
        Me.TextoUsuarioImpuesto.Size = New System.Drawing.Size(224, 20)
        Me.TextoUsuarioImpuesto.TabIndex = 185
        Me.TextoUsuarioImpuesto.Text = ""
        '
        'BotonImpuestoRapido
        '
        Me.BotonImpuestoRapido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonImpuestoRapido.Location = New System.Drawing.Point(128, 24)
        Me.BotonImpuestoRapido.Name = "BotonImpuestoRapido"
        Me.BotonImpuestoRapido.Size = New System.Drawing.Size(24, 24)
        Me.BotonImpuestoRapido.TabIndex = 28
        Me.BotonImpuestoRapido.Text = ">"
        '
        'TextoValorTipo
        '
        Me.TextoValorTipo.BackColor = System.Drawing.SystemColors.Control
        Me.TextoValorTipo.Location = New System.Drawing.Point(296, 56)
        Me.TextoValorTipo.Name = "TextoValorTipo"
        Me.TextoValorTipo.Size = New System.Drawing.Size(48, 20)
        Me.TextoValorTipo.TabIndex = 123
        Me.TextoValorTipo.Text = ""
        '
        'TextoValor
        '
        Me.TextoValor.Location = New System.Drawing.Point(128, 56)
        Me.TextoValor.Name = "TextoValor"
        Me.TextoValor.Size = New System.Drawing.Size(152, 20)
        Me.TextoValor.TabIndex = 29
        Me.TextoValor.Text = ""
        '
        'EtiquetaValor
        '
        Me.EtiquetaValor.AutoSize = True
        Me.EtiquetaValor.Location = New System.Drawing.Point(8, 56)
        Me.EtiquetaValor.Name = "EtiquetaValor"
        Me.EtiquetaValor.Size = New System.Drawing.Size(91, 16)
        Me.EtiquetaValor.TabIndex = 81
        Me.EtiquetaValor.Text = "Valor a registrar :"
        '
        'EtiquetaValorImpuesto
        '
        Me.EtiquetaValorImpuesto.AutoSize = True
        Me.EtiquetaValorImpuesto.Location = New System.Drawing.Point(8, 24)
        Me.EtiquetaValorImpuesto.Name = "EtiquetaValorImpuesto"
        Me.EtiquetaValorImpuesto.Size = New System.Drawing.Size(109, 16)
        Me.EtiquetaValorImpuesto.TabIndex = 70
        Me.EtiquetaValorImpuesto.Text = "Selección impuesto :"
        '
        'CombinadaImpuesto
        '
        Me.CombinadaImpuesto.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaImpuesto.Location = New System.Drawing.Point(160, 24)
        Me.CombinadaImpuesto.Name = "CombinadaImpuesto"
        Me.CombinadaImpuesto.Size = New System.Drawing.Size(184, 21)
        Me.CombinadaImpuesto.Sorted = True
        Me.CombinadaImpuesto.TabIndex = 27
        '
        'EtiquetaImpuesto
        '
        Me.EtiquetaImpuesto.AutoSize = True
        Me.EtiquetaImpuesto.Location = New System.Drawing.Point(16, 96)
        Me.EtiquetaImpuesto.Name = "EtiquetaImpuesto"
        Me.EtiquetaImpuesto.Size = New System.Drawing.Size(198, 16)
        Me.EtiquetaImpuesto.TabIndex = 68
        Me.EtiquetaImpuesto.Text = "Impuestos enlazados al comprobante :"
        '
        'TablaImpuesto
        '
        Me.TablaImpuesto.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TablaImpuesto.Location = New System.Drawing.Point(8, 112)
        Me.TablaImpuesto.Name = "TablaImpuesto"
        Me.TablaImpuesto.Size = New System.Drawing.Size(432, 96)
        Me.TablaImpuesto.TabIndex = 33
        Me.TablaImpuesto.View = System.Windows.Forms.View.Details
        '
        'EtiquetaUsuario
        '
        Me.EtiquetaUsuario.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaUsuario.AutoSize = True
        Me.EtiquetaUsuario.Location = New System.Drawing.Point(16, 376)
        Me.EtiquetaUsuario.Name = "EtiquetaUsuario"
        Me.EtiquetaUsuario.Size = New System.Drawing.Size(128, 16)
        Me.EtiquetaUsuario.TabIndex = 144
        Me.EtiquetaUsuario.Text = "Ultimo usuario modificó :"
        '
        'TextoUsuario
        '
        Me.TextoUsuario.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.TextoUsuario.BackColor = System.Drawing.SystemColors.Control
        Me.TextoUsuario.Location = New System.Drawing.Point(208, 376)
        Me.TextoUsuario.Name = "TextoUsuario"
        Me.TextoUsuario.ReadOnly = True
        Me.TextoUsuario.Size = New System.Drawing.Size(272, 20)
        Me.TextoUsuario.TabIndex = 143
        Me.TextoUsuario.Text = ""
        '
        'NComprobanteProducto
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.CancelButton = Me.BotonCerrar
        Me.ClientSize = New System.Drawing.Size(656, 406)
        Me.Controls.Add(Me.EtiquetaUsuario)
        Me.Controls.Add(Me.TextoUsuario)
        Me.Controls.Add(Me.EtiquetaSeleccionComprobante)
        Me.Controls.Add(Me.OrejaCP)
        Me.Controls.Add(Me.BotonEliminar)
        Me.Controls.Add(Me.BotonNuevo)
        Me.Controls.Add(Me.BotonModificar)
        Me.Controls.Add(Me.Imagen4)
        Me.Controls.Add(Me.Imagen3)
        Me.Controls.Add(Me.Imagen1)
        Me.Controls.Add(Me.CombinadaComprobante)
        Me.Controls.Add(Me.BotonCerrar)
        Me.Controls.Add(Me.Imagen2)
        Me.MaximizeBox = False
        Me.Name = "NComprobanteProducto"
        Me.Text = "Nuevo/Modificar/Eliminar configuración comprobante de producto"
        Me.OrejaCP.ResumeLayout(False)
        Me.OrejaCPDato.ResumeLayout(False)
        Me.DisenoMedida.ResumeLayout(False)
        Me.DisenoImpuesto.ResumeLayout(False)
        Me.OrejaCPCuenta.ResumeLayout(False)
        Me.DisenoComentario.ResumeLayout(False)
        Me.DisenoImpresoras.ResumeLayout(False)
        Me.DisenoDeduccion.ResumeLayout(False)
        Me.DisenoImpresión.ResumeLayout(False)
        Me.DisenoExistencia.ResumeLayout(False)
        Me.DisenoDeducible.ResumeLayout(False)
        Me.OrejaCPImpuesto.ResumeLayout(False)
        Me.DisenoValorImpuesto.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim SeleccionComprobanteProducto As String
    Dim CambioInterno As Boolean
    Dim DatosNoGuardados As Boolean
    Dim DatosNoGuardadosImpuestos As Boolean

    Const Porcentaje As String = "%"
    Const Absoluto As String = "Abs"

    Private Sub NComprobanteProducto_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Iconos
        SubIconVentana(Me, "PENS03")
        SubIconNuevoModificarEliminar(Imagen2, Imagen1, Imagen4, Imagen3)
        ' Manejo de datos combinada
        CambioInterno = False
        SeleccionComprobanteProducto = ""
        ' Inicializar lista
        SubColumnasTablaImpuesto()
    End Sub

    Private Sub SubColumnasTablaImpuesto()
        ' Inicializar lista
        With TablaImpuesto
            .FullRowSelect = True
            With .Columns
                .Add("Nombre impuesto", 180, HorizontalAlignment.Left)
                .Add("Tipo valor", 100, HorizontalAlignment.Right)
                .Add("Valor", 100, HorizontalAlignment.Right)
            End With
        End With
    End Sub

    Private Sub TextoCopia_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextoCopia.KeyPress
        Dim KeyAscii As Int32 = Asc(e.KeyChar)
        SubCondicionNumeroEntero(TextoCopia, KeyAscii)
        If KeyAscii = 0 Then
            e.Handled = True
        End If
    End Sub

    Private Sub NComprobanteProducto_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        ' Declaración variables
        Dim Ciclo As Int32
        ' Abrir tabla
        On Error Resume Next
        SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProducto")
        SubAbrirTablaBD2("SELECT * FROM VImpuesto")
        ' Saber si hubo error
        If Not FnErrorADONET(Me) Then
            ' Limpiar controles
            SubLimpiarTexto()
            ' Cargar combinada comprobante de producto
            CombinadaComprobante.Items.Clear()
            For Ciclo = 0 To TTabla.Rows.Count - 1
                Dim FTabla As DataRow = TTabla.Rows(Ciclo)
                CombinadaComprobante.Items.Add(FTabla("NombreComprobanteProducto").ToString)
            Next
            ' Cargar combinada impuesto
            CombinadaImpuesto.Items.Clear()
            For Ciclo = 0 To TTabla2.Rows.Count - 1
                Dim FTabla2 As DataRow = TTabla2.Rows(Ciclo)
                CombinadaImpuesto.Items.Add(FTabla2("NombreImpuesto").ToString)
            Next
        End If
        On Error GoTo 0
        If SeleccionComprobanteProducto <> "" Then
            CambioInterno = True
            On Error Resume Next
            CombinadaComprobante.Text = SeleccionComprobanteProducto
            On Error GoTo 0
            CambioInterno = False
        End If
        ' Inicialización
        DatosNoGuardados = False
        DatosNoGuardadosImpuestos = False
    End Sub

    Private Sub CombinadaComprobante_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaComprobante.SelectedIndexChanged
        Dim Ciclo As Int32
        Dim Fila As Int32
        Dim Continuar As Boolean
        ' En caso de no ser nulo, pasar valores a pantalla
        If CombinadaComprobante.Text <> "" And Not CambioInterno Then
            ' Verifcar que no haya datos sin registrar
            If DatosNoGuardados Then
                If MessageBox.Show(LeyendaNoGuardado, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                    Continuar = False
                Else
                    Continuar = True
                End If
            Else
                Continuar = True
            End If
            If Continuar Then
                ' Al no querer salvar los cambios, traemos la nueva informacion
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                On Error Resume Next
                ' Abrir tabla
                SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProducto WHERE NombreComprobanteProducto = '" & CombinadaComprobante.Text & "'")
                SubAbrirTablaBD2("SELECT * FROM VTipoComprobanteProductoImpuesto WHERE NombreComprobanteProducto = '" & CombinadaComprobante.Text & "'")
                ' Saber si hubo error
                If Not FnErrorADONET(Me) Then
                    ' Si no hubo error se sigue
                    Dim FTabla As DataRow = TTabla.Rows(0)
                    If CBool(Err.Number) Then
                        MessageBox.Show(LeyendaRegistroNoExiste & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' Pasar datos a pantalla
                        TextoNombre.Text = FTabla("NombreComprobanteProducto").ToString
                        TextoReferencia.Text = FTabla("Referencia").ToString
                        TextoCopia.Text = FTabla("Copias").ToString
                        If CBool(FTabla("ConTransporte").ToString) Then
                            CheckConTransporte.CheckState = CheckState.Checked
                        Else
                            CheckConTransporte.CheckState = CheckState.Unchecked
                        End If
                        If CBool(FTabla("ConCtaCompra").ToString) Then
                            CheckConCtaCompra.CheckState = CheckState.Checked
                        Else
                            CheckConCtaCompra.CheckState = CheckState.Unchecked
                        End If
                        If CBool(FTabla("ConImputarProducto").ToString) Then
                            CheckConImputarProducto.CheckState = CheckState.Checked
                        Else
                            CheckConImputarProducto.CheckState = CheckState.Unchecked
                        End If
                        CombinadaLetra.Text = FTabla("Letra").ToString
                        If CBool(FTabla("Valorizable").ToString) Then
                            CheckValorizable.CheckState = CheckState.Checked
                        Else
                            CheckValorizable.CheckState = CheckState.Unchecked
                        End If
                        If CBool(FTabla("Descriminado").ToString) Then
                            OpcionDescriminado.Checked = True
                        Else
                            OpcionIncluido.Checked = True
                        End If
                        If CBool(FTabla("MedidaVenta").ToString) Then
                            OpcionMedidaVenta.Checked = True
                        Else
                            OpcionMedidaCompra.Checked = True
                        End If
                        If FTabla("ConfiguracionDeduccion").ToString = "Cliente" Then
                            OpcionCliente.Checked = True
                        ElseIf FTabla("ConfiguracionDeduccion").ToString = "Proveedor" Then
                            OpcionProveedor.Checked = True
                        End If
                        If FTabla("ConfiguracionExistencia").ToString = "Suma" Then
                            OpcionExistenciaSuma.Checked = True
                        ElseIf FTabla("ConfiguracionExistencia").ToString = "Resta" Then
                            OpcionExistenciaResta.Checked = True
                        ElseIf FTabla("ConfiguracionExistencia").ToString = "No cuenta" Then
                            OpcionExistenciaNo.Checked = True
                        End If
                        If FTabla("DeduccionCtaCte").ToString = "Credito" Then
                            OpcionCtaCteCredito.Checked = True
                        ElseIf FTabla("DeduccionCtaCte").ToString = "Debito" Then
                            OpcionCtaCteDebito.Checked = True
                        ElseIf FTabla("DeduccionCtaCte").ToString = "No cuenta" Then
                            OpcionCtaCteNo.Checked = True
                        End If
                        If FTabla("ConfiguracionImpresion").ToString = "No imprime" Then
                            OpcionNoImprime.Checked = True
                        ElseIf FTabla("ConfiguracionImpresion").ToString = "Imprime" Then
                            OpcionImprime.Checked = True
                        ElseIf FTabla("ConfiguracionImpresion").ToString = "Pregunta" Then
                            OpcionPregunta.Checked = True
                        End If
                        If FTabla("ConfiguracionImpresora").ToString = "Impresora convencional" Then
                            OpcionImpresora.Checked = True
                        ElseIf FTabla("ConfiguracionImpresora").ToString = "Impresora fiscal" Then
                            OpcionFiscal.Checked = True
                        End If
                        CombinadaImpresora.Text = FTabla("TipoImpresora").ToString
                        CombinadaPuertoCOM.Text = FTabla("ImpresoraFiscalCOM").ToString
                        CheckPrevisualizar.Checked = CBool(FTabla("ConPrevisualizar").ToString)
                        TextoObservacion.Text = FTabla("Observacion").ToString
                        TextoUsuario.Text = FTabla("Usuario").ToString
                        ' ATENCION: Ingresar impuestos incluidos: HECHO
                        ' Borrar tabla impuestos
                        TablaImpuesto.Clear()
                        ' Inicializar lista
                        SubColumnasTablaImpuesto()
                        ' Ingresar impuestos del producto
                        For Ciclo = 0 To TTabla.Rows.Count - 1
                            Dim FTabla2 As DataRow = TTabla2.Rows(Ciclo)
                            With TablaImpuesto
                                Fila = .Items.Count - 1
                                .Items.Add(FTabla2("NombreImpuesto").ToString, Fila)
                                If CBool(FTabla2("EsPorcentualNoAbsoluto").ToString) Then
                                    .Items(Fila + 1).SubItems.Add(Porcentaje)
                                Else
                                    .Items(Fila + 1).SubItems.Add(Absoluto)
                                End If
                                .Items(Fila + 1).SubItems.Add(FTabla2("Valor").ToString)
                            End With
                        Next
                        ' Inicializar controles
                        SubControlesImpuesto()
                        ' Deshabilitar la funcion no guardados
                        DatosNoGuardados = False
                        DatosNoGuardadosImpuestos = False
                        ' Llevar foco a caja de texto
                        TextoNombre.Focus()
                    End If
                End If
                On Error GoTo 0
                Me.Cursor = System.Windows.Forms.Cursors.Default
            End If
        End If
        ' Activar botón modificar en caso de haber algo seleccionado
        If CombinadaComprobante.Text = "" Then
            BotonModificar.Enabled = False
            BotonEliminar.Enabled = False
        Else
            BotonModificar.Enabled = True
            BotonEliminar.Enabled = True
        End If
        ' Indicar selección
        SeleccionComprobanteProducto = CombinadaComprobante.Text
    End Sub

    Private Sub SubLimpiarTexto()
        ' Limpiar los TextBox
        For Each c As Control In Me.OrejaCPDato.Controls
            ' Limpiar los textbox
            If TypeOf c Is TextBox Then c.Text = ""
        Next
        ' Limpiar los opcion
        For Each c As RadioButton In Me.OrejaCPDato.Controls
            ' Limpiar los opcion
            If TypeOf c Is RadioButton Then c.checked = False
        Next
        ' Limpiar los opcion
        For Each c As RadioButton In Me.OrejaCPCuenta.Controls
            ' Limpiar los opcion
            If TypeOf c Is RadioButton Then c.checked = False
        Next
        TablaImpuesto.Items.Clear()
        CheckValorizable.Checked = False
        CheckConCtaCompra.Checked = False
        CheckConTransporte.Checked = False
        CombinadaLetra.Text = ""
        CombinadaImpresora.Text = ""
        CombinadaPuertoCOM.Text = ""
        CombinadaImpuesto.Text = ""
        TextoUsuario.Text = ""
        TextoUsuarioImpuesto.Text = ""
        TextoValor.Text = ""
        TextoValorTipo.Text = ""
    End Sub

    Private Sub NComprobanteProducto_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If DatosNoGuardados Then
            ' Hubo cambios y no se guardaron
            If MessageBox.Show(LeyendaNoGuardado, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = DialogResult.Yes Then
                ' Anular la salida
                e.Cancel = True
            End If
        End If
        If Not e.Cancel Then
            CType(Me.MdiParent, VentaTec).MenuPrincipal.MenuItems(3).MenuItems(10).Enabled = True
            CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
        End If
    End Sub

    Private Sub TextoCopia_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoCopia.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub TextoNombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoNombre.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionIncluido_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionIncluido.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionDescriminado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionDescriminado.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub CheckTransporte_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckConTransporte.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub TextoObervacion_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoObservacion.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub CheckCuentaCompra_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckConCtaCompra.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub CheckValorizable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckValorizable.CheckedChanged
        DatosNoGuardados = True
        If CheckValorizable.Checked Then
            OpcionCtaCteCredito.Enabled = True
            OpcionCtaCteDebito.Enabled = True
            OpcionDescriminado.Enabled = True
            OpcionIncluido.Enabled = True
            If OpcionProveedor.Checked Then
                CheckConCtaCompra.Enabled = True
            Else
                CheckConCtaCompra.Enabled = False
                CheckConCtaCompra.Checked = False
            End If
        Else
            OpcionCtaCteCredito.Enabled = False
            OpcionCtaCteDebito.Enabled = False
            OpcionCtaCteCredito.Checked = False
            OpcionCtaCteDebito.Checked = False
            OpcionDescriminado.Enabled = False
            OpcionIncluido.Enabled = False
            CheckConCtaCompra.Enabled = False
            OpcionCliente.Checked = False
            OpcionProveedor.Checked = False
            OpcionDescriminado.Checked = False
            OpcionIncluido.Checked = False
            CheckConCtaCompra.Checked = False
        End If
    End Sub

    Private Sub CombinadaLetra_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaLetra.SelectedIndexChanged
        DatosNoGuardados = True
    End Sub

    Private Sub TextoReferencia_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoReferencia.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionNoImprime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionNoImprime.CheckedChanged
        DatosNoGuardados = True
        If OpcionNoImprime.Checked Then
            OpcionImpresora.Enabled = False
            OpcionFiscal.Enabled = False
            OpcionImpresora.Checked = False
            OpcionFiscal.Checked = False
            CombinadaImpresora.Enabled = False
            CombinadaImpresora.Items.Clear()
            CombinadaPuertoCOM.Enabled = False
            EtiquetaPuertoCOM.Enabled = False
            CheckPrevisualizar.Enabled = False
        Else
            OpcionImpresora.Enabled = True
            OpcionImpresora.Checked = True
            OpcionFiscal.Enabled = True
            CombinadaImpresora.Enabled = True
            CheckPrevisualizar.Enabled = True
        End If
    End Sub

    Private Sub OpcionImprime_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionImprime.CheckedChanged
        SubManejoControlTipoImpresora(OpcionImprime)
    End Sub

    Private Sub OpcionPregunta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionPregunta.CheckedChanged
        SubManejoControlTipoImpresora(OpcionPregunta)
    End Sub

    Private Sub SubManejoControlTipoImpresora(ByVal ControlOpcion As RadioButton)
        DatosNoGuardados = True
        If ControlOpcion.Checked Then
            OpcionImpresora.Enabled = True
            OpcionImpresora.Checked = True
            OpcionFiscal.Enabled = True
            CombinadaImpresora.Enabled = True
            CheckPrevisualizar.Enabled = True
        Else
            OpcionImpresora.Enabled = False
            OpcionFiscal.Enabled = False
            OpcionImpresora.Checked = False
            OpcionFiscal.Checked = False
            CombinadaImpresora.Enabled = False
            CombinadaImpresora.Items.Clear()
            CombinadaPuertoCOM.Enabled = False
            EtiquetaPuertoCOM.Enabled = False
            CheckPrevisualizar.Enabled = False
        End If
    End Sub

    Private Sub OpcionCtaCteResta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionCtaCteDebito.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionCtaCteSuma_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionCtaCteCredito.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionCtaCteNo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionCtaCteNo.CheckedChanged
        DatosNoGuardados = True
        'If OpcionCtaCteNo.Checked And OpcionExistenciaNo.Checked Then
        'OpcionCliente.Enabled = False
        'OpcionProveedor.Enabled = False
        'Else
        'OpcionCliente.Enabled = True
        'OpcionProveedor.Enabled = True
        'End If
    End Sub

    Private Sub OpcionDeducibleCliente_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionCliente.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionProveedor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionProveedor.CheckedChanged
        DatosNoGuardados = True
        ' Si está seleccionado, activar cuenta compras en caso de ser valorizable
        If OpcionProveedor.Checked Then
            If CheckValorizable.Checked Then
                CheckConCtaCompra.Enabled = True
            Else
                CheckConCtaCompra.Enabled = False
            End If
        Else
            CheckConCtaCompra.Enabled = False
        End If
    End Sub

    Private Sub OpcionExistenciaNo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionExistenciaNo.CheckedChanged
        DatosNoGuardados = True
        If OpcionCtaCteNo.Checked And OpcionExistenciaNo.Checked Then
            OpcionCliente.Enabled = False
            OpcionProveedor.Enabled = False
        Else
            OpcionCliente.Enabled = True
            OpcionProveedor.Enabled = True
        End If
    End Sub

    Private Sub OpcionExistenciaResta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionExistenciaResta.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionExistenciaSuma_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionExistenciaSuma.CheckedChanged
        DatosNoGuardados = True
    End Sub

    Private Sub BotonEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonEliminar.Click
        ' Si la combinada de seleccion de banco está vacía, no es posible eliminar
        If CombinadaComprobante.Text = "" Then
            ' La combinada está vacía, no es posible eliminar
            MessageBox.Show(LeyendaImposibleEliminar, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            ' Preguntar para confirmar la eliminación
            If MessageBox.Show(LeyendaEliminar & "el comprobante de producto " & StrConv(CombinadaComprobante.Text, VbStrConv.UpperCase) & LeyendaPermanente, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                'If MsgBox(LeyendaEliminar & "el hijo   " & StrConv(GrillaHijo.get_TextMatrix(GrillaHijo.RowSel, 1), VbStrConv.UpperCase) & "   del empleado   " & StrConv(SeleccionEmpleado, VbStrConv.UpperCase) & LeyendaPermanente, MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question + MsgBoxStyle.ApplicationModal) = MsgBoxResult.Yes Then
                On Error Resume Next
                SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProducto WHERE NombreComprobanteProducto = '" & CombinadaComprobante.Text & "'")
                ' Saber si hubo error
                If Not FnErrorADONET(Me) Then
                    ' Saber existencia de registro
                    Dim FTabla As DataRow = TTabla.Rows(0)
                    If CBool(Err.Number) Then
                        MessageBox.Show(LeyendaRegistroNoExisteEliminar & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' Eliminar registro
                        FTabla.Delete()
                        BDTabla.Update(TTabla)
                        TTabla.AcceptChanges()
                        If CBool(Err.Number) Then
                            ' Hubo error
                            MessageBox.Show(LeyendaNoEliminado & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            ' Borrar registro en pantalla
                            SubLimpiarTexto()
                            ' Borrar el banco en la combinada
                            CombinadaComprobante.Items.Remove(CombinadaComprobante.Text)
                            ' Borrar tabla impuestos
                            TablaImpuesto.Clear()
                            ' Inicializar lista
                            SubColumnasTablaImpuesto()
                            ' Inicializar controles
                            SubControlesImpuesto()
                            ' Indicar que fue con éxito
                            MessageBox.Show(LeyendaEliminado, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                            ' Deshabilitar la funcion no guardados
                            DatosNoGuardados = False
                            DatosNoGuardadosImpuestos = True
                        End If
                    End If
                End If
                On Error GoTo 0
            End If
        End If

    End Sub

    Private Sub BotonNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonNuevo.Click
        Dim Continuar As Boolean
        ' Si la combinada de seleccion de comprobante no está vacía, puede suceder que deba hacer modifcar en vez de nuevo
        ' Saber también si está configurado preguntar
        If CombinadaComprobante.Text <> "" And PreguntarCrearModificar Then
            ' La combinada no está vacía y configurado para preguntar
            ' Preguntar por las dudas
            If MessageBox.Show(LeyendaPreguntaCrear, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                Continuar = True
            Else
                Continuar = False
            End If
        Else
            Continuar = True
        End If
        ' Si el usuario decidió continuar, se sigue con el proceso
        If Continuar Then
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            On Error Resume Next
            ' Abrir tabla
            SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProducto")
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                ' Si no hubo error se sigue
                Dim FNTabla As DataRow = TTabla.NewRow()
                If CBool(Err.Number) Then
                    MessageBox.Show(LeyendaNoCrearRegistro & Err.Description, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    ' Si se imprime y no hay una impresora seleccionada no continuar
                    If (OpcionImprime.Checked Or OpcionPregunta.Checked) And CombinadaImpresora.Text = "" Then
                        MessageBox.Show(LeyendaNoImpresoraSeleccion, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                        ' Si referencia es SIM no seguir
                    ElseIf TextoReferencia.Text.ToUpper = "SIM" Then
                        MessageBox.Show(LeyendaNoReferencia, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Else
                        FNTabla("NombreComprobanteProducto") = TextoNombre.Text
                        FNTabla("Referencia") = TextoReferencia.Text
                        If TextoCopia.Text <> "" Then FNTabla("Copias") = CInt(TextoCopia.Text)
                        If CheckConTransporte.CheckState = CheckState.Checked Then
                            FNTabla("ConTransporte") = True
                        Else
                            FNTabla("ConTransporte") = False
                        End If
                        If CheckConCtaCompra.CheckState = CheckState.Checked Then
                            FNTabla("ConCtaCompra") = True
                        Else
                            FNTabla("ConCtaCompra") = False
                        End If
                        If CheckConImputarProducto.CheckState = CheckState.Checked Then
                            FNTabla("ConImputarProducto") = True
                        Else
                            FNTabla("ConImputarProducto") = False
                        End If
                        FNTabla("Letra") = CombinadaLetra.Text
                        If CheckValorizable.CheckState = CheckState.Checked Then
                            FNTabla("Valorizable") = True
                        Else
                            FNTabla("Valorizable") = False
                        End If
                        If OpcionDescriminado.Checked Then
                            FNTabla("Descriminado") = True
                        Else
                            FNTabla("Descriminado") = False
                        End If
                        If OpcionMedidaVenta.Checked Then
                            FNTabla("MedidaVenta") = True
                        Else
                            FNTabla("MedidaVenta") = False
                        End If
                        If OpcionCliente.Checked Then
                            FNTabla("ConfiguracionDeduccion") = "Cliente"
                        Else
                            FNTabla("ConfiguracionDeduccion") = "Proveedor"
                        End If
                        If OpcionCtaCteCredito.Checked Then
                            FNTabla("DeduccionCtaCte") = "Credito"
                        ElseIf OpcionCtaCteDebito.Checked Then
                            FNTabla("DeduccionCtaCte") = "Debito"
                        Else
                            FNTabla("DeduccionCtaCte") = "No cuenta"
                        End If
                        If OpcionExistenciaSuma.Checked Then
                            FNTabla("ConfiguracionExistencia") = "Suma"
                        ElseIf OpcionExistenciaResta.Checked Then
                            FNTabla("ConfiguracionExistencia") = "Resta"
                        Else
                            FNTabla("ConfiguracionExistencia") = "No cuenta"
                        End If
                        If OpcionNoImprime.Checked = True Then
                            FNTabla("ConfiguracionImpresion") = "No imprime"
                        ElseIf OpcionImprime.Checked = True Then
                            FNTabla("ConfiguracionImpresion") = "Imprime"
                        Else
                            FNTabla("ConfiguracionImpresion") = "Pregunta"
                        End If
                        If OpcionImpresora.Checked Then
                            FNTabla("ConfiguracionImpresora") = "Impresora convencional"
                        Else
                            FNTabla("ConfiguracionImpresora") = "Impresora fiscal"
                        End If
                        FNTabla("TipoImpresora") = CombinadaImpresora.Text
                        FNTabla("ConPrevisualizar") = CheckPrevisualizar.Checked
                        FNTabla("ImpresoraFiscalCOM") = CombinadaPuertoCOM.Text
                        FNTabla("Observacion") = TextoObservacion.Text
                        FNTabla("Usuario") = UsuarioActual

                        ' ATENCION: Ver el tema de los impuestos

                        If Not CBool(Err.Number) Then
                            ' Añadir la nueva fila a la tabla
                            TTabla.Rows.Add(FNTabla)
                            ' Guardar físicamente los datos en la base
                            BDTabla.Update(TTabla)
                            TTabla.AcceptChanges()
                            If CBool(Err.Number) Then
                                MessageBox.Show(LeyendaNoRepetirDatoComprobante & LeyendaNoCreado & Err.Description, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Error)
                            Else
                                MessageBox.Show(LeyendaCreado, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                                ' Ingresar valor a combinada
                                CombinadaComprobante.Items.Add(TextoNombre.Text)
                                ' Cambiar el nombre
                                CambioInterno = True
                                CombinadaComprobante.Text = TextoNombre.Text
                                CambioInterno = False
                                ' Inicializar controles
                                SubControlesImpuesto()
                                ' Borrar tabla impuestos
                                TablaImpuesto.Clear()
                                ' Inicializar lista
                                SubColumnasTablaImpuesto()
                                ' Deshabilitar la funcion no guardados
                                DatosNoGuardados = False
                                DatosNoGuardadosImpuestos = False
                            End If
                        Else
                            MessageBox.Show(LeyendaErrorDato & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                    End If
                End If
            End If
            On Error GoTo 0
            Me.Cursor = System.Windows.Forms.Cursors.Default
        End If
    End Sub

    Private Sub BotonModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonModificar.Click
        Dim Continuar As Boolean
        ' Si la combinada de seleccion está vacía, no es posible grabar la modificación
        If CombinadaComprobante.Text = "" Then
            ' La combinada está vacía, no es posible modificar
            MessageBox.Show(LeyendaImposibleModificar, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            ' En caso de estar configurado, confirmar modificación
            If PreguntarCrearModificar Then
                ' Preguntar por las dudas
                If MessageBox.Show(LeyendaPreguntaModificar, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                    Continuar = True
                Else
                    Continuar = False
                End If
            Else
                Continuar = True
            End If
            ' Si el usuario decidió continuar, se sigue con el proceso
            If Continuar Then
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                On Error Resume Next
                ' Abrir tabla
                SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProducto WHERE NombreComprobanteProducto = '" & CombinadaComprobante.Text & "'")
                ' Saber si hubo error
                If Not FnErrorADONET(Me) Then
                    ' Si no hubo error se sigue
                    Dim FTabla As DataRow = TTabla.Rows(0)
                    If CBool(Err.Number) Then
                        MessageBox.Show(LeyendaRegistroNoExisteModificar & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                        ' Si referencia es SIM no seguir
                    ElseIf TextoReferencia.Text.ToUpper = "SIM" Then
                        MessageBox.Show(LeyendaNoReferencia, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Else
                        ' Si se imprime y no hay una impresora seleccionada no continuar
                        If (OpcionImprime.Checked Or OpcionPregunta.Checked) And CombinadaImpresora.Text = "" Then
                            MessageBox.Show(LeyendaNoImpresoraSeleccion, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            ' Registrar las modificaciones
                            FTabla("NombreComprobanteProducto") = TextoNombre.Text
                            FTabla("Referencia") = TextoReferencia.Text
                            If TextoCopia.Text <> "" Then FTabla("Copias") = CInt(TextoCopia.Text)
                            If CheckConTransporte.CheckState = CheckState.Checked Then
                                FTabla("ConTransporte") = True
                            Else
                                FTabla("ConTransporte") = False
                            End If
                            If CheckConImputarProducto.CheckState = CheckState.Checked Then
                                FTabla("ConImputarProducto") = True
                            Else
                                FTabla("ConImputarProducto") = False
                            End If
                            If CheckConCtaCompra.CheckState = CheckState.Checked Then
                                FTabla("ConCtaCompra") = True
                            Else
                                FTabla("ConCtaCompra") = False
                            End If
                            FTabla("Letra") = CombinadaLetra.Text
                            If CheckValorizable.CheckState = CheckState.Checked Then
                                FTabla("Valorizable") = True
                            Else
                                FTabla("Valorizable") = False
                            End If
                            If OpcionDescriminado.Checked Then
                                FTabla("Descriminado") = True
                            Else
                                FTabla("Descriminado") = False
                            End If
                            If OpcionMedidaVenta.Checked Then
                                FTabla("MedidaVenta") = True
                            Else
                                FTabla("MedidaVenta") = False
                            End If
                            If OpcionCliente.Checked Then
                                FTabla("ConfiguracionDeduccion") = "Cliente"
                            Else
                                FTabla("ConfiguracionDeduccion") = "Proveedor"
                            End If
                            If OpcionExistenciaSuma.Checked Then
                                FTabla("ConfiguracionExistencia") = "Suma"
                            ElseIf OpcionExistenciaResta.Checked Then
                                FTabla("ConfiguracionExistencia") = "Resta"
                            Else
                                FTabla("ConfiguracionExistencia") = "No cuenta"
                            End If
                            If OpcionCtaCteCredito.Checked Then
                                FTabla("DeduccionCtaCte") = "Credito"
                            ElseIf OpcionCtaCteDebito.Checked Then
                                FTabla("DeduccionCtaCte") = "Debito"
                            Else
                                FTabla("DeduccionCtaCte") = "No cuenta"
                            End If
                            If OpcionNoImprime.Checked = True Then
                                FTabla("ConfiguracionImpresion") = "No imprime"
                            ElseIf OpcionImprime.Checked = True Then
                                FTabla("ConfiguracionImpresion") = "Imprime"
                            Else
                                FTabla("ConfiguracionImpresion") = "Pregunta"
                            End If
                            If OpcionImpresora.Checked Then
                                FTabla("ConfiguracionImpresora") = "Impresora convencional"
                            Else
                                FTabla("ConfiguracionImpresora") = "Impresora fiscal"
                            End If
                            FTabla("TipoImpresora") = CombinadaImpresora.Text
                            FTabla("ConPrevisualizar") = CheckPrevisualizar.Checked
                            FTabla("ImpresoraFiscalCOM") = CombinadaPuertoCOM.Text
                            FTabla("Observacion") = TextoObservacion.Text
                            FTabla("Usuario") = UsuarioActual

                            ' ATENCION: Ver el tema de los impuestos

                            If CBool(Err.Number) Then
                                MessageBox.Show(LeyendaErrorDato & Err.Description, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Error)
                            Else
                                ' Pasar datos a base
                                BDTabla.Update(TTabla)
                                TTabla.AcceptChanges()
                                If CBool(Err.Number) Then
                                    ' Hubo error
                                    MessageBox.Show(LeyendaNoRepetirDatoComprobante & LeyendaNoModificado & Err.Description, _
                                                    LeyendaTituloMensaje, _
                                                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                                Else
                                    ' Indicar que fue con éxito
                                    MessageBox.Show(LeyendaModificado, _
                                                    LeyendaTituloMensaje, _
                                                    MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                                    ' Saber si se modificó la clave primaria
                                    If TextoNombre.Text <> CombinadaComprobante.Text Then
                                        ' Cambió el nombre
                                        ' Modificar la lista y seleccionar el nuevo
                                        CambioInterno = True
                                        With CombinadaComprobante
                                            .Items.Add(TextoNombre.Text)
                                            .Items.Remove(.Text)
                                            .Text = TextoNombre.Text
                                        End With
                                        CambioInterno = False
                                    End If
                                    ' Deshabilitar la funcion no guardados
                                    DatosNoGuardados = False
                                End If
                            End If
                        End If

                    End If
                End If
                On Error GoTo 0
                Me.Cursor = System.Windows.Forms.Cursors.Default
            End If
        End If
    End Sub

    Private Sub BotonCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonCerrar.Click
        Me.Close()
    End Sub

    Private Sub BotonCerrar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BotonCerrar.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaPresione & LeyendaCerrarVentana
    End Sub

    Private Sub BotonModificar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BotonModificar.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaPresione & LeyendaModificarRegistro
    End Sub

    Private Sub BotonNuevo_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BotonNuevo.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaPresione & LeyendaNuevoRegistro
    End Sub

    Private Sub BotonEliminar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BotonEliminar.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaPresione & LeyendaEliminarRegistro
    End Sub

    Private Sub CombinadaComprobante_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CombinadaComprobante.MouseMove
        ' Indicar en barra de estado lo que hace el botón
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = LeyendaSeleccionRegistro
    End Sub

    Private Sub NComprobanteProducto_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        ' Borrar los posibles mensajes en barra de estado
        CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
    End Sub

    Private Sub BotonImpuestoRapido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonImpuestoRapido.Click
        If FnConAutorizacionVentana("NImpuesto") Then
            Dim FrmNImpuesto As New NImpuesto
            ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
            FrmNImpuesto.MdiParent = CType(Me.MdiParent, VentaTec)
            FrmNImpuesto.Visible = True
        Else
            MessageBox.Show(LeyendaNoIngresoVentana, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub TablaImpuesto_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles TablaImpuesto.ColumnClick
        ' Determinar si la columna en la que se hizo clic ya es la que se está ordenando.
        If (e.Column = lvwColumnSorter.SortColumn) Then
            ' Revertir la dirección de ordenación actual de esta columna.
            If (lvwColumnSorter.Order = SortOrder.Ascending) Then
                lvwColumnSorter.Order = SortOrder.Descending
            Else
                lvwColumnSorter.Order = SortOrder.Ascending
            End If
        Else
            ' Establecer el número de columna que se va a ordenar; de forma predeterminada, en orden ascendente.
            lvwColumnSorter.SortColumn = e.Column
            lvwColumnSorter.Order = SortOrder.Ascending
        End If
        ' Realizar la ordenación con estas nuevas opciones de ordenación. Me.ListView1.Sort()
        TablaImpuesto.Sort()
    End Sub

    Private Sub CombinadaImpuesto_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaImpuesto.SelectedIndexChanged
        Dim Continuar As Boolean
        If CombinadaImpuesto.Text <> "" Then
            ' Verifcar que no haya datos sin registrar
            If DatosNoGuardadosImpuestos Then
                If MessageBox.Show(LeyendaNoGuardado, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                    Continuar = False
                Else
                    Continuar = True
                End If
            Else
                Continuar = True
            End If
            If Continuar Then
                ' Al no querer salvar los cambios, traemos la nueva informacion
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                On Error Resume Next
                ' Abrir tabla
                SubAbrirTablaBD("SELECT * FROM VImpuesto WHERE NombreImpuesto = '" & CombinadaImpuesto.Text & "'")
                ' Saber si hubo error
                If Not FnErrorADONET(Me) Then
                    ' Si no hubo error se sigue
                    Dim FTabla As DataRow = TTabla.Rows(0)
                    If CBool(Err.Number) Then
                        MessageBox.Show(LeyendaRegistroNoExiste & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' Pasar datos a pantalla
                        If CBool(FTabla("EsPorcentualNoAbsoluto").ToString) Then
                            TextoValorTipo.Text = Porcentaje
                        Else
                            TextoValorTipo.Text = Absoluto
                        End If
                        TextoValor.Text = FTabla("Valor").ToString
                        ' Deshabilitar la funcion no guardados y manejar controles
                        DatosNoGuardadosImpuestos = False
                        BotonEnlazarImpuesto.Enabled = True
                        BotonEnlazarImpuesto.Text = "&Enlazar impuesto"
                    End If
                End If
                On Error GoTo 0
                Me.Cursor = System.Windows.Forms.Cursors.Default
            End If
        End If
    End Sub

    Private Sub TablaImpuesto_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TablaImpuesto.SelectedIndexChanged
        ' Traer el registro y habilitar controles
        If TablaImpuesto.SelectedItems.Count > 0 Then
            ' Hay selección
            ' Pasar datos seleccionados a las caja de texto
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            On Error Resume Next
            ' Abrir base registro
            SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProductoImpuesto WHERE NombreComprobanteProducto = '" & TextoNombre.Text & "' AND NombreImpuesto = '" & TablaImpuesto.SelectedItems(0).Text & "'")
            Dim FTabla As DataRow = TTabla.Rows(0)
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                ' No hubo error, pasar datos a pantalla
                TextoValor.Text = FTabla("Valor").ToString
                If CBool(FTabla("EsPorcentualNoAbsoluto").ToString) Then
                    TextoValorTipo.Text = Porcentaje
                Else
                    TextoValorTipo.Text = Absoluto
                End If
                TextoUsuarioImpuesto.Text = FTabla("Usuario").ToString
                ' Activar y desactivar controles
                BotonEnlazarImpuesto.Enabled = True
                BotonEliminarImpuesto.Enabled = True
                BotonModificarImpuesto.Enabled = True
                CombinadaImpuesto.Enabled = False
                BotonEnlazarImpuesto.Text = "&Habilitar enlace"
            End If
            On Error GoTo 0
            Me.Cursor = System.Windows.Forms.Cursors.Default
            ' Deshabilitar la funcion no guardados
            DatosNoGuardadosImpuestos = False
        Else
            ' No hay selección
            SubControlesImpuesto()
        End If
    End Sub

    Private Sub BotonEnlazarImpuesto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonEnlazarImpuesto.Click
        Dim Fila As Int32
        ' Registrar en caso de haber seleccionado un registro
        If BotonEnlazarImpuesto.Text = "&Habilitar enlace" Then
            SubControlesImpuesto()
            CombinadaImpuesto.Focus()
        Else
            If CombinadaImpuesto.Text <> "" Then
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
                On Error Resume Next
                ' Abrir tabla
                SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProductoImpuesto")
                ' Saber si hubo error
                If Not FnErrorADONET(Me) Then
                    ' Si no hubo error se sigue
                    Dim FNTabla As DataRow = TTabla.NewRow()
                    If CBool(Err.Number) Then
                        MessageBox.Show(LeyendaNoCrearRegistro & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        FNTabla("NombreComprobanteProducto") = TextoNombre.Text
                        FNTabla("NombreImpuesto") = CombinadaImpuesto.Text
                        If TextoValorTipo.Text = Porcentaje Then
                            FNTabla("EsPorcentualNoAbsoluto") = True
                        Else
                            FNTabla("EsPorcentualNoAbsoluto") = False
                        End If
                        FNTabla("Valor") = TextoValor.Text
                        FNTabla("Usuario") = UsuarioActual
                        If Not CBool(Err.Number) Then
                            ' Añadir la nueva fila a la tabla
                            TTabla.Rows.Add(FNTabla)
                            ' Guardar físicamente los datos en la base
                            BDTabla.Update(TTabla)
                            TTabla.AcceptChanges()
                            If CBool(Err.Number) Then
                                MessageBox.Show(LeyendaNoCreado & Err.Description, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Error)
                            Else
                                MessageBox.Show(LeyendaCreado, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                                ' Ingresar valor a tabla
                                With TablaImpuesto
                                    Fila = .Items.Count - 1
                                    .Items.Add(CombinadaImpuesto.Text, Fila)
                                    .Items(Fila + 1).SubItems.Add(TextoValorTipo.Text)
                                    .Items(Fila + 1).SubItems.Add(TextoValor.Text)
                                End With
                                ' Deshabilitar la funcion no guardados
                                DatosNoGuardadosImpuestos = False
                            End If
                        Else
                            MessageBox.Show(LeyendaErrorDato & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                    End If
                End If
                On Error GoTo 0
                Me.Cursor = System.Windows.Forms.Cursors.Default
            Else
                MessageBox.Show(LeyendaFaltaDatoRequerido, _
                    LeyendaTituloMensaje, _
                    MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End If
    End Sub

    Private Sub BotonModificarImpuesto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonModificarImpuesto.Click
        If TablaImpuesto.SelectedItems.Count > 0 Then
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            On Error Resume Next
            ' Abrir base registro
            SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProductoImpuesto WHERE NombreComprobanteProducto = '" & TextoNombre.Text & "' AND NombreImpuesto = '" & TablaImpuesto.SelectedItems(0).Text & "'")
            Dim FTabla As DataRow = TTabla.Rows(0)
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                ' Saber valor antiguo de importe
                FTabla("Valor") = TextoValor.Text
                If CBool(Err.Number) Then
                    MessageBox.Show(LeyendaErrorDato & Err.Description, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    ' Pasar datos a base
                    BDTabla.Update(TTabla)
                    TTabla.AcceptChanges()
                    If CBool(Err.Number) Then
                        ' Hubo error
                        MessageBox.Show(LeyendaNoModificado & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' ATENCION: CUANTO MENOS CLICK MEJOR, ASI QUE ANULAMOS EL MENSAJE Y SE NOTA EL CAMBIO POR EL CAMBIO EN CONTROL TABLA
                        '' Indicar que fue con éxito
                        'MessageBox.Show(LeyendaModificado, _
                        '                LeyendaTituloMensaje, _
                        '                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                        ' Cambiar el valor en la lista
                        TablaImpuesto.Items(TablaImpuesto.FocusedItem.Index).SubItems(2).Text = TextoValor.Text
                        ' Deshabilitar la funcion no guardados
                        DatosNoGuardadosImpuestos = False
                    End If
                End If
            End If
            On Error GoTo 0
            Me.Cursor = System.Windows.Forms.Cursors.Default
        End If
    End Sub

    Private Sub BotonEliminarImpuesto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonEliminarImpuesto.Click
        ' Verificar que hay un valor seleccionado
        If TablaImpuesto.SelectedItems.Count > 0 Then
            ' Preguntar para confirmar la eliminación
            If MessageBox.Show(LeyendaEliminar & "en el comprobante " & StrConv(TextoNombre.Text, VbStrConv.UpperCase) & " el impuesto " & TablaImpuesto.SelectedItems(0).Text & LeyendaPermanente, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                On Error Resume Next
                ' Abrir base registro
                SubAbrirTablaBD("SELECT * FROM VTipoComprobanteProductoImpuesto WHERE NombreComprobanteProducto = '" & TextoNombre.Text & "' AND NombreImpuesto = '" & TablaImpuesto.SelectedItems(0).Text & "'")
                ' Saber si hubo error
                If Not FnErrorADONET(Me) Then
                    ' Saber existencia de registro
                    Dim FTabla As DataRow = TTabla.Rows(0)
                    If CBool(Err.Number) Then
                        MessageBox.Show(LeyendaRegistroNoExisteEliminar & Err.Description, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' Eliminar registro
                        FTabla.Delete()
                        BDTabla.Update(TTabla)
                        TTabla.AcceptChanges()
                        If CBool(Err.Number) Then
                            ' Hubo error
                            MessageBox.Show(LeyendaNoEliminado & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Else
                            ' Borrar valor en la lista
                            Dim Item As System.Windows.Forms.ListViewItem
                            For Each Item In TablaImpuesto.SelectedItems
                                TablaImpuesto.Items.Remove(Item)
                            Next
                            ' Inicializar controles
                            SubControlesImpuesto()
                            ' Deshabilitar la funcion no guardados
                            DatosNoGuardadosImpuestos = False
                        End If
                    End If
                End If
                On Error GoTo 0
            End If
        End If
    End Sub

    Private Sub SubControlesImpuesto()
        ' Inicializar controles
        BotonEnlazarImpuesto.Enabled = True
        BotonEnlazarImpuesto.Text = "&Enlazar impuesto"
        BotonModificarImpuesto.Enabled = False
        BotonEliminarImpuesto.Enabled = False
        CombinadaImpuesto.Enabled = True
        CombinadaImpuesto.SelectedIndex = -1
        TextoValor.Text = ""
        TextoValorTipo.Text = ""
        TextoUsuarioImpuesto.Text = ""
        DatosNoGuardadosImpuestos = False
    End Sub

    Private Sub TextoValor_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextoValor.TextChanged
        DatosNoGuardadosImpuestos = True
    End Sub

    Private Sub OpcionImpresora_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpcionImpresora.CheckedChanged
        Dim Ciclo As Int32
        DatosNoGuardados = True
        If OpcionImpresora.Checked Then
            CombinadaPuertoCOM.Enabled = False
            EtiquetaPuertoCOM.Enabled = False
            CheckPrevisualizar.Enabled = True
            ' Cargar impresoras convencionales instaladas en combinada
            CombinadaImpresora.Items.Clear()
            CombinadaImpresora.Items.Add("Seleccionar impresora")
            For Ciclo = 0 To PrintDocument.PrinterSettings.InstalledPrinters.Count - 1
                CombinadaImpresora.Items.Add(PrintDocument.PrinterSettings.InstalledPrinters.Item(Ciclo).ToString)
            Next
            CombinadaImpresora.Text = "Seleccionar impresora"
        Else
            CombinadaPuertoCOM.Enabled = True
            EtiquetaPuertoCOM.Enabled = True
            CheckPrevisualizar.Enabled = False
            ' Cargar fiscales en combinada
            CombinadaImpresora.Items.Clear()
            'CombinadaImpresora.Items.Add("Seleccionar impresora")
            'CombinadaImpresora.Text = "Seleccionar impresora"
            MessageBox.Show(LeyendaNoControlFiscal, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub CombinadaImpresora_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaImpresora.SelectedIndexChanged
        DatosNoGuardados = True
    End Sub

    Private Sub CombinadaPuertoCOM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaPuertoCOM.SelectedIndexChanged
        DatosNoGuardados = True
    End Sub

    Private Sub OpcionFiscal_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpcionFiscal.CheckedChanged
        DatosNoGuardados = True
    End Sub
End Class
