diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 426f396e0..5ae6fb294 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7131,13 +7131,22 @@ Public Class ClsPaginas
             Dim VendedorMail As String = ""
             Dim VendedorTelefono As String = ""
             Dim VendedorCelular As String = ""
-            Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
+
+            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()
+
             If Not IsNothing(RowVendedor) Then
                 VendedorNombre = RowVendedor("Vendedor").ToString
                 VendedorMail = RowVendedor("Correo").ToString
                 VendedorTelefono = RowVendedor("Telefono").ToString
                 VendedorCelular = RowVendedor("Celular").ToString
             End If
+
             params.Add(New ReportParameter("VendedorNombre", VendedorNombre))
             params.Add(New ReportParameter("VendedorMail", VendedorMail))
             params.Add(New ReportParameter("VendedorTelefono", VendedorTelefono))