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

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

View File

@@ -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