diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f95d74192..25b9992a0 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4817,7 +4817,8 @@ Partial Class Ventas
                         Else
                             BtnGenerarRemision.Visible = False
                         End If
-                        BtnsFacturar.Visible = True
+                        If UsuarioActual.TienePermisoProceso(60) Then BtnsFacturar.Visible = True 'puede facturar
+
                         LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
                     End If
                 End If
@@ -5893,7 +5894,7 @@ Partial Class Ventas
                 LnkCotizaciones.Visible = False
             End If
             UPCondicionesPago.Update()
-        ElseIf UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then
+        ElseIf UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119, 140, 158) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta < 1 Then
             RBLPago.SelectedValue = "1"
             RBLPago_SelectedIndexChanged(Nothing, Nothing)
             UPCondicionesPago.Update()
@@ -5956,7 +5957,7 @@ Partial Class Ventas
                 End If
             Else
 
-                If UsuarioActual.CveEmpresa = 119 AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
+                If UsuarioActual.CveEmpresa.Contiene(119) AndAlso Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "Ant", "PA") Then
                     Dim Vta As New ClsVentas
                     Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
                     Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
@@ -5988,6 +5989,9 @@ Partial Class Ventas
                     LnkPedido2SinFacturar.Visible = False
                     LnkCotizaciones.Visible = False
                     LnkOCs.Visible = False
+
+                Else
+                    If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
                 End If
             End If
             UPPCreditoDisponible.Update()