Mostrar vendedor al imprimir pdf, cambios en filtro del global

App_Code/ClsPaginas.vb

@@ -5730,7 +5730,7 @@ Public Class ClsPaginas
             Dim VendedorMail As String = ""
             Dim VendedorTelefono As String = ""
             Dim VendedorCelular As String = ""
-            Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
+            Dim RowVendedor As DataRow = GlobalDTVendedores(Vta.CveEmpresa, VendedorTipo:=-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
             If Not IsNothing(RowVendedor) Then
                 VendedorNombre = RowVendedor("Vendedor").ToString
                 VendedorMail = RowVendedor("Correo").ToString

Sistemas/CatSesiones.aspx

@@ -62,8 +62,9 @@
         <asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem> 
         <asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTActivoFijos" Value="GlobalDTActivoFijos"></asp:ListItem> 
+        <asp:ListItem Text="GlobalDTVendedoresOld" Value="GlobalDTVendedoresOld"></asp:ListItem> 
 
-    </asp:DropDownList>&nbsp;&nbsp; 
+    </asp:DropDownList>&nbsp;&nbsp; 
       
     <asp:Button ID="BtnCargar" runat="server" Text="Cargar" class="btn btn-primary" />&nbsp;&nbsp;<asp:Button ID="BtnRefresh" runat="server" Text="Consultar" class="btn btn-primary" />
     <br />

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