cambios en formatos de usados y agregando nuevo filtro de busqueda a repCortes

Bancos/RepCortes.aspx

@@ -112,6 +112,11 @@
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList runat="server" ID="DdlSubProyectos" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm">
+
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
                 <%--                <div class="portlet-body magindate" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>

Bancos/RepCortes.aspx.vb

@@ -61,6 +61,9 @@ Partial Class Bancos_RepCortes
             txtFechaVI.Text = Now.ToShortDateString
             txtFechaVF.Text = Now.ToShortDateString
             Me.Form.DefaultButton = BtnConsultar.UniqueID
+            DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+            DdlSubProyectos.DataBind()
+            DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
     End Sub
 
@@ -70,7 +73,7 @@ Partial Class Bancos_RepCortes
         Dim ObjPuntoVenta As New ClsPuntoVenta
         Dim FechaI As Date = If(txtFechaVI.Text <> "", txtFechaVI.Text.ToDate, MinFecha)
         Dim FechaF As Date = If(txtFechaVF.Text <> "", txtFechaVF.Text.ToDate, MaxFecha)
-        If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF) Then
+        If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjPuntoVenta.DtResultados
             GvDatos.DataBind()
             UPDatos.Update()