cambio en globaldt

2021-03-09 19:35:49 -07:00
parent 0d77883d18
commit 15ad2e8f9f
2 changed files with 38 additions and 13 deletions
--- a/AF/CatSubTipos.aspx.vb
+++ b/AF/CatSubTipos.aspx.vb
@@ -23,11 +23,12 @@ Partial Class AF_CatSubTipos
    End Sub

    Private Sub CargaGlobal()
-        Dim ObjSubTipos As New ClsAF
-        If ObjSubTipos.GetSubTiposActivosFijos(-1) Then
-            GlobalDTSubTipoActivoFijo(-1) = ObjSubTipos.DtResultados
-        End If
-        ObjSubTipos.Dispose()
+        'Dim ObjSubTipos As New ClsAF
+        'If ObjSubTipos.GetSubTiposActivosFijos(-1) Then
+        '    GlobalDTSubTipoActivoFijo(-1) = ObjSubTipos.DtResultados
+        'End If
+        'ObjSubTipos.Dispose()
+        GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
    End Sub

    Public Sub CargaDatos()