From 2431ba0d059020674e6729b194b84ddb7aeb94e7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 15 May 2025 06:12:26 -0700
Subject: [PATCH] -- mejora

---
 Ventas/ClientesAbonar.aspx.vb | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 0a09cd780..dc316c96b 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -816,6 +816,7 @@ Partial Class Ventas_ClientesAbonar
             If DtSaldo IsNot Nothing AndAlso DtSaldo.Rows.Count = 1 Then
                 Dim ImporteRef As Decimal = DtSaldo.SUM("Saldo", $"CveIE={DdlIngreso.SelectedValue.ToEntero()}")
                 Dim tCveMonedaIE As Integer = DtSaldo.FiltroPrimeroValor("CveMoneda", "").ToEntero
+                CveMoneda = tCveMonedaIE
                 Dim ImporteAbonar As Decimal = 0
                 Dim TC As Decimal = 1
                 'comparativo. 
@@ -866,18 +867,15 @@ Partial Class Ventas_ClientesAbonar
         Dim CveIE As Integer = -1
         Dim CveVentasPago As New List(Of Integer)
         Dim SeriesPago As New List(Of String)
-
         Dim MsgError As String = ""
         Dim NCGeneradas As New List(Of RespuestaNotaCredrito)
         Dim ListaFacturasGenerarNC As New List(Of Modelos.Factura)
         Dim ObjFacturaAnt As Modelos.Factura = Nothing
         Dim RespAnt As Modelos.Factura.MMensajeFactura = Nothing
         Dim ImporteSeleccionado As Decimal = 0
-
         '02-05-2018 MANDAMOS CANCELAR EL COMPLEMENTO A SUSTITUIR
         Dim ErrorCancelarIE As Boolean = False
 
-
         Dim ObjIE As New ClsBancos()
         Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
         Dim ObjVentasSaldos As New ClsVentas(ObjIE.IniciaTransacSQL)
@@ -898,9 +896,7 @@ Partial Class Ventas_ClientesAbonar
             Dim ConceptoPoliza As String = String.Format("{0} {1}", TxtAboneA.Text, TxtObservaciones.Text)
 
             If DdlCuenta.SelectedValue.ToEntero > 0 Then
-                CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
-            Else
-                CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero
+                CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $" CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero
             End If
 
             CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -909,9 +905,7 @@ Partial Class Ventas_ClientesAbonar
                 Dim CveCuentaDeposito As Integer = 0
                 Dim TipoCambio As Decimal = 0
 
-                If DdlCuentaDeposito.Items.Count > 0 Then
-                    CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero
-                End If
+                If DdlCuentaDeposito.Items.Count > 0 Then CveCuentaDeposito = DdlCuentaDeposito.SelectedValue.ToEntero
 
                 If CveMoneda = 2 Then
                     If TxtTCDolares.Visible Then
@@ -1011,7 +1005,6 @@ Partial Class Ventas_ClientesAbonar
                                 MsgError = "No se pudo insertar la póliza"
                             End If
                         End If
-
                     End If
 
                     If TxtPrestamoIntereses.Text.ToDecimal <> 0 AndAlso MsgError = "" Then