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,