Public Class NCliente
    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 EtiquetaCliente As System.Windows.Forms.Label
    Friend WithEvents CombinadaCliente As System.Windows.Forms.ComboBox
    Friend WithEvents EtiquetaUsuario As System.Windows.Forms.Label
    Friend WithEvents TextoUsuario As System.Windows.Forms.TextBox
    Friend WithEvents OrejaCliente As System.Windows.Forms.TabControl
    Friend WithEvents OrejaClienteParticular As System.Windows.Forms.TabPage
    Friend WithEvents OrejaClienteConfiguracion As System.Windows.Forms.TabPage
    Public WithEvents EtiquetaVariable2 As System.Windows.Forms.Label
    Friend WithEvents TextoDocumento1 As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaProvincia As System.Windows.Forms.Label
    Friend WithEvents EtiquetaLocalidad 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
    Friend WithEvents EtiquetaRazonSocial As System.Windows.Forms.Label
    Friend WithEvents TextoNombre As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaDocumento1 As System.Windows.Forms.Label
    Public WithEvents CombinadaProvincia As System.Windows.Forms.ComboBox
    Friend WithEvents BotonValidar As System.Windows.Forms.Button
    Friend WithEvents EtiquetaCodigo As System.Windows.Forms.Label
    Friend WithEvents TextoCodigo As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaCalificacion As System.Windows.Forms.Label
    Friend WithEvents EtiquetaCredito As System.Windows.Forms.Label
    Friend WithEvents TextoCredito As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaTransporte As System.Windows.Forms.Label
    Friend WithEvents EtiquetaImpositiva As System.Windows.Forms.Label
    Friend WithEvents EtiquetaVendedor As System.Windows.Forms.Label
    Friend WithEvents EtiquetaListaPrecio As System.Windows.Forms.Label
    Friend WithEvents CombinadaTransporte As System.Windows.Forms.ComboBox
    Public WithEvents CombinadaImpositiva As System.Windows.Forms.ComboBox
    Public WithEvents CombinadaVendedor As System.Windows.Forms.ComboBox
    Friend WithEvents CombinadaListaPrecio As System.Windows.Forms.ComboBox
    Friend WithEvents EtiqetaEmail As System.Windows.Forms.Label
    Friend WithEvents TextoEmail As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaTelefono As System.Windows.Forms.Label
    Friend WithEvents TextoTelefono As System.Windows.Forms.TextBox
    Friend WithEvents EtiquetaObervacion As System.Windows.Forms.Label
    Friend WithEvents EtiquetaContacto As System.Windows.Forms.Label
    Friend WithEvents TextoContacto As System.Windows.Forms.TextBox
    Public WithEvents EtiquetaWeb As System.Windows.Forms.Label
    Friend WithEvents EtiquetaCuenta As System.Windows.Forms.Label
    Friend WithEvents CombinadaCuenta 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
    Public WithEvents CombinadaCalificacion As System.Windows.Forms.ComboBox
    Friend WithEvents CheckClienteBloqueado As System.Windows.Forms.CheckBox
    Friend WithEvents CheckActivoSinCredito As System.Windows.Forms.CheckBox
    Public WithEvents BotonNuevo As System.Windows.Forms.Button
    Public WithEvents BotonCerrar As System.Windows.Forms.Button
    Friend WithEvents BotonTransproteRapido As System.Windows.Forms.Button
    Friend WithEvents BotonListaPrecioRapido As System.Windows.Forms.Button
    Friend WithEvents BotonVendedorRapido As System.Windows.Forms.Button
    Friend WithEvents BotonImpositivaRapido As System.Windows.Forms.Button
    Friend WithEvents DisenoDatoVariable As System.Windows.Forms.GroupBox
    Friend WithEvents EtiquetaDatoVariable As System.Windows.Forms.Label
    <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.EtiquetaCliente = New System.Windows.Forms.Label
        Me.CombinadaCliente = New System.Windows.Forms.ComboBox
        Me.EtiquetaUsuario = New System.Windows.Forms.Label
        Me.TextoUsuario = New System.Windows.Forms.TextBox
        Me.OrejaCliente = New System.Windows.Forms.TabControl
        Me.OrejaClienteParticular = 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.BotonValidar = New System.Windows.Forms.Button
        Me.EtiquetaVariable2 = New System.Windows.Forms.Label
        Me.TextoDocumento1 = New System.Windows.Forms.TextBox
        Me.EtiquetaContacto = New System.Windows.Forms.Label
        Me.TextoContacto = New System.Windows.Forms.TextBox
        Me.EtiquetaProvincia = New System.Windows.Forms.Label
        Me.EtiquetaLocalidad = 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.EtiquetaRazonSocial = New System.Windows.Forms.Label
        Me.TextoNombre = New System.Windows.Forms.TextBox
        Me.EtiquetaDocumento1 = New System.Windows.Forms.Label
        Me.CombinadaProvincia = New System.Windows.Forms.ComboBox
        Me.OrejaClienteConfiguracion = New System.Windows.Forms.TabPage
        Me.BotonImpositivaRapido = New System.Windows.Forms.Button
        Me.BotonVendedorRapido = New System.Windows.Forms.Button
        Me.BotonListaPrecioRapido = New System.Windows.Forms.Button
        Me.BotonTransproteRapido = New System.Windows.Forms.Button
        Me.EtiquetaCuenta = New System.Windows.Forms.Label
        Me.CombinadaCuenta = New System.Windows.Forms.ComboBox
        Me.EtiquetaObervacion = New System.Windows.Forms.Label
        Me.TextoObservacion = New System.Windows.Forms.TextBox
        Me.EtiquetaCalificacion = New System.Windows.Forms.Label
        Me.EtiquetaCredito = New System.Windows.Forms.Label
        Me.TextoCredito = New System.Windows.Forms.TextBox
        Me.EtiquetaTransporte = New System.Windows.Forms.Label
        Me.EtiquetaImpositiva = New System.Windows.Forms.Label
        Me.EtiquetaVendedor = New System.Windows.Forms.Label
        Me.EtiquetaListaPrecio = New System.Windows.Forms.Label
        Me.CheckActivoSinCredito = New System.Windows.Forms.CheckBox
        Me.CombinadaCalificacion = New System.Windows.Forms.ComboBox
        Me.CombinadaTransporte = New System.Windows.Forms.ComboBox
        Me.CombinadaImpositiva = New System.Windows.Forms.ComboBox
        Me.CombinadaVendedor = New System.Windows.Forms.ComboBox
        Me.CheckClienteBloqueado = New System.Windows.Forms.CheckBox
        Me.CombinadaListaPrecio = New System.Windows.Forms.ComboBox
        Me.EtiquetaCodigo = New System.Windows.Forms.Label
        Me.TextoCodigo = New System.Windows.Forms.TextBox
        Me.DisenoDatoVariable = New System.Windows.Forms.GroupBox
        Me.EtiquetaDatoVariable = New System.Windows.Forms.Label
        Me.OrejaCliente.SuspendLayout()
        Me.OrejaClienteParticular.SuspendLayout()
        Me.OrejaClienteConfiguracion.SuspendLayout()
        Me.DisenoDatoVariable.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 = 25
        Me.BotonEliminar.Text = "&Eliminar cliente"
        '
        '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 = 24
        Me.BotonNuevo.Text = "&Nuevo cliente"
        '
        '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 = 23
        Me.BotonModificar.Text = "&Modificar cliente"
        '
        '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 = 26
        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
        '
        'EtiquetaCliente
        '
        Me.EtiquetaCliente.AutoSize = True
        Me.EtiquetaCliente.Location = New System.Drawing.Point(16, 16)
        Me.EtiquetaCliente.Name = "EtiquetaCliente"
        Me.EtiquetaCliente.Size = New System.Drawing.Size(95, 16)
        Me.EtiquetaCliente.TabIndex = 84
        Me.EtiquetaCliente.Text = "Selección cliente :"
        '
        'CombinadaCliente
        '
        Me.CombinadaCliente.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaCliente.Location = New System.Drawing.Point(136, 16)
        Me.CombinadaCliente.Name = "CombinadaCliente"
        Me.CombinadaCliente.Size = New System.Drawing.Size(384, 21)
        Me.CombinadaCliente.Sorted = True
        Me.CombinadaCliente.TabIndex = 0
        '
        '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(24, 424)
        Me.EtiquetaUsuario.Name = "EtiquetaUsuario"
        Me.EtiquetaUsuario.Size = New System.Drawing.Size(128, 16)
        Me.EtiquetaUsuario.TabIndex = 118
        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(176, 424)
        Me.TextoUsuario.Name = "TextoUsuario"
        Me.TextoUsuario.ReadOnly = True
        Me.TextoUsuario.Size = New System.Drawing.Size(224, 20)
        Me.TextoUsuario.TabIndex = 117
        Me.TextoUsuario.Text = ""
        '
        'OrejaCliente
        '
        Me.OrejaCliente.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.OrejaCliente.Controls.Add(Me.OrejaClienteParticular)
        Me.OrejaCliente.Controls.Add(Me.OrejaClienteConfiguracion)
        Me.OrejaCliente.Location = New System.Drawing.Point(16, 48)
        Me.OrejaCliente.Name = "OrejaCliente"
        Me.OrejaCliente.SelectedIndex = 0
        Me.OrejaCliente.Size = New System.Drawing.Size(504, 368)
        Me.OrejaCliente.TabIndex = 161
        '
        'OrejaClienteParticular
        '
        Me.OrejaClienteParticular.Controls.Add(Me.DisenoDatoVariable)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoPortal)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaWeb)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaTelefono)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoTelefono)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiqetaEmail)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoEmail)
        Me.OrejaClienteParticular.Controls.Add(Me.BotonValidar)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaVariable2)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoDocumento1)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaContacto)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoContacto)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaProvincia)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaLocalidad)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoLocalidad)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaCodigoPostal)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoCodigoPostal)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaDomicilio)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoDomicilio)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaRazonSocial)
        Me.OrejaClienteParticular.Controls.Add(Me.TextoNombre)
        Me.OrejaClienteParticular.Controls.Add(Me.EtiquetaDocumento1)
        Me.OrejaClienteParticular.Controls.Add(Me.CombinadaProvincia)
        Me.OrejaClienteParticular.Location = New System.Drawing.Point(4, 22)
        Me.OrejaClienteParticular.Name = "OrejaClienteParticular"
        Me.OrejaClienteParticular.Size = New System.Drawing.Size(496, 342)
        Me.OrejaClienteParticular.TabIndex = 0
        Me.OrejaClienteParticular.Text = "Datos particulares"
        '
        'TextoPortal
        '
        Me.TextoPortal.AcceptsReturn = True
        Me.TextoPortal.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        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(152, 240)
        Me.TextoPortal.MaxLength = 50
        Me.TextoPortal.Name = "TextoPortal"
        Me.TextoPortal.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextoPortal.Size = New System.Drawing.Size(224, 19)
        Me.TextoPortal.TabIndex = 8
        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(8, 240)
        Me.EtiquetaWeb.Name = "EtiquetaWeb"
        Me.EtiquetaWeb.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.EtiquetaWeb.Size = New System.Drawing.Size(39, 16)
        Me.EtiquetaWeb.TabIndex = 175
        Me.EtiquetaWeb.Text = "Portal :"
        '
        'EtiquetaTelefono
        '
        Me.EtiquetaTelefono.AutoSize = True
        Me.EtiquetaTelefono.Location = New System.Drawing.Point(8, 176)
        Me.EtiquetaTelefono.Name = "EtiquetaTelefono"
        Me.EtiquetaTelefono.Size = New System.Drawing.Size(54, 16)
        Me.EtiquetaTelefono.TabIndex = 173
        Me.EtiquetaTelefono.Text = "Teléfono :"
        '
        'TextoTelefono
        '
        Me.TextoTelefono.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoTelefono.Location = New System.Drawing.Point(152, 176)
        Me.TextoTelefono.MaxLength = 50
        Me.TextoTelefono.Name = "TextoTelefono"
        Me.TextoTelefono.Size = New System.Drawing.Size(224, 20)
        Me.TextoTelefono.TabIndex = 6
        Me.TextoTelefono.Text = ""
        '
        'EtiqetaEmail
        '
        Me.EtiqetaEmail.AutoSize = True
        Me.EtiqetaEmail.Location = New System.Drawing.Point(8, 208)
        Me.EtiqetaEmail.Name = "EtiqetaEmail"
        Me.EtiqetaEmail.Size = New System.Drawing.Size(43, 16)
        Me.EtiqetaEmail.TabIndex = 171
        Me.EtiqetaEmail.Text = "E-mail :"
        '
        'TextoEmail
        '
        Me.TextoEmail.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoEmail.Location = New System.Drawing.Point(152, 208)
        Me.TextoEmail.MaxLength = 50
        Me.TextoEmail.Name = "TextoEmail"
        Me.TextoEmail.Size = New System.Drawing.Size(224, 20)
        Me.TextoEmail.TabIndex = 7
        Me.TextoEmail.Text = ""
        '
        '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(392, 304)
        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."
        '
        '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(96, 304)
        Me.EtiquetaVariable2.Name = "EtiquetaVariable2"
        Me.EtiquetaVariable2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.EtiquetaVariable2.Size = New System.Drawing.Size(43, 16)
        Me.EtiquetaVariable2.TabIndex = 168
        Me.EtiquetaVariable2.Text = "(V) (R) :"
        '
        '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(152, 304)
        Me.TextoDocumento1.Name = "TextoDocumento1"
        Me.TextoDocumento1.Size = New System.Drawing.Size(224, 20)
        Me.TextoDocumento1.TabIndex = 10
        Me.TextoDocumento1.Text = ""
        '
        'EtiquetaContacto
        '
        Me.EtiquetaContacto.AutoSize = True
        Me.EtiquetaContacto.Location = New System.Drawing.Point(8, 272)
        Me.EtiquetaContacto.Name = "EtiquetaContacto"
        Me.EtiquetaContacto.Size = New System.Drawing.Size(56, 16)
        Me.EtiquetaContacto.TabIndex = 165
        Me.EtiquetaContacto.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(152, 272)
        Me.TextoContacto.MaxLength = 50
        Me.TextoContacto.Name = "TextoContacto"
        Me.TextoContacto.Size = New System.Drawing.Size(224, 20)
        Me.TextoContacto.TabIndex = 9
        Me.TextoContacto.Text = ""
        '
        'EtiquetaProvincia
        '
        Me.EtiquetaProvincia.AutoSize = True
        Me.EtiquetaProvincia.Location = New System.Drawing.Point(8, 112)
        Me.EtiquetaProvincia.Name = "EtiquetaProvincia"
        Me.EtiquetaProvincia.Size = New System.Drawing.Size(76, 16)
        Me.EtiquetaProvincia.TabIndex = 162
        Me.EtiquetaProvincia.Text = "Provincia (R) :"
        '
        'EtiquetaLocalidad
        '
        Me.EtiquetaLocalidad.AutoSize = True
        Me.EtiquetaLocalidad.Location = New System.Drawing.Point(8, 80)
        Me.EtiquetaLocalidad.Name = "EtiquetaLocalidad"
        Me.EtiquetaLocalidad.Size = New System.Drawing.Size(78, 16)
        Me.EtiquetaLocalidad.TabIndex = 161
        Me.EtiquetaLocalidad.Text = "Localidad (R) :"
        '
        'TextoLocalidad
        '
        Me.TextoLocalidad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoLocalidad.Location = New System.Drawing.Point(152, 80)
        Me.TextoLocalidad.Name = "TextoLocalidad"
        Me.TextoLocalidad.Size = New System.Drawing.Size(224, 20)
        Me.TextoLocalidad.TabIndex = 3
        Me.TextoLocalidad.Text = ""
        '
        'EtiquetaCodigoPostal
        '
        Me.EtiquetaCodigoPostal.AutoSize = True
        Me.EtiquetaCodigoPostal.Location = New System.Drawing.Point(8, 144)
        Me.EtiquetaCodigoPostal.Name = "EtiquetaCodigoPostal"
        Me.EtiquetaCodigoPostal.Size = New System.Drawing.Size(80, 16)
        Me.EtiquetaCodigoPostal.TabIndex = 159
        Me.EtiquetaCodigoPostal.Text = "Código postal :"
        '
        'TextoCodigoPostal
        '
        Me.TextoCodigoPostal.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoCodigoPostal.Location = New System.Drawing.Point(152, 144)
        Me.TextoCodigoPostal.MaxLength = 10
        Me.TextoCodigoPostal.Name = "TextoCodigoPostal"
        Me.TextoCodigoPostal.Size = New System.Drawing.Size(96, 20)
        Me.TextoCodigoPostal.TabIndex = 5
        Me.TextoCodigoPostal.Text = ""
        '
        'EtiquetaDomicilio
        '
        Me.EtiquetaDomicilio.AutoSize = True
        Me.EtiquetaDomicilio.Location = New System.Drawing.Point(8, 48)
        Me.EtiquetaDomicilio.Name = "EtiquetaDomicilio"
        Me.EtiquetaDomicilio.Size = New System.Drawing.Size(75, 16)
        Me.EtiquetaDomicilio.TabIndex = 157
        Me.EtiquetaDomicilio.Text = "Domicilio (R) :"
        '
        'TextoDomicilio
        '
        Me.TextoDomicilio.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoDomicilio.Location = New System.Drawing.Point(152, 48)
        Me.TextoDomicilio.Name = "TextoDomicilio"
        Me.TextoDomicilio.Size = New System.Drawing.Size(224, 20)
        Me.TextoDomicilio.TabIndex = 2
        Me.TextoDomicilio.Text = ""
        '
        'EtiquetaRazonSocial
        '
        Me.EtiquetaRazonSocial.AutoSize = True
        Me.EtiquetaRazonSocial.Location = New System.Drawing.Point(8, 16)
        Me.EtiquetaRazonSocial.Name = "EtiquetaRazonSocial"
        Me.EtiquetaRazonSocial.Size = New System.Drawing.Size(94, 16)
        Me.EtiquetaRazonSocial.TabIndex = 155
        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(152, 16)
        Me.TextoNombre.MaxLength = 50
        Me.TextoNombre.Name = "TextoNombre"
        Me.TextoNombre.Size = New System.Drawing.Size(224, 20)
        Me.TextoNombre.TabIndex = 1
        Me.TextoNombre.Text = ""
        '
        'EtiquetaDocumento1
        '
        Me.EtiquetaDocumento1.AutoSize = True
        Me.EtiquetaDocumento1.Location = New System.Drawing.Point(8, 304)
        Me.EtiquetaDocumento1.Name = "EtiquetaDocumento1"
        Me.EtiquetaDocumento1.Size = New System.Drawing.Size(0, 16)
        Me.EtiquetaDocumento1.TabIndex = 167
        '
        'CombinadaProvincia
        '
        Me.CombinadaProvincia.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        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.ItemHeight = 14
        Me.CombinadaProvincia.Location = New System.Drawing.Point(152, 112)
        Me.CombinadaProvincia.Name = "CombinadaProvincia"
        Me.CombinadaProvincia.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CombinadaProvincia.Size = New System.Drawing.Size(225, 22)
        Me.CombinadaProvincia.Sorted = True
        Me.CombinadaProvincia.TabIndex = 4
        '
        'OrejaClienteConfiguracion
        '
        Me.OrejaClienteConfiguracion.Controls.Add(Me.BotonImpositivaRapido)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.BotonVendedorRapido)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.BotonListaPrecioRapido)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.BotonTransproteRapido)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaCuenta)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.CombinadaCuenta)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaObervacion)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.TextoObservacion)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaCalificacion)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaCredito)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.TextoCredito)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaTransporte)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaImpositiva)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaVendedor)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaListaPrecio)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.CheckActivoSinCredito)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.CombinadaCalificacion)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.CombinadaTransporte)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.CombinadaImpositiva)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.CombinadaVendedor)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.CheckClienteBloqueado)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.CombinadaListaPrecio)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.EtiquetaCodigo)
        Me.OrejaClienteConfiguracion.Controls.Add(Me.TextoCodigo)
        Me.OrejaClienteConfiguracion.Location = New System.Drawing.Point(4, 22)
        Me.OrejaClienteConfiguracion.Name = "OrejaClienteConfiguracion"
        Me.OrejaClienteConfiguracion.Size = New System.Drawing.Size(496, 342)
        Me.OrejaClienteConfiguracion.TabIndex = 1
        Me.OrejaClienteConfiguracion.Text = "Datos de configuración"
        '
        'BotonImpositivaRapido
        '
        Me.BotonImpositivaRapido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonImpositivaRapido.Location = New System.Drawing.Point(176, 248)
        Me.BotonImpositivaRapido.Name = "BotonImpositivaRapido"
        Me.BotonImpositivaRapido.Size = New System.Drawing.Size(24, 24)
        Me.BotonImpositivaRapido.TabIndex = 185
        Me.BotonImpositivaRapido.Text = ">"
        '
        'BotonVendedorRapido
        '
        Me.BotonVendedorRapido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonVendedorRapido.Location = New System.Drawing.Point(176, 216)
        Me.BotonVendedorRapido.Name = "BotonVendedorRapido"
        Me.BotonVendedorRapido.Size = New System.Drawing.Size(24, 24)
        Me.BotonVendedorRapido.TabIndex = 184
        Me.BotonVendedorRapido.Text = ">"
        '
        'BotonListaPrecioRapido
        '
        Me.BotonListaPrecioRapido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonListaPrecioRapido.Location = New System.Drawing.Point(176, 184)
        Me.BotonListaPrecioRapido.Name = "BotonListaPrecioRapido"
        Me.BotonListaPrecioRapido.Size = New System.Drawing.Size(24, 24)
        Me.BotonListaPrecioRapido.TabIndex = 183
        Me.BotonListaPrecioRapido.Text = ">"
        '
        'BotonTransproteRapido
        '
        Me.BotonTransproteRapido.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.BotonTransproteRapido.Location = New System.Drawing.Point(176, 152)
        Me.BotonTransproteRapido.Name = "BotonTransproteRapido"
        Me.BotonTransproteRapido.Size = New System.Drawing.Size(24, 24)
        Me.BotonTransproteRapido.TabIndex = 182
        Me.BotonTransproteRapido.Text = ">"
        '
        'EtiquetaCuenta
        '
        Me.EtiquetaCuenta.AutoSize = True
        Me.EtiquetaCuenta.Location = New System.Drawing.Point(24, 120)
        Me.EtiquetaCuenta.Name = "EtiquetaCuenta"
        Me.EtiquetaCuenta.Size = New System.Drawing.Size(145, 16)
        Me.EtiquetaCuenta.TabIndex = 181
        Me.EtiquetaCuenta.Text = "Condición cuenta corriente :"
        '
        '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(208, 120)
        Me.CombinadaCuenta.Name = "CombinadaCuenta"
        Me.CombinadaCuenta.Size = New System.Drawing.Size(272, 20)
        Me.CombinadaCuenta.TabIndex = 15
        '
        'EtiquetaObervacion
        '
        Me.EtiquetaObervacion.AutoSize = True
        Me.EtiquetaObervacion.Location = New System.Drawing.Point(24, 280)
        Me.EtiquetaObervacion.Name = "EtiquetaObervacion"
        Me.EtiquetaObervacion.Size = New System.Drawing.Size(86, 16)
        Me.EtiquetaObervacion.TabIndex = 178
        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(152, 280)
        Me.TextoObservacion.MaxLength = 150
        Me.TextoObservacion.Name = "TextoObservacion"
        Me.TextoObservacion.Size = New System.Drawing.Size(328, 20)
        Me.TextoObservacion.TabIndex = 20
        Me.TextoObservacion.Text = ""
        '
        'EtiquetaCalificacion
        '
        Me.EtiquetaCalificacion.AutoSize = True
        Me.EtiquetaCalificacion.Location = New System.Drawing.Point(24, 88)
        Me.EtiquetaCalificacion.Name = "EtiquetaCalificacion"
        Me.EtiquetaCalificacion.Size = New System.Drawing.Size(69, 16)
        Me.EtiquetaCalificacion.TabIndex = 175
        Me.EtiquetaCalificacion.Text = "Calificación :"
        '
        'EtiquetaCredito
        '
        Me.EtiquetaCredito.AutoSize = True
        Me.EtiquetaCredito.Location = New System.Drawing.Point(24, 56)
        Me.EtiquetaCredito.Name = "EtiquetaCredito"
        Me.EtiquetaCredito.Size = New System.Drawing.Size(90, 16)
        Me.EtiquetaCredito.TabIndex = 174
        Me.EtiquetaCredito.Text = "Crédito máximo :"
        '
        'TextoCredito
        '
        Me.TextoCredito.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextoCredito.Location = New System.Drawing.Point(208, 56)
        Me.TextoCredito.Name = "TextoCredito"
        Me.TextoCredito.Size = New System.Drawing.Size(272, 20)
        Me.TextoCredito.TabIndex = 13
        Me.TextoCredito.Text = ""
        '
        'EtiquetaTransporte
        '
        Me.EtiquetaTransporte.AutoSize = True
        Me.EtiquetaTransporte.Location = New System.Drawing.Point(24, 152)
        Me.EtiquetaTransporte.Name = "EtiquetaTransporte"
        Me.EtiquetaTransporte.Size = New System.Drawing.Size(148, 16)
        Me.EtiquetaTransporte.TabIndex = 172
        Me.EtiquetaTransporte.Text = "Transporte predeterminado :"
        '
        'EtiquetaImpositiva
        '
        Me.EtiquetaImpositiva.AutoSize = True
        Me.EtiquetaImpositiva.Location = New System.Drawing.Point(24, 248)
        Me.EtiquetaImpositiva.Name = "EtiquetaImpositiva"
        Me.EtiquetaImpositiva.Size = New System.Drawing.Size(133, 16)
        Me.EtiquetaImpositiva.TabIndex = 169
        Me.EtiquetaImpositiva.Text = "Condición impositiva (R) :"
        '
        'EtiquetaVendedor
        '
        Me.EtiquetaVendedor.AutoSize = True
        Me.EtiquetaVendedor.Location = New System.Drawing.Point(24, 216)
        Me.EtiquetaVendedor.Name = "EtiquetaVendedor"
        Me.EtiquetaVendedor.Size = New System.Drawing.Size(142, 16)
        Me.EtiquetaVendedor.TabIndex = 165
        Me.EtiquetaVendedor.Text = "Vendedor predeterminado :"
        '
        'EtiquetaListaPrecio
        '
        Me.EtiquetaListaPrecio.AutoSize = True
        Me.EtiquetaListaPrecio.Location = New System.Drawing.Point(24, 184)
        Me.EtiquetaListaPrecio.Name = "EtiquetaListaPrecio"
        Me.EtiquetaListaPrecio.Size = New System.Drawing.Size(147, 16)
        Me.EtiquetaListaPrecio.TabIndex = 162
        Me.EtiquetaListaPrecio.Text = "Lista de precios predet. (R) :"
        '
        'CheckActivoSinCredito
        '
        Me.CheckActivoSinCredito.Checked = True
        Me.CheckActivoSinCredito.CheckState = System.Windows.Forms.CheckState.Checked
        Me.CheckActivoSinCredito.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckActivoSinCredito.Location = New System.Drawing.Point(32, 312)
        Me.CheckActivoSinCredito.Name = "CheckActivoSinCredito"
        Me.CheckActivoSinCredito.Size = New System.Drawing.Size(128, 16)
        Me.CheckActivoSinCredito.TabIndex = 21
        Me.CheckActivoSinCredito.Text = "&Activo sin crédito"
        '
        'CombinadaCalificacion
        '
        Me.CombinadaCalificacion.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaCalificacion.BackColor = System.Drawing.SystemColors.Window
        Me.CombinadaCalificacion.Cursor = System.Windows.Forms.Cursors.Default
        Me.CombinadaCalificacion.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CombinadaCalificacion.ForeColor = System.Drawing.SystemColors.WindowText
        Me.CombinadaCalificacion.Items.AddRange(New Object() {"Bueno", "Excelente", "Muy bueno", "Regular", "Malo"})
        Me.CombinadaCalificacion.Location = New System.Drawing.Point(208, 88)
        Me.CombinadaCalificacion.Name = "CombinadaCalificacion"
        Me.CombinadaCalificacion.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CombinadaCalificacion.Size = New System.Drawing.Size(272, 20)
        Me.CombinadaCalificacion.TabIndex = 14
        '
        '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(208, 152)
        Me.CombinadaTransporte.Name = "CombinadaTransporte"
        Me.CombinadaTransporte.Size = New System.Drawing.Size(272, 20)
        Me.CombinadaTransporte.Sorted = True
        Me.CombinadaTransporte.TabIndex = 16
        '
        '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(208, 248)
        Me.CombinadaImpositiva.Name = "CombinadaImpositiva"
        Me.CombinadaImpositiva.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CombinadaImpositiva.Size = New System.Drawing.Size(272, 20)
        Me.CombinadaImpositiva.Sorted = True
        Me.CombinadaImpositiva.TabIndex = 19
        '
        'CombinadaVendedor
        '
        Me.CombinadaVendedor.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.CombinadaVendedor.BackColor = System.Drawing.SystemColors.Window
        Me.CombinadaVendedor.Cursor = System.Windows.Forms.Cursors.Default
        Me.CombinadaVendedor.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombinadaVendedor.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CombinadaVendedor.ForeColor = System.Drawing.SystemColors.WindowText
        Me.CombinadaVendedor.Location = New System.Drawing.Point(208, 216)
        Me.CombinadaVendedor.Name = "CombinadaVendedor"
        Me.CombinadaVendedor.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CombinadaVendedor.Size = New System.Drawing.Size(272, 20)
        Me.CombinadaVendedor.Sorted = True
        Me.CombinadaVendedor.TabIndex = 18
        '
        'CheckClienteBloqueado
        '
        Me.CheckClienteBloqueado.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.CheckClienteBloqueado.Location = New System.Drawing.Point(200, 312)
        Me.CheckClienteBloqueado.Name = "CheckClienteBloqueado"
        Me.CheckClienteBloqueado.Size = New System.Drawing.Size(128, 16)
        Me.CheckClienteBloqueado.TabIndex = 22
        Me.CheckClienteBloqueado.Text = "Cliente &bloqueado"
        '
        '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(208, 184)
        Me.CombinadaListaPrecio.Name = "CombinadaListaPrecio"
        Me.CombinadaListaPrecio.Size = New System.Drawing.Size(272, 20)
        Me.CombinadaListaPrecio.Sorted = True
        Me.CombinadaListaPrecio.TabIndex = 17
        '
        'EtiquetaCodigo
        '
        Me.EtiquetaCodigo.AutoSize = True
        Me.EtiquetaCodigo.Location = New System.Drawing.Point(24, 24)
        Me.EtiquetaCodigo.Name = "EtiquetaCodigo"
        Me.EtiquetaCodigo.Size = New System.Drawing.Size(114, 16)
        Me.EtiquetaCodigo.TabIndex = 122
        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(208, 24)
        Me.TextoCodigo.MaxLength = 20
        Me.TextoCodigo.Name = "TextoCodigo"
        Me.TextoCodigo.Size = New System.Drawing.Size(272, 20)
        Me.TextoCodigo.TabIndex = 12
        Me.TextoCodigo.Text = ""
        '
        'DisenoDatoVariable
        '
        Me.DisenoDatoVariable.Controls.Add(Me.EtiquetaDatoVariable)
        Me.DisenoDatoVariable.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.DisenoDatoVariable.Location = New System.Drawing.Point(384, 216)
        Me.DisenoDatoVariable.Name = "DisenoDatoVariable"
        Me.DisenoDatoVariable.Size = New System.Drawing.Size(96, 80)
        Me.DisenoDatoVariable.TabIndex = 192
        Me.DisenoDatoVariable.TabStop = False
        '
        'EtiquetaDatoVariable
        '
        Me.EtiquetaDatoVariable.Location = New System.Drawing.Point(8, 16)
        Me.EtiquetaDatoVariable.Name = "EtiquetaDatoVariable"
        Me.EtiquetaDatoVariable.Size = New System.Drawing.Size(80, 56)
        Me.EtiquetaDatoVariable.TabIndex = 0
        Me.EtiquetaDatoVariable.Text = "Los datos con (V) pueden cambiar su nombre."
        '
        'NCliente
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.CancelButton = Me.BotonCerrar
        Me.ClientSize = New System.Drawing.Size(656, 454)
        Me.Controls.Add(Me.OrejaCliente)
        Me.Controls.Add(Me.EtiquetaUsuario)
        Me.Controls.Add(Me.TextoUsuario)
        Me.Controls.Add(Me.EtiquetaCliente)
        Me.Controls.Add(Me.CombinadaCliente)
        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 = "NCliente"
        Me.Text = "Nuevo/Modificar/Eliminar cliente"
        Me.OrejaCliente.ResumeLayout(False)
        Me.OrejaClienteParticular.ResumeLayout(False)
        Me.OrejaClienteConfiguracion.ResumeLayout(False)
        Me.DisenoDatoVariable.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim SeleccionCliente As String
    Dim CambioInterno As Boolean
    Dim DatosNoGuardados As Boolean

    Private Sub NCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Declaración variables
        Dim Ciclo As Int32
        ' Carga combinada de provincias
        SubCargaCombinada("Provincia", CombinadaProvincia)
        ' Icono ventana
        SubIconVentana(Me, "user")
        SubIconNuevoModificarEliminar(Imagen2, Imagen1, Imagen4, Imagen3)
        ' Manejo de datos combinada
        CambioInterno = False
        SeleccionCliente = ""
    End Sub

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

    Private Sub NCliente_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 VCliente")
        ' Cargar combinada de datos
        SubAbrirTablaBD2("SELECT * FROM VTransporte")
        SubAbrirTablaBD3("SELECT * FROM VVendedor")
        SubAbrirTablaBD4("SELECT * FROM VListaPrecio")
        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 cliente
            CombinadaCliente.Items.Clear()
            For Ciclo = 0 To TTabla.Rows.Count - 1
                Dim FTabla As DataRow = TTabla.Rows(Ciclo)
                CombinadaCliente.Items.Add(FTabla("NombreCliente").ToString)
            Next
            ' Cargar combinada transportista
            CombinadaTransporte.Items.Clear()
            CombinadaTransporte.Items.Add("Sin transporte")
            For Ciclo = 0 To TTabla2.Rows.Count - 1
                Dim FTabla2 As DataRow = TTabla2.Rows(Ciclo)
                CombinadaTransporte.Items.Add(FTabla2("NombreTransporte").ToString)
            Next
            ' Cargar combinada vendedor
            CombinadaVendedor.Items.Clear()
            CombinadaVendedor.Items.Add("Sin vendedor")
            For Ciclo = 0 To TTabla3.Rows.Count - 1
                Dim FTabla3 As DataRow = TTabla3.Rows(Ciclo)
                CombinadaVendedor.Items.Add(FTabla3("NombreVendedor").ToString)
            Next
            ' Cargar combinada de lista de precios
            CombinadaListaPrecio.Items.Clear()
            CombinadaListaPrecio.Items.Add("Lista de precios por cliente")
            For Ciclo = 0 To TTabla4.Rows.Count - 1
                Dim FTabla4 As DataRow = TTabla4.Rows(Ciclo)
                CombinadaListaPrecio.Items.Add(FTabla4("NombreListaPrecio").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 documento
            Dim FTablaGral As DataRow = TTablaGral.Rows(0)
            EtiquetaDocumento1.Text = FTablaGral("NombreDocumento").ToString
        End If
        On Error GoTo 0
        If SeleccionCliente <> "" Then
            CambioInterno = True
            On Error Resume Next
            CombinadaCliente.Text = SeleccionCliente
            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.OrejaCliente.TabPages(0).Controls
            ' Limpiar los textbox
            If TypeOf c Is TextBox Then c.Text = ""
        Next
        For Each c As Control In Me.OrejaCliente.TabPages(1).Controls
            ' Limpiar los textbox
            If TypeOf c Is TextBox Then c.Text = ""
        Next
        CombinadaTransporte.SelectedIndex = -1
        CombinadaVendedor.SelectedIndex = -1
        CombinadaCuenta.SelectedIndex = -1
        CombinadaProvincia.SelectedIndex = -1
        CombinadaListaPrecio.SelectedIndex = -1
        CombinadaCalificacion.SelectedIndex = -1
        CombinadaImpositiva.SelectedIndex = -1
        TextoUsuario.Text = ""
    End Sub

    Private Sub CombinadaCliente_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CombinadaCliente.SelectedIndexChanged
        Dim Continuar As Boolean
        ' En caso de no ser nulo, pasar valores a pantalla
        If CombinadaCliente.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 VCliente WHERE NombreCliente = '" & CombinadaCliente.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("NombreCliente").ToString
                        TextoCodigo.Text = FTabla("CodigoCliente").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
                        CombinadaCalificacion.Text = FTabla("Calificacion").ToString
                        TextoCredito.Text = FTabla("CreditoMaximo").ToString
                        CombinadaTransporte.Text = FTabla("NombreTransporte").ToString
                        CombinadaListaPrecio.Text = FTabla("NombreListaPrecio").ToString
                        CombinadaVendedor.Text = FTabla("NombreVendedor").ToString
                        CombinadaImpositiva.Text = FTabla("NombreCondicionImpositiva").ToString & Separador & FTabla("NombreCortoImpositiva").ToString
                        If CBool(FTabla("ActivoSinCredito").ToString) Then
                            CheckActivoSinCredito.CheckState = System.Windows.Forms.CheckState.Checked
                        Else
                            CheckActivoSinCredito.CheckState = System.Windows.Forms.CheckState.Unchecked
                        End If
                        If CBool(FTabla("ClienteBloqueado").ToString) Then
                            CheckClienteBloqueado.CheckState = System.Windows.Forms.CheckState.Checked
                        Else
                            CheckClienteBloqueado.CheckState = System.Windows.Forms.CheckState.Unchecked
                        End If
                        CombinadaCuenta.Text = FTabla("CuentaCorriente").ToString
                        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 CombinadaCliente.Text = "" Then
            BotonModificar.Enabled = False
            BotonEliminar.Enabled = False
        Else
            BotonModificar.Enabled = True
            BotonEliminar.Enabled = True
        End If
        ' Indicar selección
        SeleccionCliente = CombinadaCliente.Text
    End Sub

    Private Sub NCliente_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(0).MenuItems(1).Enabled = True
            CType(Me.MdiParent, VentaTec).BarraEstado.Panels(0).Text = ""
        End If
    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 TextoTelefono_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoTelefono.TextChanged
        DatosNoGuardados = True
    End Sub

    Private Sub TextoContacto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoContacto.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 TextoWeb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoPortal.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 TextoNombre_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoNombre.TextChanged
        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 TextoCodigoPostal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoCodigoPostal.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 CombinadaListaPrecio_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaListaPrecio.SelectedIndexChanged
        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 CombinadaVendedor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaVendedor.SelectedIndexChanged
        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 CombinadaCuenta_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaCuenta.SelectedIndexChanged
        DatosNoGuardados = True
    End Sub

    Private Sub CombinadaCalificación_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombinadaCalificacion.SelectedIndexChanged
        DatosNoGuardados = True
    End Sub

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

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

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

    Private Sub TextoCredito_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextoCredito.TextChanged
        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 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 CombinadaCliente.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 cliente " & StrConv(CombinadaCliente.Text, VbStrConv.UpperCase) & LeyendaPermanente, LeyendaTituloMensaje, MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
                On Error Resume Next
                SubAbrirTablaBD("SELECT * FROM VCliente WHERE NombreCliente = '" & CombinadaCliente.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 = '" & CombinadaCliente.Text & "'")
                        SubAbrirTablaBD3("SELECT * FROM VTipoComprobanteProducto WHERE ClienteProveedor = '" & CombinadaCliente.Text & "'")
                        If TTabla2.Rows.Count = 0 And TTabla3.Rows.Count = 0 Then
                            ' Eliminar registro ya que no tiene comprobantes emitidos
                            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
                                CombinadaCliente.Items.Remove(CombinadaCliente.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 cliente no está vacía, puede suceder que deba hacer modifcar en vez de nuevo
        ' Saber también si está configurado preguntar
        If CombinadaCliente.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 VCliente")
            ' 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("NombreCliente") = TextoNombre.Text
                    FNTabla("CodigoCliente") = 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("Calificacion") = CombinadaCalificacion.Text
                    If TextoCredito.Text <> "" Then
                        FNTabla("CreditoMaximo") = CDbl(TextoCredito.Text)
                    Else
                        FNTabla("CreditoMaximo") = 0
                    End If
                    FNTabla("NombreTransporte") = CombinadaTransporte.Text
                    FNTabla("NombreListaPrecio") = CombinadaListaPrecio.Text
                    FNTabla("NombreVendedor") = CombinadaVendedor.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)
                    If CheckActivoSinCredito.CheckState = CheckState.Checked Then
                        FNTabla("ActivoSinCredito") = True
                    Else
                        FNTabla("ActivoSinCredito") = False
                    End If
                    If CheckClienteBloqueado.CheckState = CheckState.Checked Then
                        FNTabla("ClienteBloqueado") = True
                    Else
                        FNTabla("ClienteBloqueado") = False
                    End If
                    FNTabla("CuentaCorriente") = CombinadaCuenta.Text
                    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
                            CombinadaCliente.Items.Add(TextoNombre.Text)
                            ' Cambiar el nombre
                            CambioInterno = True
                            CombinadaCliente.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 CombinadaCliente.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 VCliente WHERE NombreCliente = '" & CombinadaCliente.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("NombreCliente") = TextoNombre.Text
                        FTabla("CodigoCliente") = 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("Calificacion") = CombinadaCalificacion.Text
                        If TextoCredito.Text <> "" Then
                            FTabla("CreditoMaximo") = CDbl(TextoCredito.Text)
                        Else
                            FTabla("CreditoMaximo") = 0
                        End If
                        FTabla("NombreTransporte") = CombinadaTransporte.Text
                        FTabla("NombreListaPrecio") = CombinadaListaPrecio.Text
                        FTabla("NombreVendedor") = CombinadaVendedor.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)
                        If CheckActivoSinCredito.CheckState = CheckState.Checked Then
                            FTabla("ActivoSinCredito") = True
                        Else
                            FTabla("ActivoSinCredito") = False
                        End If
                        If CheckClienteBloqueado.CheckState = CheckState.Checked Then
                            FTabla("ClienteBloqueado") = True
                        Else
                            FTabla("ClienteBloqueado") = False
                        End If
                        FTabla("CuentaCorriente") = CombinadaCuenta.Text
                        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 <> CombinadaCliente.Text Then
                                    ' Cambió el nombre
                                    ' Modificar la lista y seleccionar el nuevo
                                    CambioInterno = True
                                    With CombinadaCliente
                                        .Items.Add(TextoNombre.Text)
                                        .Items.Remove(.Text)
                                        .Text = TextoNombre.Text
                                    End With
                                    CambioInterno = False
                                End If
                                ' Deshabilitar la funcion no guardados
                                DatosNoGuardados = False
                            End If
                        End If
                    End If
                End If
                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 CombinadaCliente_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CombinadaCliente.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 NCliente_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 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

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

    Private Sub BotonVendedorRapido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotonVendedorRapido.Click
        If FnConAutorizacionVentana("NVendedor") Then
            Dim FrmNVendedor As New NVendedor
            ' ATENCION: VERIFICAR QUE EL USUARIO TENGA PERMISO
            FrmNVendedor.MdiParent = CType(Me.MdiParent, VentaTec)
            FrmNVendedor.Visible = True
        Else
            MessageBox.Show(LeyendaNoIngresoVentana, _
                            LeyendaTituloMensaje, _
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    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 CombinadaCliente_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CombinadaCliente.KeyUp
        Dim Ciclo As Int32
        If CombinadaCliente.Text <> "" Then
            On Error Resume Next
            ' Cargar clientes
            SubAbrirTablaBD2("SELECT * FROM VCliente WHERE NombreCliente LIKE '%" & CombinadaCliente.Text & "%'")
            ' Saber si hubo error
            If Not FnErrorADONET(Me) Then
                ' Cargar combinada
                CombinadaCliente.Items.Clear()
                For Ciclo = 0 To TTabla2.Rows.Count - 1
                    Dim FTabla2 As DataRow = TTabla2.Rows(Ciclo)
                    CombinadaCliente.Items.Add(FTabla2("NombreCliente").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
End Class
