From b247d1c95730ecfd417a4e2352ee53c5f607a514 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 19 Jun 2020 09:59:27 -0700
Subject: [PATCH] =?UTF-8?q?las=20opciones=20de=20paqueter=C3=ADa=20solo=20?=
 =?UTF-8?q?aparecen=20si=20la=20empresa=20tiene=20la=20funcionalidad=20de?=
 =?UTF-8?q?=20280?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx    | 2 +-
 Ventas/Ventas.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 1e6d4ba18..0788c929b 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -3313,7 +3313,7 @@
                             <tr align="left" id="trPaqueteriaOpciones" runat="server" visible="false">
                                 <td colspan="2">
                                     <asp:RadioButtonList runat="server" ID="RblPaqueteria">
-                                        <asp:ListItem Value="1" Text="Entrega En Mostrador" />
+                                        <asp:ListItem Value="1" Selected="True" Text="Entrega En Mostrador" />
                                         <asp:ListItem Value="2" Text="Entrega Interna" />
                                         <asp:ListItem Value="3" Text="Entrega Externa" />
                                     </asp:RadioButtonList>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 53404b0dc..27898d0ca 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25708,7 +25708,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub MostrarOpcioensPaqueteria()
-        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped")
+        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped") And UsuarioActual.Empresa.Funcionalidad(280) = "1"
         trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
         trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq
     End Sub