-- indicador diario detalle

Acumuladores/RepIndicadorDiarioDetalle.aspx.vb

@@ -0,0 +1,67 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.IO
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+Imports System.IO.Compression
+
+Partial Class Acumuladores_RepIndicadorDiarioDetalle
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+            CargaParametrosDetalle()
+
+        End If
+    End Sub
+
+
+#Region "  CARGA DATOS INICIALES  "
+
+
+    Private Sub CargaParametrosDetalle()
+
+        Dim Opcion As Integer = If(Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToEntero() > 0, Request("Opcion").ToEntero(), -1)
+
+        Dim CveSubProyecto As Integer = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1)
+
+
+
+    End Sub
+#End Region
+
+#Region "   CARGA DATOS   "
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+        UPDatos.Update()
+    End Sub
+
+    Private Sub CargaDatos()
+
+        Dim ObjAcum As New ClsAcumuladores()
+
+        Dim FechaI, FechaF As Date
+        FechaI = txtFechaI.Text.ToDate
+        FechaF = txtFechaF.Text.ToDate
+
+        If ObjAcum.GetRepIndicadorDiarioDetalle(FechaI, FechaF, 1, -1, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjAcum.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjAcum.Dispose()
+        GvDatos.DataBind()
+
+    End Sub
+
+
+#End Region
+
+
+
+
+End Class