-- activación de grid de cuentas de contabilidad para E172

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