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

6
Flotillas/RepIncidentes.aspx.vb
View File

@@ -23,8 +23,8 @@ Partial Class AF_RepIncidentes
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
CargaDispositivos()
CargaDatos()
@@ -114,7 +114,7 @@ Partial Class AF_RepIncidentes
params.Add(New ReportParameter("FechaInicio", txtFechaI.Text))
params.Add(New ReportParameter("FechaFin", txtFechaF.Text))
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepAFIncidentes.rdlc", DTDatos, params, "ReporIncidentes", Formato:=Formato)

10
Flotillas/RepLicencias.aspx.vb
View File

@@ -23,12 +23,12 @@ Partial Class AF_RepLicencias
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
TxtFechaVI.Text = Now.FirstDayOfMonth.ToShortDateString
TxtFechaVF.Text = Now.LastDayOfMonth.ToShortDateString
TxtFechaVI.Text = NowADS().FirstDayOfMonth.ToShortDateString
TxtFechaVF.Text = NowADS().LastDayOfMonth.ToShortDateString
CargaDispositivos()
CargaDatos()
@@ -119,7 +119,7 @@ Partial Class AF_RepLicencias
params.Add(New ReportParameter("FechaInicio", txtFechaI.Text))
params.Add(New ReportParameter("FechaFin", txtFechaF.Text))
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepAFLicencia.rdlc", DTDatos, params, "ReporLicencias", Formato:=Formato)

10
Flotillas/RepPlacas.aspx.vb
View File

@@ -21,10 +21,10 @@ Partial Class AF_RepPlacas
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaEI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaEF.Text = Now.LastDayOfMonth.ToShortDateString
txtFechaVI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaVF.Text = Now.LastDayOfMonth.ToShortDateString
txtFechaEI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaEF.Text = NowADS().LastDayOfMonth.ToShortDateString
txtFechaVI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaVF.Text = NowADS().LastDayOfMonth.ToShortDateString
CargaDispositivos()
CargaPlacas()
CargaDatos()
@@ -96,7 +96,7 @@ Partial Class AF_RepPlacas
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepPlacas.rdlc", DTDatos, params, "ReportePlacas", Formato:=Formato)

10
Flotillas/RepPolizaSeguro.aspx.vb
View File

@@ -20,10 +20,10 @@ Partial Class AF_RepPolizaSeguro
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaEI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaEF.Text = Now.LastDayOfMonth.ToShortDateString
txtFechaVI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaVF.Text = Now.LastDayOfMonth.ToShortDateString
txtFechaEI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaEF.Text = NowADS().LastDayOfMonth.ToShortDateString
txtFechaVI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaVF.Text = NowADS().LastDayOfMonth.ToShortDateString
CargaDatos()
CargaDispositivos()
CargaProveedores()
@@ -93,7 +93,7 @@ Partial Class AF_RepPolizaSeguro
params.Add(New ReportParameter("FechaInicio", txtFechaEI.Text))
params.Add(New ReportParameter("FechaFin", txtFechaEF.Text))
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepPolizaSeguroGPS.rdlc", DTDatos, params, "Reporte Poliza Seguro", Formato:=Formato)

6
Flotillas/RepServicios.aspx.vb
View File

@@ -21,8 +21,8 @@ Partial Class AF_RepPlacas
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
CargaDispositivos()
CargaProveedores()
CargaTipoServicios()
@@ -100,7 +100,7 @@ Partial Class AF_RepPlacas
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepServiciosGPS.rdlc", DTDatos, params, "ReporteServicios", Formato:=Formato)