diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 9215c6c91..9d5c24792 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -3031,7 +3031,7 @@ Partial Class PV
         'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy
         'ObjVendedores.Dispose()
 
-        DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).Copy
 
         If DtVendedores IsNot Nothing Then
             If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then