From 154806dcc9e0863822a99d3621a7bab7673a9805 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 6 Jan 2025 12:42:53 -0700
Subject: [PATCH 1/2] --FIX no regenerar gv de almacen despues de hacer click
 cuando se aplica devolucion, debe mantener el valor de lo seleccionado en
 devolucion

---
 Ventas/Ventas.aspx.vb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 97d9f0a55..afec170f3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -32256,6 +32256,10 @@ Partial Class Ventas
             UpCliente.Update()
         End If
 
+        'NO RECARGAR EL GV DE INVENTARIO AL HACER CLICK EN EL TAB DE ALMACEN
+        HdnCargarInventario.Value = "False"
+        UpParametros.Update()
+
         RegistraScript("$('#DivAplicaDevolucion').modal('hide')")
 
     End Sub

From b1049461403625229bd869c8b2fdbf5c162d203d Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 6 Jan 2025 17:58:05 -0700
Subject: [PATCH 2/2] --FIX traspaso de saldos de NC

---
 Ventas/Clientes.aspx    |  4 +--
 Ventas/Clientes.aspx.vb | 61 +++++++++++++++++++++++++++++++++--------
 2 files changed, 51 insertions(+), 14 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 06f0bbf13..2f952832b 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -5607,7 +5607,7 @@
                                
                                 </div>
                                 <div class="col-md-5">
-                                    <ADS:Dropdownlost ID="DdlClienteImportarSaldos" data-metodo="getcliente" DataValueField="CveCliente" DataTextField="CodigoNombre" Width="260px" CssClass="select2me" runat="server"></ADS:Dropdownlost>
+                                    <ADS:Dropdownlost ID="DdlClienteImportarSaldos" data-metodo="getcliente" DataValueField="CveCliente" DataTextField="CodigoNombre" Width="100%" CssClass="select2me" runat="server"></ADS:Dropdownlost>
                                     <%--<asp:RequiredFieldValidator ID="RFVClienteImportarSaldos" InitialValue="-1" runat="server" ControlToValidate="DdlClienteImportarSaldos" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpImportarSaldos"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCEClienteImportarSaldos" runat="server" HighlightCssClass="vco" TargetControlID="RFVClienteImportarSaldos" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                 </div>
@@ -5647,7 +5647,7 @@
                             <br />
                             <div class="row">
                                 <div style="height: 300px; overflow-y: auto;">
-                                    <asp:GridView ID="GvImportarSaldos" DataKeyNames="CveIE, CveCliente,Total,IVA,Original,PorcentajeIVA" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall" runat="server">
+                                    <asp:GridView ID="GvImportarSaldos" DataKeyNames="CveIE, CveCliente,Total,IVA,Original,PorcentajeIVA,Tipo,CveVenta" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall" runat="server">
                                         <Columns>
                                             <asp:TemplateField ItemStyle-Width="5%">
                                                 <ItemTemplate>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 73139379b..a0d50ddd0 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -4820,7 +4820,7 @@ Partial Class Clientes
     Private Sub ConsultarAnticiposSaldosClientes()
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetAnticiposNCIxCCliente(DdlClienteImportarSaldos.SelectedValue.ToEntero()) Then
-            GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND Saldo > 0 AND CveIE > 0")
+            GvImportarSaldos.DataSource = ObjMovtos.DtResultados.FiltraParametros("ISTotal = 0 AND Saldo > 0 AND Saldo > 0 AND CveIE > 0 AND Tipo IN('NC','IxC','Ant')")
         Else
             GvImportarSaldos.DataSource = Nothing
         End If
@@ -4857,22 +4857,58 @@ Partial Class Clientes
         If CvePrePoliza > 0 Then
             For Each Gvr As GridViewRow In GvImportarSaldos.Rows
                 If Gvr.FCCheckBox("Chk").Checked AndAlso Gvr.FCTextBox("TxtImporte").Text.ToDouble > 0 Then
+                    ImporteAplicar = 0
 
                     Importe = Gvr.FCTextBox("TxtImporte").Text.ToDecimal()
-                    IVA = Importe / Gvr.DataKey("Original").ToDecimal() * Gvr.DataKey("IVA").ToDecimal() 'TOMA EN CUENTA EL IVA - CONCEPTO DIFERENTE
-                    ImporteAplicar = (Importe - IVA)
-                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ImporteAplicar, 92, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero()) Then
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar, 66, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero()) Then
-                            TieneError = True
-                        End If
-                    Else
-                        TieneError = True
-                    End If
+                    IVA = Importe / Gvr.DataKey("Original").ToDecimal() * Gvr.DataKey("IVA").ToDecimal() 'TOMA EN CUENTA EL IVA - CONCEPTO DIFERENTE
+
+                    Dim Tipo As String = Gvr.DataKey("Tipo")
+
+                    Dim CveVenta As Integer = -1
+
+                    Select Case Tipo
+                        Case "Ant"
+                            CveVenta = Gvr.DataKey("CveVenta").ToEntero()
+                            ImporteAplicar = (Importe - IVA)
+
+
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ImporteAplicar, 11, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar, 3, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                                    TieneError = True
+                                End If
+                            Else
+                                TieneError = True
+                            End If
+
+                        Case "IxC"
+                            ImporteAplicar = Importe
+
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ImporteAplicar, 92, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero()) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar, 66, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero()) Then
+                                    TieneError = True
+                                End If
+                            Else
+                                TieneError = True
+                            End If
+
+                        Case "NC"
+                            ImporteAplicar = Importe
+                            CveVenta = Gvr.DataKey("CveVenta").ToEntero()
+
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar * -1, ImporteAplicar * -1, 12, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                                TieneError = True
+                            End If
+
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ImporteAplicar, 12, "Traspaso de saldos de anticipos", "Traspaso de saldos de anticipos", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero(), CveVenta:=CveVenta) Then
+                                TieneError = True
+                            End If
+
+                    End Select
 
                     If Not TieneError Then
                         If IVA > 0 Then
-                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -IVA, -IVA, 61, "Traspaso de saldos de anticipos.IVA", "Traspaso de saldos de anticipos.IVA", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), PorcentajeImpuesto:=Gvr.DataKey("PorcentajeIVA").ToDecimal) Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, IVA, 61, "Traspaso de saldos de anticipos. IVA", "Traspaso de saldos de anticipos.IVA", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero(), PorcentajeImpuesto:=Gvr.DataKey("PorcentajeIVA").ToDecimal) Then
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -IVA, -IVA, 13, "Traspaso de saldos de anticipos.IVA", "Traspaso de saldos de anticipos.IVA", CveCliente:=Gvr.DataKey("CveCliente").ToEntero(), CveIE:=Gvr.DataKey("CveIE").ToEntero(), PorcentajeImpuesto:=Gvr.DataKey("PorcentajeIVA").ToDecimal, Contabilizable:=False) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, IVA, 13, "Traspaso de saldos de anticipos. IVA", "Traspaso de saldos de anticipos.IVA", CveCliente:=CveCliente, CveIE:=Gvr.DataKey("CveIE").ToEntero(), PorcentajeImpuesto:=Gvr.DataKey("PorcentajeIVA").ToDecimal, Contabilizable:=False) Then
                                     TieneError = True
                                 End If
                             Else
@@ -4880,6 +4916,7 @@ Partial Class Clientes
                             End If
                         End If
                     End If
+
                 End If
             Next
         Else