--FIX , validar que el rfc tenga datos

Ventas/Ventas.aspx.vb

@@ -25233,6 +25233,8 @@ Partial Class Ventas
             DdlRegimenFiscalCliente.DataBind()
             CargaComboCFDICliente()
         Else
+
+            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
@@ -25256,6 +25258,20 @@ Partial Class Ventas
                     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
+
 
             RFVDireccionC.Visible = True
             RFVNoEC.Visible = True