-visualización de dirección entrega

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