From 5267af354ea031e6d69f6a7f2d6ccd93f990e1ab Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 6 Jun 2020 13:21:01 -0700
Subject: [PATCH] Recargar global secciones

---
 Sistemas/CatSesiones.aspx    | 135 ++++++++++++++++++-----------------
 Sistemas/CatSesiones.aspx.vb |  48 +++++++------
 2 files changed, 96 insertions(+), 87 deletions(-)

diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx
index 266a9afff..0f9885da8 100644
--- a/Sistemas/CatSesiones.aspx
+++ b/Sistemas/CatSesiones.aspx
@@ -1,67 +1,70 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatSesiones.aspx.vb" Inherits="Sistemas_CatSesiones" %>
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-   <asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
-        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-        <asp:ListItem Text="Usuarios" Value="GlobalDTUsuarios"></asp:ListItem>
-        <asp:ListItem Text="Empresas" Value="GlobalDTEmpresas"></asp:ListItem>
-        <asp:ListItem Text="Roles" Value="GlobalDTRoles"></asp:ListItem>
-        <asp:ListItem Text="Clientes" Value="GlobalDTCliente"></asp:ListItem>
-        <asp:ListItem Text="Monedas" Value="GlobalDTMonedas"></asp:ListItem>
-        <asp:ListItem Text="Proyectos" Value="GlobalDTProyectos"></asp:ListItem>
-        <asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem>
-        <asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem>
-        <asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem>     
-       <%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%>
-        <asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem>       
-        <asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem>
-        <asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem>
-        <asp:ListItem Text="Estados" Value="GlobalDTGralEstados"></asp:ListItem>
-        <asp:ListItem Text="Municipios" Value="GlobalDTGralMunicipios"></asp:ListItem>
-        <asp:ListItem Text="Poblaciones" Value="GlobalDTGralPoblaciones"></asp:ListItem>
-        <asp:ListItem Text="Escolaridades" Value="GlobalDTGralEscolaridades"></asp:ListItem>
-        <asp:ListItem Text="Almacen" Value="GlobalDTAlmacen"></asp:ListItem>
-        <asp:ListItem Text="Impuestos Locales" Value="GlobalDTImpuestosLocales"></asp:ListItem>
-        <asp:ListItem Text="Prospectos Cla" Value="GlobalDTProspectosClasificaciones"></asp:ListItem>
-        <asp:ListItem Text="Prospectos Coord" Value="GlobalDTProsCoordinadores"></asp:ListItem>
-        <asp:ListItem Text="Prospectos Sup" Value="GlobalDTProsSupervisores"></asp:ListItem>
-        <asp:ListItem Text="Bancos - Cuentas " Value="GlobalDTBancosCuentas"></asp:ListItem>
-        <asp:ListItem Text="OC - Estatus " Value="GlobalDTOCEstatus"></asp:ListItem>
-        <asp:ListItem Text="OC - Estatus Usuarios " Value="GlobalDTOCEstatusUsuarios"></asp:ListItem>
-        <asp:ListItem Text="Conta - Plantillas " Value="GlobalDTContaPlantillasPolizas"></asp:ListItem>
-        <asp:ListItem Text="Usuarios Activos" Value="UsuariosActivos"></asp:ListItem>
-        <asp:ListItem Text="ProductosServicios" Value="ProductosServicios"></asp:ListItem>
-       <asp:ListItem Text="ProductosServiciosSimplificado" Value="PSSimplificado"></asp:ListItem>
-        <asp:ListItem Text="CONAC" Value="CONAC"></asp:ListItem>
-        <asp:ListItem Text="Tipo Cambio" Value="TipoCambio"></asp:ListItem>
-       <asp:ListItem Text="Combustible" Value="GlobalDTCombustibles"></asp:ListItem>      
-        <asp:ListItem Text="Inventarios - PS Equivalencias" Value="GlobalDTProductosServiciosEquivalencias"></asp:ListItem>
-        <asp:ListItem Text="RH" Value="RH"></asp:ListItem>
-       <asp:ListItem Text="Ventas" Value="Ventas"></asp:ListItem>
-        <asp:ListItem Text="Precios Lista " Value="GlobalDTPrecioListas"></asp:ListItem>
-       <asp:ListItem Text="Paqueterias" Value="GlobalDTPaqueterias"></asp:ListItem>
-       <asp:ListItem Text="GlobalDTTiposGastos" Value="GlobalDTTiposGastos"></asp:ListItem>
-       <asp:ListItem Text="GlobalDTVtaTiposRelacion" Value="GlobalDTVtaTiposRelacion"></asp:ListItem>
-        <asp:ListItem Text="GlobalDTContratos" Value="GlobalDTContratos"></asp:ListItem>
-       <asp:ListItem Text="GlobalDTSATMotivoTraslado" Value="GlobalDTSATMotivoTraslado"></asp:ListItem>
-       <asp:ListItem Text="GlobalDTConceptosContables" Value="GlobalDTConceptosContables"></asp:ListItem>
-	   <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
-	   
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatSesiones.aspx.vb" Inherits="Sistemas_CatSesiones" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
+        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+        <asp:ListItem Text="Usuarios" Value="GlobalDTUsuarios"></asp:ListItem>
+        <asp:ListItem Text="Empresas" Value="GlobalDTEmpresas"></asp:ListItem>
+        <asp:ListItem Text="Roles" Value="GlobalDTRoles"></asp:ListItem>
+        <asp:ListItem Text="Clientes" Value="GlobalDTCliente"></asp:ListItem>
+        <asp:ListItem Text="Monedas" Value="GlobalDTMonedas"></asp:ListItem>
+        <asp:ListItem Text="Proyectos" Value="GlobalDTProyectos"></asp:ListItem>
+        <asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem>
+        <asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem>
+        <asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem>
+        <%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%>
+        <asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem>
+        <asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem>
+        <asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem>
+        <asp:ListItem Text="Estados" Value="GlobalDTGralEstados"></asp:ListItem>
+        <asp:ListItem Text="Municipios" Value="GlobalDTGralMunicipios"></asp:ListItem>
+        <asp:ListItem Text="Poblaciones" Value="GlobalDTGralPoblaciones"></asp:ListItem>
+        <asp:ListItem Text="Escolaridades" Value="GlobalDTGralEscolaridades"></asp:ListItem>
+        <asp:ListItem Text="Almacen" Value="GlobalDTAlmacen"></asp:ListItem>
+        <asp:ListItem Text="Impuestos Locales" Value="GlobalDTImpuestosLocales"></asp:ListItem>
+        <asp:ListItem Text="Prospectos Cla" Value="GlobalDTProspectosClasificaciones"></asp:ListItem>
+        <asp:ListItem Text="Prospectos Coord" Value="GlobalDTProsCoordinadores"></asp:ListItem>
+        <asp:ListItem Text="Prospectos Sup" Value="GlobalDTProsSupervisores"></asp:ListItem>
+        <asp:ListItem Text="Bancos - Cuentas " Value="GlobalDTBancosCuentas"></asp:ListItem>
+        <asp:ListItem Text="OC - Estatus " Value="GlobalDTOCEstatus"></asp:ListItem>
+        <asp:ListItem Text="OC - Estatus Usuarios " Value="GlobalDTOCEstatusUsuarios"></asp:ListItem>
+        <asp:ListItem Text="Conta - Plantillas " Value="GlobalDTContaPlantillasPolizas"></asp:ListItem>
+        <asp:ListItem Text="Usuarios Activos" Value="UsuariosActivos"></asp:ListItem>
+        <asp:ListItem Text="ProductosServicios" Value="ProductosServicios"></asp:ListItem>
+        <asp:ListItem Text="ProductosServiciosSimplificado" Value="PSSimplificado"></asp:ListItem>
+        <asp:ListItem Text="CONAC" Value="CONAC"></asp:ListItem>
+        <asp:ListItem Text="Tipo Cambio" Value="TipoCambio"></asp:ListItem>
+        <asp:ListItem Text="Combustible" Value="GlobalDTCombustibles"></asp:ListItem>
+        <asp:ListItem Text="Inventarios - PS Equivalencias" Value="GlobalDTProductosServiciosEquivalencias"></asp:ListItem>
+        <asp:ListItem Text="RH" Value="RH"></asp:ListItem>
+        <asp:ListItem Text="Ventas" Value="Ventas"></asp:ListItem>
+        <asp:ListItem Text="Precios Lista " Value="GlobalDTPrecioListas"></asp:ListItem>
+        <asp:ListItem Text="Paqueterias" Value="GlobalDTPaqueterias"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTTiposGastos" Value="GlobalDTTiposGastos"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTVtaTiposRelacion" Value="GlobalDTVtaTiposRelacion"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTContratos" Value="GlobalDTContratos"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTSATMotivoTraslado" Value="GlobalDTSATMotivoTraslado"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTConceptosContables" Value="GlobalDTConceptosContables"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem>
+
     </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 />
-    <br />
-    <asp:Label ID="LblTotal" runat="server" Text=""></asp:Label>
-    <asp:GridView ID="Gv" runat="server" Font-Size="6px" Font-Names="Verdana" CssClass="table table-striped table-advance table-hover" style="margin-top:-10px; text-align:center;" GridLines="None"></asp:GridView>
-</asp:Content>
-<asp:Content ID="Content" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
\ No newline at end of file
+      
+    <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 />
+    <asp:Label ID="LblTotal" runat="server" Text=""></asp:Label>
+    <asp:GridView ID="Gv" runat="server" Font-Size="6px" Font-Names="Verdana" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None"></asp:GridView>
+</asp:Content>
+<asp:Content ID="Content" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 943e3b585..0b2111830 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -59,7 +59,7 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "ProductosServicios" Then
             CargaProductosServicios()
         ElseIf DdlVariable.SelectedItem.Value = "PSSimplificado" Then
-            CargaProductosServiciossimplificado()
+            CargaProductosServiciosSimplificado()
 
         ElseIf DdlVariable.SelectedItem.Value = "CONAC" Then
             CargaCONAC()
@@ -88,14 +88,16 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATMotivoTraslado" Then
             CargaSATMotivoTraslado()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTConceptosContables" Then
-            CargaConceptosContables()
-		 ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
-            CargaDTClasificacionPorcentaje()
-        End If
-
-
-
-		
+            CargaConceptosContables()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
+            CargaDTClasificacionPorcentaje()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTInvPSSeccionesAlmacen" Then
+            CargaDTInvPSSeccionesAlmacen()
+        End If
+
+
+
+
     End Sub
     Private Sub CargaConceptosContables()
         Dim ObjContabilidad As New ClsContabilidad
@@ -363,8 +365,8 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaPaises()
         Dim Gral As New ClsGenerales
-        If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
-		If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
+        If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
+        If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
 
         Gral.Dispose()
     End Sub
@@ -552,14 +554,18 @@ Partial Class Sistemas_CatSesiones
         '    Response.Redirect(dominio)
         'End If
         LblTotal.Text = dominio
-    End Sub
-	
-	Private Sub CargaDTClasificacionPorcentaje()
-	
-		Dim ObjGenerales As New ClsGenerales
-         If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
-		 ObjGenerales.Dispose()
-		 
-   End Sub
-	
+    End Sub
+
+    Private Sub CargaDTClasificacionPorcentaje()
+
+        Dim ObjGenerales As New ClsGenerales
+        If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
+        ObjGenerales.Dispose()
+
+    End Sub
+
+    Private Sub CargaDTInvPSSeccionesAlmacen()
+        GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
+    End Sub
+
 End Class