From 75f211ba01f9a207a629c26553c6acdd787dac15 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 29 Nov 2019 15:44:33 -0700
Subject: [PATCH] se agrego el dropdown de clientes en los ajustes al igual que
 su respectivo campo en el reporte

---
 Ventas/PV.aspx    | 11 ++++++++++-
 Ventas/PV.aspx.vb | 30 ++++++++++++++++++++++++++++--
 2 files changed, 38 insertions(+), 3 deletions(-)

diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 1daa1f978..bbe006ae8 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2802,6 +2802,15 @@
                                                             </div>
                                                         </div>
                                                     </div>
+                                                    <div class="row">
+                                                        <div class="col-md-12">
+                                                            <div class="form-group form-md-line-input input-iconright">
+                                                                <asp:DropDownList ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="NombreComercial" DataValueField="CveCliente" OnSelectedIndexChanged="DdlClientes_SelectedIndexChanged" Width="100%" AutoPostBack="true">
+                                                                </asp:DropDownList>
+                                                                <label for="<%= DdlClientes.ClientID.ToString()%>">Cliente:</label>
+                                                            </div>
+                                                        </div>
+                                                    </div>
                                                     <div class="row">
                                                         <div class="col-md-9">
                                                             <div class="form-group form-md-line-input input-iconright">
@@ -2933,7 +2942,7 @@
                                                             </div>
                                                         </div>
                                                     </div>
-                                                    <div class="row">
+                                                    <div class="row" style="margin-top:17px;">
                                                         <div class="col-md-2">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtPoliza" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index bc113f964..19f3c25a7 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2764,6 +2764,10 @@ Partial Class PV
         CargaPSAjuste()
     End Sub
 
+    Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaPSAjuste()
+    End Sub
+
     Private Sub DdlPSIndexChange(CvePSParametro As Integer, Ddl As ADServerControl.Dropdownlost)
 
         If Not CveCliente > 0 Then
@@ -4973,6 +4977,16 @@ Partial Class PV
         UpAjuste.Update()
     End Sub
 
+    Private Sub CargaClienteAjuste()
+        DdlClientes.Items.Clear()
+
+        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        DdlClientes.Items.Insert(0, New ListItem("Sin Factura", "-1"))
+
+        DdlClientes.DataBind()
+        UpAjuste.Update()
+    End Sub
+
     Private Sub CargaAjuste()
         Dim ObjAcum As New ClsAcumuladores
         If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then
@@ -5007,6 +5021,7 @@ Partial Class PV
 
         CreaDTmpDTAjustes()
         CreaDTmpDTRecepcionUsados()
+        CargaClienteAjuste()
 
         DivChkAjuste.Visible = True
     End Sub
@@ -5723,9 +5738,20 @@ Partial Class PV
         Dim DtDatos As New DataTable
 
         Dim params As New List(Of ReportParameter)
+
+        If DdlClientes.SelectedValue.ToEntero = -1 Then
+            params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
+            params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
+        Else
+            Dim Ciudad As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
+            Dim Estado As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
+            params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedItem.Text))
+            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad, Estado)))
+        End If
+
         'Informacion Distribuidor
-        params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
-        params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
+        'params.Add(New ReportParameter("NombreCliente", If(DdlClientes.SelectedValue.ToEntero = -1, LtlCliente.Text, DdlClientes.SelectedItem.Text)))
+        'params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
         params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))