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 @@ + @@ -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