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

4
Contratos/CatPresupuestos.aspx.vb
View File

@@ -20,8 +20,8 @@ Partial Class Contratos_CatPresupuestos
CargaProyecto()
Dim CveProyecto = DdlSubProyecto.SelectedValue.ToEntero
CargaSubProyecto(CveProyecto)
txtFechaI.Text = $"01/01/{Now.Year}"
txtFechaF.Text = Now.ToString("dd/MM/yyyy")
txtFechaI.Text = $"01/01/{NowADS().Year}"
txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
UPFiltros.Update()
End Sub

4
Contratos/CatRefrendos.aspx.cs
View File

@@ -492,10 +492,10 @@ public partial class Contratos_CatRefrendos : ClsPaginas
List<ReportParameter> @params = new List<ReportParameter>();
@params.Add(new ReportParameter("FechaInicio", txtFechaI.Text));
@params.Add(new ReportParameter("FechaActual", DateTime.Now.ToShortDateString()));
@params.Add(new ReportParameter("FechaActual", NowADS().ToShortDateString()));
@params.Add(new ReportParameter("FechaFin", txtFechaF.Text));
@params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
@params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
@params.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
@params.Add(new ReportParameter("Cliente", DdlCliente.SelectedItem.Text));
@params.Add(new ReportParameter("Usuario", DdlUsuario.SelectedItem.Text));
@params.Add(new ReportParameter("FechaVencInicio", txtFechaVencI.Text));

52
Contratos/Contrato.aspx.vb
View File

@@ -382,7 +382,7 @@ Partial Class Contratos_Default
If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero
Else
'Configuración de Modalidad Insert
LblFechaCaptura.Text = Now.ToShortDateString()
LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CveContrato") = -1
@@ -2961,7 +2961,7 @@ Partial Class Contratos_Default
params.Add(New ReportParameter("FechaInicio", "-1"))
params.Add(New ReportParameter("FechaFin", "-1"))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Me.Titulo))
params.Add(New ReportParameter("Estatus", ""))
params.Add(New ReportParameter("Tipo", "-1"))
@@ -3745,7 +3745,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Titulo))
'Datos NUEVOS
@@ -3766,7 +3766,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Titulo))
'DATOS DEL CONTRATO
params.Add(New ReportParameter("NoContrato", TxtNumeroContrato.Text.Trim))
@@ -3824,7 +3824,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3862,7 +3862,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3889,7 +3889,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3920,7 +3920,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3962,7 +3962,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -4005,7 +4005,7 @@ Partial Class Contratos_Default
File.Copy(PathSource, pathDesti)
Dim objDoc As New clsGemBoxDocument(pathDesti)
Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & Now.Year.ToString()
Dim FechaActual As String = NowADS().Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & NowADS().Year.ToString()
objDoc.SustituirTags(GetDatosTagsDocumentos)
objDoc.Guardar(pathDesti)
@@ -4229,7 +4229,7 @@ Partial Class Contratos_Default
' Dim CveVentaAlmacen As Integer = Dr("CveVenta").ToString.ToEntero
' 'Movimiento de salida por traspaso al almacen destino
' Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenDestino, CveConceptoSalida, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContrato, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenOrigen)
' Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenDestino, CveConceptoSalida, CveMoneda, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContrato, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenOrigen)
' If CveMovimientoSalida > 0 Then
' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows
@@ -4251,7 +4251,7 @@ Partial Class Contratos_Default
' End If
' 'Movimeinto de entrada por traspaso al almacen origen
' Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacenOrigen, CveConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContratoHijo, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenDestino)
' Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacenOrigen, CveConceptoEntrada, CveMoneda, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContratoHijo, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenDestino)
' If CveMovimientoEntrada > 0 Then
' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows
@@ -4595,11 +4595,11 @@ Partial Class Contratos_Default
Dim Plantilla As String = TxtObservaciones.Text
If Plantilla.Contains("{DIA}") Then
Plantilla = Plantilla.Replace("{DIA}", DateTime.Now.Day.ToString())
Plantilla = Plantilla.Replace("{DIA}", NowADS().Day.ToString())
End If
If Plantilla.Contains("{MES}") Then
Dim fecha As DateTime = DateTime.Now
Dim fecha As DateTime = NowADS()
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -4607,15 +4607,15 @@ Partial Class Contratos_Default
End If
If Plantilla.Contains("{AÑO}") Then
Plantilla = Plantilla.Replace("{AÑO}", DateTime.Now.Year.ToString())
Plantilla = Plantilla.Replace("{AÑO}", NowADS().Year.ToString())
End If
If Plantilla.Contains("{TC}") Then
Plantilla = Plantilla.Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero)
Plantilla = Plantilla.Replace("{TC}", GlobalTipoCambio(NowADS()).FormatoNumero)
End If
If Plantilla.Contains("{MESANTERIOR}") Then
Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
Dim fecha As DateTime = NowADS().AddMonths(-1)
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -4623,7 +4623,7 @@ Partial Class Contratos_Default
End If
If Plantilla.Contains("{INICIOMESANTERIOR}") Then
Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
Dim fecha As DateTime = NowADS().AddMonths(-1)
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -4633,7 +4633,7 @@ Partial Class Contratos_Default
End If
If Plantilla.Contains("{FINMESANTERIOR}") Then
Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
Dim fecha As DateTime = NowADS().AddMonths(-1)
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -4650,11 +4650,11 @@ Partial Class Contratos_Default
Dim Plantilla As String = TxtObsGeneral.Text
If Plantilla.Contains("{DIA}") Then
Plantilla = Plantilla.Replace("{DIA}", DateTime.Now.Day.ToString())
Plantilla = Plantilla.Replace("{DIA}", NowADS().Day.ToString())
End If
If Plantilla.Contains("{MES}") Then
Dim fecha As DateTime = DateTime.Now
Dim fecha As DateTime = NowADS()
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -4662,15 +4662,15 @@ Partial Class Contratos_Default
End If
If Plantilla.Contains("{AÑO}") Then
Plantilla = Plantilla.Replace("{AÑO}", DateTime.Now.Year.ToString())
Plantilla = Plantilla.Replace("{AÑO}", NowADS().Year.ToString())
End If
If Plantilla.Contains("{TC}") Then
Plantilla = Plantilla.Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero)
Plantilla = Plantilla.Replace("{TC}", GlobalTipoCambio(NowADS()).FormatoNumero)
End If
If Plantilla.Contains("{MESANTERIOR}") Then
Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
Dim fecha As DateTime = NowADS().AddMonths(-1)
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -4678,7 +4678,7 @@ Partial Class Contratos_Default
End If
If Plantilla.Contains("{INICIOMESANTERIOR}") Then
Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
Dim fecha As DateTime = NowADS().AddMonths(-1)
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -4688,7 +4688,7 @@ Partial Class Contratos_Default
End If
If Plantilla.Contains("{FINMESANTERIOR}") Then
Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
Dim fecha As DateTime = NowADS().AddMonths(-1)
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()

6
Contratos/Contrato.vb
View File

@@ -171,7 +171,7 @@ Partial Class Contratos_Default
If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero
Else
'Configuración de Modalidad Insert
LblFechaCaptura.Text = Now.ToShortDateString()
LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CveContrato") = -1
@@ -1873,7 +1873,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Titulo))
If Imagen.Exists Then
@@ -1892,7 +1892,7 @@ Partial Class Contratos_Default
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Titulo))
'DATOS DEL CONTRATO
params.Add(New ReportParameter("NoContrato", TxtNumeroContrato.Text.Trim))

2
Contratos/ContratoAvance.aspx.vb
View File

@@ -560,7 +560,7 @@ Partial Class Contratos_ContratoAvance
'Private Sub BtnDescargarGenerado_Click(sender As Object, e As EventArgs) Handles BtnDescargarGenerado.Click
' GeneraAnexo(CveEstimacionNueva, NuemeroEstimacionNuevo, Now, DDlContratosEstimaciones.SelectedItem.Text)
' GeneraAnexo(CveEstimacionNueva, NuemeroEstimacionNuevo, NowADS(), DDlContratosEstimaciones.SelectedItem.Text)
'End Sub

24
Contratos/ContratoObra.aspx.vb
View File

@@ -469,7 +469,7 @@ Partial Class Contratos_ContratoObra
Else
'Configuración de Modalidad Insert
LblFechaCaptura.Text = Now.ToShortDateString()
LblFechaCaptura.Text = NowADS().ToShortDateString()
LblUsuarioCapturo.Text = UsuarioActual.Usuario
ViewState("CveContrato") = -1
@@ -2928,7 +2928,7 @@ Partial Class Contratos_ContratoObra
params.Add(New ReportParameter("FechaInicio", "-1"))
params.Add(New ReportParameter("FechaFin", "-1"))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Me.Titulo))
params.Add(New ReportParameter("Estatus", ""))
params.Add(New ReportParameter("Tipo", "-1"))
@@ -3425,7 +3425,7 @@ Partial Class Contratos_ContratoObra
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Titulo))
'Datos NUEVOS
@@ -3459,7 +3459,7 @@ Partial Class Contratos_ContratoObra
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3497,7 +3497,7 @@ Partial Class Contratos_ContratoObra
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3524,7 +3524,7 @@ Partial Class Contratos_ContratoObra
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3552,7 +3552,7 @@ Partial Class Contratos_ContratoObra
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3594,7 +3594,7 @@ Partial Class Contratos_ContratoObra
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", TituloCorto))
'Datos NUEVOS
@@ -3637,7 +3637,7 @@ Partial Class Contratos_ContratoObra
File.Copy(PathSource, pathDesti)
Dim objDoc As New clsGemBoxDocument(pathDesti)
Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & Now.Year.ToString()
Dim FechaActual As String = NowADS().Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & NowADS().Year.ToString()
objDoc.SustituirTags(GetDatosTagsDocumentos)
objDoc.Guardar(pathDesti)
@@ -3866,7 +3866,7 @@ Partial Class Contratos_ContratoObra
' Dim CveVentaAlmacen As Integer = Dr("CveVenta").ToString.ToEntero
' 'Movimiento de salida por traspaso al almacen destino
' Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenDestino, CveConceptoSalida, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContrato, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenOrigen)
' Dim CveMovimientoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenDestino, CveConceptoSalida, CveMoneda, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContrato, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenOrigen)
' If CveMovimientoSalida > 0 Then
' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows
@@ -3888,7 +3888,7 @@ Partial Class Contratos_ContratoObra
' End If
' 'Movimeinto de entrada por traspaso al almacen origen
' Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacenOrigen, CveConceptoEntrada, CveMoneda, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContratoHijo, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenDestino)
' Dim CveMovimientoEntrada As Integer = ObjInv.AddMovimiento(CveAlmacenOrigen, CveConceptoEntrada, CveMoneda, NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, DdlSubProyectoContrato.SelectedValue.ToEntero, -1, CveContrato:=CveContratoHijo, CveCliente:=CveCliente, CveAlmacenDestino:=CveAlmacenDestino)
' If CveMovimientoEntrada > 0 Then
' For Each Row As DataRow In Dt.FiltraParametros($"CvePS IS NOT NULL AND CveVenta = {CveVentaAlmacen}").Rows
@@ -5299,7 +5299,7 @@ Partial Class Contratos_ContratoObra
Dim ObjContratos As New ClsContratos
If ObjContratos.AddContratoGasto(CveContrato, TxtGastosDescripcion.Text, TxtGastosImporte.Text.ToDecimal, Now, UsuarioActual.CveUsuario) Then
If ObjContratos.AddContratoGasto(CveContrato, TxtGastosDescripcion.Text, TxtGastosImporte.Text.ToDecimal, NowADS(), UsuarioActual.CveUsuario) Then
ErrorProceso = False
End If

2
Contratos/ContratoObraAutorizacion.aspx.vb
View File

@@ -272,7 +272,7 @@ Partial Class Contratos_ContratoObraAutorizacion
Private Sub BtnDescargarGenerado_Click(sender As Object, e As EventArgs) Handles BtnDescargarGenerado.Click
GeneraAnexo(CveEstimacionNueva, NuemeroEstimacionNuevo, Now, DDlContratosEstimaciones.SelectedItem.Text)
GeneraAnexo(CveEstimacionNueva, NuemeroEstimacionNuevo, NowADS(), DDlContratosEstimaciones.SelectedItem.Text)
End Sub

4
Contratos/Contratos.aspx.vb
View File

@@ -75,7 +75,7 @@ Partial Class Contratos_Contratos
#Region "I M P R I M I R <i class='fa fa-print'></i>"
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GvDatos.ExportToExcel("ReporteCompras" & Now.ToShortDateString)
GvDatos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
End Sub
Private Sub GenerarPDF()
@@ -92,7 +92,7 @@ Partial Class Contratos_Contratos
params.Add(New ReportParameter("FechaFin", "-1"))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Cliente}{Estatus}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepContratos.rdlc", dt, params, "ReporteContratos")

6
Contratos/ContratosSecciones.aspx.vb
View File

@@ -101,7 +101,7 @@ Partial Class Contratos_ContratosSecciones
' DdlPS.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
' 'Me.txtFechaF.Text = Now.ToShortDateString
' 'Me.txtFechaF.Text = NowADS().ToShortDateString
' 'Dim Row() As DataRow = GlobalDTFechasContratosSecciones.Select("CveContratosQueja = -1 AND CveEstatus = 1")
' 'If Row.Length > 0 Then
' ' txtFechaI.Text = Row(0)("Fecha").ToString.ToDate.ToShortDateString()
@@ -120,8 +120,8 @@ Partial Class Contratos_ContratosSecciones
' ' TrBitacora.Visible = True
' ' LblTitulo.Text = "Bitácoras"
' ' Page.Title = "SAT - Imprimir Bitácoras"
' ' TxtFechaIBit.Text = Now.ToShortDateString
' ' TxtFechaFBit.Text = Now.ToShortDateString
' ' TxtFechaIBit.Text = NowADS().ToShortDateString
' ' TxtFechaFBit.Text = NowADS().ToShortDateString
' 'End If
' End Sub

2
Contratos/Estimaciones.aspx.vb
View File

@@ -113,7 +113,7 @@ Partial Class Contratos_Estimaciones
'debe de ser por contrato el movimiento
If Str.Length > 0 Then
Dim Con As New ClsContratos
Con.AddEstimaciones(7, Now, -1, -1, Str.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Con.AddEstimaciones(7, NowADS(), -1, -1, Str.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Con.Dispose()
End If
CargaDatos()

14
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -92,7 +92,7 @@ Partial Class Contratos_FacturacionMasiva
If Not IsPostBack Then
FolioVigentes = False
CargaCombos()
Dim FechaRef = DateTime.Now
Dim FechaRef = NowADS()
txtFechaI.Text = $"01/{FechaRef.Month}/{FechaRef.Year}"
txtFechaF.Text = txtFechaI.Text.ToDate().AddMonths(1).ToString("dd/MM/yyyy")
CargaDatos(-1, -1)
@@ -120,11 +120,11 @@ Partial Class Contratos_FacturacionMasiva
For Each Row As DataRow In ObjContratos.DtResultados().FiltraParametros($"FueFacturado = 0").Rows
If Row("Observaciones").ToString().Contains("{DIA}") Then
Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", DateTime.Now.Day.ToString())
Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", NowADS().Day.ToString())
End If
If Row("Observaciones").ToString().Contains("{MES}") Then
Dim fecha As DateTime = DateTime.Now
Dim fecha As DateTime = NowADS()
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -132,7 +132,7 @@ Partial Class Contratos_FacturacionMasiva
End If
If Row("Observaciones").ToString().Contains("{MESANTERIOR}") Then
Dim fecha As DateTime = DateTime.Now.AddMonths(-1)
Dim fecha As DateTime = NowADS().AddMonths(-1)
Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()
@@ -140,11 +140,11 @@ Partial Class Contratos_FacturacionMasiva
End If
If Row("Observaciones").ToString().Contains("{AÑO}") Then
Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", DateTime.Now.Year.ToString())
Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", NowADS().Year.ToString())
End If
If Row("Observaciones").ToString().Contains("{TC}") Then
Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero)
Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", GlobalTipoCambio(NowADS()).FormatoNumero)
End If
DTCicloComercial.Rows.Add(Row.ItemArray)
@@ -421,7 +421,7 @@ Partial Class Contratos_FacturacionMasiva
ObjFactura.Folio = -1
ObjFactura.Serie = "-1"
'ObjFactura.CveMesa = -1
ObjFactura.Fecha = If(DR("FechaVenc").ToString.ToDate > Now, Now, DR("FechaVenc").ToString.ToDate)
ObjFactura.Fecha = If(DR("FechaVenc").ToString.ToDate > NowADS(), NowADS(), DR("FechaVenc").ToString.ToDate)
ObjFactura.CvePrePoliza = -1
ObjFactura.CveMetodoPago = 1

2
Contratos/ModificarPresupuesto.aspx.vb
View File

@@ -94,7 +94,7 @@ Partial Class Contratos_ModificarPresupuesto
Dim CveUsuario = -1
Dim Agrupador = 1 'CLASIFICACION
If CvePresupuesto > 0 Then
TxtFecha.Text = Now.ToString("dd/MM/yyyy")
TxtFecha.Text = NowADS().ToString("dd/MM/yyyy")
Dim DrPresupuesto = DtPresupuestos.FiltroPrimero($"CvePresupuesto = {CvePresupuesto}")
'Dim DrPresupuesto = DtPresupuestos.AsEnumerable.Where(Function(a) a("CvePresupuesto").ToString.ToEntero = CvePresupuesto).FirstOrDefault

14
Contratos/Presupuestos.aspx.vb
View File

@@ -60,8 +60,8 @@ Partial Class Contratos_Presupuestos
#Region "I N I C I A L I Z A - V A L O R E S"
Private Sub InicializaValores()
TxtFechaI.Text = $"01/01/{Now.Year}"
TxtFechaF.Text = Now.ToShortDateString
TxtFechaI.Text = $"01/01/{NowADS().Year}"
TxtFechaF.Text = NowADS().ToShortDateString
CargaProyecto()
CargaMoneda()
End Sub
@@ -306,7 +306,7 @@ Partial Class Contratos_Presupuestos
Dim CveProyecto = DdlProyecto.SelectedValue.ToEntero
Dim FechaI = TxtFechaI.Text.ToDate
Dim FechaF = TxtFechaF.Text.ToDate
Dim FechaIng = Now
Dim FechaIng = NowADS()
Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
Dim Archivo = ""
Dim Estatus = 1
@@ -314,7 +314,7 @@ Partial Class Contratos_Presupuestos
Dim ObjCont As New ClsContratos
ObjCont.IniciaTransacSQL()
TieneError = Not ObjCont.UpdatePresupuesto(CvePresupuesto, Nombre, Observacion, CveSubProyecto, FechaI, FechaF, Estatus, Archivo, Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
TieneError = Not ObjCont.UpdatePresupuesto(CvePresupuesto, Nombre, Observacion, CveSubProyecto, FechaI, FechaF, Estatus, Archivo, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not TieneError Then
For Each GvRow As GridViewRow In GvPresupuestos.Rows
@@ -378,7 +378,7 @@ Partial Class Contratos_Presupuestos
Dim CveProyecto = DdlProyecto.SelectedValue.ToEntero
Dim FechaI = TxtFechaI.Text.ToDate
Dim FechaF = TxtFechaF.Text.ToDate
Dim FechaIng = Now
Dim FechaIng = NowADS()
Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
Dim Archivo = ""
Dim TieneError = False
@@ -389,7 +389,7 @@ Partial Class Contratos_Presupuestos
If ObjCont.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
Dim CvePresupuestoNuevo = ObjCont.AddPresupuesto(Nombre, Observacion, CveSubProyecto, FechaI, FechaF, Estatus, Archivo, Now, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim CvePresupuestoNuevo = ObjCont.AddPresupuesto(Nombre, Observacion, CveSubProyecto, FechaI, FechaF, Estatus, Archivo, NowADS(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePresupuestoNuevo > 0 Then
Dim ImporteClasi = 0.0D
@@ -497,7 +497,7 @@ Partial Class Contratos_Presupuestos
End Sub
Protected Sub LnkFormatoPresup_Click(sender As Object, e As EventArgs) Handles LnkFormatoPresup.Click
GvPresupuestos.ExportToExcelX("Plantilla Presupuesto " + DateTime.Now.ToShortDateString)
GvPresupuestos.ExportToExcelX("Plantilla Presupuesto " + NowADS().ToShortDateString)
End Sub
Protected Sub LnkCargarPresup_Click(sender As Object, e As EventArgs) Handles LnkCargarPresup.Click

4
Contratos/RepContratosAvancesCP.aspx.vb
View File

@@ -121,7 +121,7 @@ Partial Class Contratos_RepContratosAvancesCP
#Region "Imprimir"
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GvDatos.ExportToExcel("ReporteCompras" & Now.ToShortDateString)
GvDatos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
End Sub
Private Sub GenerarPDF()
@@ -141,7 +141,7 @@ Partial Class Contratos_RepContratosAvancesCP
params.Add(New ReportParameter("FechaFin", "-1"))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Cliente}{Estatus}{Tipo}{Grupo}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAvanceCP.rdlc", dt, params, "ReporteContratosAvanceCP")

6
Contratos/RepContratosCostos.aspx.vb
View File

@@ -20,8 +20,8 @@ Partial Class Contratos_RepContratosCostos
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
CargaDatos()
@@ -85,7 +85,7 @@ Partial Class Contratos_RepContratosCostos
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Contrato.Text))
params.Add(New ReportParameter("Estatus", DdlEstatus.SelectedItem.Text))
params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text))

2
Contratos/RepContratosFianzas.aspx.cs
View File

@@ -128,7 +128,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas
@params.Add(new ReportParameter("FechaInicio", FechaI));
@params.Add(new ReportParameter("FechaFin", FechaF));
@params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
@params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
@params.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
@params.Add(new ReportParameter("Contrato", Contrato.Text));
@params.Add(new ReportParameter("Estatus", Estatus.Text));
@params.Add(new ReportParameter("LogoPath", Imagen.Exists ? $"file://{Imagen.FullName}" : ""));

2
Contratos/RepContratosObraAvancesDetalle.aspx.vb
View File

@@ -98,7 +98,7 @@ Partial Class RepContratosObraAvancesDetalle
Dim TotalFaltantePorcentaje As Decimal = 100 - TotalAvancePorcentaje
Dim FechaFinal As Date = DTDatos(0)("FechaFinal").ToString.ToDate
Dim Dias As Integer = (FechaFinal - Now).Days
Dim Dias As Integer = (FechaFinal - NowADS()).Days

6
Contratos/RepContratosSuministros.aspx.vb
View File

@@ -20,8 +20,8 @@ Partial Class Contratos_RepContratosSuministros
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
CargaDatos()
@@ -84,7 +84,7 @@ Partial Class Contratos_RepContratosSuministros
'params.Add(New ReportParameter("FechaInicio", FechaI))
'params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
'params.Add(New ReportParameter("Contrato", Contrato.Text))
params.Add(New ReportParameter("AgrupadoPor", $"{FechaI}{FechaF}{Contrato}{Estatus}{Tipo}"))

6
Contratos/RepPedidosDevolucionesXContrato.aspx.vb
View File

@@ -20,8 +20,8 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.FirstDayOfMonth.AddYears(-1).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.AddYears(-1).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargaContratos()
End If
@@ -78,7 +78,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato
params.Add(New ReportParameter("FechaInicio", FechaI))
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Contrato", Contrato.Text))
params.Add(New ReportParameter("Estatus", ""))
params.Add(New ReportParameter("Tipo", DdlTipo.SelectedItem.Text))

6
Contratos/RepPresupuestos.aspx.vb
View File

@@ -30,8 +30,8 @@ Partial Class Contratos_RepPresupuestos
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
TxtFiltrosFechaInicio.Text = $"01/08/{Now.Year - 1}"
TxtFiltrosFechaFin.Text = $"31/07/{Now.Year}"
TxtFiltrosFechaInicio.Text = $"01/08/{NowADS().Year - 1}"
TxtFiltrosFechaFin.Text = $"31/07/{NowADS().Year}"
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind()
@@ -548,7 +548,7 @@ Partial Class Contratos_RepPresupuestos
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"{FechaIn}{FechaFn}{Agrupador}{Proyecto}{SubProyecto}{Clasificacion}{TipoGasto}"))
params.Add(New ReportParameter("Autorizado", LtlAutorizado.Text.FormatoNumero()))
params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero()))

10
Contratos/RepPresupuestosDetalle.aspx.vb
View File

@@ -42,8 +42,8 @@ Partial Class Contratos_RepPresupuestosDetalle
#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()}
@@ -78,8 +78,8 @@ Partial Class Contratos_RepPresupuestosDetalle
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
@@ -343,7 +343,7 @@ Partial Class Contratos_RepPresupuestosDetalle
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"{FechaIn}{FechaFn}{Agrupador}{Proyecto}{SubProyecto}{Clasificacion}{TipoGasto}"))
params.Add(New ReportParameter("Autorizado", DtPresupuestos.Rows(0)("Autorizado").ToString.FormatoNumero()))
params.Add(New ReportParameter("Ejercido", DtPresupuestos.Rows(0)("Ejercido").ToString.FormatoNumero()))

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