diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index df645373f..e4527b0af 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6446,6 +6446,7 @@ Partial Class Ventas
     Private Sub CargaUsoCFDI()
         DdlUsoCFDI.Items.Clear()
         DdlSucursalUsoCFDI.Items.Clear()
+        DdlUsoCFDI.ClearSelection()
 
         Dim EsPersonaMoral As Boolean = (TipoPersona = True)
 
@@ -6780,7 +6781,7 @@ Partial Class Ventas
                 ViewState("CliPais") = ObjCliente.Pais
                 ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal
 
-                RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString()
+                RegimenFiscalCliente = If(ObjCliente.CveRegimenFiscal > 0, ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString(), "")
                 RegimenSociedad = ObjCliente.DtResultados(0)("RegimenSociedad").ToString()
                 TipoPersona = CBool(ObjCliente.DtResultados(0)("TipoPersona"))
                 CargaUsoCFDI()
@@ -24050,20 +24051,20 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        'If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue <> "23" Then
-        '    Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
+        If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue <> "23" Then
+            Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
         If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
             Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
-        If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
-            Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
+        '    Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If
 
         Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
         Dim DtUsosCFDI As DataTable = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}")