diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb
index 14d834ae7..1aca46c14 100644
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -75,6 +75,8 @@ Partial Class Compras_RepComprasAF
 #Region "CARGAS"
 
     Private Sub CargaCombos()
+        txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
+
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedores.DataBind()