From 7823b9556f7a9a05be02f5de9b898e2ed555f5e2 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 20:33:19 -0700 Subject: [PATCH] -- subproyecto --- Ventas/AuxiliarCliente.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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