--FIX. quitar codigo de cancelacion en opcion de saldado de venta

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,7 +26923,9 @@ 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)
 
@@ -27007,7 +26987,10 @@ Partial Class Ventas
             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()