Ajustes AF

AF/CatModelos.aspx.vb

@@ -3,10 +3,11 @@ Option Strict On
 
 Imports System.Data
 Imports System.Linq
+Imports CFDi
 Imports Extensiones
 
 Partial Class AF_CatModelos
-	Inherits ClsPaginas
+    Inherits ClsPaginas
 
 #Region " PROPIEDADES"
 
@@ -71,7 +72,13 @@ Partial Class AF_CatModelos
         CargaDatos()
         ObjAF.Dispose()
         UpDatos.Update()
+        RegarGlobalDT()
     End Sub
+
+    Private Sub RegarGlobalDT()
+        GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
+    End Sub
+
     Public Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         HdnModalidad.Value = "U"
@@ -101,6 +108,7 @@ Partial Class AF_CatModelos
         End If
         ObjAF.Dispose()
         UpDatos.Update()
+        RegarGlobalDT()
     End Sub
     Private Sub GvModelo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvModelos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then