diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 61ec561b1..f5547b65b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17026,7 +17026,19 @@ Partial Class Ventas
         Dim total As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal
 
         DtPagos = Nothing
-        InicializaCondicionesPago()
+
+        DtPagos = New DataTable
+
+        DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
+        DtPagos.Columns.Add("TipoMovimiento", GetType(String))
+        DtPagos.Columns.Add("CveCuenta", GetType(String))
+        DtPagos.Columns.Add("Cuenta", GetType(String))
+        DtPagos.Columns.Add("Folio", GetType(String))
+        DtPagos.Columns.Add("Importe", GetType(Decimal))
+        DtPagos.Columns.Add("Observaciones", GetType(String))
+        DtPagos.Columns.Add("Tipo", GetType(String))
+        DtPagos.Columns.Add("CveMetodoPago", GetType(Integer))
+        DtPagos.Columns.Add("MesesSinIntereses", GetType(Integer))
 
         If total <= 0 Then Alert("No se ha ingresado importe", TipoMensaje.MsgAdvertencia) : Exit Sub