--FIX

1.- Minusculas texto en buscar
2.- Alto del GRID
3.- Cambios en el combo Regimen y USO cuando cambias los radios de P. Fisica y Moral
4.- Telefono
5.- Boton Buscar
6.- Buscar LEN >=3

Ventas/Ventas.aspx.vb

@@ -25088,6 +25088,11 @@ Partial Class Ventas
     End Sub
 
     Private Sub LnkAgregarCliente_Click(sender As Object, e As EventArgs) Handles LnkAgregarCliente.Click
+        LimpiarAgregarCliente()
+        RegistraScript("showDivEC();")
+    End Sub
+
+    Private Sub LimpiarAgregarCliente()
         DivNombreCliente.Visible = False
         DivTipoPersona.Visible = False
         DivDireccionCliente.Visible = False
@@ -25102,6 +25107,7 @@ Partial Class Ventas
         divRegimenCliente.Visible = False
         divGiro.Visible = False
         DivBusquedaCliente.Visible = False
+        BtnRegresarBusqueda.Visible = False
 
         CargaEstados()
 
@@ -25119,8 +25125,9 @@ Partial Class Ventas
         TxtCorreoCliente.Text = ""
         TxtTelefonoCliente.Text = ""
 
-        If UsuarioActual.CveEmpresa = 189 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             TxtRFCNombre.Text = ""
+            BtnCrearCliente.Visible = True
 
             DivValidaRFC.Visible = False
             DivValidaPorNombre.Visible = True
@@ -25135,8 +25142,6 @@ Partial Class Ventas
         End If
 
         UpAgregarCliente.Update()
-
-        RegistraScript("showDivEC();")
     End Sub
 
     Protected Sub GvBusquedaCliente_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBusquedaCliente.RowDataBound
@@ -25153,6 +25158,12 @@ Partial Class Ventas
     End Sub
 
     Private Sub BtnValidaPorNombre_Click(sender As Object, e As EventArgs) Handles BtnValidaPorNombre.Click
+
+        If TxtRFCNombre.Text.Length <= 2 Then
+            Alert("Debe escribir al menos 3 caracteres", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjCliente As New ClsClientes
         If ObjCliente.BuscarClienteRFCNombre(TxtRFCNombre.Text, UsuarioActual.CveEmpresa) Then
             If ObjCliente.DtResultados.Rows.Count = 1 AndAlso TxtRFCNombre.Text.Trim() <> "XAXX010101000" Then
@@ -25278,6 +25289,8 @@ Partial Class Ventas
                 TxtDireccionCliente.Text = DrSP("Calle").ToString()
                 TxtNumExtCliente.Text = DrSP("NoExt").ToString()
                 TxtNumIntCliente.Text = DrSP("NoInt").ToString()
+                TxtCorreoCliente.Text = DrSP("Correo").ToString()
+                TxtTelefonoCliente.Text = DrSP("Telefono").ToString()
 
             End If
 
@@ -25307,6 +25320,12 @@ Partial Class Ventas
             End If
 
             DdlUsoCFDICliente.SelectedValueExist("3")
+
+            BtnCrearCliente.Visible = False
+            BtnValidarRFC.Visible = False
+            BtnRegresarBusqueda.Visible = True
+
+            UpAgregarCliente.Update()
         End If
 
     End Sub
@@ -37501,9 +37520,26 @@ Partial Class Ventas
 
         DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        'DdlUsoCFDICliente.Items.Clear()
-        'DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        CargaComboCFDICliente()
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            'PERSONA MORAL
+            If RdTipoPersona.SelectedValue = "1" Then
+                DdlRegimenFiscalCliente.SelectedValueExist("1")
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+                'PERSONA FISICA
+            Else
+                If TxtRFCCliente.Text.Trim() = "XAXX010101000" Then
+                    DdlRegimenFiscalCliente.SelectedValueExist("11")
+                Else
+                    DdlRegimenFiscalCliente.SelectedValueExist("9")
+                End If
+
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+            End If
+
+            DdlUsoCFDICliente.SelectedValueExist("3")
+        Else
+            CargaComboCFDICliente()
+        End If
 
         UpAgregarCliente.Update()
     End Sub
@@ -40135,5 +40171,9 @@ Partial Class Ventas
     Private Function EsRFC(texto As String) As Boolean
         Return Regex.IsMatch(texto, "^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$")
     End Function
+
+    Protected Sub BtnRegresarBusqueda_Click(sender As Object, e As EventArgs)
+        LimpiarAgregarCliente()
+    End Sub
 End Class