- filtro de aplicapronto pago

-- filtro gastos, por proyecto/subproyecto

Contabilidad/RepGastosCC.aspx

@@ -206,6 +206,16 @@ table.adssigscroll {
                             <asp:ListItem Text="Con Importes" Value="2" Selected="True"></asp:ListItem>                                         
                         </asp:DropDownList>
                     </div>
+                   <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
+                    <div runat="server" id="DivProyecto" class="col-md-2">
+                        <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;"></asp:DropDownList>
+                    </div>
+                    <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
+                    <div runat="server" id="DivSubProyecto" class="col-md-2">                        
+                        <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                            <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                        </asp:DropDownList> 
+                    </div>                     
                 </div>
             </div>
         </div>

Contabilidad/RepGastosCC.aspx.vb

@@ -21,20 +21,23 @@ Partial Class RepGastosCC
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
-
             txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString()
             txtFechaF.Text = NowADS().ToShortDateString
             OrdenaDatos()
-
+            CargaCombos()
         End If
     End Sub
 
+    Private Sub CargaCombos()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
+
+    End Sub
+
 #Region " C A R G A - D A T O S "
     Public Sub CargaDatos()
         Dim Obj As New ClsContabilidad
 
-        If Obj.GetGastosRepCC(txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim().ToDate, UsuarioActual.CveEmpresa) Then
+        If Obj.GetGastosRepCC(txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim().ToDate, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
             Dim dt As DataTable = Obj.DtResultados
             If DdlOpcionCuenta.SelectedValue = "2" Then
                 dt = dt.FiltraParametros("Total > 0")