-- agregado de activos fijos

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; 
       

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