From c8fefc48fcb63947a242746c01164ff8a34da47f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 6 Feb 2020 17:33:40 -0700 Subject: [PATCH] CORRECION DE AGREGAR PAGOS DENTRO DE VENTAS , VOLVIA A CARGAR LAS CUENTAS BANCARIAS --- Ventas/Ventas.aspx.vb | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) 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