From 2e6a1deace8214a539b165cc8174593438f39020 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 4 Sep 2020 19:16:04 -0700 Subject: [PATCH] --funcionalidad de bloqueo de registro del mes siguiente --- Compras/Compras.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 62d1d7386..d096c8df3 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1353,7 +1353,7 @@ Partial Class Compras_Compras ''End If 'Carga Compra - If UsuarioActual.Empresa.Funcionalidad(123).ToEntero > 0 And Not UsuarioActual.TienePermisoProceso(156) Then + If UsuarioActual.Empresa.Funcionalidad(123) <> "" And Not UsuarioActual.TienePermisoProceso(156) Then If Not ValidaCierrePeriodo() Then Alert("El periodo de la compra actual ya se encuentra cerrado. No podra registrar la compra.", TipoMensaje.MsgAdvertencia) BtnGuardar.Visible = False @@ -14224,7 +14224,7 @@ Partial Class Compras_Compras Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click Dim Opcion As Integer = 1 - If UsuarioActual.CveEmpresa.Contiene(119, 72) Then Opcion = 2 + If UsuarioActual.CveEmpresa.Contiene(119, 72, 1) Then Opcion = 2 Dim ObjCompras As New ClsCompras