Public Class NProveedor
    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 BotonEliminar As System.Windows.Forms.Button
    Public WithEvents Imagen4 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen3 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen1 As System.Windows.Forms.PictureBox
    Public WithEvents Imagen2 As System.Windows.Forms.PictureBox
    Friend WithEvents EtiquetaUsuario As System.Windows.Forms.Label
    Friend WithEvents TextoUsuario As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaProveedor As System.Windows.Forms.Label
    Friend WithEvents OrejaProveedor As System.Windows.Forms.TabControl
    Friend WithEvents OrejaProveedorDomicilio As System.Windows.Forms.TabPage
    Friend WithEvents OrejaProveedorDato As System.Windows.Forms.TabPage
    Public WithEvents CombinadaImpositiva As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaObervacion As System.Windows.Forms.Label
    Public WithEvents EtiquetaVariable2 As System.Windows.Forms.Label
    Friend WithEvents BotonValidar As System.Windows.Forms.Button
    Friend WithEvents EtiquetaDocumento1 As System.Windows.Forms.Label
    Friend WithEvents TextoDocumento1 As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaImpositiva As System.Windows.Forms.Label
    Friend WithEvents EtiqetaContacto As System.Windows.Forms.Label
    Friend WithEvents EtiquetaCodigo As System.Windows.Forms.Label
    Friend WithEvents TextoCodigo As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaRazonSocial As System.Windows.Forms.Label
    Friend WithEvents TextoNombre As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaTelefono As System.Windows.Forms.Label
    Friend WithEvents TextoTelefono As System.Windows.Forms.TextBox
    Friend WithEvents EtiqetaEmail As System.Windows.Forms.Label
    Friend WithEvents TextoEmail As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaLocalidad As System.Windows.Forms.Label
    Public WithEvents CombinadaProvincia As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaProvincia As System.Windows.Forms.Label
    Friend WithEvents TextoLocalidad As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaCodigoPostal As System.Windows.Forms.Label
    Friend WithEvents TextoCodigoPostal As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaDomicilio As System.Windows.Forms.Label
    Friend WithEvents TextoDomicilio As System.Windows.Forms.TextBox
    Public WithEvents EtiquetaWeb As System.Windows.Forms.Label
    Friend WithEvents CombinadaProveedor As System.Windows.Forms.ComboBox
    Public WithEvents BotonModificar As System.Windows.Forms.Button
    Friend WithEvents TextoObservacion As System.Windows.Forms.TextBox
    Public WithEvents TextoPortal As System.Windows.Forms.TextBox
    Friend WithEvents TextoContacto As System.Windows.Forms.TextBox
    Friend WithEvents CheckBloqueado As System.Windows.Forms.CheckBox
    Public WithEvents BotonNuevo As System.Windows.Forms.Button
    Public WithEvents BotonCerrar As System.Windows.Forms.Button
    Friend WithEvents BotonImpositivaRapido As System.Windows.Forms.Button
    Friend WithEvents EtiquetaCuenta As System.Windows.Forms.Label
    Friend WithEvents CombinadaCuenta As System.Windows.Forms.ComboBox
    Friend WithEvents BotonListaPrecioRapido As System.Windows.Forms.Button
    Friend WithEvents EtiquetaListaPrecio As System.Windows.Forms.Label
    Friend WithEvents CombinadaListaPrecio As System.Windows.Forms.ComboBox
    Friend WithEvents BotonTransproteRapido As System.Windows.Forms.Button
    Friend WithEvents EtiquetaTransporte As System.Windows.Forms.Label
    Friend WithEvents CombinadaTransporte As System.Windows.Forms.ComboBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        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.BotonCerrar = New System.Windows.Forms.Button
        Me.Imagen2 = New System.Windows.Forms.PictureBox
        Me.EtiquetaUsuario = New System.Windows.Forms.Label
        Me.TextoUsuario = New System.Windows.Forms.TextBox
        Me.EtiquetaProveedor = New System.Windows.Forms.Label
        Me.CombinadaProveedor = New System.Windows.Forms.ComboBox
        Me.OrejaProveedor = New System.Windows.Forms.TabControl
        Me.OrejaProveedorDato = New System.Windows.Forms.TabPage
        Me.BotonListaPrecioRapido = New System.Windows.Forms.Button
        Me.EtiquetaListaPrecio = New System.Windows.Forms.Label
        Me.CombinadaListaPrecio = New System.Windows.Forms.ComboBox
        Me.EtiquetaCuenta = New System.Windows.Forms.Label
        Me.CombinadaCuenta = New System.Windows.Forms.ComboBox
        Me.BotonImpositivaRapido = New System.Windows.Forms.Button
        Me.CombinadaImpositiva = New System.Windows.Forms.ComboBox
        Me.EtiquetaObervacion = New System.Windows.Forms.Label
        Me.TextoObservacion = New System.Windows.Forms.TextBox
        Me.EtiquetaVariable2 = New System.Windows.Forms.Label
        Me.BotonValidar = New System.Windows.Forms.Button
        Me.EtiquetaDocumento1 = New System.Windows.Forms.Label
        Me.TextoDocumento1 = New System.Windows.Forms.TextBox
        Me.EtiquetaImpositiva = New System.Windows.Forms.Label
        Me.EtiqetaContacto = New System.Windows.Forms.Label
        Me.TextoContacto = New System.Windows.Forms.TextBox
        Me.EtiquetaCodigo = New System.Windows.Forms.Label
        Me.TextoCodigo = New System.Windows.Forms.TextBox
        Me.CheckBloqueado = New System.Windows.Forms.CheckBox
        Me.EtiquetaRazonSocial = New System.Windows.Forms.Label
        Me.TextoNombre = New System.Windows.Forms.TextBox
        Me.OrejaProveedorDomicilio = New System.Windows.Forms.TabPage
        Me.TextoPortal = New System.Windows.Forms.TextBox
        Me.EtiquetaWeb = New System.Windows.Forms.Label
        Me.EtiquetaTelefono = New System.Windows.Forms.Label
        Me.TextoTelefono = New System.Windows.Forms.TextBox
        Me.EtiqetaEmail = New System.Windows.Forms.Label
        Me.TextoEmail = New System.Windows.Forms.TextBox
        Me.EtiquetaLocalidad = New System.Windows.Forms.Label
        Me.CombinadaProvincia = New System.Windows.Forms.ComboBox
        Me.EtiquetaProvincia = New System.Windows.Forms.Label
        Me.TextoLocalidad = New System.Windows.Forms.TextBox
        Me.EtiquetaCodigoPostal = New System.Windows.Forms.Label
        Me.TextoCodigoPostal = New System.Windows.Forms.TextBox
        Me.EtiquetaDomicilio = New System.Windows.Forms.Label
        Me.TextoDomicilio = New System.Windows.Forms.TextBox
        Me.BotonTransproteRapido = New System.Windows.Forms.Button
        Me.EtiquetaTransporte = New System.Windows.Forms.Label
        Me.CombinadaTransporte = New System.Windows.Forms.ComboBox
        Me.OrejaProveedor.SuspendLayout()
        Me.OrejaProveedorDato.SuspendLayout()
        Me.OrejaProveedorDomicilio.SuspendLayout()
        Me.SuspendLayout()
        '
        '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(536, 256)
        Me.BotonEliminar.Name = "BotonEliminar"
        Me.BotonEliminar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonEliminar.Size = New System.Drawing.Size(104, 24)
        Me.BotonEliminar.TabIndex = 22
        Me.BotonEliminar.Text = "&Eliminar proveedor"
        '
        '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(536, 176)
        Me.BotonNuevo.Name = "BotonNuevo"
        Me.BotonNuevo.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonNuevo.Size = New System.Drawing.Size(104, 24)
        Me.BotonNuevo.TabIndex = 21
        Me.BotonNuevo.Text = "&Nuevo proveedor"
        '
        '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(536, 56)
        Me.BotonModificar.Name = "BotonModificar"
        Me.BotonModificar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonModificar.Size = New System.Drawing.Size(104, 32)
        Me.BotonModificar.TabIndex = 20
        Me.BotonModificar.Text = "&Modificar proveedor"
        '
        '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(576, 216)
        Me.Imagen4.Name = "Imagen4"
        Me.Imagen4.Size = New System.Drawing.Size(32, 32)
        Me.Imagen4.TabIndex = 80
        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(576, 136)
        Me.Imagen3.Name = "Imagen3"
        Me.Imagen3.Size = New System.Drawing.Size(32, 32)
        Me.Imagen3.TabIndex = 81
        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(576, 16)
        Me.Imagen1.Name = "Imagen1"
        Me.Imagen1.Size = New System.Drawing.Size(32, 32)
        Me.Imagen1.TabIndex = 82
        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(536, 344)
        Me.BotonCerrar.Name = "BotonCerrar"
        Me.BotonCerrar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.BotonCerrar.Size = New System.Drawing.Size(104, 24)
        Me.BotonCerrar.TabIndex = 23
        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(576, 304)
        Me.Imagen2.Name = "Imagen2"
        Me.Imagen2.Size = New System.Drawing.Size(32, 32)
        Me.Imagen2.TabIndex = 76
        Me.Imagen2.TabStop = False
        '
        '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(32, 408)
        Me.EtiquetaUsuario.Name = "EtiquetaUsuario"
        Me.EtiquetaUsuario.Size = New System.Drawing.Size(128, 16)
        Me.EtiquetaUsuario.TabIndex = 122
        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(168, 408)
        Me.TextoUsuario.Name = "TextoUsuario"
        Me.TextoUsuario.ReadOnly = True
        Me.TextoUsuario.Size = New System.Drawing.Size(216, 20)
        Me.TextoUsuario.TabIndex = 121
        Me.TextoUsuario.Text = ""
        '
        'EtiquetaProveedor
        '
        Me.EtiquetaProveedor.AutoSize = True
        Me.EtiquetaProveedor.Location = New System.Drawing.Point(16, 24)
        Me.EtiquetaProveedor.Name = "EtiquetaProveedor"
        Me.EtiquetaProveedor.Size = New System.Drawing.Size(132, 16)
        Me.EtiquetaProveedor.TabIndex = 125
        Me.EtiquetaProveedor.Text = "Selección del proveedor :"
        '
        'CombinadaProveedor
        '
        Me.CombinadaProveedor.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaProveedor.Location = New System.Drawing.Point(168, 24)
        Me.CombinadaProveedor.Name = "CombinadaProveedor"
        Me.CombinadaProveedor.Size = New System.Drawing.Size(344, 21)
        Me.CombinadaProveedor.Sorted = True
        Me.CombinadaProveedor.TabIndex = 0
        '
        'OrejaProveedor
        '
        Me.OrejaProveedor.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.OrejaProveedor.Controls.Add(Me.OrejaProveedorDato)
        Me.OrejaProveedor.Controls.Add(Me.OrejaProveedorDomicilio)
        Me.OrejaProveedor.Location = New System.Drawing.Point(16, 64)
        Me.OrejaProveedor.Name = "OrejaProveedor"
        Me.OrejaProveedor.SelectedIndex = 0
        Me.OrejaProveedor.Size = New System.Drawing.Size(496, 336)
        Me.OrejaProveedor.TabIndex = 174
        '
        'OrejaProveedorDato
        '
        Me.OrejaProveedorDato.Controls.Add(Me.BotonTransproteRapido)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaTransporte)
        Me.OrejaProveedorDato.Controls.Add(Me.CombinadaTransporte)
        Me.OrejaProveedorDato.Controls.Add(Me.BotonListaPrecioRapido)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaListaPrecio)
        Me.OrejaProveedorDato.Controls.Add(Me.CombinadaListaPrecio)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaCuenta)
        Me.OrejaProveedorDato.Controls.Add(Me.CombinadaCuenta)
        Me.OrejaProveedorDato.Controls.Add(Me.BotonImpositivaRapido)
        Me.OrejaProveedorDato.Controls.Add(Me.CombinadaImpositiva)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaObervacion)
        Me.OrejaProveedorDato.Controls.Add(Me.TextoObservacion)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaVariable2)
        Me.OrejaProveedorDato.Controls.Add(Me.BotonValidar)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaDocumento1)
        Me.OrejaProveedorDato.Controls.Add(Me.TextoDocumento1)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaImpositiva)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiqetaContacto)
        Me.OrejaProveedorDato.Controls.Add(Me.TextoContacto)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaCodigo)
        Me.OrejaProveedorDato.Controls.Add(Me.TextoCodigo)
        Me.OrejaProveedorDato.Controls.Add(Me.CheckBloqueado)
        Me.OrejaProveedorDato.Controls.Add(Me.EtiquetaRazonSocial)
        Me.OrejaProveedorDato.Controls.Add(Me.TextoNombre)
        Me.OrejaProveedorDato.Location = New System.Drawing.Point(4, 22)
        Me.OrejaProveedorDato.Name = "OrejaProveedorDato"
        Me.OrejaProveedorDato.Size = New System.Drawing.Size(488, 310)
        Me.OrejaProveedorDato.TabIndex = 1
        Me.OrejaProveedorDato.Text = "Datos del proveedor"
        '
        'BotonListaPrecioRapido
        '
        Me.BotonListaPrecioRapido.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonListaPrecioRapido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonListaPrecioRapido.Location = New System.Drawing.Point(448, 176)
        Me.BotonListaPrecioRapido.Name = "BotonListaPrecioRapido"
        Me.BotonListaPrecioRapido.Size = New System.Drawing.Size(24, 24)
        Me.BotonListaPrecioRapido.TabIndex = 9
        Me.BotonListaPrecioRapido.Text = ">"
        '
        'EtiquetaListaPrecio
        '
        Me.EtiquetaListaPrecio.AutoSize = True
        Me.EtiquetaListaPrecio.Location = New System.Drawing.Point(16, 176)
        Me.EtiquetaListaPrecio.Name = "EtiquetaListaPrecio"
        Me.EtiquetaListaPrecio.Size = New System.Drawing.Size(147, 16)
        Me.EtiquetaListaPrecio.TabIndex = 192
        Me.EtiquetaListaPrecio.Text = "Lista de precios predet. (R) :"
        '
        'CombinadaListaPrecio
        '
        Me.CombinadaListaPrecio.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaListaPrecio.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaListaPrecio.Location = New System.Drawing.Point(168, 176)
        Me.CombinadaListaPrecio.Name = "CombinadaListaPrecio"
        Me.CombinadaListaPrecio.Size = New System.Drawing.Size(272, 21)
        Me.CombinadaListaPrecio.Sorted = True
        Me.CombinadaListaPrecio.TabIndex = 8
        '
        'EtiquetaCuenta
        '
        Me.EtiquetaCuenta.AutoSize = True
        Me.EtiquetaCuenta.Location = New System.Drawing.Point(16, 144)
        Me.EtiquetaCuenta.Name = "EtiquetaCuenta"
        Me.EtiquetaCuenta.Size = New System.Drawing.Size(135, 16)
        Me.EtiquetaCuenta.TabIndex = 190
        Me.EtiquetaCuenta.Text = "Condición cta cte predet. :"
        '
        'CombinadaCuenta
        '
        Me.CombinadaCuenta.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaCuenta.Items.AddRange(New Object() {"Anticipo", "Anticipo, 30 días", "Contado", "Tarjeta de crédito", "7 días", "10 días", "15 días", "30 días", "30 60 días", "30 60 90 días", "30 60 90 120 días", "60 días", "60 90 días", "60 90 120 días", "90 días", "90 120 días", "120 días"})
        Me.CombinadaCuenta.Location = New System.Drawing.Point(168, 144)
        Me.CombinadaCuenta.Name = "CombinadaCuenta"
        Me.CombinadaCuenta.Size = New System.Drawing.Size(272, 21)
        Me.CombinadaCuenta.TabIndex = 7
        '
        'BotonImpositivaRapido
        '
        Me.BotonImpositivaRapido.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonImpositivaRapido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonImpositivaRapido.Location = New System.Drawing.Point(448, 112)
        Me.BotonImpositivaRapido.Name = "BotonImpositivaRapido"
        Me.BotonImpositivaRapido.Size = New System.Drawing.Size(24, 24)
        Me.BotonImpositivaRapido.TabIndex = 6
        Me.BotonImpositivaRapido.Text = ">"
        '
        'CombinadaImpositiva
        '
        Me.CombinadaImpositiva.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaImpositiva.BackColor = System.Drawing.SystemColors.Window
        Me.CombinadaImpositiva.Cursor = System.Windows.Forms.Cursors.Default
        Me.CombinadaImpositiva.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaImpositiva.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CombinadaImpositiva.ForeColor = System.Drawing.SystemColors.WindowText
        Me.CombinadaImpositiva.Location = New System.Drawing.Point(168, 112)
        Me.CombinadaImpositiva.Name = "CombinadaImpositiva"
        Me.CombinadaImpositiva.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CombinadaImpositiva.Size = New System.Drawing.Size(272, 22)
        Me.CombinadaImpositiva.Sorted = True
        Me.CombinadaImpositiva.TabIndex = 5
        '
        'EtiquetaObervacion
        '
        Me.EtiquetaObervacion.AutoSize = True
        Me.EtiquetaObervacion.Location = New System.Drawing.Point(16, 272)
        Me.EtiquetaObervacion.Name = "EtiquetaObervacion"
        Me.EtiquetaObervacion.Size = New System.Drawing.Size(86, 16)
        Me.EtiquetaObervacion.TabIndex = 184
        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(104, 272)
        Me.TextoObservacion.MaxLength = 150
        Me.TextoObservacion.Name = "TextoObservacion"
        Me.TextoObservacion.Size = New System.Drawing.Size(368, 20)
        Me.TextoObservacion.TabIndex = 12
        Me.TextoObservacion.Text = ""
        '
        'EtiquetaVariable2
        '
        Me.EtiquetaVariable2.AutoSize = True
        Me.EtiquetaVariable2.BackColor = System.Drawing.SystemColors.Control
        Me.EtiquetaVariable2.Cursor = System.Windows.Forms.Cursors.Default
        Me.EtiquetaVariable2.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EtiquetaVariable2.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.EtiquetaVariable2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.EtiquetaVariable2.Location = New System.Drawing.Point(112, 240)
        Me.EtiquetaVariable2.Name = "EtiquetaVariable2"
        Me.EtiquetaVariable2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.EtiquetaVariable2.Size = New System.Drawing.Size(43, 16)
        Me.EtiquetaVariable2.TabIndex = 183
        Me.EtiquetaVariable2.Text = "(V) (R) :"
        '
        'BotonValidar
        '
        Me.BotonValidar.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.BotonValidar.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonValidar.Location = New System.Drawing.Point(384, 240)
        Me.BotonValidar.Name = "BotonValidar"
        Me.BotonValidar.Size = New System.Drawing.Size(88, 24)
        Me.BotonValidar.TabIndex = 11
        Me.BotonValidar.Text = "&Validar C.U.I.T."
        '
        'EtiquetaDocumento1
        '
        Me.EtiquetaDocumento1.AutoSize = True
        Me.EtiquetaDocumento1.Location = New System.Drawing.Point(16, 240)
        Me.EtiquetaDocumento1.Name = "EtiquetaDocumento1"
        Me.EtiquetaDocumento1.Size = New System.Drawing.Size(0, 16)
        Me.EtiquetaDocumento1.TabIndex = 181
        '
        'TextoDocumento1
        '
        Me.TextoDocumento1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoDocumento1.Location = New System.Drawing.Point(168, 240)
        Me.TextoDocumento1.MaxLength = 50
        Me.TextoDocumento1.Name = "TextoDocumento1"
        Me.TextoDocumento1.Size = New System.Drawing.Size(200, 20)
        Me.TextoDocumento1.TabIndex = 10
        Me.TextoDocumento1.Text = ""
        '
        'EtiquetaImpositiva
        '
        Me.EtiquetaImpositiva.AutoSize = True
        Me.EtiquetaImpositiva.Location = New System.Drawing.Point(16, 112)
        Me.EtiquetaImpositiva.Name = "EtiquetaImpositiva"
        Me.EtiquetaImpositiva.Size = New System.Drawing.Size(133, 16)
        Me.EtiquetaImpositiva.TabIndex = 179
        Me.EtiquetaImpositiva.Text = "Condición impositiva (R) :"
        '
        'EtiqetaContacto
        '
        Me.EtiqetaContacto.AutoSize = True
        Me.EtiqetaContacto.Location = New System.Drawing.Point(16, 80)
        Me.EtiqetaContacto.Name = "EtiqetaContacto"
        Me.EtiqetaContacto.Size = New System.Drawing.Size(56, 16)
        Me.EtiqetaContacto.TabIndex = 178
        Me.EtiqetaContacto.Text = "Contacto :"
        '
        'TextoContacto
        '
        Me.TextoContacto.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoContacto.Location = New System.Drawing.Point(168, 80)
        Me.TextoContacto.MaxLength = 50
        Me.TextoContacto.Name = "TextoContacto"
        Me.TextoContacto.Size = New System.Drawing.Size(272, 20)
        Me.TextoContacto.TabIndex = 4
        Me.TextoContacto.Text = ""
        '
        'EtiquetaCodigo
        '
        Me.EtiquetaCodigo.AutoSize = True
        Me.EtiquetaCodigo.Location = New System.Drawing.Point(16, 48)
        Me.EtiquetaCodigo.Name = "EtiquetaCodigo"
        Me.EtiquetaCodigo.Size = New System.Drawing.Size(114, 16)
        Me.EtiquetaCodigo.TabIndex = 176
        Me.EtiquetaCodigo.Text = "Código alfanumérico :"
        '
        'TextoCodigo
        '
        Me.TextoCodigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoCodigo.Location = New System.Drawing.Point(168, 48)
        Me.TextoCodigo.MaxLength = 20
        Me.TextoCodigo.Name = "TextoCodigo"
        Me.TextoCodigo.Size = New System.Drawing.Size(160, 20)
        Me.TextoCodigo.TabIndex = 2
        Me.TextoCodigo.Text = ""
        '
        'CheckBloqueado
        '
        Me.CheckBloqueado.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CheckBloqueado.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckBloqueado.Location = New System.Drawing.Point(344, 48)
        Me.CheckBloqueado.Name = "CheckBloqueado"
        Me.CheckBloqueado.Size = New System.Drawing.Size(136, 16)
        Me.CheckBloqueado.TabIndex = 3
        Me.CheckBloqueado.Text = "Proveedor &bloqueado"
        '
        'EtiquetaRazonSocial
        '
        Me.EtiquetaRazonSocial.AutoSize = True
        Me.EtiquetaRazonSocial.Location = New System.Drawing.Point(16, 16)
        Me.EtiquetaRazonSocial.Name = "EtiquetaRazonSocial"
        Me.EtiquetaRazonSocial.Size = New System.Drawing.Size(94, 16)
        Me.EtiquetaRazonSocial.TabIndex = 173
        Me.EtiquetaRazonSocial.Text = "Razón social (R) :"
        '
        'TextoNombre
        '
        Me.TextoNombre.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoNombre.Location = New System.Drawing.Point(168, 16)
        Me.TextoNombre.MaxLength = 50
        Me.TextoNombre.Name = "TextoNombre"
        Me.TextoNombre.Size = New System.Drawing.Size(272, 20)
        Me.TextoNombre.TabIndex = 1
        Me.TextoNombre.Text = ""
        '
        'OrejaProveedorDomicilio
        '
        Me.OrejaProveedorDomicilio.Controls.Add(Me.TextoPortal)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.EtiquetaWeb)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.EtiquetaTelefono)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.TextoTelefono)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.EtiqetaEmail)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.TextoEmail)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.EtiquetaLocalidad)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.CombinadaProvincia)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.EtiquetaProvincia)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.TextoLocalidad)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.EtiquetaCodigoPostal)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.TextoCodigoPostal)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.EtiquetaDomicilio)
        Me.OrejaProveedorDomicilio.Controls.Add(Me.TextoDomicilio)
        Me.OrejaProveedorDomicilio.Location = New System.Drawing.Point(4, 22)
        Me.OrejaProveedorDomicilio.Name = "OrejaProveedorDomicilio"
        Me.OrejaProveedorDomicilio.Size = New System.Drawing.Size(488, 270)
        Me.OrejaProveedorDomicilio.TabIndex = 0
        Me.OrejaProveedorDomicilio.Text = "Domicilio"
        '
        'TextoPortal
        '
        Me.TextoPortal.AcceptsReturn = True
        Me.TextoPortal.AutoSize = False
        Me.TextoPortal.BackColor = System.Drawing.SystemColors.Window
        Me.TextoPortal.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextoPortal.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TextoPortal.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextoPortal.Location = New System.Drawing.Point(160, 216)
        Me.TextoPortal.MaxLength = 50
        Me.TextoPortal.Name = "TextoPortal"
        Me.TextoPortal.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextoPortal.Size = New System.Drawing.Size(240, 19)
        Me.TextoPortal.TabIndex = 19
        Me.TextoPortal.Text = ""
        '
        'EtiquetaWeb
        '
        Me.EtiquetaWeb.AutoSize = True
        Me.EtiquetaWeb.BackColor = System.Drawing.SystemColors.Control
        Me.EtiquetaWeb.Cursor = System.Windows.Forms.Cursors.Default
        Me.EtiquetaWeb.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.EtiquetaWeb.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.EtiquetaWeb.ForeColor = System.Drawing.SystemColors.ControlText
        Me.EtiquetaWeb.Location = New System.Drawing.Point(16, 216)
        Me.EtiquetaWeb.Name = "EtiquetaWeb"
        Me.EtiquetaWeb.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.EtiquetaWeb.Size = New System.Drawing.Size(39, 16)
        Me.EtiquetaWeb.TabIndex = 187
        Me.EtiquetaWeb.Text = "Portal :"
        '
        'EtiquetaTelefono
        '
        Me.EtiquetaTelefono.AutoSize = True
        Me.EtiquetaTelefono.Location = New System.Drawing.Point(16, 152)
        Me.EtiquetaTelefono.Name = "EtiquetaTelefono"
        Me.EtiquetaTelefono.Size = New System.Drawing.Size(54, 16)
        Me.EtiquetaTelefono.TabIndex = 185
        Me.EtiquetaTelefono.Text = "Teléfono :"
        '
        'TextoTelefono
        '
        Me.TextoTelefono.Location = New System.Drawing.Point(160, 152)
        Me.TextoTelefono.MaxLength = 50
        Me.TextoTelefono.Name = "TextoTelefono"
        Me.TextoTelefono.Size = New System.Drawing.Size(240, 20)
        Me.TextoTelefono.TabIndex = 17
        Me.TextoTelefono.Text = ""
        '
        'EtiqetaEmail
        '
        Me.EtiqetaEmail.AutoSize = True
        Me.EtiqetaEmail.Location = New System.Drawing.Point(16, 184)
        Me.EtiqetaEmail.Name = "EtiqetaEmail"
        Me.EtiqetaEmail.Size = New System.Drawing.Size(43, 16)
        Me.EtiqetaEmail.TabIndex = 183
        Me.EtiqetaEmail.Text = "E-mail :"
        '
        'TextoEmail
        '
        Me.TextoEmail.Location = New System.Drawing.Point(160, 184)
        Me.TextoEmail.MaxLength = 50
        Me.TextoEmail.Name = "TextoEmail"
        Me.TextoEmail.Size = New System.Drawing.Size(240, 20)
        Me.TextoEmail.TabIndex = 18
        Me.TextoEmail.Text = ""
        '
        'EtiquetaLocalidad
        '
        Me.EtiquetaLocalidad.AutoSize = True
        Me.EtiquetaLocalidad.Location = New System.Drawing.Point(16, 56)
        Me.EtiquetaLocalidad.Name = "EtiquetaLocalidad"
        Me.EtiquetaLocalidad.Size = New System.Drawing.Size(59, 16)
        Me.EtiquetaLocalidad.TabIndex = 181
        Me.EtiquetaLocalidad.Text = "Localidad :"
        '
        'CombinadaProvincia
        '
        Me.CombinadaProvincia.BackColor = System.Drawing.SystemColors.Window
        Me.CombinadaProvincia.Cursor = System.Windows.Forms.Cursors.Default
        Me.CombinadaProvincia.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CombinadaProvincia.ForeColor = System.Drawing.SystemColors.WindowText
        Me.CombinadaProvincia.Location = New System.Drawing.Point(160, 88)
        Me.CombinadaProvincia.Name = "CombinadaProvincia"
        Me.CombinadaProvincia.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CombinadaProvincia.Size = New System.Drawing.Size(240, 22)
        Me.CombinadaProvincia.Sorted = True
        Me.CombinadaProvincia.TabIndex = 15
        '
        'EtiquetaProvincia
        '
        Me.EtiquetaProvincia.AutoSize = True
        Me.EtiquetaProvincia.Location = New System.Drawing.Point(16, 88)
        Me.EtiquetaProvincia.Name = "EtiquetaProvincia"
        Me.EtiquetaProvincia.Size = New System.Drawing.Size(57, 16)
        Me.EtiquetaProvincia.TabIndex = 179
        Me.EtiquetaProvincia.Text = "Provincia :"
        '
        'TextoLocalidad
        '
        Me.TextoLocalidad.Location = New System.Drawing.Point(160, 56)
        Me.TextoLocalidad.MaxLength = 50
        Me.TextoLocalidad.Name = "TextoLocalidad"
        Me.TextoLocalidad.Size = New System.Drawing.Size(240, 20)
        Me.TextoLocalidad.TabIndex = 14
        Me.TextoLocalidad.Text = ""
        '
        'EtiquetaCodigoPostal
        '
        Me.EtiquetaCodigoPostal.AutoSize = True
        Me.EtiquetaCodigoPostal.Location = New System.Drawing.Point(16, 120)
        Me.EtiquetaCodigoPostal.Name = "EtiquetaCodigoPostal"
        Me.EtiquetaCodigoPostal.Size = New System.Drawing.Size(80, 16)
        Me.EtiquetaCodigoPostal.TabIndex = 177
        Me.EtiquetaCodigoPostal.Text = "Código postal :"
        '
        'TextoCodigoPostal
        '
        Me.TextoCodigoPostal.Location = New System.Drawing.Point(160, 120)
        Me.TextoCodigoPostal.MaxLength = 10
        Me.TextoCodigoPostal.Name = "TextoCodigoPostal"
        Me.TextoCodigoPostal.Size = New System.Drawing.Size(136, 20)
        Me.TextoCodigoPostal.TabIndex = 16
        Me.TextoCodigoPostal.Text = ""
        '
        'EtiquetaDomicilio
        '
        Me.EtiquetaDomicilio.AutoSize = True
        Me.EtiquetaDomicilio.Location = New System.Drawing.Point(16, 24)
        Me.EtiquetaDomicilio.Name = "EtiquetaDomicilio"
        Me.EtiquetaDomicilio.Size = New System.Drawing.Size(57, 16)
        Me.EtiquetaDomicilio.TabIndex = 175
        Me.EtiquetaDomicilio.Text = "Domicilio :"
        '
        'TextoDomicilio
        '
        Me.TextoDomicilio.Location = New System.Drawing.Point(160, 24)
        Me.TextoDomicilio.MaxLength = 50
        Me.TextoDomicilio.Name = "TextoDomicilio"
        Me.TextoDomicilio.Size = New System.Drawing.Size(240, 20)
        Me.TextoDomicilio.TabIndex = 13
        Me.TextoDomicilio.Text = ""
        '
        'BotonTransproteRapido
        '
        Me.BotonTransproteRapido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonTransproteRapido.Location = New System.Drawing.Point(448, 208)
        Me.BotonTransproteRapido.Name = "BotonTransproteRapido"
        Me.BotonTransproteRapido.Size = New System.Drawing.Size(24, 24)
        Me.BotonTransproteRapido.TabIndex = 195
        Me.BotonTransproteRapido.Text = ">"
        '
        'EtiquetaTransporte
        '
        Me.EtiquetaTransporte.AutoSize = True
        Me.EtiquetaTransporte.Location = New System.Drawing.Point(16, 208)
        Me.EtiquetaTransporte.Name = "EtiquetaTransporte"
        Me.EtiquetaTransporte.Size = New System.Drawing.Size(148, 16)
        Me.EtiquetaTransporte.TabIndex = 194
        Me.EtiquetaTransporte.Text = "Transporte predeterminado :"
        '
        'CombinadaTransporte
        '
        Me.CombinadaTransporte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaTransporte.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaTransporte.Location = New System.Drawing.Point(168, 208)
        Me.CombinadaTransporte.Name = "CombinadaTransporte"
        Me.CombinadaTransporte.Size = New System.Drawing.Size(272, 21)
        Me.CombinadaTransporte.Sorted = True
        Me.CombinadaTransporte.TabIndex = 193
        '
        'NProveedor
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.CancelButton = Me.BotonCerrar
        Me.ClientSize = New System.Drawing.Size(656, 438)
        Me.Controls.Add(Me.OrejaProveedor)
        Me.Controls.Add(Me.EtiquetaProveedor)
        Me.Controls.Add(Me.EtiquetaUsuario)
        Me.Controls.Add(Me.TextoUsuario)
        Me.Controls.Add(Me.CombinadaProveedor)
        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.BotonCerrar)
        Me.Controls.Add(Me.Imagen2)
        Me.MaximizeBox = False
        Me.Name = "NProveedor"
        Me.Text = "Nuevo/Modificar/Eliminar proveedor"
        Me.OrejaProveedor.ResumeLayout(False)
        Me.OrejaProveedorDato.ResumeLayout(False)
        Me.OrejaProveedorDomicilio.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim SeleccionProveedor As String
    Dim CambioInterno As Boolean
    Dim DatosNoGuardados As Boolean

    Private Sub NProveedor_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Carga combinada de provincias
        SubCargaCombinada("Provincia", CombinadaProvincia)
        ' Iconos
        SubIconVentana(Me, "BeBox Watcher")
        SubIconNuevoModificarEliminar(Imagen2, Imagen1, Imagen4, Imagen3)
        ' Manejo de datos combinada
        CambioInterno = False
        SeleccionProveedor = ""

    End Sub

    Private Sub NProveedor_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 VProveedor")
        SubAbrirTablaBD2("SELECT * FROM VListaPrecio")
        SubAbrirTablaBD3("SELECT * FROM VTransporte")
        SubAbrirTablaBD5("SELECT * FROM VCondicionImpositiva")
        SubAbrirTablaBDGral("SELECT * FROM Documentacion WHERE TipoDocumento = 'Documento1'")
        ' Saber si hubo error
        If Not FnErrorADONET(Me) Then
            ' Limpiar controles
            SubLimpiarTexto()
            ' Cargar combinada proveedor
            CombinadaProveedor.Items.Clear()
            For Ciclo = 0 To TTabla.Rows.Count - 1
                Dim FTabla As DataRow = TTabla.Rows(Ciclo)
                CombinadaProveedor.Items.Add(FTabla("NombreProveedor").ToString)
            Next
            ' Cargar combinada impositiva
            CombinadaImpositiva.Items.Clear()
            For Ciclo = 0 To TTabla5.Rows.Count - 1
                Dim FTabla5 As DataRow = TTabla5.Rows(Ciclo)
                CombinadaImpositiva.Items.Add(FTabla5("NombreCondicionImpositiva").ToString & Separador & FTabla5("NombreCorto").ToString)
            Next
            ' Cargar combinada transportista
            CombinadaTransporte.Items.Clear()
            CombinadaTransporte.Items.Add("Sin transporte")
            For Ciclo = 0 To TTabla3.Rows.Count - 1
                Dim FTabla3 As DataRow = TTabla3.Rows(Ciclo)
                CombinadaTransporte.Items.Add(FTabla3("NombreTransporte").ToString)
            Next
            ' Cargar combinada de lista de precios
            CombinadaListaPrecio.Items.Clear()
            For Ciclo = 0 To TTabla2.Rows.Count - 1
                Dim FTabla2 As DataRow = TTabla2.Rows(Ciclo)
                CombinadaListaPrecio.Items.Add(FTabla2("NombreListaPrecio").ToString)
            Next
            ' Cargar documento
            Dim FTablaGral As DataRow = TTablaGral.Rows(0)
            EtiquetaDocumento1.Text = FTablaGral("NombreDocumento").ToString
        End If
        On Error GoTo 0
        If SeleccionProveedor <> "" Then
            CambioInterno = True
            On Error Resume Next
            CombinadaProveedor.Text = SeleccionProveedor
            On Error GoTo 0
            CambioInterno = False
        End If
        ' Inicialización
        DatosNoGuardados = False
    End Sub

    Private Sub CombinadaProveedor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaProveedor.SelectedIndexChanged
        Dim Continuar As Boolean
        ' En caso de no ser nulo, pasar valores a pantalla
        If CombinadaProveedor.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 VProveedor WHERE NombreProveedor = '" & CombinadaProveedor.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("NombreProveedor").ToString
                        TextoCodigo.Text = FTabla("CodigoProveedor").ToString
                        TextoDomicilio.Text = FTabla("Domicilio").ToString
                        TextoLocalidad.Text = FTabla("Localidad").ToString
                        CombinadaProvincia.Text = FTabla("Provincia").ToString
                        TextoCodigoPostal.Text = FTabla("CodigoPostal").ToString
                        TextoTelefono.Text = FTabla("Telefono").ToString
                        TextoEmail.Text = FTabla("E-mail").ToString
                        TextoPortal.Text = FTabla("Portal").ToString
                        TextoContacto.Text = FTabla("Contacto").ToString
                        TextoDocumento1.Text = FTabla("ValorDocumento1").ToString
                        CombinadaImpositiva.Text = FTabla("NombreCondicionImpositiva").ToString & Separador & FTabla("NombreCortoImpositiva").ToString
                        CombinadaCuenta.Text = FTabla("CuentaCorriente").ToString
                        CombinadaListaPrecio.Text = FTabla("NombreListaPrecio").ToString
                        CombinadaTransporte.Text = FTabla("NombreTransporte").ToString
                        If CBool(FTabla("Bloqueado").ToString) Then
                            CheckBloqueado.CheckState = System.Windows.Forms.CheckState.Checked
                        Else
                            CheckBloqueado.CheckState = System.Windows.Forms.CheckState.Unchecked
                        End If
                        TextoObservacion.Text = FTabla("Observacion").ToString
                        TextoUsuario.Text = FTabla("Usuario").ToString
                        ' Deshabilitar la funcion no guardados
                        DatosNoGuardados = 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 CombinadaProveedor.Text = "" Then
            BotonModificar.Enabled = False
            BotonEliminar.Enabled = False
        Else
            BotonModificar.Enabled = True
            BotonEliminar.Enabled = True
        End If
        ' Indicar selección
        SeleccionProveedor = CombinadaProveedor.Text
    End Sub

    Private Sub SubLimpiarTexto()
        ' Limpiar los TextBox
        For Each c As Control In Me.OrejaProveedor.TabPages(0).Controls
            ' Limpiar los textbox
            If TypeOf c Is TextBox Then c.Text = ""
        Next
        For Each c As Control In Me.OrejaProveedor.TabPages(1).Controls
            ' Limpiar los textbox
            If TypeOf c Is TextBox Then c.Text = ""
        Next
        CombinadaImpositiva.SelectedIndex = -1
        CombinadaProvincia.SelectedIndex = -1
        TextoUsuario.Text = ""
    End Sub

    Private Sub NProveedor_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
        ' Activamos menú en caso de salida
        If Not e.Cancel Then
            CType(Me.MdiParent, VentaTec).MenuPrincipal.MenuItems(4).MenuItems(3).MenuItems(1).Enabled = True
            CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
        End If
    End Sub

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

    Private Sub OpcionContado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        DatosNoGuardados = True
    End Sub

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

    Private Sub OpcionCtaCte_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        DatosNoGuardados = True
    End Sub

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

    Private Sub CombinadaImpositiva_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaImpositiva.SelectedIndexChanged
        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 TextoObervacion_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoObservacion.TextChanged
        DatosNoGuardados = True
    End Sub

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

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

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

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

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

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

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

    Private Sub TextoEmail_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoEmail.TextChanged
        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 CombinadaProveedor.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 proveedor " & StrConv(CombinadaProveedor.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 VProveedor WHERE NombreProveedor = '" & CombinadaProveedor.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
                        ' ATENCION: ANTES DE BORRAR EL REGISTRO, VERIFICAR SI FUE USADO PARA EMISION COMPROBANTES, EN EL CASO DE SER USADO NO BORRAR
                        SubAbrirTablaBD2("SELECT * FROM VTipoComprobanteDinero WHERE ClienteProveedorBancoES = '" & CombinadaProveedor.Text & "'")
                        SubAbrirTablaBD3("SELECT * FROM VTipoComprobanteProducto WHERE ClienteProveedor = '" & CombinadaProveedor.Text & "'")
                        If TTabla2.Rows.Count = 0 And TTabla3.Rows.Count = 0 Then
                            ' 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
                                CombinadaProveedor.Items.Remove(CombinadaProveedor.Text)
                                ' Indicar que fue con éxito
                                MessageBox.Show(LeyendaEliminado, _
                                                LeyendaTituloMensaje, _
                                                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                                ' Deshabilitar la funcion no guardados
                                DatosNoGuardados = False
                            End If
                        Else
                            MessageBox.Show(LeyendaNoPosibleBorrar, _
                                            LeyendaTituloMensaje, _
                                            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                        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 proveedor no está vacía, puede suceder que deba hacer modifcar en vez de nuevo
        ' Saber también si está configurado preguntar
        If CombinadaProveedor.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 VProveedor")
            ' 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("NombreProveedor") = TextoNombre.Text
                    FNTabla("CodigoProveedor") = TextoCodigo.Text
                    FNTabla("Domicilio") = TextoDomicilio.Text
                    FNTabla("Localidad") = TextoLocalidad.Text
                    FNTabla("Provincia") = CombinadaProvincia.Text
                    FNTabla("CodigoPostal") = TextoCodigoPostal.Text
                    FNTabla("Telefono") = TextoTelefono.Text
                    FNTabla("E-mail") = TextoEmail.Text
                    FNTabla("Portal") = TextoPortal.Text
                    FNTabla("Contacto") = TextoContacto.Text
                    FNTabla("ValorDocumento1") = TextoDocumento1.Text
                    FNTabla("NombreCondicionImpositiva") = CombinadaImpositiva.Text.Substring(0, CombinadaImpositiva.Text.LastIndexOf(Separador))
                    FNTabla("NombreCortoImpositiva") = CombinadaImpositiva.Text.Substring(CombinadaImpositiva.Text.LastIndexOf(Separador) + 3, CombinadaImpositiva.Text.Length - CombinadaImpositiva.Text.LastIndexOf(Separador) - 3)
                    FNTabla("CuentaCorriente") = CombinadaCuenta.Text
                    FNTabla("NombreListaPrecio") = CombinadaListaPrecio.Text
                    FNTabla("NombreTransporte") = CombinadaTransporte.Text
                    If CheckBloqueado.CheckState = CheckState.Checked Then
                        FNTabla("Bloqueado") = True
                    Else
                        FNTabla("Bloqueado") = False
                    End If
                    FNTabla("Observacion") = TextoObservacion.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 combinada
                            CombinadaProveedor.Items.Add(TextoNombre.Text)
                            ' Cambiar el nombre
                            CambioInterno = True
                            CombinadaProveedor.Text = TextoNombre.Text
                            CambioInterno = False
                            ' Deshabilitar la funcion no guardados
                            DatosNoGuardados = 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
        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 CombinadaProveedor.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 VProveedor WHERE NombreProveedor = '" & CombinadaProveedor.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)
                    Else
                        ' Registrar las modificaciones
                        FTabla("NombreProveedor") = TextoNombre.Text
                        FTabla("CodigoProveedor") = TextoCodigo.Text
                        FTabla("Domicilio") = TextoDomicilio.Text
                        FTabla("Localidad") = TextoLocalidad.Text
                        FTabla("Provincia") = CombinadaProvincia.Text
                        FTabla("CodigoPostal") = TextoCodigoPostal.Text
                        FTabla("Telefono") = TextoTelefono.Text
                        FTabla("E-mail") = TextoEmail.Text
                        FTabla("Portal") = TextoPortal.Text
                        FTabla("Contacto") = TextoContacto.Text
                        FTabla("ValorDocumento1") = TextoDocumento1.Text
                        FTabla("NombreCondicionImpositiva") = CombinadaImpositiva.Text.Substring(0, CombinadaImpositiva.Text.LastIndexOf(Separador))
                        FTabla("NombreCortoImpositiva") = CombinadaImpositiva.Text.Substring(CombinadaImpositiva.Text.LastIndexOf(Separador) + 3, CombinadaImpositiva.Text.Length - CombinadaImpositiva.Text.LastIndexOf(Separador) - 3)
                        FTabla("CuentaCorriente") = CombinadaCuenta.Text
                        FTabla("NombreListaPrecio") = CombinadaListaPrecio.Text
                        FTabla("NombreTransporte") = CombinadaTransporte.Text
                        If CheckBloqueado.CheckState = CheckState.Checked Then
                            FTabla("Bloqueado") = True
                        Else
                            FTabla("Bloqueado") = False
                        End If
                        FTabla("Observacion") = TextoObservacion.Text
                        FTabla("Usuario") = UsuarioActual
                        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)
                                ' Saber si se modificó la clave primaria
                                If TextoNombre.Text <> CombinadaProveedor.Text Then
                                    ' Cambió el nombre
                                    ' Modificar la lista y seleccionar el nuevo
                                    CambioInterno = True
                                    CombinadaProveedor.Items.Add(TextoNombre.Text)
                                    CombinadaProveedor.Items.Remove(CombinadaProveedor.Text)
                                    CombinadaProveedor.Text = TextoNombre.Text
                                    CambioInterno = False
                                End If
                                ' Deshabilitar la funcion no guardados
                                DatosNoGuardados = False
                            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 CombinadaProveedor_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CombinadaProveedor.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 NProveedor_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 BotonImpositivaRapido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonImpositivaRapido.Click
        If FnConAutorizacionVentana("NImpositiva") Then
            Dim FrmNImpositiva As New NImpositiva
            ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
            FrmNImpositiva.MdiParent = CType(Me.MdiParent, VentaTec)
            FrmNImpositiva.Visible = True
        Else
            MessageBox.Show(LeyendaNoIngresoVentana, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub CombinadaProveedor_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CombinadaProveedor.KeyUp
        Dim Ciclo As Int32
        If CombinadaProveedor.Text <> "" Then
            On Error Resume Next
            ' Cargar proveedores
            SubAbrirTablaBD2("SELECT * FROM VProveedor WHERE NombreProveedor LIKE '%" & CombinadaProveedor.Text & "%'")
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                ' Cargar combinada
                CombinadaProveedor.Items.Clear()
                For Ciclo = 0 To TTabla2.Rows.Count - 1
                    Dim FTabla2 As DataRow = TTabla2.Rows(Ciclo)
                    CombinadaProveedor.Items.Add(FTabla2("NombreProveedor").ToString)
                Next
            End If
            On Error GoTo 0
        End If
    End Sub

    Private Sub TextoNombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextoNombre.KeyPress
        SubNombresEnMayuscula(e)
    End Sub

    Private Sub BotonValidar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonValidar.Click
        If FnCUITValido(TextoDocumento1.Text) Then
            MessageBox.Show(LeyendaCUITValido, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show(LeyendaCUITNoValido, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

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

End Class
