From 8a42f0a1c02e8c349b1205f0e47219e299eb78aa Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Wed, 12 Aug 2020 15:57:36 -0700 Subject: [PATCH] inicial registro revision --- AF/RegistroRevision.aspx | 210 ++++++++++++++++++++++++++++++++++++ AF/RegistroRevision.aspx.vb | 74 +++++++++++++ App_Code/ClsPaginas.vb | 1 + 3 files changed, 285 insertions(+) create mode 100644 AF/RegistroRevision.aspx create mode 100644 AF/RegistroRevision.aspx.vb 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 + + + + + + + + +
    +
    +
    + + + + + + +
    +
    + +
    + + +
    +
    + +
    +
    Fecha:
    +
    +
    + +
    + + + + +
    + + + <%-- + --%> + +
    +
    +
    + + +
    +
    + +
    + +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + + + + + 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"