AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mostrar vendedor al imprimir pdf, cambios en filtro del global

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-02-21 19:16:23 -07:00
parent 81e9d80095
commit 636038503a
3 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -5730,7 +5730,7 @@ Public Class ClsPaginas
Dim VendedorMail As String = "" Dim VendedorMail As String = ""
Dim VendedorTelefono As String = "" Dim VendedorTelefono As String = ""
Dim VendedorCelular 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 If Not IsNothing(RowVendedor) Then
VendedorNombre = RowVendedor("Vendedor").ToString VendedorNombre = RowVendedor("Vendedor").ToString
VendedorMail = RowVendedor("Correo").ToString VendedorMail = RowVendedor("Correo").ToString

3
Sistemas/CatSesiones.aspx
View File

@@ -62,8 +62,9 @@
<asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem> <asp:ListItem Text="GlobalDTTipoTransacciones" Value="GlobalDTTipoTransacciones"></asp:ListItem>
<asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem> <asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem>
<asp:ListItem Text="GlobalDTActivoFijos" Value="GlobalDTActivoFijos"></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" /> <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 /> <br />

16
Sistemas/CatSesiones.aspx.vb
View File

@@ -102,12 +102,28 @@ Partial Class Sistemas_CatSesiones
ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
CargaSATGenerales() CargaSATGenerales()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then
CargaActivoFijos()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then
CargaActivoFijos() CargaActivoFijos()
End If End If
End Sub 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() Private Sub CargaActivoFijos()
GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing