From 8deccde93296d2ff889191f06322c98b1569d787 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 8 Jan 2020 12:24:41 -0700
Subject: [PATCH] agregando validacion de un nuevo proceso

---
 Ventas/Ventas.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index df9cc6906..f84070629 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14252,7 +14252,8 @@ Partial Class Ventas
 
 
         'AGREGA PS ADICIONAL
-        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
+        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza AndAlso Not UsuarioActual.TienePermisoProceso(284) Then
+
             For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows
                 Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero
                 Dim DrPoliza As DataRow = TmpDT.NewRow()
@@ -14334,6 +14335,8 @@ Partial Class Ventas
                     TmpDT.Rows.Add(DrPoliza)
                 End If
             Next
+
+
         End If
 
         Retorno = True