Indicadores por Proyecto

Ventas/RepRecuperacion.aspx.vb

@@ -48,12 +48,51 @@ Partial Class Ventas_RepRecuperacion
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
-            'CargaDatos()
+            ProcesaRequest()
+            'CargaDatos()
         End If
-    End Sub
-
+    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
+
+        UPFiltros.Update()
+
+        If IsDate(txtFechaF.Text) AndAlso IsDate(txtFechaF.Text) Then
+            CargaDatos()
+        End If
+
+    End Sub
+
+
     Private Sub CargaCombos()
         'Carga Clientes
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
@@ -138,7 +177,8 @@ Partial Class Ventas_RepRecuperacion
         If ObjMovtos.GetRepRecuperacion(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
                                         "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero,
                                         EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero) Then
+                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero,
+                                        CveMoneda:=DdlMoneda.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
         Else