From 8bd2e646aec6171379c98e0058b49d76af2f2178 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 4 Dec 2019 11:00:27 -0700
Subject: [PATCH] correcciones para llenar el formato de ajuste

---
 Empresas/Grales/Formatos/Ajuste.rdlc |  8 +++++++-
 Ventas/PV.aspx                       |  4 ++--
 Ventas/PV.aspx.vb                    | 27 ++++++++++++---------------
 3 files changed, 21 insertions(+), 18 deletions(-)

diff --git a/Empresas/Grales/Formatos/Ajuste.rdlc b/Empresas/Grales/Formatos/Ajuste.rdlc
index 2dbdcb959..e0eae8c08 100644
--- a/Empresas/Grales/Formatos/Ajuste.rdlc
+++ b/Empresas/Grales/Formatos/Ajuste.rdlc
@@ -82,7 +82,7 @@
                 <Style />
               </TextRun>
               <TextRun>
-                <Value>=Parameters!NombreCliente.Value</Value>
+                <Value>=Parameters!NombreDistribuidor.Value</Value>
                 <Style />
               </TextRun>
             </TextRuns>
@@ -1933,6 +1933,12 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NombreDistribuidor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Language>Es-MX</Language>
   <rd:ReportUnitType>Inch</rd:ReportUnitType>
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 97130d96a..a763ee493 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2805,8 +2805,8 @@
                                                     <div class="row">
                                                         <div class="col-md-5">
                                                             <div  >
-                                                                <label for="<%= DdlClientes.ClientID.ToString()%>">Distribuidor:</label><br />
-                                                                <ADS:Dropdownlost ID="DdlClientes" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
+                                                                <label for="<%= DdlDistribuidor.ClientID.ToString()%>">Distribuidor:</label><br />
+                                                                <ADS:Dropdownlost ID="DdlDistribuidor" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
                                                             </div>
                                                         </div>
                                                     </div>
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 576fe1f85..dbd45512d 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5018,7 +5018,7 @@ Partial Class PV
         CreaDTmpDTAjustes()
         CreaDTmpDTRecepcionUsados()
         CargaBCIAjuste()
-        DdlClientes.setEsWebService(True)
+        DdlDistribuidor.setEsWebService(True)
         DivChkAjuste.Visible = True
     End Sub
 
@@ -5749,22 +5749,18 @@ Partial Class PV
 
         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))
-            params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
-        Else
-            If (DdlClientes.SelectedValue.ToEntero > 0) Then
-                Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-                Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
-                Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
-                params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
-                params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-                params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
-            End If
-        End If
 
         'Informacion Distribuidor
+        If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
+
+            Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
+            Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
+            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
+            params.Add(New ReportParameter("NombreDistribuidor", DdlDistribuidor.SelectedText))
+            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+            params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
+
+        End If
         params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
         params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
@@ -5788,6 +5784,7 @@ Partial Class PV
         params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
 
         'Informacion Consumidor
+        params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
         params.Add(New ReportParameter("Direccion", LblDireccion.Text))
 
         If Imagen.Exists Then