--FIX varios

Ventas/Ventas.aspx.vb

@@ -8284,6 +8284,16 @@ Partial Class Ventas
             End If
         End If
 
+        'SOLO HABILITAR PARA GENERAR NOTAS DE CREDITO
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Not PermiteCredito AndAlso Not LnkSolicitarCredito.Visible Then
+            LnkSolicitarCredito.Visible = True
+
+            If DdlSolCreditoTipoDocto.Items.FindByValue("Ing") IsNot Nothing Then
+                DdlSolCreditoTipoDocto.Items.Remove(DdlSolCreditoTipoDocto.Items.FindByValue("Ing"))
+            End If
+
+        End If
+
         If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Ped") Then
             'ENVIO DE FACTURA
             ChkEnviarFactura.Checked = False