From f4070e6d26d7be46293f7a2eb2d25784f12069ab Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 12 Dec 2019 11:38:31 -0700
Subject: [PATCH 1/2] EntradasUsadosClientes se subira a produccion

---
 Acumuladores/RepEntradasUsadosClientes.aspx    | 4 ++--
 Acumuladores/RepEntradasUsadosClientes.aspx.vb | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx
index 686750825..b11a035ad 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx
@@ -71,11 +71,11 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
-            <asp:GridView runat="server" ID="GvDatos" data-sort="true" AutoGenerateColumns="False"  EmptyDataText="No se encontraron datos con los filtros seleccionados" ToolTip="Listado de Movimientos" DataKeyNames="Codigo,Codigo_Clientes,Cantidad" CssClass="Widthall table table-striped table-hover ScrollAD" GridLines="None">
+            <asp:GridView runat="server" ID="GvDatos" data-sort="true" AutoGenerateColumns="False"  EmptyDataText="No se encontraron datos con los filtros seleccionados" ToolTip="Listado de Movimientos" DataKeyNames="Codigo,Codigo_Clientes,Total" CssClass="Widthall table table-striped table-hover ScrollAD" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Tipo" DataField="Codigo"/>
                     <asp:BoundField HeaderText="Clientes/Grupos" DataField="Codigo_Clientes"/>
-                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad"/>
+                    <asp:BoundField HeaderText="Cantidad" DataField="Total"/>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index b6b98737d..10dc9695e 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -50,7 +50,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
 
         If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = Acum.DtResultados
-            DatosEntradasUsadosClientes = Acum.DtResultados
+            DatosEntradasUsadosClientes = Acum.DtResultados.FiltraParametros("Codigo_Clientes <> 'Total:'")
         End If
 
         Acum.Dispose()
@@ -78,7 +78,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
 
         Dim params As New List(Of ReportParameter)
 
-        params.Add(New ReportParameter("Direccion", "asdfasdfasdf"))
+        params.Add(New ReportParameter("Direccion", "Tamaulipas Esq. con Guadalupe Victoria"))
         params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
         params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text))
         params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text))

From 7fb90f5619f8f63200ab993b439f3c07eb6c66e3 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 12 Dec 2019 16:06:15 -0700
Subject: [PATCH 2/2] cambio no funcional en el dropdown del precio de lista

---
 Ventas/ActualizarPrecios.aspx.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb
index 44eda61c6..005ba0817 100644
--- a/Ventas/ActualizarPrecios.aspx.vb
+++ b/Ventas/ActualizarPrecios.aspx.vb
@@ -75,11 +75,13 @@ Partial Class Ventas_ActualizarPrecios
 
     Public Sub CargaPreciosLista()
 
-        DdlPrecioLista.ITEMS.CLEAR
+        DdlPrecioLista.ITEMS.Clear
         Dim ObjVta As New ClsVentas
+        Dim primerItem As String = ""
         If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
             DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
             DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
+            primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
         End If
         ObjVta.Dispose()
 
@@ -87,6 +89,10 @@ Partial Class Ventas_ActualizarPrecios
         DdlPrecioLista.DataBind()
         DdlPrecioListaCarga.DataBind()
 
+        If (DdlPrecioLista.Items.Count = 1) Then
+            DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
+        End If
+
         DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
         If UsuarioActual.CveEmpresa.Contiene(1, 140) Then
             DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))