Indicadores por Proyecto

CxC/RepCxC.aspx.vb

@@ -91,20 +91,56 @@ Partial Class RepCxC
 #End Region
 
 
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
         If Not IsPostBack Then
             Index = 0
             Modalidad = ""
             CargaCombos()
             CargaGvPersonalizarRaqngoColumnas()
+            ProcesaRequest()
             CargaDatos()
             If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
             ActivaEnviarEstadoCuenta()
             If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True
         End If
+
     End Sub
 
 #Region "CARGAS"
+
+
+    Private Sub ProcesaRequest()
+
+        If Request("FechaInicio") IsNot Nothing AndAlso IsDate(Request("FechaInicio")) Then
+            txtFechaI.Text = Request("FechaInicio")
+        End If
+        If Request("FechaFin") IsNot Nothing AndAlso IsDate(Request("FechaFin")) Then
+            txtFechaF.Text = Request("FechaFin")
+        End If
+
+        If Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").Length > 0 Then
+            Dim tipodoctos As String() = Request("TipoDocto").Split(","c)
+
+            For Each itemTipoDocto As ListItem In DdlTipoDocto.Items
+                For Each tipoDocto As String In tipodoctos
+                    itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
+                Next
+            Next
+
+        End If
+
+        If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then
+            DdlMoneda.SelectedValueExist(Request("CveMoneda").ToEntero)
+        End If
+
+        If Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero <> 0 Then
+            DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero)
+        End If
+
+
+    End Sub
+
     Private Sub CargaCombos()
         'CargaClientes
         If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then