From d943e372bf7fcd712958ee925b06140a70d2474a Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Jul 2025 12:53:23 -0700 Subject: [PATCH] - --- 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 b5664eab5..f98cd4fd3 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -641,7 +641,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, 174) Then Return True + If Not UsuarioActual.CveEmpresa.Contiene(119, 172, 174, 189) Then Return True Dim ErrorRegistrar As Boolean = False Dim tdt As DataTable = VerificacionFluctuacion(TipoFluctuacion, FechaUltimoDiaMes)