diff --git a/AF/RegistroRevision.aspx b/AF/RegistroRevision.aspx
new file mode 100644
index 000000000..32727f609
--- /dev/null
+++ b/AF/RegistroRevision.aspx
@@ -0,0 +1,210 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegistroRevision.aspx.vb" Inherits="AF_RegistroRevision" %>
+
+
+
+
+
+
+
+
+<%--
+
+
+
+ Nuevo Activo Fijo
+
+
+
+ PDF
+
+
+
+ Excel
+
+
+
+
+
+
+
+
+ --%>
+
+
+
+
+ Catálogo de Activos Fijos
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/AF/RegistroRevision.aspx.vb b/AF/RegistroRevision.aspx.vb
new file mode 100644
index 000000000..b1a64a62e
--- /dev/null
+++ b/AF/RegistroRevision.aspx.vb
@@ -0,0 +1,74 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AF_RegistroRevision
+ Inherits ClsPaginas
+
+#Region " PROPIEDADES"
+
+#End Region
+
+ Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+ If Not Page.IsPostBack Then
+
+ CargaCombos()
+
+ CargaDatos()
+
+ End If
+ End Sub
+
+
+#Region " CARGA PARAMETROS "
+
+#End Region
+
+#Region " CARGA COMBOS "
+ Protected Sub CargaCombos()
+ CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+ End Sub
+
+
+#End Region
+
+#Region " CARGA DATOS "
+ Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
+ CargaDatos()
+
+ End Sub
+
+
+#End Region
+
+#Region " GV DATOS "
+
+ Private Sub CargaDatos()
+
+ Dim ObjAF As New ClsAF
+
+
+ ObjAF.Dispose()
+
+ End Sub
+
+
+ Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+
+ End If
+
+ End Sub
+
+#End Region
+
+
+
+
+End Class
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 40f6c1946..68a9d44e3 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3950,6 +3950,7 @@ Public Class ClsPaginas
PaginaDict.Add("/AF/RepServicios.aspx".ToUpper(), -1)
PaginaDict.Add("/AF/RepDepreciacion.aspx".ToUpper(), -1)
PaginaDict.Add("/AF/RepEventosProgramados.aspx".ToUpper(), 656)
+ PaginaDict.Add("/AF/RegistroRevision.aspx".ToUpper(), 1251)
#End Region
'AIMMGM
#Region "AIMMGM"