From c485cfed6e6197fb5a3738bd46806ba235cc47f9 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 18 Dec 2024 07:27:59 -0700 Subject: [PATCH] =?UTF-8?q?-activaci=C3=B3n=20para=20citroagro?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/FluctuacionCambiaria.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 0f05a15ee..a2ff0baa0 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -643,7 +643,7 @@ Partial Class Bancos_FluctuacionCambiaria End Sub Private Function AjusteFluctuacion(CvePrePoliza As Integer, TipoFluctuacion As Integer, CveConcepto As Integer, FechaUltimoDaMes As Date, ByRef ObjConta As ClsContabilidad, Optional CveVenta As Integer = -1, Optional CveCliente As Integer = -1, Optional CveCompra As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean - If Not UsuarioActual.CveEmpresa.Contiene(119, 172) Then Return True + If Not UsuarioActual.CveEmpresa.Contiene(119, 172, 174) Then Return True Dim ErrorRegistrar As Boolean = False Dim tdt As DataTable = VerificacionFluctuacion(TipoFluctuacion, FechaUltimoDiaMes)