From d04808e4a7037086a66639b2b1f18da6fc460d9e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 30 Jun 2021 10:22:31 -0700 Subject: [PATCH] Fecha de vencimiento segun los datos del cliente --- Contratos/FacturacionMasiva.aspx.vb | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index 17d923bba..64a944f22 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -433,11 +433,12 @@ Partial Class Contratos_FacturacionMasiva ObjFactura.Folio = -1 ObjFactura.Serie = "-1" ObjFactura.CveMesa = -1 - ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate 'If(DR("FechaVenc").ToString.ToDate > Now, Now, DR("FechaVenc").ToString.ToDate) + ObjFactura.Fecha = If(DR("FechaVenc").ToString.ToDate > Now, Now, DR("FechaVenc").ToString.ToDate) + ObjFactura.CvePrePoliza = -1 ObjFactura.CveMetodoPago = 1 - ObjFactura.MetodoPago = "Efectivo" - ObjFactura.FechaPago = DateTime.Today + ObjFactura.MetodoPago = "Efectivo" + ObjFactura.MotivoDescuento = "" ObjFactura.Observaciones = If(String.IsNullOrEmpty(TxtObservaciones.Text), "", TxtObservaciones.Text + " ") + DR("Observaciones").ToString ObjFactura.FechaEjecucion = DateTime.Today @@ -567,6 +568,13 @@ Partial Class Contratos_FacturacionMasiva ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR + + 'AGREGAR LOS PLAZOS PARA EL PAGO DEL CLIENTE + Dim FechaPago As DateTime = ObjFactura.Fecha.AddDays(ObjCliente.PlazoCobranza) + ObjFactura.FechaVencimiento = FechaPago + ObjFactura.Vigencia = FechaPago + ObjFactura.FechaPago = FechaPago + End If End If ObjCliente.Dispose()