From 6c2458f45694ec38e908daa1fd2a2ed376aef6b0 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 22 Nov 2022 07:45:04 -0700 Subject: [PATCH] -- mejora --- Ventas/Ventas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2580050e6..a10832cd9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2407,7 +2407,7 @@ Partial Class Ventas UpFacturar.Update() 'CargaTiposDocumentos() TrEmitir.Visible = False - If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) Then + If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83, 172, 173) Then DivCartaPorte.Visible = True End If ViewState("EstablecioFolio") = False @@ -17750,7 +17750,7 @@ Partial Class Ventas End If 'SI NO TIENE LA FUNCIONALIDAD VALIDARA LAS MONEDAS - If Not UsuarioActual.Empresa.Funcionalidad(524) <> "" Then + If UsuarioActual.Empresa.Funcionalidad(524) <> "" Then If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count >= 1 Then Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0) If DrPS IsNot Nothing Then