diff --git a/Ventas/RepPedidosSTF.aspx b/Ventas/RepPedidosSTF.aspx
index b783ed353..4bea386f3 100644
--- a/Ventas/RepPedidosSTF.aspx
+++ b/Ventas/RepPedidosSTF.aspx
@@ -68,6 +68,44 @@
+
+
+
+ Fecha Inicio:
+
+
+
+ Fecha Fin:
+
+
+
+
@@ -82,12 +120,13 @@
-
-
+
+
+
-
-
-
+
+
+
diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb
index f9974ffa5..d32d8d548 100644
--- a/Ventas/RepPedidosSTF.aspx.vb
+++ b/Ventas/RepPedidosSTF.aspx.vb
@@ -15,6 +15,9 @@ Partial Class Ventas_RepPedidosSTF
Private Sub CargaCombos()
+ txtFechaI.Text = NowADS.FirstDayOfMonth.ToShortDateString
+ txtFechaF.Text = NowADS.LastDayOfMonth.ToShortDateString
+
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
'Vendedor
@@ -37,6 +40,8 @@ Partial Class Ventas_RepPedidosSTF
If TabG.ActiveTabIndex = 1 Then ' entregados
Opcion = 2
+ FechaInicio = txtFechaI.Text.ToDate
+ FechaFin = txtFechaF.Text.ToDate
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then
GvE.DataSource = ObjVentas.DtResultados