From af8da10471dc64f2cbf7b43c2815563e7da12ab5 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 2 Jan 2025 18:26:16 -0700
Subject: [PATCH] --FIX. validaciones alta cliente rapido

---
 Ventas/Ventas.aspx.vb | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 696b9964d..22e4680b8 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25165,14 +25165,14 @@ Partial Class Ventas
 
         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
+            If ObjCliente.DtResultados.Rows.Count = 1 AndAlso Not TxtRFCNombre.Text.Trim().Contiene("XAXX010101000", "XEXX010101000") Then
                 RegistraScript("hideDivEC();")
                 ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString().ToEntero()
                 HdnCveCliente.Value = ObjCliente.DtResultados(0)("CveCliente").ToString()
                 CargaCliente(CveCliente)
                 UpCliente.Update()
 
-            ElseIf ObjCliente.DtResultados.Rows.Count > 0 AndAlso TxtRFCNombre.Text.Trim() <> "XAXX010101000" Then
+            ElseIf ObjCliente.DtResultados.Rows.Count > 0 AndAlso Not TxtRFCNombre.Text.Trim().Contiene("XAXX010101000", "XEXX010101000") Then
                 DivBusquedaCliente.Visible = True
                 GvBusquedaCliente.DataSource = ObjCliente.DtResultados
                 GvBusquedaCliente.DataBind()
@@ -25390,6 +25390,21 @@ Partial Class Ventas
             RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {CveRegimenFiscal}")
         End If
 
+        If TxtRFCCliente.Text.Trim().Length < 12 Then
+            Alert("El RFC no es valido.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If DdlUsoCFDICliente.SelectedValue.ToEntero() <= 0 Then
+            Alert("El 'Uso CFDI' es requerido.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If DdlRegimenFiscalCliente.SelectedValue.ToEntero() <= 0 Then
+            Alert("El 'Régimen Fiscal' es requerido.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue <> "11" Then
             Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
             Exit Sub