diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb
index 3fd06730d..99876fa9b 100644
--- a/Ventas/PopUpBuscarFolio.aspx.vb
+++ b/Ventas/PopUpBuscarFolio.aspx.vb
@@ -19,6 +19,9 @@ Partial Class PopUpBuscarFolio
             CType(Me.Master, BaseMasterPage).PopupWidth = 850
             txtFechaI.Text = NowADS().AddMonths(-12).ToShortDateString
             'RegistraScript("$get('tdContenido').style.height='500px'")
+
+            'venta de pv, y gdiaz
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1" Then txtFechaI.Text = NowADS.ToShortDateString
             CargaSubProyectos()
             CargaEstatus()
             CargaUsuarios()