Public Class NNumeracion
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

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

        'Add any initialization after the InitializeComponent() call

    End Sub

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

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

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Public WithEvents Imagen1 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen2 As System.Windows.Forms.PictureBox
    Friend WithEvents DisenoComentario As System.Windows.Forms.GroupBox
    Public WithEvents BotonModificarNumeracion As System.Windows.Forms.Button
    Public WithEvents BotonCerrar As System.Windows.Forms.Button
    Public WithEvents BotonNuevo As System.Windows.Forms.Button
    Public WithEvents Imagen3 As System.Windows.Forms.PictureBox
    Public WithEvents BotonEliminar As System.Windows.Forms.Button
    Public WithEvents Imagen4 As System.Windows.Forms.PictureBox
    Friend WithEvents EtiquetaComentario As System.Windows.Forms.Label
    Friend WithEvents EtiquetaComprobanteNumeracion As System.Windows.Forms.Label
    Friend WithEvents CombinadaComprobanteNumerado As System.Windows.Forms.ComboBox
    Friend WithEvents DisenoNumeracion As System.Windows.Forms.GroupBox
    Friend WithEvents EtiquetaComprobanteNuevo As System.Windows.Forms.Label
    Friend WithEvents CombinadaComprobanteNuevo As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaObervacion As System.Windows.Forms.Label
    Friend WithEvents TextoUsuario As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaUsuario As System.Windows.Forms.Label
    Friend WithEvents TextoObservacion As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaPuntoVenta As System.Windows.Forms.Label
    Friend WithEvents TextoPuntoVenta As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaNumero As System.Windows.Forms.Label
    Friend WithEvents TextoNumero As System.Windows.Forms.TextBox
    Friend WithEvents DisenoValorImpuesto As System.Windows.Forms.GroupBox
    Friend WithEvents EtiquetaComentario2 As System.Windows.Forms.Label
    Public WithEvents BotonEliminarAnadido As System.Windows.Forms.Button
    Public WithEvents Imagen5 As System.Windows.Forms.PictureBox
    Friend WithEvents BotonAnadir As System.Windows.Forms.Button
    Friend WithEvents EtiquetaComprobante As System.Windows.Forms.Label
    Friend WithEvents CombinadaComprobanteAnadir As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaComprobanteAnadido As System.Windows.Forms.Label
    Friend WithEvents TablaComprobante As System.Windows.Forms.ListView
    Friend WithEvents Label1 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.BotonModificarNumeracion = New System.Windows.Forms.Button
        Me.Imagen1 = New System.Windows.Forms.PictureBox
        Me.BotonCerrar = New System.Windows.Forms.Button
        Me.Imagen2 = New System.Windows.Forms.PictureBox
        Me.EtiquetaComprobanteNumeracion = New System.Windows.Forms.Label
        Me.CombinadaComprobanteNumerado = New System.Windows.Forms.ComboBox
        Me.DisenoComentario = New System.Windows.Forms.GroupBox
        Me.EtiquetaComentario = New System.Windows.Forms.Label
        Me.BotonNuevo = New System.Windows.Forms.Button
        Me.Imagen3 = New System.Windows.Forms.PictureBox
        Me.BotonEliminar = New System.Windows.Forms.Button
        Me.Imagen4 = New System.Windows.Forms.PictureBox
        Me.DisenoNumeracion = New System.Windows.Forms.GroupBox
        Me.EtiquetaComprobanteNuevo = New System.Windows.Forms.Label
        Me.CombinadaComprobanteNuevo = New System.Windows.Forms.ComboBox
        Me.EtiquetaObervacion = New System.Windows.Forms.Label
        Me.TextoUsuario = New System.Windows.Forms.TextBox
        Me.EtiquetaUsuario = New System.Windows.Forms.Label
        Me.TextoObservacion = New System.Windows.Forms.TextBox
        Me.EtiquetaPuntoVenta = New System.Windows.Forms.Label
        Me.TextoPuntoVenta = New System.Windows.Forms.TextBox
        Me.EtiquetaNumero = New System.Windows.Forms.Label
        Me.TextoNumero = New System.Windows.Forms.TextBox
        Me.DisenoValorImpuesto = New System.Windows.Forms.GroupBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.EtiquetaComentario2 = New System.Windows.Forms.Label
        Me.BotonEliminarAnadido = New System.Windows.Forms.Button
        Me.Imagen5 = New System.Windows.Forms.PictureBox
        Me.BotonAnadir = New System.Windows.Forms.Button
        Me.EtiquetaComprobante = New System.Windows.Forms.Label
        Me.CombinadaComprobanteAnadir = New System.Windows.Forms.ComboBox
        Me.EtiquetaComprobanteAnadido = New System.Windows.Forms.Label
        Me.TablaComprobante = New System.Windows.Forms.ListView
        Me.DisenoComentario.SuspendLayout()
        Me.DisenoNumeracion.SuspendLayout()
        Me.DisenoValorImpuesto.SuspendLayout()
        Me.SuspendLayout()
        '
        'BotonModificarNumeracion
        '
        Me.BotonModificarNumeracion.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonModificarNumeracion.BackColor = System.Drawing.SystemColors.Control
        Me.BotonModificarNumeracion.Cursor = System.Windows.Forms.Cursors.Default
        Me.BotonModificarNumeracion.Enabled = False
        Me.BotonModificarNumeracion.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonModificarNumeracion.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.BotonModificarNumeracion.ForeColor = System.Drawing.SystemColors.ControlText
        Me.BotonModificarNumeracion.Location = New System.Drawing.Point(504, 56)
        Me.BotonModificarNumeracion.Name = "BotonModificarNumeracion"
        Me.BotonModificarNumeracion.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonModificarNumeracion.Size = New System.Drawing.Size(128, 32)
        Me.BotonModificarNumeracion.TabIndex = 9
        Me.BotonModificarNumeracion.Text = "&Modificar numeración"
        '
        '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(552, 16)
        Me.Imagen1.Name = "Imagen1"
        Me.Imagen1.Size = New System.Drawing.Size(32, 32)
        Me.Imagen1.TabIndex = 170
        Me.Imagen1.TabStop = False
        '
        '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(504, 336)
        Me.BotonCerrar.Name = "BotonCerrar"
        Me.BotonCerrar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonCerrar.Size = New System.Drawing.Size(128, 24)
        Me.BotonCerrar.TabIndex = 12
        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(552, 296)
        Me.Imagen2.Name = "Imagen2"
        Me.Imagen2.Size = New System.Drawing.Size(32, 32)
        Me.Imagen2.TabIndex = 168
        Me.Imagen2.TabStop = False
        '
        'EtiquetaComprobanteNumeracion
        '
        Me.EtiquetaComprobanteNumeracion.AutoSize = True
        Me.EtiquetaComprobanteNumeracion.Location = New System.Drawing.Point(16, 8)
        Me.EtiquetaComprobanteNumeracion.Name = "EtiquetaComprobanteNumeracion"
        Me.EtiquetaComprobanteNumeracion.Size = New System.Drawing.Size(122, 16)
        Me.EtiquetaComprobanteNumeracion.TabIndex = 172
        Me.EtiquetaComprobanteNumeracion.Text = "Selección numeración :"
        '
        'CombinadaComprobanteNumerado
        '
        Me.CombinadaComprobanteNumerado.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaComprobanteNumerado.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaComprobanteNumerado.Location = New System.Drawing.Point(160, 8)
        Me.CombinadaComprobanteNumerado.Name = "CombinadaComprobanteNumerado"
        Me.CombinadaComprobanteNumerado.Size = New System.Drawing.Size(320, 21)
        Me.CombinadaComprobanteNumerado.Sorted = True
        Me.CombinadaComprobanteNumerado.TabIndex = 0
        '
        'DisenoComentario
        '
        Me.DisenoComentario.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom 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, 448)
        Me.DisenoComentario.Name = "DisenoComentario"
        Me.DisenoComentario.Size = New System.Drawing.Size(616, 56)
        Me.DisenoComentario.TabIndex = 176
        Me.DisenoComentario.TabStop = False
        '
        'EtiquetaComentario
        '
        Me.EtiquetaComentario.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom 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(600, 32)
        Me.EtiquetaComentario.TabIndex = 0
        Me.EtiquetaComentario.Text = "Si no existe registro de numeración, no tiene numeración automática. Los comproba" & _
        "ntes añadidos, son aquellos que siguen con la numeración del comprobante selecci" & _
        "onado. Si no existe punto de venta dejarlo vacío."
        '
        '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(504, 160)
        Me.BotonNuevo.Name = "BotonNuevo"
        Me.BotonNuevo.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonNuevo.Size = New System.Drawing.Size(128, 24)
        Me.BotonNuevo.TabIndex = 10
        Me.BotonNuevo.Text = "&Nueva numeración"
        '
        '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(552, 120)
        Me.Imagen3.Name = "Imagen3"
        Me.Imagen3.Size = New System.Drawing.Size(32, 32)
        Me.Imagen3.TabIndex = 187
        Me.Imagen3.TabStop = False
        '
        '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.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(504, 240)
        Me.BotonEliminar.Name = "BotonEliminar"
        Me.BotonEliminar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonEliminar.Size = New System.Drawing.Size(128, 24)
        Me.BotonEliminar.TabIndex = 11
        Me.BotonEliminar.Text = "&Elimnar numeración"
        '
        '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(552, 200)
        Me.Imagen4.Name = "Imagen4"
        Me.Imagen4.Size = New System.Drawing.Size(32, 32)
        Me.Imagen4.TabIndex = 189
        Me.Imagen4.TabStop = False
        '
        'DisenoNumeracion
        '
        Me.DisenoNumeracion.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.DisenoNumeracion.Controls.Add(Me.EtiquetaComprobanteNuevo)
        Me.DisenoNumeracion.Controls.Add(Me.CombinadaComprobanteNuevo)
        Me.DisenoNumeracion.Controls.Add(Me.EtiquetaObervacion)
        Me.DisenoNumeracion.Controls.Add(Me.TextoUsuario)
        Me.DisenoNumeracion.Controls.Add(Me.EtiquetaUsuario)
        Me.DisenoNumeracion.Controls.Add(Me.TextoObservacion)
        Me.DisenoNumeracion.Controls.Add(Me.EtiquetaPuntoVenta)
        Me.DisenoNumeracion.Controls.Add(Me.TextoPuntoVenta)
        Me.DisenoNumeracion.Controls.Add(Me.EtiquetaNumero)
        Me.DisenoNumeracion.Controls.Add(Me.TextoNumero)
        Me.DisenoNumeracion.Controls.Add(Me.DisenoValorImpuesto)
        Me.DisenoNumeracion.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoNumeracion.Location = New System.Drawing.Point(16, 40)
        Me.DisenoNumeracion.Name = "DisenoNumeracion"
        Me.DisenoNumeracion.Size = New System.Drawing.Size(472, 400)
        Me.DisenoNumeracion.TabIndex = 190
        Me.DisenoNumeracion.TabStop = False
        Me.DisenoNumeracion.Text = "Numeración del comprobante seleccionado"
        '
        'EtiquetaComprobanteNuevo
        '
        Me.EtiquetaComprobanteNuevo.AutoSize = True
        Me.EtiquetaComprobanteNuevo.Location = New System.Drawing.Point(12, 32)
        Me.EtiquetaComprobanteNuevo.Name = "EtiquetaComprobanteNuevo"
        Me.EtiquetaComprobanteNuevo.Size = New System.Drawing.Size(129, 16)
        Me.EtiquetaComprobanteNuevo.TabIndex = 202
        Me.EtiquetaComprobanteNuevo.Text = "Selección comprobante :"
        '
        'CombinadaComprobanteNuevo
        '
        Me.CombinadaComprobanteNuevo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaComprobanteNuevo.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaComprobanteNuevo.Location = New System.Drawing.Point(156, 32)
        Me.CombinadaComprobanteNuevo.Name = "CombinadaComprobanteNuevo"
        Me.CombinadaComprobanteNuevo.Size = New System.Drawing.Size(296, 21)
        Me.CombinadaComprobanteNuevo.Sorted = True
        Me.CombinadaComprobanteNuevo.TabIndex = 192
        '
        'EtiquetaObervacion
        '
        Me.EtiquetaObervacion.AutoSize = True
        Me.EtiquetaObervacion.Location = New System.Drawing.Point(12, 128)
        Me.EtiquetaObervacion.Name = "EtiquetaObervacion"
        Me.EtiquetaObervacion.Size = New System.Drawing.Size(86, 16)
        Me.EtiquetaObervacion.TabIndex = 199
        Me.EtiquetaObervacion.Text = "Observaciones :"
        '
        'TextoUsuario
        '
        Me.TextoUsuario.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoUsuario.BackColor = System.Drawing.SystemColors.Control
        Me.TextoUsuario.Location = New System.Drawing.Point(156, 160)
        Me.TextoUsuario.Name = "TextoUsuario"
        Me.TextoUsuario.ReadOnly = True
        Me.TextoUsuario.Size = New System.Drawing.Size(168, 20)
        Me.TextoUsuario.TabIndex = 200
        Me.TextoUsuario.Text = ""
        '
        'EtiquetaUsuario
        '
        Me.EtiquetaUsuario.AutoSize = True
        Me.EtiquetaUsuario.Location = New System.Drawing.Point(12, 160)
        Me.EtiquetaUsuario.Name = "EtiquetaUsuario"
        Me.EtiquetaUsuario.Size = New System.Drawing.Size(128, 16)
        Me.EtiquetaUsuario.TabIndex = 201
        Me.EtiquetaUsuario.Text = "Ultimo usuario modificó :"
        '
        '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(156, 128)
        Me.TextoObservacion.MaxLength = 150
        Me.TextoObservacion.Name = "TextoObservacion"
        Me.TextoObservacion.Size = New System.Drawing.Size(296, 20)
        Me.TextoObservacion.TabIndex = 195
        Me.TextoObservacion.Text = ""
        '
        'EtiquetaPuntoVenta
        '
        Me.EtiquetaPuntoVenta.AutoSize = True
        Me.EtiquetaPuntoVenta.Location = New System.Drawing.Point(12, 64)
        Me.EtiquetaPuntoVenta.Name = "EtiquetaPuntoVenta"
        Me.EtiquetaPuntoVenta.Size = New System.Drawing.Size(86, 16)
        Me.EtiquetaPuntoVenta.TabIndex = 198
        Me.EtiquetaPuntoVenta.Text = "Punto de venta :"
        '
        'TextoPuntoVenta
        '
        Me.TextoPuntoVenta.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoPuntoVenta.Location = New System.Drawing.Point(156, 64)
        Me.TextoPuntoVenta.MaxLength = 4
        Me.TextoPuntoVenta.Name = "TextoPuntoVenta"
        Me.TextoPuntoVenta.Size = New System.Drawing.Size(168, 20)
        Me.TextoPuntoVenta.TabIndex = 193
        Me.TextoPuntoVenta.Text = ""
        Me.TextoPuntoVenta.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'EtiquetaNumero
        '
        Me.EtiquetaNumero.AutoSize = True
        Me.EtiquetaNumero.Location = New System.Drawing.Point(12, 96)
        Me.EtiquetaNumero.Name = "EtiquetaNumero"
        Me.EtiquetaNumero.Size = New System.Drawing.Size(112, 16)
        Me.EtiquetaNumero.TabIndex = 197
        Me.EtiquetaNumero.Text = "Próximo número (R) :"
        '
        'TextoNumero
        '
        Me.TextoNumero.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoNumero.Location = New System.Drawing.Point(156, 96)
        Me.TextoNumero.MaxLength = 8
        Me.TextoNumero.Name = "TextoNumero"
        Me.TextoNumero.Size = New System.Drawing.Size(168, 20)
        Me.TextoNumero.TabIndex = 194
        Me.TextoNumero.Text = ""
        Me.TextoNumero.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        '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.Label1)
        Me.DisenoValorImpuesto.Controls.Add(Me.EtiquetaComentario2)
        Me.DisenoValorImpuesto.Controls.Add(Me.BotonEliminarAnadido)
        Me.DisenoValorImpuesto.Controls.Add(Me.Imagen5)
        Me.DisenoValorImpuesto.Controls.Add(Me.BotonAnadir)
        Me.DisenoValorImpuesto.Controls.Add(Me.EtiquetaComprobante)
        Me.DisenoValorImpuesto.Controls.Add(Me.CombinadaComprobanteAnadir)
        Me.DisenoValorImpuesto.Controls.Add(Me.EtiquetaComprobanteAnadido)
        Me.DisenoValorImpuesto.Controls.Add(Me.TablaComprobante)
        Me.DisenoValorImpuesto.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoValorImpuesto.Location = New System.Drawing.Point(12, 200)
        Me.DisenoValorImpuesto.Name = "DisenoValorImpuesto"
        Me.DisenoValorImpuesto.Size = New System.Drawing.Size(448, 184)
        Me.DisenoValorImpuesto.TabIndex = 196
        Me.DisenoValorImpuesto.TabStop = False
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.ForeColor = System.Drawing.SystemColors.Highlight
        Me.Label1.Location = New System.Drawing.Point(16, 0)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(339, 16)
        Me.Label1.TabIndex = 203
        Me.Label1.Text = "Selección de comprobante a añadir del comprobante seleccionado"
        '
        'EtiquetaComentario2
        '
        Me.EtiquetaComentario2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.EtiquetaComentario2.Location = New System.Drawing.Point(336, 120)
        Me.EtiquetaComentario2.Name = "EtiquetaComentario2"
        Me.EtiquetaComentario2.Size = New System.Drawing.Size(104, 56)
        Me.EtiquetaComentario2.TabIndex = 84
        Me.EtiquetaComentario2.Text = "Seleccionar el comprobante añadido de la tabla para eliminarlo."
        '
        'BotonEliminarAnadido
        '
        Me.BotonEliminarAnadido.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonEliminarAnadido.Enabled = False
        Me.BotonEliminarAnadido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonEliminarAnadido.Location = New System.Drawing.Point(336, 88)
        Me.BotonEliminarAnadido.Name = "BotonEliminarAnadido"
        Me.BotonEliminarAnadido.Size = New System.Drawing.Size(96, 24)
        Me.BotonEliminarAnadido.TabIndex = 8
        Me.BotonEliminarAnadido.Text = "&Eliminar comprob."
        '
        'Imagen5
        '
        Me.Imagen5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Imagen5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Imagen5.Location = New System.Drawing.Point(376, 16)
        Me.Imagen5.Name = "Imagen5"
        Me.Imagen5.Size = New System.Drawing.Size(32, 32)
        Me.Imagen5.TabIndex = 83
        Me.Imagen5.TabStop = False
        '
        'BotonAnadir
        '
        Me.BotonAnadir.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonAnadir.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonAnadir.Location = New System.Drawing.Point(336, 56)
        Me.BotonAnadir.Name = "BotonAnadir"
        Me.BotonAnadir.Size = New System.Drawing.Size(96, 24)
        Me.BotonAnadir.TabIndex = 7
        Me.BotonAnadir.Text = "&Añadir comprob."
        '
        'EtiquetaComprobante
        '
        Me.EtiquetaComprobante.AutoSize = True
        Me.EtiquetaComprobante.Location = New System.Drawing.Point(24, 32)
        Me.EtiquetaComprobante.Name = "EtiquetaComprobante"
        Me.EtiquetaComprobante.Size = New System.Drawing.Size(173, 16)
        Me.EtiquetaComprobante.TabIndex = 70
        Me.EtiquetaComprobante.Text = "Selección comprobante a añadir :"
        '
        'CombinadaComprobanteAnadir
        '
        Me.CombinadaComprobanteAnadir.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaComprobanteAnadir.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaComprobanteAnadir.Location = New System.Drawing.Point(16, 48)
        Me.CombinadaComprobanteAnadir.Name = "CombinadaComprobanteAnadir"
        Me.CombinadaComprobanteAnadir.Size = New System.Drawing.Size(304, 21)
        Me.CombinadaComprobanteAnadir.Sorted = True
        Me.CombinadaComprobanteAnadir.TabIndex = 5
        '
        'EtiquetaComprobanteAnadido
        '
        Me.EtiquetaComprobanteAnadido.AutoSize = True
        Me.EtiquetaComprobanteAnadido.Location = New System.Drawing.Point(24, 80)
        Me.EtiquetaComprobanteAnadido.Name = "EtiquetaComprobanteAnadido"
        Me.EtiquetaComprobanteAnadido.Size = New System.Drawing.Size(134, 16)
        Me.EtiquetaComprobanteAnadido.TabIndex = 68
        Me.EtiquetaComprobanteAnadido.Text = "Comprobantes añadidos :"
        '
        'TablaComprobante
        '
        Me.TablaComprobante.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.TablaComprobante.Location = New System.Drawing.Point(16, 96)
        Me.TablaComprobante.Name = "TablaComprobante"
        Me.TablaComprobante.Size = New System.Drawing.Size(304, 72)
        Me.TablaComprobante.Sorting = System.Windows.Forms.SortOrder.Ascending
        Me.TablaComprobante.TabIndex = 6
        Me.TablaComprobante.View = System.Windows.Forms.View.Details
        '
        'NNumeracion
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.CancelButton = Me.BotonCerrar
        Me.ClientSize = New System.Drawing.Size(648, 518)
        Me.Controls.Add(Me.DisenoNumeracion)
        Me.Controls.Add(Me.BotonEliminar)
        Me.Controls.Add(Me.Imagen4)
        Me.Controls.Add(Me.BotonNuevo)
        Me.Controls.Add(Me.Imagen3)
        Me.Controls.Add(Me.DisenoComentario)
        Me.Controls.Add(Me.EtiquetaComprobanteNumeracion)
        Me.Controls.Add(Me.CombinadaComprobanteNumerado)
        Me.Controls.Add(Me.BotonModificarNumeracion)
        Me.Controls.Add(Me.Imagen1)
        Me.Controls.Add(Me.BotonCerrar)
        Me.Controls.Add(Me.Imagen2)
        Me.MaximizeBox = False
        Me.Name = "NNumeracion"
        Me.Text = "Modficar numeración de comprobantes"
        Me.DisenoComentario.ResumeLayout(False)
        Me.DisenoNumeracion.ResumeLayout(False)
        Me.DisenoValorImpuesto.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim SeleccionComprobanteNumeracion As String
    Dim CambioInterno As Boolean
    Dim DatosNoGuardados As Boolean

    Private Sub NNumeracion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Iconos
        SubIconVentana(Me, "123d")
        SubIconNuevoModificarEliminar(Imagen2, Imagen1, Imagen4, Imagen3)
        SubIconRegistrar(Imagen5)
        ' Manejo de datos combinada
        CambioInterno = False
        SeleccionComprobanteNumeracion = ""
        ' Inicializar tabla
        With TablaComprobante
            .FullRowSelect = True
            With .Columns
                .Add("Comprobante añadido", 160, HorizontalAlignment.Left)
            End With
        End With
    End Sub

    Private Sub NNumeracion_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(18).Enabled = True
            CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
        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 NNumeracion_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 NNumeracion_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Dim Ciclo As Int32
        On Error Resume Next
        ' Abrir tabla numeración
        SubAbrirTablaBD("SELECT * FROM VNumeracion")
        SubAbrirTablaBD2("SELECT * FROM VTipoComprobanteDinero")
        SubAbrirTablaBD3("SELECT * FROM VTipoComprobanteProducto")
        ' Saber si hubo error
        If Not FnErrorADONET(Me) Then
            ' Limpiar controles
            SubLimpiarTexto()
            ' Cargar combinada depósito
            CombinadaComprobanteNumerado.Items.Clear()
            For Ciclo = 0 To TTabla.Rows.Count - 1
                Dim FTabla As DataRow = TTabla.Rows(Ciclo)
                CombinadaComprobanteNumerado.Items.Add(FTabla("TipoComprobante").ToString & Separador & FTabla("NombreComprobante").ToString)
            Next
            ' Cargar combinadas comprobantes de dinero
            CombinadaComprobanteAnadir.Items.Clear()
            CombinadaComprobanteNuevo.Items.Clear()
            For Ciclo = 0 To TTabla2.Rows.Count - 1
                Dim FTabla2 As DataRow = TTabla2.Rows(Ciclo)
                CombinadaComprobanteAnadir.Items.Add("CD" & Separador & FTabla2("NombreComprobanteDinero").ToString)
                CombinadaComprobanteNuevo.Items.Add("CD" & Separador & FTabla2("NombreComprobanteDinero").ToString)
            Next
            ' Cargar combinadas comprobantes de producto
            For Ciclo = 0 To TTabla3.Rows.Count - 1
                Dim FTabla3 As DataRow = TTabla3.Rows(Ciclo)
                CombinadaComprobanteNuevo.Items.Add("CP" & Separador & FTabla3("NombreComprobanteProducto").ToString)
                CombinadaComprobanteAnadir.Items.Add("CP" & Separador & FTabla3("NombreComprobanteProducto").ToString)
            Next
        End If
        On Error GoTo 0
        If SeleccionComprobanteNumeracion <> "" Then
            CambioInterno = True
            On Error Resume Next
            CombinadaComprobanteNumerado.Text = SeleccionComprobanteNumeracion
            On Error GoTo 0
            CambioInterno = False
        End If
        ' Inicialización
        DatosNoGuardados = False
    End Sub

    Private Sub SubLimpiarTexto()
        ' Limpiar los TextBox
        For Each c As Control In Me.Controls
            ' Limpiar los textbox
            If TypeOf c Is TextBox Then c.Text = ""
        Next
    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 selección de numeración no está vacía, puede suceder que deba hacer modifcar en vez de nuevo
        ' Saber también si está configurado preguntar
        If CombinadaComprobanteNuevo.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
            SubAbrirTablaBD("SELECT * FROM VNumeracion")
            Dim FNTabla As DataRow = TTabla.NewRow()
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                FNTabla("TipoComprobante") = CombinadaComprobanteNuevo.Text.Substring(0, 2)
                FNTabla("NombreComprobante") = CombinadaComprobanteNuevo.Text.Substring(5, Len(CombinadaComprobanteNuevo.Text) - 5)
                FNTabla("NumeroPtoVenta") = Val(TextoPuntoVenta.Text)
                FNTabla("NumeroComprobante") = Val(TextoNumero.Text)
                FNTabla("Usuario") = UsuarioActual
                FNTabla("Observacion") = TextoObservacion.Text
                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
                        ' Hubo error
                        MessageBox.Show(LeyendaNoCreado & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        MessageBox.Show(LeyendaCreado, _
                                        LeyendaTituloMensaje, _
                                        MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                        ' Ingresar valor a combinada
                        CombinadaComprobanteNumerado.Items.Add(CombinadaComprobanteNuevo.Text)
                        ' Deshabilitar la funcion no guardados
                        DatosNoGuardados = False
                    End If
                Else
                    MessageBox.Show(LeyendaErrorDato & Err.Description, _
                                    LeyendaTituloMensaje, _
                                    MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            End If
            On Error GoTo 0
            Me.Cursor = System.Windows.Forms.Cursors.Default
        End If
    End Sub

    Private Sub CombinadaComprobanteNumerado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaComprobanteNumerado.SelectedIndexChanged
        If CombinadaComprobanteNumerado.Text <> "" Then
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            On Error Resume Next
            SubAbrirTablaBD("SELECT * FROM VNumeracion WHERE TipoComprobante = '" & CombinadaComprobanteNumerado.Text.Substring(0, 2) & "' AND NombreComprobante = '" & CombinadaComprobanteNumerado.Text.Substring(5, Len(CombinadaComprobanteNumerado.Text) - 5) & "'")
            Dim FTabla As DataRow = TTabla.Rows(0)
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                CombinadaComprobanteNuevo.Text = CombinadaComprobanteNumerado.Text
                TextoPuntoVenta.Text = FTabla("NumeroPtoVenta").ToString
                TextoNumero.Text = FTabla("NumeroComprobante").ToString
                TextoUsuario.Text = FTabla("Usuario").ToString
                TextoObservacion.Text = FTabla("Observacion").ToString
                TextoNumero.Focus()
                BotonModificarNumeracion.Enabled = True
                DatosNoGuardados = False
            End If
            On Error GoTo 0
            Me.Cursor = System.Windows.Forms.Cursors.Default
        End If
    End Sub

    Private Sub BotonModificarNumeracion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonModificarNumeracion.Click
        Dim Continuar As Boolean
        ' Si la combinada de seleccion está vacía, no es posible grabar la modificación
        If CombinadaComprobanteNumerado.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 VNumeracion WHERE TipoComprobante = '" & CombinadaComprobanteNumerado.Text.Substring(0, 2) & "' AND NombreComprobante = '" & CombinadaComprobanteNumerado.Text.Substring(5, Len(CombinadaComprobanteNumerado.Text) - 5) & "'")
                Dim FTabla As DataRow = TTabla.Rows(0)
                ' Si no hubo error se sigue
                If Not FnErrorADONET(Me) Then
                    ' Registrar las modificaciones
                    FTabla("NumeroPtoVenta") = TextoPuntoVenta.Text
                    FTabla("NumeroComprobante") = TextoNumero.Text
                    FTabla("Usuario") = UsuarioActual
                    FTabla("Observacion") = TextoObservacion.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
                            ' Indicar que fue con éxito
                            MessageBox.Show(LeyendaModificado, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                            ' Deshabilitar la funcion no guardados
                            DatosNoGuardados = False
                        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 BotonAnadir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonAnadir.Click
        Dim Fila As Int32
        If CombinadaComprobanteNumerado.Text = "" Or CombinadaComprobanteAnadir.Text = "" Then
            ' Falta dato requerido
            MessageBox.Show(LeyendaFaltaDatoRequerido, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            ' Abrir tabla numeración añadida
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            On Error Resume Next
            SubAbrirTablaBD("SELECT * FROM VNumeracionAnadido")
            Dim FNTabla As DataRow = TTabla.NewRow()
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                FNTabla("TipoComprobante") = CombinadaComprobanteNumerado.Text.Substring(0, 2)
                FNTabla("ComprobantePrincipal") = Mid(CombinadaComprobanteNumerado.Text, InStr(CombinadaComprobanteNumerado.Text, Separador))
                FNTabla("ComprobanteAnadido") = CombinadaComprobanteAnadir.Text
                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
                        ' Hubo error
                        MessageBox.Show(LeyendaNoCreado & Err.Description, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Else
                        ' Agregar comprobante a la tabla
                        With TablaComprobante
                            Fila = .Items.Count - 1
                            .Items.Add(CombinadaComprobanteAnadir.Text, Fila)
                        End With
                    End If
                End If
            End If
            On Error GoTo 0
            Me.Cursor = System.Windows.Forms.Cursors.Default
        End If
    End Sub

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

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

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

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

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

    Private Sub TablaComprobante_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TablaComprobante.SelectedIndexChanged
        If TablaComprobante.SelectedItems.Count > 0 Then
            BotonEliminarAnadido.Enabled = True
        Else
            BotonEliminarAnadido.Enabled = False
        End If
    End Sub

End Class
