diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 34e00d8a3..3634904b3 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -5606,7 +5606,7 @@ Namespace Modelos
             End If
 
             'LA VALIDACION DE SALDOS CUANDO ES REFACTURACION SE HACE ANTES ASI QUE SI ES REFACTURACION IGNORAMOS ESTA CONDICION, SI ES ANTICIPO VERIFICA QUE NO ESTÉ APLICADO
-            If Not AplicaRefacturacionConPagos AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Rem") AndAlso ObjFactura.Pagado > 0 AndAlso DTDocumentosRelacionados.Rows.Count > 0 Then
+            If Not AplicaRefacturacionConPagos AndAlso Not AplicaCancelacionConPagos AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Rem") AndAlso ObjFactura.Pagado > 0 AndAlso DTDocumentosRelacionados.Rows.Count > 0 Then
                 Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
                 Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 69e23e574..31532677c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2714,6 +2714,7 @@ Partial Class Ventas
                     ViewState("CveCliente") = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
                     HdnCveCliente.Value = UsuarioActual.Empresa.Funcionalidad(714)
                     RBLPago.SelectedValue = "2"
+                    RBLPago_SelectedIndexChanged(RBLPago, EventArgs.Empty)
                     CargaCliente(CveCliente)
                 End If
 
@@ -25642,7 +25643,7 @@ Partial Class Ventas
 
                     Dim AplicaCancelacionConPagos As Boolean = False
 
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFactura.Pagado > 0 Then
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
                         AplicaCancelacionConPagos = True
                     End If