diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index ad042738c..f38080777 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -528,6 +528,25 @@ Public Class ClsClientes
         Return Retorno
     End Function
 
+    Public Function GetClienteInformacionCompleta(CveCliente As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ClientesInformacionCompletaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener la información completa.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 
     Public Function AddCliente(Nombre As String, NombreComercial As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String,
                                Contacto As String, Mail As String, MailCotizacion As String, Notificar As String, Pagina As String, Giro As String, CvePrecioLista As Integer, EnviarFactura As Boolean, RetIVA As Double, RetISR As Double,
@@ -544,7 +563,7 @@ Public Class ClsClientes
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
                                Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
-                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False, Optional CveSubProyectoCobranza As Integer = -1) As Boolean
+                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False, Optional CveSubProyectoCobranza As Integer = -1, Optional InformacionCompleta As Boolean = True) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -683,6 +702,7 @@ Public Class ClsClientes
             .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial
             .Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora
             .Add("@CveSubProyectoCobranza", SqlDbType.Int).Value = CveSubProyectoCobranza
+            .Add("@InformacionCompleta", SqlDbType.Bit).Value = InformacionCompleta
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -729,7 +749,7 @@ Public Class ClsClientes
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
                                 Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
                                 Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
-                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False, Optional CveSubProyectoCobranza As Integer = -1) As Boolean
+                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False, Optional CveSubProyectoCobranza As Integer = -1, Optional InformacionCompleta As Boolean = True) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -878,6 +898,7 @@ Public Class ClsClientes
             .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial
             .Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora
             .Add("@CveSubProyectoCobranza", SqlDbType.Int).Value = CveSubProyectoCobranza
+            .Add("@InformacionCompleta", SqlDbType.Bit).Value = InformacionCompleta
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index f99b79160..320c35caf 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -3785,6 +3785,10 @@
                                            
                                             <asp:CheckBox ID="ChkEstado" runat="server" CssClass="make-switchsd" data-size="small" />
                                         </div>
+                                        <div class="form-group" id="DivInfoCompleta" runat="server" visible="false">
+                                            Información Completa:
+                                            <asp:CheckBox ID="ChkInformacionCompleta" runat="server" CssClass="make-switchsd" data-size="small" />
+                                        </div>
                                         <div class="form-group">
                                             Fecha de Captura:
                                            
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index daa096874..88a3b7885 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -682,6 +682,9 @@ Partial Class Clientes
             RegistraScript("CargaHeader();")
             CargaCombosDirecionesClientesSAT()
 
+            If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                DivInfoCompleta.Visible = True
+            End If
 
             If UsuarioActual.Empresa.CvePlataforma = 3 Then  'SI ES USUARIO GPS
                 TabFiscalContable.Visible = True
@@ -1760,6 +1763,8 @@ Partial Class Clientes
                 End If
 
 
+                ChkInformacionCompleta.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("InformacionCompleta").ToString())
+
                 'Horario
                 TxtHorario.Text = ObjClientes.Horario
                 TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision
@@ -2570,6 +2575,19 @@ Partial Class Clientes
             Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
             Exit Sub
 
+        End If
+
+        Dim InformacionCompleta As Boolean = True
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+
+            If TxtRFC.Text.Trim() = "" Then
+                InformacionCompleta = False
+            End If
+
+            If DivInfoCompleta.Visible Then
+                InformacionCompleta = ChkInformacionCompleta.Checked
+            End If
         End If
 
         'CargaSucursal()
@@ -2679,7 +2697,7 @@ Partial Class Clientes
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                         TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
                                         CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente,
-                                        CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero()) Then
+                                        CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero(), InformacionCompleta:=InformacionCompleta) Then
 
                         CveClienteNuevo = ObjClientes.CveCliente
 
@@ -2764,7 +2782,7 @@ Partial Class Clientes
                                             CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
                                             NoDesglosaIVA:=Not ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito,
                                             Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenConsignacion:=DdlAlmacenConsignacion.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked,
-                                            EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero()) Then
+                                            EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal, Aseguradora:=ChkAseguradora.Checked, CveSubProyectoCobranza:=DdlSubProyectoCobranza.SelectedValue.ToEntero(), InformacionCompleta:=InformacionCompleta) Then
 
                         If Not ObjClientes.LimpiaImpuestosLocales(Me.CveCliente) Then
                             ErrorProceso = True
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index dbece0253..c7fcb1d25 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8371,6 +8371,24 @@ Partial Class Ventas
             LblEnviarMail.Visible = True
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            Dim ObjClie As New ClsClientes
+            If ObjClie.GetClienteInformacionCompleta(CveCliente, UsuarioActual.CveEmpresa) Then
+                If Not CBool(ObjClie.DtResultados.FiltroPrimeroValor("InformacionCompleta")) Then
+                    Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", "Información incompleta")
+                    Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+
+                    BtnEmitirImprimir.Visible = False
+                    BtnsFacturar.Visible = False
+                    BtnGenerarRemision.Visible = False
+
+                    TieneBloqueoPorCreditoVencimiento = 1
+                End If
+            End If
+            ObjClie.Dispose()
+        End If
+
+
     End Sub