From 99d550107844272a244cfc71a546a2f2fe75cbf8 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Mon, 2 Dec 2019 09:30:20 -0700
Subject: [PATCH] actualizacion previa a agregar el campo "etiqueta" en
 Ajuste.rdlc

---
 Empresas/Grales/Formatos/Ajuste.rdlc | 24 ++++++++++++++++--
 Ventas/PV.aspx                       | 11 +++++++-
 Ventas/PV.aspx.vb                    | 38 +++++++++++++++++++---------
 3 files changed, 58 insertions(+), 15 deletions(-)

diff --git a/Empresas/Grales/Formatos/Ajuste.rdlc b/Empresas/Grales/Formatos/Ajuste.rdlc
index 79d6d2dcf..2dbdcb959 100644
--- a/Empresas/Grales/Formatos/Ajuste.rdlc
+++ b/Empresas/Grales/Formatos/Ajuste.rdlc
@@ -861,7 +861,11 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Tipo:</Value>
+                <Value>Tipo: </Value>
+                <Style />
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Tipo.Value</Value>
                 <Style />
               </TextRun>
             </TextRuns>
@@ -941,7 +945,11 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Marca:</Value>
+                <Value>Marca: </Value>
+                <Style />
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Marca.Value</Value>
                 <Style />
               </TextRun>
             </TextRuns>
@@ -1913,6 +1921,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Tipo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Marca">
+      <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 bbe006ae8..541ccc1fc 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2805,7 +2805,7 @@
                                                     <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 ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="100%" AutoPostBack="true">
                                                                 </asp:DropDownList>
                                                                 <label for="<%= DdlClientes.ClientID.ToString()%>">Cliente:</label>
                                                             </div>
@@ -2829,6 +2829,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="DdlBCIAjuste" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="BCI" DataValueField="CveBCIUsado" Width="100%" AutoPostBack="true">
+                                                                </asp:DropDownList>
+                                                                <label for="<%= DdlBCIAjuste.ClientID.ToString()%>">BCI:</label>
+                                                            </div>
+                                                        </div>
+                                                    </div>
                                                     <div class="row">
                                                         <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 6c13eb26c..0f23ec3c5 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2764,10 +2764,6 @@ 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
@@ -4981,12 +4977,21 @@ Partial Class PV
         DdlClientes.Items.Clear()
 
         DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.Items.Insert(0, New ListItem("Sin Factura", "-1"))
+        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlClientes.DataBind()
         UpAjuste.Update()
     End Sub
 
+    Private Sub CargaBCIAjuste()
+        Dim ObjGral As New ClsGenerales
+        If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
+            DdlBCIAjuste.DataSource = ObjGral.DtResultados
+        End If
+        ObjGral.Dispose()
+        DdlBCIAjuste.DataBind()
+    End Sub
+
     Private Sub CargaAjuste()
         Dim ObjAcum As New ClsAcumuladores
         If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa) Then
@@ -5022,7 +5027,7 @@ Partial Class PV
         CreaDTmpDTAjustes()
         CreaDTmpDTRecepcionUsados()
         CargaClienteAjuste()
-
+        CargaBCIAjuste()
         DivChkAjuste.Visible = True
     End Sub
 
@@ -5734,6 +5739,13 @@ Partial Class PV
 #End Region
 
     Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs)
+
+        Dim ObjPS As New ClsProductosServicios
+        Dim MarcaPS As String = ""
+        If ObjPS.GetPS(DdlPSAjuste.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+            MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", DdlPSAjuste.SelectedValue.ToEntero))
+        End If
+
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
         Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
         Dim DtDatos As New DataTable
@@ -5743,17 +5755,17 @@ Partial Class PV
         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
-            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))
+            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.SelectedItem.Text))
-            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad, Estado)))
+            params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
+            params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
         End If
 
         'Informacion Distribuidor
-        '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))
         params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
@@ -5769,6 +5781,8 @@ Partial Class PV
         params.Add(New ReportParameter("CodEnsamble", TxtCodEnsamble.Text.Trim))
         params.Add(New ReportParameter("CodLinea", TxtCodLinea.Text.Trim))
         params.Add(New ReportParameter("CodInspeccion", TxtCodInspeccion.Text.Trim))
+        params.Add(New ReportParameter("Tipo", DdlBCIAjuste.SelectedItem.Text))
+        params.Add(New ReportParameter("Marca", MarcaPS))
 
         'Informacion Vehiculo
         params.Add(New ReportParameter("MarcaAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Marca", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))