correccion en ventas y mejora en Entradas Usados Clientes para buscar las ventas de los grupos de tamaños

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"--%>

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()

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