diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 5ae6fb294..ec1c98082 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -150,7 +150,7 @@ Public Class ClsPaginas
 
             If Application("GlobalTipoCambioUltimaFluctuacion") IsNot Nothing Then
 
-                Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha = '{0}'", Fecha))
+                Dim dr = DirectCast(Application("GlobalTipoCambioUltimaFluctuacion"), DataTable).FiltroPrimero(String.Format("Fecha <= '{0}'", Fecha), Orderby:="Fecha DESC")
                 If dr IsNot Nothing Then
                     fluctuacion.TCFluctuacion = dr("TCFluctuacion").ToString().ToDecimal()
                     fluctuacion.FechaFluctuacion = dr("FechaFluctuacion").ToString().ToDateTime()
@@ -7132,13 +7132,7 @@ Public Class ClsPaginas
             Dim VendedorTelefono As String = ""
             Dim VendedorCelular As String = ""
 
-            Dim RowVendedor As DataRow = Nothing
-
-            Dim ObjVendedores As New ClsVtaVendedores
-            If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
-                RowVendedor = ObjVendedores.DtResultados.FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
-            End If
-            ObjVendedores.Dispose()
+            Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
 
             If Not IsNothing(RowVendedor) Then
                 VendedorNombre = RowVendedor("Vendedor").ToString