-- agrupador por "Zona"

App_Code/ClsMovimientos.vb

@@ -1539,7 +1539,7 @@ Public Class ClsMovimientos
     Public Function GetRepRecuperacion(FechaI As Date, FechaF As Date, CveCliente As Integer, CveSubProyecto As Integer,
                                        CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String,
                                        CveEmpresa As Integer, Gpo As Integer, CveResponsable As Integer,
-                                       Optional TipoDocto As String = "-1",
+                                       Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1,
                                        Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
                                        Optional CveBanco As Integer = -1, Optional CveCuenta As Integer = -1,
                                        Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
@@ -1554,6 +1554,7 @@ Public Class ClsMovimientos
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveVendedor", SqlDbType.VarChar).Value = CveVendedor
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
@@ -1588,7 +1589,7 @@ Public Class ClsMovimientos
         End Try
         Return Retorno
     End Function
-    Public Function GetRepRecuperacionPerido(FechaI As Date, FechaF As Date, CveCliente As Integer, CveSubProyecto As Integer,
+    Public Function GetRepRecuperacionPerido(FechaI As Date, FechaF As Date, CveCliente As Integer, CveProyecto As Integer, CveSubProyecto As Integer,
                                        CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String,
                                        CveEmpresa As Integer, Gpo As Integer, CveResponsable As Integer,
                                         TipoDocto As String, EstatusCliente As Integer, CveUsuarioConsulta As Integer,
@@ -1600,6 +1601,7 @@ Public Class ClsMovimientos
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveVendedor", SqlDbType.VarChar).Value = CveVendedor
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
@@ -1627,7 +1629,7 @@ Public Class ClsMovimientos
     Public Function GetRepRecuperacionDetalle(FechaI As Date, FechaF As Date, CveCliente As Integer, CveSubProyecto As Integer,
                                  CveVendedor As Integer, CveUsuario As Integer, CveClienteSucursal As Integer,
                                  CveEstatus As Integer, IVA As String, Agrupador As Integer, CveEmpresa As Integer,
-                                 CveResponsable As Integer, Optional TipoDocto As String = "-1",
+                                 CveResponsable As Integer, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1,
                                  Optional CveUsuarioConsulta As Integer = -1, Optional CveBanco As Integer = -1,
                                  Optional CveCuenta As Integer = -1, Optional Grupo As String = "-1",
                                  Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
@@ -1644,6 +1646,7 @@ Public Class ClsMovimientos
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveVendedor", SqlDbType.VarChar).Value = CveVendedor
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario

Ventas/RepRecuperacion.aspx

@@ -76,14 +76,18 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            <div class="col-md-1 truncate">Sucursal:</div>
+                             <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
-                            <div class="col-md-2 ">
+                             <div runat="server" id="DivProyecto" class="col-md-1">
-                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                 <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;"></asp:DropDownList>
-                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                             </div>
-                                </asp:DropDownList>
+                           <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
+                            <div runat="server" id="DivSubProyecto" class="col-md-1">
+                               <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                             </asp:DropDownList>
                             </div>                            
                             <div class="col-md-1 truncate">Grupo:</div>
-                            <div class="col-md-2 truncate">
+                            <div class="col-md-1 truncate">
                                 <asp:DropDownList ID="DdlGrupo" runat="server" CssClass="form-control  input-small input-sm select2me" Width="100%">
                                     <asp:ListItem Text="Año Venta" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Mes Venta" Value="2"></asp:ListItem>

Ventas/RepRecuperacion.aspx.vb

@@ -108,8 +108,12 @@ Partial Class Ventas_RepRecuperacion
         End If
 
         'Carga SubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
+        'DdlSubProyecto.DataBind()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
+
+        If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Add(New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "18"))
 
         'Carga Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
@@ -149,7 +153,6 @@ Partial Class Ventas_RepRecuperacion
         txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}"
         txtFechaF.Text = NowADS().ToShortDateString
 
-
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             lblEsDistribuidor.Visible = True
             divEsDistribuidor.Visible = True
@@ -169,13 +172,12 @@ Partial Class Ventas_RepRecuperacion
 
         Dim FechaAplicadoI As Date = If(IsDate(TxtFechaAplicadoI.Text), TxtFechaAplicadoI.Text.ToDate, MinFecha)
         Dim FechaAplicadoF As Date = If(IsDate(TxtFechaAplicadoF.Text), TxtFechaAplicadoF.Text.ToDate, MaxFecha)
-
         Dim FechaRegistroIEI As Date = If(IsDate(TxtFechaRegistroIEI.Text), TxtFechaRegistroIEI.Text.ToDate, MinFecha)
         Dim FechaRegistroIEF As Date = If(IsDate(TxtFechaRegistroIEF.Text), TxtFechaRegistroIEF.Text.ToDate, MaxFecha)
 
 
         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,
+                                        "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveProyecto:=DdlProyecto.SelectedValue.ToEntero, 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,
                                         CveMoneda:=DdlMoneda.SelectedValue.ToEntero) Then
@@ -220,15 +222,15 @@ Partial Class Ventas_RepRecuperacion
                 End If
             End If
 
-            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}",
+            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}&CveProyecto={26}",
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, e.Row.DBCampo("CveCondicionesPago"), e.Row.DBCampo("CveTipoTransaccion"))
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, e.Row.DBCampo("CveCondicionesPago"), e.Row.DBCampo("CveTipoTransaccion"), e.Row.DBCampo("CveProyecto"))
 
             e.Row.FCHyperLink("HplPagado").NavigateUrl = Liga4
 
-            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}",
+            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}&CveCondicionesPago={24}&CveTipoTransaccion={25}&CveProyecto={26}",
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, e.Row.DBCampo("CveCondicionesPago"), e.Row.DBCampo("CveTipoTransaccion"))
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF, e.Row.DBCampo("CveCondicionesPago"), e.Row.DBCampo("CveTipoTransaccion"), e.Row.DBCampo("CveProyecto"))
 
             e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
 
@@ -241,8 +243,6 @@ Partial Class Ventas_RepRecuperacion
                         e.Row.CssClass = "SubTotales"
                     End If
                 End If
-
-
             End If
 
         End If
@@ -259,6 +259,23 @@ Partial Class Ventas_RepRecuperacion
         DdlCuentaBancaria.DataBind()
     End Sub
 
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargaSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
+    End Sub
+    Public Sub CargaSubProyecto(DdlSubProyecto As DropDownList, CveProyecto As String, Optional AplicaTodos As String = "Todos")
+        DdlSubProyecto.Items.Clear()
+        DdlSubProyecto.ClearSelection()
+        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero(), Estatus:=1))
+        DdlSubProyecto.DataBind()
+        If AplicaTodos <> "" Then
+            If DdlSubProyecto.GetType() Is GetType(ListBox) Then
+                'DdlSubProyecto.Text = "Seleccione"
+            Else
+                DdlSubProyecto.Items.Insert(0, New ListItem(If(CveProyecto <> "-1", AplicaTodos, "Todos"), "-1"))
+            End If
+        End If
+    End Sub
 #End Region
 
 #Region "IMPRESIONES"

Ventas/RepRecuperacionDetalle.aspx

@@ -81,14 +81,18 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            <div class="col-md-1 truncate">Sucursal: </div>
+                              <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
-                            <div class="col-md-2 ">
+                              <div runat="server" id="DivProyecto" class="col-md-1">
+                                  <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;"></asp:DropDownList>
+                              </div>
+                            <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
+                             <div runat="server" id="DivSubProyecto" class="col-md-1">
                                 <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control  input-small input-sm select2me" Width="100%">
-                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                  <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
+                              </asp:DropDownList>
-                            </div>
+                             </div>
                             <div class="col-md-1 truncate"> Grupo: </div>
-                            <div class="col-md-2 truncate">
+                            <div class="col-md-1 truncate">
                                 <asp:DropDownList ID="DdlGrupo" runat="server" CssClass="form-control  input-small input-sm select2me" Width="100%">
                                     <asp:ListItem Text="Año de Venta" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Mes de Venta" Value="2"></asp:ListItem>

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -94,7 +94,7 @@ Partial Class Ventas_RepRecuperacionDetalle
 #Region "CARGAS"
 
     Private Sub CargaCombos()
-        Dim CveCliente, CveVendedor, CveUsuario, CveSubProyecto,
+        Dim CveCliente, CveVendedor, CveUsuario, CveProyecto, CveSubProyecto,
          CveEstatus, CveResponsable, CveAgrupador, CveBanco, CveCuenta, CveClienteSucursal, CveMoneda, CveClienteClasificacion As Integer
         Dim FechaI, FechaF, TipoDocto, TipoCambio, FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF As String
 
@@ -111,9 +111,11 @@ Partial Class Ventas_RepRecuperacionDetalle
             DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Add(New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "18"))
         'Carga SubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
+        'DdlSubProyecto.DataBind()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
 
         'Carga Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
@@ -180,6 +182,7 @@ Partial Class Ventas_RepRecuperacionDetalle
 
         TipoDocto = IfNull(Request("TipoDocto"), "-1").ToString
         CveClienteSucursal = IfNull(Request("CveClienteSucursal"), "-1").ToString.ToEntero
+        CveProyecto = IfNull(Request("CveProyecto"), "-1").ToString.ToEntero
         CveSubProyecto = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
         CveVendedor = IfNull(Request("Vendedor"), "-1").ToString.ToEntero
         CveCliente = IfNull(Request("CveCliente"), "-1").ToString.ToEntero
@@ -225,6 +228,7 @@ Partial Class Ventas_RepRecuperacionDetalle
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
 
         DdlVendedor.SelectedValueExist(CveVendedor)
+        DdlProyecto.SelectedValueExist(CveProyecto)
         DdlSubProyecto.SelectedValueExist(CveSubProyecto)
         If CveCliente > 0 Then
             DdlClientes.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
@@ -268,7 +272,7 @@ Partial Class Ventas_RepRecuperacionDetalle
         If ObjMovtos.GetRepRecuperacionDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero,
                                    DdlClienteSucursal.SelectedValue.ToEntero, -1,
                                    Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero,
-                                   DdlTipoDocto.SelectedValue, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero, Grupo:=Grupo,
+                                   DdlTipoDocto.SelectedValue, CveProyecto:=DdlProyecto.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero, Grupo:=Grupo,
                                    TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, Tipo:=Tipo,
                                    EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF,
                                     CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero) Then