Mostrar vendedor al imprimir pdf, cambios en filtro del global

Sistemas/CatSesiones.aspx.vb

@@ -102,12 +102,28 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
             CargaSATGenerales()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then
+            CargaActivoFijos()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then
             CargaActivoFijos()
         End If
 
 
     End Sub
 
+    Private Sub CargaGlobalDTVendedoresOld()
+        Dim AppNombre As String = $"GlobalDTVendedores-{-1}"
+        If HttpContext.Current.Application(AppNombre) Is Nothing Then
+            Dim ObjVendedores As New ClsVtaVendedores
+            If ObjVendedores.GetVendedores(-1) Then
+                For Each Row As DataRow In ObjVendedores.DtResultados.Rows
+                    Row("VendedorTipo") = 1
+                Next
+                HttpContext.Current.Application(AppNombre) = ObjVendedores.DtResultados.Copy()
+            End If
+            ObjVendedores.Dispose()
+        End If
+    End Sub
+
     Private Sub CargaActivoFijos()
         GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing