Soporte DiasCredito autorizacion

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