From e4aad65c480f5a1e194874b12d3d3f9bd7ce86b3 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 13 Mar 2023 17:25:44 -0700 Subject: [PATCH] Recarga global de usos cfdi --- Sistemas/CatSesiones.aspx | 3 ++- Sistemas/CatSesiones.aspx.vb | 8 ++++++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx index 1fa95012e..f52c824f5 100644 --- a/Sistemas/CatSesiones.aspx +++ b/Sistemas/CatSesiones.aspx @@ -63,7 +63,8 @@ - + +    diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index 1e88d9a3e..86e0d8236 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -106,12 +106,16 @@ Partial Class Sistemas_CatSesiones ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then CargaActivoFijos() ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAC" Then - cargaAC() + cargaAC() + ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATUsosCFDI" Then + CargaUsosCFDI() End If End Sub - + Private Sub CargaUsosCFDI() + HttpContext.Current.Application("GlobalDTSATUsosCFDI") = Nothing + End Sub Private Sub CargaGlobalDTVendedoresOld() Dim AppNombre As String = $"GlobalDTVendedores-{-1}" If HttpContext.Current.Application(AppNombre) Is Nothing Then