--FIX , validar que el rfc tenga datos

2025-01-02 10:12:34 -07:00
parent b5e87bde63
commit 3f38836147
1 changed files with 37 additions and 21 deletions
--- 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