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

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()