AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

las opciones de paquetería solo aparecen si la empresa tiene la funcionalidad de 280

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-06-19 09:59:27 -07:00
parent 1c5f96ab4a
commit b247d1c957
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Ventas.aspx
View File

@@ -3313,7 +3313,7 @@
<tr align="left" id="trPaqueteriaOpciones" runat="server" visible="false"> <tr align="left" id="trPaqueteriaOpciones" runat="server" visible="false">
<td colspan="2"> <td colspan="2">
<asp:RadioButtonList runat="server" ID="RblPaqueteria"> <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="2" Text="Entrega Interna" />
<asp:ListItem Value="3" Text="Entrega Externa" /> <asp:ListItem Value="3" Text="Entrega Externa" />
</asp:RadioButtonList> </asp:RadioButtonList>

2
Ventas/Ventas.aspx.vb
View File

@@ -25708,7 +25708,7 @@ Partial Class Ventas
End Sub End Sub
Private Sub MostrarOpcioensPaqueteria() 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 trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq
End Sub End Sub