Recargar global secciones

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