From eb9507e6091bc1b1fe79aaf9413c01975a88d933 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 25 Nov 2020 22:10:16 -0700
Subject: [PATCH] Filtro de conceptos de entradas y salidas

---
 Ventas/Clientes.aspx    | 8 ++++++++
 Ventas/Clientes.aspx.vb | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 62d141b39..534af4d89 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -4294,6 +4294,14 @@
                                                                     <asp:CompareValidator ID="CVFechaFUsados" runat="server" ControlToValidate="TxtFechaFUsados" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="ValidaUsados"></asp:CompareValidator>
                                                                     <ajax:ValidatorCalloutExtender ID="VCEFechaFUsados" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFUsados" Width="350px"></ajax:ValidatorCalloutExtender>
                                                                 </div>
+                                                                <label class="col-md-1 " style="width: 120px; text-align: right">Concepto:</label>
+                                                                <div class="col-md-2" style="width: 120px">
+                                                                    <asp:DropDownList ID="DdlConceptoUsado" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                                                        <asp:ListItem Text="Entradas" Value="1"></asp:ListItem>
+                                                                        <asp:ListItem Text="Salidas" Value="2"></asp:ListItem>
+                                                                    </asp:DropDownList>
+                                                                </div>
                                                             </div>
                                                         </div>
                                                     </div>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index be55071aa..b5e4b733d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9137,7 +9137,7 @@ Partial Class Clientes
             Dim ImporteCargo As Decimal = 0D
             Dim ImporteBonificacion As Decimal = 0D
 
-            If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, TxtFechaIUsados.Text.ToDate, TxtFechaFUsados.Text.ToDate) Then
+            If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, TxtFechaIUsados.Text.ToDate, TxtFechaFUsados.Text.ToDate, CveConcepto:=DdlConceptoUsado.SelectedValue.ToEntero()) Then
 
                 GvAcum.DataSource = ObjAcum.DtResultados