From f88b519507bf01162b998699dcbee7b25f1e5c83 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 25 Aug 2021 17:19:11 -0700
Subject: [PATCH] Correcion en configuracion de permisos de TipoDocto

---
 Ventas/Ventas.aspx.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index cb4716e0e..c18431878 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18070,8 +18070,12 @@ Partial Class Ventas
             If Not UsuarioActual.TienePermisoProceso(60) Then
                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ing"))
                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
-                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
-                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev"))
+                If Not UsuarioActual.TienePermisoProceso(175) Then
+                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Egs"))
+                End If
+                If Not UsuarioActual.TienePermisoProceso(264) Then
+                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Dev"))
+                End If
             End If
 
             'Puede remisionar