From a094ea4fb9068b54b93ed95224508ec66bec419e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Feb 2023 14:33:55 -0700
Subject: [PATCH] -- agregado de activos fijos

---
 Sistemas/CatSesiones.aspx    |  1 +
 Sistemas/CatSesiones.aspx.vb | 10 ++++++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx
index a311a8d4f..45c8d4313 100644
--- a/Sistemas/CatSesiones.aspx
+++ b/Sistemas/CatSesiones.aspx
@@ -61,6 +61,7 @@
         <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem> 
         <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:DropDownList>&nbsp;&nbsp; 
       
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index f309669f8..e2d5886d9 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -101,12 +101,18 @@ Partial Class Sistemas_CatSesiones
             CargaGlobalDTTipoTransacciones()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then
             CargaSATGenerales()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then
+            CargaActivoFijos()
         End If
 
 
-
-
     End Sub
+
+    Private Sub CargaActivoFijos()
+        GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
+    End Sub
+
     Private Sub CargaSATGenerales()
         Using ObjGrales As New ClsGenerales
             If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados