From a260a8c0a24b616e76aece9c4404f29aa72dfe4b Mon Sep 17 00:00:00 2001
From: Raul Pimienta <raul.pimienta@adssistemas.mx>
Date: Fri, 30 Aug 2019 17:35:20 -0700
Subject: [PATCH] Soporte DiasCredito autorizacion

---
 Ventas/Ventas.aspx.vb | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index e501478f8..82547c945 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -21442,6 +21442,11 @@ Partial Class Ventas
             CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero)
             DdlFormaPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveFormaPago"))
 
+            DiasCredito = dtSeleccionadas.FiltroPrimeroValor("DiasCredito").ToEntero
+            EsDiasCreditoFijo = CBool(dtSeleccionadas.FiltroPrimeroValor("EsDiasCreditoFijo"))
+
+
+
             'validación, cuando las remisiones sean de una sucursal y el usuario solo tenga acceso a otra, deberá tener priodidad la sucursal de la que solo se factura
             If DdlSubProyectoDatos.Enabled = True Then
                 DdlSubProyectoDatos.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveSubProyecto"))
@@ -21575,11 +21580,14 @@ Partial Class Ventas
             End If
         End If
 
+        TxtFechaPago.Text = If(EsDiasCreditoFijo, Now.AddDays(DiasCredito).ToShortDateString, TxtFechaPago.Text)
+
         UpRemisionesFacturas.Update()
         UpFacturar.Update()
         UpPS.Update()
         UpParametros.Update()
         UPEstimaciones.Update()
+        UPCondicionesPago.Update()
         HuboCambioRemi = Not HuboCambioRemi
         RegistraScript("$('#DivRemisiones').modal('hide');", "DivRemisionesHide")
     End Sub