Agregar el filtro de cliente y el movimiento del almacen

Acumuladores/RepEntradasUsadosClientes.aspx

@@ -66,7 +66,10 @@
                                 <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                 <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
-
+                                <div class="col-md-1 truncate v-center" style="text-align: right!important">Cliente:</div>
+                                <div class="col-md-2 v-center">
+                                    <ADS:Dropdownlost ID="DdlNombre" runat="server" CssStyle="width: 195px;" DataTextField="NombreComercial"  DataValueField="CveCliente"></ADS:Dropdownlost>
+                                </div>
                         </div>
                     </div>
                 </div>
@@ -124,9 +127,10 @@
                                         <asp:GridView ID="GvVentas" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados"
                                                          CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                             <Columns>
-                                                <asp:HyperLinkField HeaderText="Folio" DataTextField="SerieFolio" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:HyperLinkField HeaderText="Folio" DataTextField="SerieFolio" Target="_blank" ItemStyle-Width="15%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:HyperLinkField HeaderText="Mov. Almacen" DataTextField="Folio" Target="_blank" ItemStyle-Width="15%" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                                                 <asp:HyperLinkField HeaderText="Fecha" DataTextField="Fecha" Target="_blank" ItemStyle-Width="10%" ItemStyle-CssClass="Texto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                                                <asp:HyperLinkField HeaderText="Sucursal" DataTextField="SubProyecto" Target="_blank" ItemStyle-Width="15%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:HyperLinkField HeaderText="Sucursal" DataTextField="SubProyecto" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Cantidad" DataTextField="Cantidad" Target="_blank" ItemStyle-Width="5%" ItemStyle-CssClass="Derecha" DataTextFormatString="{0:###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Total" DataTextField="Total" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"/>
                                             </Columns>

Acumuladores/RepEntradasUsadosClientes.aspx.vb

@@ -19,6 +19,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
 
         If Not Page.IsPostBack Then
             CargaCombos()
+            CargaNombreClientes()
         End If
 
     End Sub
@@ -27,7 +28,10 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
         CargaDatos()
 
     End Sub
-
+    Private Sub CargaNombreClientes()
+        DdlNombre.setEsWebService(True)
+        DdlNombre.Attributes.Add("data-metodo", "getcliente")
+    End Sub
     Public Sub CargaCombos()
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22)
         DdlAlmacen.DataBind()
@@ -44,11 +48,11 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
         FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim.todate, minfecha)
         FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim.todate, maxfecha)
 
-        Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue = "", "-1", DdlAlmacen.SelectedValue).ToString.toentero
+        Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue = "", "-1", DdlAlmacen.SelectedValue).ToString.ToEntero
-
+        Dim CveCliente As Integer = If(DdlNombre.SelectedValue = "", "-1", DdlNombre.SelectedValue).ToString.ToEntero
         Dim Acum As New ClsAcumuladores
 
-        If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente) Then
             GvDatos.DataSource = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'") 'los renglones generados con esta caracteriztica son con un grouping set en la consulta, se pueden quitar
             DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'")
         End If

App_Code/ClsAcumuladores.vb

@@ -1076,7 +1076,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function EntradasUsadosClientesRep(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function EntradasUsadosClientesRep(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -1088,6 +1088,8 @@ Public Class ClsAcumuladores
             .Add("@FechaFin", SqlDbType.Date).Value = FechaF
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+
         End With
 
         Try