diff --git a/Ventas/RepVentasDetalle.aspx.vb b/Ventas/RepVentasDetalle.aspx.vb
index e17983fda..727b45648 100644
--- a/Ventas/RepVentasDetalle.aspx.vb
+++ b/Ventas/RepVentasDetalle.aspx.vb
@@ -204,6 +204,7 @@ Partial Class RepVentasDetalle
 
         DdlProyecto.SelectedValueExist(CveProyecto)
         'If DivProyecto.Visible Then CargaSubProyecto()
+        If CveProyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
         DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
         DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion)
         DdlVendedor.SelectedValuesIfExistM(CveVendedor)
@@ -317,7 +318,7 @@ Partial Class RepVentasDetalle
     End Sub
 
     Private Sub CargaCombos()
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
         CargaClientes()
 
 
@@ -371,7 +372,7 @@ Partial Class RepVentasDetalle
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
     End Sub
 
     Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -432,6 +433,7 @@ Partial Class RepVentasDetalle
         Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))
 
         ChkLecturaAdmin.Checked = Not ModalidadContable
+        CveProyecto = DdlProyecto.SelectedValue.ToEntero
 
         Dim ObjVentas As New ClsVentas()
         'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero
@@ -1211,14 +1213,10 @@ Partial Class RepVentasDetalle
             CveEstatusFactura = If(DdlEstatus.GetSelectedText = "", "", $"&emsp;<b>Estatus:</b>&nbsp;{DdlEstatus.GetSelectedText}")
             CondicionesPago = If(DdlCondicionesPago.SelectedValue = "-1", "", String.Format("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text))
 
-
             Dim RutaFormato As String = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta)
-
             Dim Archivo As New System.IO.FileInfo(RutaFormato)
             Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-
             Dim logouri As String = String.Format("file://{0}", Imagen.FullName)
-
             Dim dt As DataTable = DtVentas.FiltraParametros("(GPO IS NULL AND Cantidad IS NOT NULL) OR (GPO IS NOT NULL AND Cantidad IS NOT NULL)")
 
             Dim params As New List(Of ReportParameter)
@@ -1229,11 +1227,8 @@ Partial Class RepVentasDetalle
             params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("TipoDocto", TipoDocto))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Grupo}  {TipoDocto} {FechaIn} {FechaFn} {FechaIEjec} {FechaFEjec} {CveCliente} {CveSucursal} {CveSucursalEjec}  {Vendedor} {CveUsuario}  {CveEstatusFactura} {CondicionesPago} "))
-
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
-
-
             If Not Archivo.Exists Then
                 RutaFormato = "Empresas/Grales/Formatos/RepVentaDetalle.rdlc"
             End If