Maquinaria

AF/RepRevision.aspx.vb

@@ -0,0 +1,183 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AF_RepRevision
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES"
+
+    Property DT_Cabeceras As DataTable
+        Get
+
+            If ViewState("DT_Cabeceras") Is Nothing Then
+
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DT_Cabeceras"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_Cabeceras") = value
+        End Set
+    End Property
+
+
+    Property DT_Datos As DataTable
+        Get
+
+            If ViewState("DT_Datos") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DT_Datos"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_Datos") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaCombos()
+            CargaDatos()
+
+            Dim FechaActual As Date = Now
+
+
+            TxtFechaF.Text = $"{FechaActual.Day.ToString("00")}/{FechaActual.Month.ToString("00")}/{FechaActual.Year}"
+            FechaActual = FechaActual.AddDays(-30)
+            TxtFechaI.Text = $"{FechaActual.Day.ToString("00")}/{FechaActual.Month.ToString("00")}/{FechaActual.Year}"
+
+        End If
+    End Sub
+
+
+#Region " CARGA PARAMETROS "
+
+#End Region
+
+#Region "  CARGA COMBOS  "
+    Protected Sub CargaCombos()
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        DdlTipoActivo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
+        DdlTipoActivo.DataBind()
+        DdlTipoActivo.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    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
+
+        If ObjAF.GetMetricasValores(-1, -1, -1, -1, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa) Then
+
+            DT_Cabeceras = ObjAF.DSResultados.Tables(0)
+            DT_Datos = ObjAF.DSResultados.Tables(1)
+
+            'GvDatos.DataSource = ObjAF.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+
+        'GvDatos.DataBind()
+        'UpDatos.Update()
+
+        If DT_Datos.Rows.Count > 0 Then
+            CargaTablas()
+        End If
+
+
+    End Sub
+
+    Private Sub CargaTablas()
+
+        Dim IDX_LIMPIAR As Integer = 1
+
+        '5
+        For IDX_LIMPIAR = 2 To 16
+            CType(GvDatos.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing
+            CType(GvDatos.Columns(IDX_LIMPIAR), BoundField).HeaderText = ""
+            GvDatos.Columns(IDX_LIMPIAR).Visible = False
+        Next
+
+        Dim x As Integer = 0
+        Dim limite As Integer = DT_Cabeceras.Rows.Count - 1
+
+
+        For x = 0 To limite
+            CType(GvDatos.Columns(x + 2), BoundField).DataField = DT_Datos.Columns(5 + x).ColumnName
+            CType(GvDatos.Columns(x + 2), BoundField).HeaderText = DT_Cabeceras.Rows(x)("Metrica").ToString
+            GvDatos.Columns(x + 2).Visible = True
+        Next x
+
+        GvDatos.DataSource = DT_Datos
+        GvDatos.DataBind()
+
+        UpDatos.Update()
+        'For IDX_LIMPIAR = 2 To 17
+        'CType(GvDatos.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing
+        'CType(GvDatos.Columns(IDX_LIMPIAR), BoundField).HeaderText = DT_Cabeceras.Rows()
+        'Next
+
+    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
+
+
+
+
+    Protected Sub LnkEliminarMetricaValor_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+
+
+    Protected Sub DdlTipoActivo_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        DdlSubTipoActivo.Items.Clear()
+        DdlSubTipoActivo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoActivo.SelectedValue), "SubTipoActivoFijo")
+        DdlSubTipoActivo.DataBind()
+        DdlSubTipoActivo.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        UpFiltro.Update()
+
+    End Sub
+End Class