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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Contratos/RepPresupuestosDetalleCompras.aspx.vb
View File

@@ -30,8 +30,8 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}"
TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}"
TxtFiltrosFechaInicio.Text = $"01/09/{NowADS().Year - 1}"
TxtFiltrosFechaFin.Text = $"31/08/{NowADS().Year}"
Dim dtAgrupador = (From dr In GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
Select New With {.CveAgrupador = dr("CveClasificacion").ToString().ToEntero(), .Agrupador = dr("Clasificacion").ToString()}
@@ -66,8 +66,8 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
End Sub
Private Sub CargaUrlParametros()
Dim CveClasificacion = IfNull(Request("CveClasificacion"), -1).ToString.ToEntero
Dim FechaInicio = IfNull(Request("FechaInicio"), $"01/09/{Now.Year}").ToString
Dim FechaFin = IfNull(Request("FechaFin"), $"31/08/{Now.Year + 1}").ToString
Dim FechaInicio = IfNull(Request("FechaInicio"), $"01/09/{NowADS().Year}").ToString
Dim FechaFin = IfNull(Request("FechaFin"), $"31/08/{NowADS().Year + 1}").ToString
Dim CveProyecto = IfNull(Request("CveProyecto"), -1).ToString.ToEntero
Dim CveSubProyecto = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
Dim CveTipoGasto = IfNull(Request("CveTipoGasto"), -1).ToString.ToEntero