diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 3b4e5846f..cd97aafbd 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2592,7 +2592,7 @@ Partial Class Clientes
                 If TxtLimiteCredito.Text.ToDecimal = 0 OrElse TxtCobranzaContacto.Text.Trim = "" OrElse TxtCobranzaTelefono.Text.Trim = "" OrElse TxtDiasEspecifico.Text.Trim = "" OrElse TxtCobranzaCorreo.Text.Trim = "" Then
                     InformacionCompleta = False
                 End If
-                If DdlTipoPago.SelectedValue.ToEntero <= 0 Then InformacionCompleta = False
+                If DdlTipoPago.SelectedValue = "-1" Then InformacionCompleta = False
                 'si es el concepto de pagaré
                 tPagare = 0
                 For Each dRow As GridViewRow In GvDocumentosCliente.Rows
@@ -2611,11 +2611,12 @@ Partial Class Clientes
                 If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("EstatusTexto") = "Activo") Then InformacionCompleta = False
                 If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("CLABE") <> "") Then InformacionCompleta = False
                 If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("BancoNombre") <> "") Then InformacionCompleta = False
-                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("Sucursal") <> "") Then InformacionCompleta = False
+                'If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("Sucursal") <> "") Then InformacionCompleta = False
                 If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("Cuenta") <> "") Then InformacionCompleta = False
 
                 If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
                 If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
+                If DdlClasificacion.SelectedValue.ToEntero() <= 0 Then InformacionCompleta = False
             End If
 
             If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5e0531f71..7a182e510 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8423,7 +8423,8 @@ Partial Class Ventas
             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")
+                    Dim Faltante As String = ObjClie.DtResultados.FiltroPrimeroValor("Faltante")
+                    Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0} <br><br> Falta la siguiente información: <br>{1}", "Información incompleta", Faltante)
                     Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                     TieneBloqueoPorCreditoVencimiento = 1
                 End If