From ecb88c7dc7e12285bb61df97aacf1524b1e35d49 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 30 Dec 2024 11:47:55 -0700
Subject: [PATCH] --FIX buscador RFC/Nombre

---
 Ventas/Ventas.aspx    |  2 +-
 Ventas/Ventas.aspx.vb | 42 +++++++++++++++++++++++++++++++++++++++---
 2 files changed, 40 insertions(+), 4 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index cdad14650..fc26e3cb5 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -8228,7 +8228,7 @@
                                 <div class="row">
                                     <asp:Panel ID="PnlValidaNombre" runat="server" DefaultButton="BtnValidaPorNombre">
                                         <div class="form-group form-md-line-input input-iconright col-xs-9">
-                                            <asp:TextBox ID="TxtRFCNombre" Style="text-transform: uppercase;" placeholder="Ingrese el RFC/Nombre para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                            <asp:TextBox ID="TxtRFCNombre" Style="text-transform: uppercase;" placeholder="Ingrese el RFC/Nombre para su validación" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                             <label for="<%= TxtRFCNombre.ClientID.ToString()%>">RFC / Nombre:</label>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright col-xs-3" style="display:flex;">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 39adff7c8..cf5bb2b82 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9112,7 +9112,7 @@ Partial Class Ventas
         End If
 
         'SI ESTA HABILITADO LA OPCION DE DESCUENTO, SE AGREGO UN DESCUENTO MANUAL Y NO TIENE PROMOCION
-        If GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Enabled AndAlso (ObjDescuento.CvePromocionDetalle <= 0 AndAlso ObjDescuento.ImporteDescuento <= 0) AndAlso DescuentoManual > 0 Then
+        If GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Enabled Then
             ObjDescuento.ImporteDescuento = DescuentoManual
         End If
 
@@ -25083,6 +25083,21 @@ Partial Class Ventas
 
         CargaEstados()
 
+        TxtNombreCliente.Text = ""
+        TxtRFCCliente.Text = ""
+        TxtRegimenSociedad.Text = ""
+        DdlEstadoSAT.SelectedValueExist("-1")
+        TxtCiudadCliente.Text = ""
+        TxtLocalidadCliente.Text = ""
+        TxtColoniaCliente.Text = ""
+        TxtCPCliente.Text = ""
+        TxtDireccionCliente.Text = ""
+        TxtNumExtCliente.Text = ""
+        TxtNumIntCliente.Text = ""
+        TxtCorreoCliente.Text = ""
+        TxtTelefonoCliente.Text = ""
+
+
         If UsuarioActual.CveEmpresa = 189 Then
             TxtRFCNombre.Text = ""
 
@@ -25135,7 +25150,16 @@ Partial Class Ventas
                 DivValidaRFC.Visible = True
                 DivValidaPorNombre.Visible = False
                 DivBusquedaCliente.Visible = False
-                TxtRFCCliente.Text = TxtRFCNombre.Text
+
+                'VERIFICAR SI EL TEXTO DE ENTRADA ES UN NOMBRE O UN RFC
+                If TxtRFCNombre.Text.Length > 13 Then
+                    TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+                ElseIf EsRFC(TxtRFCNombre.Text.Trim()) Then
+                    TxtRFCCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+                Else
+                    TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+                End If
+
                 BtnValidarRFC_Click(Nothing, EventArgs.Empty)
             End If
         End If
@@ -40034,9 +40058,21 @@ Partial Class Ventas
         DivValidaRFC.Visible = True
         DivValidaPorNombre.Visible = False
         DivBusquedaCliente.Visible = False
-        TxtRFCCliente.Text = TxtRFCNombre.Text
+
+        'VERIFICAR SI EL TEXTO DE ENTRADA ES UN NOMBRE O UN RFC
+        If TxtRFCNombre.Text.Length > 13 Then
+            TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+        ElseIf EsRFC(TxtRFCNombre.Text.Trim()) Then
+            TxtRFCCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+        Else
+            TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+        End If
 
         BtnValidarRFC_Click(Nothing, EventArgs.Empty)
     End Sub
+
+    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
 End Class