From 697358047d74fb879d88d67ce4ec53542d9df7ff Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 4 Oct 2024 16:27:44 -0700
Subject: [PATCH] filtro Cliente pedidos STF

---
 App_Code/ClsVentas.vb        |  3 ++-
 Ventas/RepPedidosSTF.aspx    |  5 +++++
 Ventas/RepPedidosSTF.aspx.vb | 15 ++++++---------
 3 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index eeaf57f4e..262aed25e 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -1766,7 +1766,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer, Opcion As Integer, FechaInicio As Date, FechaFin As Date) As Boolean
+    Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer, Opcion As Integer, FechaInicio As Date, FechaFin As Date, CveCliente As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PedidosSTFRep")
 
@@ -1777,6 +1777,7 @@ Public Class ClsVentas
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
         End With
 
         Try
diff --git a/Ventas/RepPedidosSTF.aspx b/Ventas/RepPedidosSTF.aspx
index 625503cf3..710d69627 100644
--- a/Ventas/RepPedidosSTF.aspx
+++ b/Ventas/RepPedidosSTF.aspx
@@ -114,6 +114,11 @@
                             <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                         </div>
+                        <label class="col-md-1 ">Cliente:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                           
+                        </div>
                     </div>
                 </div>
             </div>
diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb
index 66871f51e..e0c22e6ab 100644
--- a/Ventas/RepPedidosSTF.aspx.vb
+++ b/Ventas/RepPedidosSTF.aspx.vb
@@ -33,9 +33,6 @@ Partial Class Ventas_RepPedidosSTF
         End Set
     End Property
 
-
-
-
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
@@ -64,17 +61,17 @@ Partial Class Ventas_RepPedidosSTF
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
             DdlVendedor.Enabled = False
         End If
+        DdlClientes.setEsWebService(True)
     End Sub
 
     Protected Sub CargaDatos()
-        LnkImprimirPedidos.Visible = False
-
-
-        DatosGV = New DataTable
 
         Dim Opcion As Integer = 1
         Dim FechaInicio As Date = MinFecha
         Dim FechaFin As Date = MaxFecha
+        Dim tCveCliente As Integer = DdlClientes.SelectedValue.ToEntero
+        LnkImprimirPedidos.Visible = False
+        DatosGV = New DataTable
 
         If TabG.ActiveTabIndex = 1 Then ' entregados
             Opcion = 2
@@ -82,7 +79,7 @@ Partial Class Ventas_RepPedidosSTF
             FechaFin = txtFechaF.Text.ToDate
             Dim ObjVentas As New ClsVentas
 
-            If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then
+            If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin, tCveCliente) Then
                 GvE.DataSource = ObjVentas.DtResultados
 
             End If
@@ -92,7 +89,7 @@ Partial Class Ventas_RepPedidosSTF
             FechaInicio = txtFechaI.Text.ToDate
             FechaFin = txtFechaF.Text.ToDate
             Dim ObjVentas As New ClsVentas
-            If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then
+            If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin, tCveCliente) Then
                 DatosGV = ObjVentas.DtResultados
 
                 DatosGV.Columns.Add("CantidadOrg", GetType(Decimal))