-periodos

Contratos/RepPresupuestos.aspx.vb

@@ -30,9 +30,14 @@ Partial Class Contratos_RepPresupuestos
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
 
-        TxtFiltrosFechaInicio.Text = $"01/08/{NowADS().Year - 1}"
-        TxtFiltrosFechaFin.Text = $"31/07/{NowADS().Year}"
-
+        If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'emp citrícola
+            TxtFiltrosFechaInicio.Text = $"01/08/{NowADS().Year - 1}"
+            TxtFiltrosFechaFin.Text = $"31/07/{NowADS().Year}"
+        Else
+            TxtFiltrosFechaInicio.Text = NowADS.FirstDayOfMonth.ToShortDateString
+            TxtFiltrosFechaFin.Text = NowADS.LastDayOfMonth.ToShortDateString
+        End If
+
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()