Filtro por proyecto de cxp

Compras/RepCxPDetalle.aspx.vb

@@ -167,6 +167,14 @@ Partial Class RepCxPDetalle
         Set(value As Integer)
             ViewState("CveSubProyecto") = value
         End Set
+    End Property
+    Public Property CveProyecto() As Integer
+        Get
+            Return ViewState("CveProyecto").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveProyecto") = value
+        End Set
     End Property
     Private Property DtDatos As DataTable
         Get
@@ -317,7 +325,10 @@ Partial Class RepCxPDetalle
         CveUsuario = IfNull(Request("CveUsuario"), -1).ToString.ToEntero
         CveEstatusFactura = IfNull(Request("CveEstatusFactura"), -1).ToString.ToEntero
         CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
+        CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero
 
+        DdlProyecto.SelectedValueExist(CveProyecto)
+        DdlSubProyecto.SelectedValueExist(CveSubProyecto)
 
         DdlEstatusCompra.DataSource = GlobalDTCompEstatusFactura.FiltraParametros("CveEstatusFactura IN (1, 2)")
         DdlEstatusCompra.DataBind()
@@ -408,10 +419,10 @@ Partial Class RepCxPDetalle
             CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
 
             If ObjMovtos.GetCxPDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlProveedoresClasificaciones.SelectedValue.ToEntero, CveProveedorSucursal, CveUsuario,
-                                       DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, CveSubProyecto, DdlEstatusCompra.SelectedValue.ToEntero,
+                                       DdlUsuarioResponsable.SelectedValue.ToEntero, Anio, Mes, AnioMes, Ddlmoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero(), DdlEstatusCompra.SelectedValue.ToEntero,
                                        Fecha, DdlGrupo.SelectedValue.ToEntero, Opcion, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero,
                                        TCEspecifico, FechaVI, FechaVF, FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=IIf(CveTipoProveedor = 3,
-                                       -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto) Then
+                                       -1, CveTipoProveedor), Comprobaciones:=DdlComprobacion.SelectedValue.ToEntero, AplicaNC:=DdlAplicaNC.SelectedValue.ToEntero(), TipoDocto:=TipoDocto, CveProyecto:=DdlProyecto.SelectedValue.ToEntero()) Then
 
 
                 Dim TMP_DTDatos As New DataTable