- mejoras en envio del detalle

Acumuladores/RepIndicadorDiarioDetalle.aspx.vb

@@ -24,22 +24,27 @@ Partial Class Acumuladores_RepIndicadorDiarioDetalle
 
     Private Sub CargaParametrosDetalle()
 
-        Dim Opcion As Integer = If(Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToEntero() > 0, Request("Opcion").ToEntero(), -1)
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        Dim Partida As Integer = If(Request("Partida") IsNot Nothing AndAlso Request("Partida").ToEntero() > 0, Request("Partida").ToEntero(), -1)
+        DdlOpcion.SelectedValueExist(Partida.ToEntero)
 
         Dim CveSubProyecto As Integer = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1)
+        DdlSubProyecto.SelectedValueExist(CveSubProyecto)
 
-
-
+        txtFechaI.Text = If(Request("FI") IsNot Nothing AndAlso Request("FI").ToString <> "", Request("FI").ToString.ToDate, MinFecha).ToShortDateString
+        txtFechaF.Text = If(Request("FF") IsNot Nothing AndAlso Request("FF").ToString <> "", Request("FF").ToString.ToDate, MinFecha).ToShortDateString
+        CargaDatos(Partida)
     End Sub
 #End Region
 
 #Region "   CARGA DATOS   "
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-        CargaDatos()
+        CargaDatos(1)
         UPDatos.Update()
     End Sub
 
-    Private Sub CargaDatos()
+    Private Sub CargaDatos(opcion As Integer)
 
         Dim ObjAcum As New ClsAcumuladores()
 
@@ -47,7 +52,7 @@ Partial Class Acumuladores_RepIndicadorDiarioDetalle
         FechaI = txtFechaI.Text.ToDate
         FechaF = txtFechaF.Text.ToDate
 
-        If ObjAcum.GetRepIndicadorDiarioDetalle(FechaI, FechaF, 1, -1, UsuarioActual.CveEmpresa) Then
+        If ObjAcum.GetRepIndicadorDiarioDetalle(FechaI, FechaF, DdlOpcion.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjAcum.DtResultados
         Else
             GvDatos.DataSource = Nothing
@@ -58,6 +63,14 @@ Partial Class Acumuladores_RepIndicadorDiarioDetalle
 
     End Sub
 
+    Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("SerieFolio") = "" Then
+                e.Row.CssClass = "SubTotales"
+            End If
+        End If
+    End Sub
+
 
 #End Region