From 3f388361477b8a024398638ad7a80b8f9ba94b21 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 2 Jan 2025 10:12:34 -0700
Subject: [PATCH] --FIX , validar que el rfc tenga datos

---
 Ventas/Ventas.aspx.vb | 58 +++++++++++++++++++++++++++----------------
 1 file changed, 37 insertions(+), 21 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0a60504ad..4e6421a58 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25233,29 +25233,45 @@ Partial Class Ventas
             DdlRegimenFiscalCliente.DataBind()
             CargaComboCFDICliente()
         Else
-            Dim ObjCliente As New ClsClientes
-            If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
-                If ObjCliente.DtResultados.Rows.Count > 0 Then
-                    RegistraScript("hideDivEC();")
-                    ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString().ToEntero()
-                    HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString()
-                    CargaCliente(CveCliente)
-                    UpCliente.Update()
-                Else
-                    DivNombreCliente.Visible = True
-                    DivTipoPersona.Visible = True
-                    DivDireccionCliente.Visible = True
-                    DivNumeroCPCliente.Visible = True
-                    'DivColoniaTelefonoCliente.Visible = True
-                    DivCiudadLocalidadCliente.Visible = True
-                    DivEstadoPaisCliente.Visible = True
-                    DivCorreoCuentaCliente.Visible = True
-                    DivBotonesAgregarCliente.Visible = True
-                    DivFormaCliente.Visible = True
-                    divRegimenCliente.Visible = True
+
+            If TxtRFCCliente.Text.Trim.Length > 2 Then
+                Dim ObjCliente As New ClsClientes
+                If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
+                    If ObjCliente.DtResultados.Rows.Count > 0 Then
+                        RegistraScript("hideDivEC();")
+                        ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString().ToEntero()
+                        HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString()
+                        CargaCliente(CveCliente)
+                        UpCliente.Update()
+                    Else
+                        DivNombreCliente.Visible = True
+                        DivTipoPersona.Visible = True
+                        DivDireccionCliente.Visible = True
+                        DivNumeroCPCliente.Visible = True
+                        'DivColoniaTelefonoCliente.Visible = True
+                        DivCiudadLocalidadCliente.Visible = True
+                        DivEstadoPaisCliente.Visible = True
+                        DivCorreoCuentaCliente.Visible = True
+                        DivBotonesAgregarCliente.Visible = True
+                        DivFormaCliente.Visible = True
+                        divRegimenCliente.Visible = True
+                    End If
                 End If
+                ObjCliente.Dispose()
+            Else
+                DivNombreCliente.Visible = True
+                DivTipoPersona.Visible = True
+                DivDireccionCliente.Visible = True
+                DivNumeroCPCliente.Visible = True
+                'DivColoniaTelefonoCliente.Visible = True
+                DivCiudadLocalidadCliente.Visible = True
+                DivEstadoPaisCliente.Visible = True
+                DivCorreoCuentaCliente.Visible = True
+                DivBotonesAgregarCliente.Visible = True
+                DivFormaCliente.Visible = True
+                divRegimenCliente.Visible = True
             End If
-            ObjCliente.Dispose()
+
 
             RFVDireccionC.Visible = True
             RFVNoEC.Visible = True