diff --git a/Ventas/AuxiliarCliente.aspx.vb b/Ventas/AuxiliarCliente.aspx.vb
index 26bbb200f..27a80e32b 100644
--- a/Ventas/AuxiliarCliente.aspx.vb
+++ b/Ventas/AuxiliarCliente.aspx.vb
@@ -58,6 +58,8 @@ Partial Class Ventas_AuxiliarCliente
         'DdlConceptosContables.DataBind()
         'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))
         CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSubProyecto.SelectedValuesIfExist("-1")
 
         txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
         txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
@@ -69,7 +71,7 @@ Partial Class Ventas_AuxiliarCliente
         Dim ObjConta As New ClsContabilidad
 
         'Falta PA
-        If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then
+        If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, DdlSubProyecto.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then
             If DdlOpcion.SelectedValue.ToEntero = 2 Then
                 GvAuxCliente.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 1 AND Importe >= 0,0,1) = 1")
             Else