diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c561b9b69..7a5a0f5b9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -26798,26 +26798,7 @@ Partial Class Ventas
 
 #Region "  SALDAR VENTA  "
     Protected Sub BtnSaldarVenta_Click(sender As Object, e As EventArgs)
-        'SaldarVenta()
-
-        Dim ObjCancelacion As New Timbrado
-
-        Dim FolioFiscal As String = LblFolioFiscal.Text
-        Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
-        Dim RFCReceptor As String = LblRFC.Text
-        Dim CvePACCancelacion As Integer = 4
-
-
-        Dim RespCancelacion As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TxtTotal.Text.ToDecimal, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion:=3)
-
-        If RespCancelacion.Verificado Then
-
-
-
-        Else
-            Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
-        End If
-
+        SaldarVenta()
     End Sub
     Private Sub SaldarVenta()
         'Dim ObjVenta As New ClsVentas
@@ -26831,9 +26812,6 @@ Partial Class Ventas
         'RegistraScript("$('#ModalSaldarVenta').modal('hide')", "ModalSaldarVentaHidde")
 
 
-
-        Dim ObjConta As New ClsContabilidad
-        ObjConta.IniciaTransacSQL()
         Dim CvePrePoliza As Integer = 0
         Dim MsgError As String = ""
 
@@ -26945,69 +26923,74 @@ Partial Class Ventas
         End If
 
         Dim UsaComplementaria As Boolean = True
+        Dim ObjConta As New ClsContabilidad
+        ObjConta.IniciaTransacSQL()
+        Try
+            If MsgError = "" AndAlso Saldo > 0 Then
+                CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, FechaPago, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-        If MsgError = "" AndAlso Saldo > 0 Then
-            CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, FechaPago, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-            If UsaComplementaria AndAlso tCveMoneda = 2 Then
-                'normal
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                    MsgError = "Ocurrio un error al saldar el movimiento"
-                End If
-                'complementaria
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, If(tCveMoneda = 1, Saldo, (Saldo * TCVenta) - Saldo), 207, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                    MsgError = "Ocurrio un error al saldar el movimiento"
-                End If
-
-            Else
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo * TCVenta), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                    MsgError = "Ocurrio un error al saldar el movimiento"
-                End If
-
-            End If
-
-            'fluctuación.
-            If tCveMoneda = 2 Then
-                Dim ImporteFluctuacion As Decimal = 0
-                ImporteFluctuacion = Saldo * (TCPago - TCVenta)
-                If TCPago > TCVenta Then
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 64, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                If UsaComplementaria AndAlso tCveMoneda = 2 Then
+                    'normal
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
+                    'complementaria
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, If(tCveMoneda = 1, Saldo, (Saldo * TCVenta) - Saldo), 207, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                        MsgError = "Ocurrio un error al saldar el movimiento"
+                    End If
+
                 Else
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 65, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, If(tCveMoneda = 1, Saldo, Saldo * TCVenta), CveConceptoCliente, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
-                End If
-
-                'cuando hay pago en dólares, se ajusta el concepto de subtotal,
-                SubTotal = (Saldo * TCVenta) + ImporteFluctuacion - (IVA * TCVenta) - (IEPS * TCVenta)
-
-            End If
-            If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, If(tCveMoneda = 1, IVA, IVA * TCVenta), 13, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                MsgError = "Ocurrio un error al saldar el movimiento"
-            End If
-
-            If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, If(tCveMoneda = 1, IEPS, IEPS * TCVenta), 38, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                MsgError = "Ocurrio un error al saldar el movimiento"
-            End If
-
-            'al gasto,Subtotal
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, SubTotal, CveConceptoDeduccion, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
-                MsgError = "Ocurrio un error al saldar el movimiento"
-            End If
-
-            If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 5) Then
-                If ObjConta.ValorPolizaDescuadre > 0 Then
-                    MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
-                    GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
 
                 End If
-            End If
-        Else
-            MsgError = "Saldo Cero"
-        End If
 
+                'fluctuación.
+                If tCveMoneda = 2 Then
+                    Dim ImporteFluctuacion As Decimal = 0
+                    ImporteFluctuacion = Saldo * (TCPago - TCVenta)
+                    If TCPago > TCVenta Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 64, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            MsgError = "Ocurrio un error al saldar el movimiento"
+                        End If
+                    Else
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Math.Abs(ImporteFluctuacion), Math.Abs(ImporteFluctuacion), 65, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            MsgError = "Ocurrio un error al saldar el movimiento"
+                        End If
+                    End If
+
+                    'cuando hay pago en dólares, se ajusta el concepto de subtotal,
+                    SubTotal = (Saldo * TCVenta) + ImporteFluctuacion - (IVA * TCVenta) - (IEPS * TCVenta)
+
+                End If
+                If IVA > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, If(tCveMoneda = 1, IVA, IVA * TCVenta), 13, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    MsgError = "Ocurrio un error al saldar el movimiento"
+                End If
+
+                If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, If(tCveMoneda = 1, IEPS, IEPS * TCVenta), 38, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    MsgError = "Ocurrio un error al saldar el movimiento"
+                End If
+
+                'al gasto,Subtotal
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, SubtotalMovto, SubTotal, SubTotal, CveConceptoDeduccion, SerieFolio, ConceptoPartida, CveCliente:=CveCliente, CveVenta:=CveVenta, CveCuenta:=-1, TipoCambio:=TCVenta, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
+                    MsgError = "Ocurrio un error al saldar el movimiento"
+                End If
+
+                If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 5) Then
+                    If ObjConta.ValorPolizaDescuadre > 0 Then
+                        MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
+                        GuardaLogAD($"Ventas/ClientesAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+
+                    End If
+                End If
+            Else
+                MsgError = "Saldo Cero"
+            End If
+        Catch ex As Exception
+            MsgError = "Ocurrió un error al saldar"
+            GuardaLog(ex.ToString())
+        End Try
 
         If MsgError = "" Then
             'ObjConta.RollBack()