AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- subproyecto

Browse Source
This commit is contained in:
rrene
2024-09-26 20:33:19 -07:00
parent 072e349e31
commit 7823b9556f
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Ventas/AuxiliarCliente.aspx.vb
View File

@@ -58,6 +58,8 @@ Partial Class Ventas_AuxiliarCliente
'DdlConceptosContables.DataBind() 'DdlConceptosContables.DataBind()
'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto) 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") txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
txtFechaF.Text = NowADS().ToString("dd/MM/yyyy") txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
@@ -69,7 +71,7 @@ Partial Class Ventas_AuxiliarCliente
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
'Falta PA '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 If DdlOpcion.SelectedValue.ToEntero = 2 Then
GvAuxCliente.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 1 AND Importe >= 0,0,1) = 1") GvAuxCliente.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 1 AND Importe >= 0,0,1) = 1")
Else Else