From 810f0d686d2e7b6684b4996a8055104a1b7013f6 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Apr 2025 08:08:14 -0700 Subject: [PATCH] =?UTF-8?q?--=20tomar=20en=20consideraci=C3=B3n=20tipovenc?= =?UTF-8?q?imiento?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a948d5b24..6dfc417ee 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -216,6 +216,11 @@ Partial Class Compras_Compras Return ViewState("CveTipoProveedor").ToString.ToEntero End Get End Property + Private ReadOnly Property CveTipoFechaVencimiento As Integer + Get + Return ViewState("CveTipoFechaVencimiento").ToString.ToEntero + End Get + End Property Private ReadOnly Property NombreProveedor As String Get @@ -3788,6 +3793,7 @@ Partial Class Compras_Compras ViewState("CveProveedor") = ObjProveedor.CveProveedor HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString + ViewState("CveTipoFechaVencimiento") = ObjProveedor.CveTipoFechaVencimiento TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString 'comentado RMF.2024.05.21. en anticipos parciales, está bloquenado 'If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 Then @@ -5166,6 +5172,18 @@ Partial Class Compras_Compras If (tNoDeducible > 0) Then tNoDeducible = If(TmpDT.MIN("NoDeducible", "IVA > 0") = "False", 2, 1) End If + 'cuando es el cálculo de la fecha de vencimiento por entrada almacen + If CveTipoFechaVencimiento = 2 Then + 'verificar que tenga seleccionado entrada en almacen. + Dim ConEntradaDirecta As Boolean = False + For Each gvr As GridViewRow In GvInv.Rows + If gvr.FCCheckBox("cbinv").Checked Then + ConEntradaDirecta = True : Exit For + End If + Next + If ConEntradaDirecta Then TxtFechaPago.Text = (Now.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString + End If + If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDecimal, TxtDescuento.Text.ToDecimal, LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal, TxtRetISR.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtOtrosImpuestos.Text.ToDecimal, TxtRedondeo.Text.ToDecimal, TxtTotal.Text.ToDecimal, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,