--Información completa

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