From a1b191e89b222d981f64e928af0dd3629ad5b349 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 20 Feb 2020 10:43:43 -0700
Subject: [PATCH 1/4] modal de ventas terminado

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

diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx
index c2da0c83c..2a92b403e 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx
@@ -3,6 +3,11 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .Derecha {
+            text-align: right;
+        }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     Reporte Entradas Usados Clientes
@@ -80,7 +85,8 @@
                     <asp:BoundField HeaderText="Cantidad" DataField="Total" DataFormatString="{0:N0}" />
                     <asp:TemplateField HeaderText="Cantidad">
                         <ItemTemplate>
-                            <asp:LinkButton ID="LnkCantidad" OnClick="CargarVentasGrupo" Text='<%# Eval("Total", "{0:N0}") %>' runat="server" />
+                            <%--OnClick="CargarVentasGrupo"--%>
+                            <asp:LinkButton ID="LnkCantidad" CommandName="Mostrar" OnCommand="CargarVentasGrupo" Text='<%# Eval("Total", "{0:N0}") %>' runat="server" />
                         </ItemTemplate>
                     </asp:TemplateField>
                 </Columns>
@@ -122,8 +128,8 @@
                                                 <asp:HyperLinkField HeaderText="Folio" DataTextField="SerieFolio" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Fecha" DataTextField="Fecha" Target="_blank" ItemStyle-Width="10%" ItemStyle-CssClass="Texto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Sucursal" DataTextField="SubProyecto" Target="_blank" ItemStyle-Width="15%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                                                <asp:HyperLinkField HeaderText="Cantidad" DataTextField="Cantidad" Target="_blank" ItemStyle-Width="5%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                                                <asp:HyperLinkField HeaderText="Total" DataTextField="Total" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:HyperLinkField HeaderText="Cantidad" DataTextField="Cantidad" Target="_blank" ItemStyle-Width="5%" ItemStyle-CssClass="Derecha" DataTextFormatString="{0:###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:HyperLinkField HeaderText="Total" DataTextField="Total" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"/>
                                             </Columns>
                                         </asp:GridView>
                                     </div>
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index 75e36daaf..b21eba707 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -102,6 +102,6 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
         ObjAcum.Dispose()
         GvVentas.DataBind()
 
-        RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
+        RegistraScript("$('#ModalVentasAvance').modal();")
     End Sub
 End Class

From 9c506f7ff7873bfcf4b53b8753366f7ed23a27be Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Thu, 20 Feb 2020 11:46:07 -0700
Subject: [PATCH 2/4] -- correcion de update e ffacturas

---
 Compras/Compras.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f8ad52e6f..c848d70b9 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7909,8 +7909,8 @@ Partial Class Compras_Compras
                                     'ACTUALIZA CVEFACTURA
                                     If Request("CveFactura") IsNot Nothing Then
 
-                                        If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
-                                            ErrorOC = True
+                                        If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+                                            TieneError = True
                                         End If
 
                                         If UsuarioActual.Empresa.UsaAC Then

From d8b0e1ee36f7b7cf45ac5c7e5d0e9e3a423bedd5 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Thu, 20 Feb 2020 11:52:20 -0700
Subject: [PATCH 3/4]

---
 Compras/RepRembolsoComprobaciones.aspx | 2 +-
 vwd.webinfo                            | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Compras/RepRembolsoComprobaciones.aspx b/Compras/RepRembolsoComprobaciones.aspx
index 854a49898..ec1a2b43f 100644
--- a/Compras/RepRembolsoComprobaciones.aspx
+++ b/Compras/RepRembolsoComprobaciones.aspx
@@ -187,7 +187,7 @@
                         <HeaderTemplate>Excedente</HeaderTemplate>
                         <ItemTemplate>
                             <asp:TextBox ID="TxtSaldoExcedente" Width="80px" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>&nbsp;
-                    <asp:RangeValidator ID="RVSaldoExcedente" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%# Eval("Saldo", "{0:N2}") %>' ErrorMessage="*" ControlToValidate="TxtSaldoExcedente" Display="Dynamic"></asp:RangeValidator>
+                    <asp:RangeValidator ID="RVSaldoExcedente" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%#If(Eval("Saldo").ToString().Contains("-"), "0", Eval("Saldo")) %>' ErrorMessage="*" ControlToValidate="TxtSaldoExcedente" Display="Dynamic"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>
 
diff --git a/vwd.webinfo b/vwd.webinfo
index 824b76cb0..0770194b6 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -17,6 +17,8 @@
   
     
   
+    
+  
     <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
   </StartupServices>
 </VisualWebDeveloper>
\ No newline at end of file

From c6208153667007679777029b55282d7db12a8999 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 20 Feb 2020 14:04:02 -0700
Subject: [PATCH 4/4] =?UTF-8?q?correccion=20en=20ventas=20y=20mejora=20en?=
 =?UTF-8?q?=20Entradas=20Usados=20Clientes=20para=20buscar=20las=20ventas?=
 =?UTF-8?q?=20de=20los=20grupos=20de=20tama=C3=B1os?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Acumuladores/RepEntradasUsadosClientes.aspx    |  1 -
 Acumuladores/RepEntradasUsadosClientes.aspx.vb |  4 ++--
 Ventas/Ventas.aspx.vb                          | 12 ++++++++++--
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx
index 2a92b403e..f1fe85c14 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx
@@ -82,7 +82,6 @@
                 <Columns>
                     <asp:BoundField HeaderText="Tipo" DataField="Codigo" />
                     <asp:BoundField HeaderText="Clientes/Grupos" DataField="Codigo_Clientes" />
-                    <asp:BoundField HeaderText="Cantidad" DataField="Total" DataFormatString="{0:N0}" />
                     <asp:TemplateField HeaderText="Cantidad">
                         <ItemTemplate>
                             <%--OnClick="CargarVentasGrupo"--%>
diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
index b21eba707..9d266557c 100644
--- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb
+++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb
@@ -94,9 +94,9 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
         Dim renglon As GridViewRow = CType(tempLink.NamingContainer, GridViewRow)
 
         LbCliente.Text = renglon.DataKey("NombreComercial")
-        LbTam.Text = renglon.DataKey("Codigo")
+        LbTam.Text = renglon.DataKey("Codigo_Clientes")
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.GetUsadosClasificacionVentas(renglon.DataKey("CveCliente"), renglon.DataKey("Codigo"), TxtFechaI.Text, TxtFechaF.Text) Then
+        If ObjAcum.GetUsadosClasificacionVentas(renglon.DataKey("CveCliente"), renglon.DataKey("Codigo_Clientes"), TxtFechaI.Text, TxtFechaF.Text) Then
             GvVentas.DataSource = ObjAcum.DtResultados
         End If
         ObjAcum.Dispose()
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 71c5d88eb..e1aa52757 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9255,8 +9255,16 @@ Partial Class Ventas
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev") Or DtVentasNC IsNot Nothing Then
-                If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
-                    ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                If DtVentasNC IsNot Nothing Then
+                    For Each row As DataRow In DtVentasNC.Rows
+                        If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, row("CveVenta").ToString.ToEntero) Then
+                            ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                        End If
+                    Next
+                Else
+                    If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, CveVenta) Then
+                        ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
+                    End If
                 End If
             End If
         End If