From 780e5e3558030cc8fc4b4473829e436ebbd77af1 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 10 Dec 2024 11:07:30 -0700 Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20de=20grid=20de=20cuentas?= =?UTF-8?q?=20de=20contabilidad=20para=20E172?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/FluctuacionCambiaria.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index fdc792aba..0f05a15ee 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -643,7 +643,8 @@ 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 UsuarioActual.CveEmpresa <> 119 Then Return True + If Not UsuarioActual.CveEmpresa.Contiene(119, 172) Then Return True + Dim ErrorRegistrar As Boolean = False Dim tdt As DataTable = VerificacionFluctuacion(TipoFluctuacion, FechaUltimoDiaMes) CveConcepto = 299 ' manual