Correcion en catalogo de subtipos de AF

AF/CatTipos.aspx.vb

@@ -104,11 +104,7 @@ Partial Class AF_CatTipos
         UpDatos.Update()
     End Sub
     Private Sub CargaGlobal()
-        Dim ObjTipo As New ClsAF
-        If ObjTipo.GetTiposActivosFijos(-1) Then
-            GlobalDTTipoActivoFijo(-1) = ObjTipo.DtResultados
-        End If
-        ObjTipo.Dispose()
+        GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
 #Region " G V - D A T O S"