filtro de espresupuestal

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)

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