AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-periodos

Browse Source
This commit is contained in:
rrene
2024-05-03 16:31:53 -07:00
parent 5cec72bd34
commit 0e7811358a
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Contratos/RepPresupuestos.aspx.vb
View File

@@ -30,8 +30,13 @@ Partial Class Contratos_RepPresupuestos
#Region " INICIALIZA VALORES " #Region " INICIALIZA VALORES "
Private Sub InicializaValores() Private Sub InicializaValores()
TxtFiltrosFechaInicio.Text = $"01/08/{NowADS().Year - 1}" If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'emp citrícola
TxtFiltrosFechaFin.Text = $"31/07/{NowADS().Year}" 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.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind() DdlTipoGasto.DataBind()