From f4b4267d505b5dc7411bd817e7278791f56356e6 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Dec 2024 18:30:59 -0700 Subject: [PATCH] filtro de espresupuestal --- App_Code/ClsContratos.vb | 4 +++- Ashx/CargaEventos.ashx | 6 +++--- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index cdbabf36e..640d3a133 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -202,7 +202,8 @@ Public Class ClsContratos Optional CveTipoAF As Integer = -1, Optional CveChofer As Integer = -1, Optional CveTipoContrato As Integer = -1, Optional FechaInicioIngreso As DateTime = MinFecha, - Optional FechaFinIngreso As DateTime = MaxFecha) As Boolean + Optional FechaFinIngreso As DateTime = MaxFecha, + Optional EsPresupuestal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Con_ContratosReporteGet") @@ -218,6 +219,7 @@ Public Class ClsContratos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@FechaInicioIngreso", SqlDbType.DateTime).Value = FechaInicioIngreso .Add("@FechaFinIngreso", SqlDbType.DateTime).Value = FechaFinIngreso + .Add("@EsPresupuestal", SqlDbType.Int).Value = EsPresupuestal End With Try SqlAdapter.Fill(Data) diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index f4212eb22..0cd9c804a 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -520,10 +520,10 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState If Not CveCliente > 0 Then CveCliente = -1 - End If - + End If + 'no se consideran, los presupuestales If ObjContratos.GetContratosReporte(usuarioActual_.CveEmpresa, FI.ToString.ToDate, FF.ToString.ToDate, CveCliente:=CveCliente, CveTipoAF:=CveTipoActivoFijo, - CveTipoContrato:=34, CveEstatus:=CveContratoEstatus) Then + CveTipoContrato:=34, CveEstatus:=CveContratoEstatus, EsPresupuestal:=0) Then 'CveTipoAF 'CveChofer, CveChofer2