Indicadores por Proyecto

Compras/RepCxP.aspx.vb

@@ -92,6 +92,7 @@ Partial Class Compras_RepCxP
         If Not Page.IsPostBack Then
             CargaCombos()
             CargaGvPersonalizarRaqngoColumnas()
+            ProcesaRequest()
             CargaDatos()
 
             If UsuarioActual.CveRol = 1 Then
@@ -101,6 +102,36 @@ Partial Class Compras_RepCxP
     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()
 
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then