diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index 2da8d426b..3c2f2cc8b 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -270,7 +270,7 @@ Partial Class Ventas_PVCobranza
         'registrar pago
 
         'validaciones
-        If TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal = 0 Then
+        If TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal = 0 Then
             Alert("Favor de especificar importe", TipoMensaje.ToastAdventencia)
             Exit Sub
         End If
@@ -340,6 +340,11 @@ Partial Class Ventas_PVCobranza
                         PagoEfectivo = TxtImporteCheque.Text.ToDecimal
                     End If
 
+                    If SaldoPendiente > 0 AndAlso TxtImporteTransferencia.Text.ToDecimal > 0 Then
+                        MsgError = RegistraIE(8, DdlCuentaTransferencia.SelectedValue.ToEntero, TxtImporteTransferencia.Text.ToDecimal, Fecha, CvePrePoliza, VentaActual, ObjIE, ObjConta, ObjVentas2)
+                        PagoEfectivo = TxtImporteCheque.Text.ToDecimal
+                    End If
+
                     If Not ObjVentas2.UpdateVentaCorte(CveVenta, UsuarioActual.CveEmpresa, CveCorte) Then
                         MsgError = "Error al aplicar el corte"
                     End If