diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 20e522fe0..04ee94e89 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7943,6 +7943,16 @@ Partial Class Ventas
                                 End If
                             End If
 
+                            'SOLO HABILITAR PARA GENERAR NOTAS DE CREDITO
+                            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                LnkSolicitarCredito.Visible = True
+
+                                If DdlSolCreditoTipoDocto.Items.FindByValue("Ing") IsNot Nothing Then
+                                    DdlSolCreditoTipoDocto.Items.Remove(DdlSolCreditoTipoDocto.Items.FindByValue("Ing"))
+                                End If
+
+                            End If
+
                         End If