From 91702da4a1f2fc86923751b1389a2c24d6e29ed7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 6 May 2023 12:16:36 -0700
Subject: [PATCH] - Cambio de concepto contable. incobrable

---
 Ventas/ClientesAbonar.aspx    | 2 +-
 Ventas/ClientesAbonar.aspx.vb | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx
index 1a276b46f..a968aba58 100644
--- a/Ventas/ClientesAbonar.aspx
+++ b/Ventas/ClientesAbonar.aspx
@@ -644,7 +644,7 @@
                                     &nbsp;
                                     <asp:DropDownList ID="DdlTipoDeduccion" runat="server" Width="300px">
                                         <asp:ListItem Text="Gasto No Deducible" Value="255" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Incobrable No Deducible" Value="211"></asp:ListItem>
+                                        <asp:ListItem Text="Incobrable No Deducible" Value="179"></asp:ListItem>
                                         <asp:ListItem Text="Incobrable Deducible" Value="263"></asp:ListItem>
                                         <asp:ListItem Text="Reservas" Value="252"></asp:ListItem>
                                         <asp:ListItem Text="Otros Ingresos" Value="78"></asp:ListItem>
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 6a4d9b431..169cb891c 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2443,7 +2443,7 @@ Partial Class Ventas_ClientesAbonar
                 Dim ConceptoPartida As String = TxtObsSaldarIncobrable.Text.Trim & " " & gr.DataKey("SerieFolio").ToString
 
                 If CveConceptoDeduccion = 255 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
-                If CveConceptoDeduccion = 211 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero
+                If CveConceptoDeduccion = 179 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero
                 If CveConceptoDeduccion = 263 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(537).ToEntero
                 If CveConceptoDeduccion = 252 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(581).ToEntero
                 If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos
@@ -2476,7 +2476,7 @@ Partial Class Ventas_ClientesAbonar
                     Else
                         IdCtaContable = IdCuentaCliente
                     End If
-                    Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(6, tCveMoneda, False, 1)
+                    Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(6, tCveMoneda, True, 1)
 
                     'normal
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, gr.DataKey("SerieFolio").ToString, ConPreP.CveConcepto, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, Saldo), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then