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
Acarreos/AcarreosConcluidos.aspx.vb
View File

@@ -13,8 +13,8 @@ Partial Class Acarreos_AcarreosAutoConciliacion
CargaDdlTransportista()
CargaDdlMaterial()
CargaDdlNumContrato()
txtFechaF.Text = Now.AddDays(0).ToShortDateString
txtFechaI.Text = Now.AddYears(-1).ToShortDateString
txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
BtnAgregarAcarreoConcluido.Text = "Vincular"
End If
End Sub

4
Acarreos/AcarreosPreEstimacion.aspx.vb
View File

@@ -14,7 +14,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
DdlTransportista.DataBind()
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMaterial.DataBind()
TxtFechaPreEstimacion.Text = Now.AddDays(0).ToShortDateString
TxtFechaPreEstimacion.Text = NowADS().AddDays(0).ToShortDateString
BtnAgregarPreEstimacion.Text = "Pre-Estimar"
CargaDdlNumContrato()
End If
@@ -65,7 +65,7 @@ Partial Class Acarreos_AcarreosPreEstimacion
DdlMaterial.DataBind()
CargaDdlNumContrato()
TxtNumPreEstimacion.Text = ""
TxtFechaPreEstimacion.Text = Now.AddDays(0).ToShortDateString
TxtFechaPreEstimacion.Text = NowADS().AddDays(0).ToShortDateString
GvPreEstimacion.DataSource = Nothing
GvPreEstimacion.DataBind()
Else

4
Acarreos/RegistroAcarreo.aspx.vb
View File

@@ -145,7 +145,7 @@ Partial Class Acarreos_EditarAcarreo
DdlChofer.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlMaterial.Items.Insert(0, New ListItem("Seleccione", "-1"))
CargaDdlNumContrato()
TxtFecha.Text = Now.AddDays(0).ToShortDateString
TxtFecha.Text = NowADS().AddDays(0).ToShortDateString
CargaDatos()
divEstatus.Visible = False
SetPermisos()
@@ -325,7 +325,7 @@ Partial Class Acarreos_EditarAcarreo
DdlTransportista.Items.Clear()
RBDestino.Checked = False
RBOrigen.Checked = False
TxtFecha.Text = Now.AddDays(0).ToShortDateString
TxtFecha.Text = NowADS().AddDays(0).ToShortDateString
DdlNumContrato.SelectedIndex = -1
DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlUnidad.Items.Insert(0, New ListItem("Seleccione", "-1"))

8
Acarreos/RegistroContratosAcarreos.aspx.vb
View File

@@ -74,8 +74,8 @@ Partial Class Acarreos_ContratosAcarreos
CargaDdlUnidadMedida()
CreaTmpTarifas()
CreaTmpMaterialVolumen()
TxtFechaInicio.Text = Now.AddDays(0).ToShortDateString
TxtFechaFin.Text = Now.AddDays(0).ToShortDateString
TxtFechaInicio.Text = NowADS().AddDays(0).ToShortDateString
TxtFechaFin.Text = NowADS().AddDays(0).ToShortDateString
CargaDatos()
End If
End Sub
@@ -303,8 +303,8 @@ Partial Class Acarreos_ContratosAcarreos
TxtVolumenTipo.Text = ""
TxtDescripcion.Text = ""
TxtNumContrato.Text = ""
TxtFechaInicio.Text = Now.AddDays(0).ToShortDateString
TxtFechaFin.Text = Now.AddDays(0).ToShortDateString
TxtFechaInicio.Text = NowADS().AddDays(0).ToShortDateString
TxtFechaFin.Text = NowADS().AddDays(0).ToShortDateString
DTTarifa.Rows.Clear()
DTMaterialVolumen.Rows.Clear()
GvTarifa.DataSource = Nothing

4
Acarreos/RepAcarreos.aspx.vb
View File

@@ -22,8 +22,8 @@ Partial Class Acarreos_RepAcarreos
CargaDdlTransportista()
CargaDdlMaterial()
CargaDdlNumContrato()
txtFechaF.Text = Now.AddDays(0).ToShortDateString
txtFechaI.Text = Now.AddYears(-1).ToShortDateString
txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
End If
End Sub

4
Acarreos/RepAcarreosDetalle.aspx.vb
View File

@@ -24,8 +24,8 @@ Partial Class Acarreos_RepAcarreosDetalle
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaF.Text = Now.AddDays(0).ToShortDateString
txtFechaI.Text = Now.AddYears(-1).ToShortDateString
txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
CargaDdlChofer()
CargaDdlSubProyectoOrigen()
CargaDdlSubProyectoDestino()

12
Acarreos/RepContratosAcarreos.aspx.vb
View File

@@ -27,8 +27,8 @@ Partial Class Acarreos_RepContratosAcarreos
CargaDdlSubProyectoOrigen()
CargaDdlTransportista()
CargaDdlProveedor()
txtFechaF.Text = Now.AddDays(0).ToShortDateString
txtFechaI.Text = Now.AddYears(-1).ToShortDateString
txtFechaF.Text = NowADS().AddDays(0).ToShortDateString
txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
End If
End Sub
@@ -154,14 +154,14 @@ Partial Class Acarreos_RepContratosAcarreos
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("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
@@ -182,10 +182,10 @@ Partial Class Acarreos_RepContratosAcarreos
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("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", Now.ToDateTime.ToShortDateString), "Excel")
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreos.rdlc", DTCont, params, String.Format("RepContratosAcarreos-{0}", NowADS().ToDateTime.ToShortDateString), "Excel")
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If

8
Acarreos/RepContratosAcarreosDetalle.aspx.vb
View File

@@ -183,7 +183,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
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", LblContrato.Text))
params.Add(New ReportParameter("FechaInicio", LblFechaInicio.Text))
params.Add(New ReportParameter("FechaFin", LblFechaFin.Text))
@@ -205,7 +205,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
@@ -222,7 +222,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
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", LblContrato.Text))
params.Add(New ReportParameter("FechaInicio", LblFechaInicio.Text))
params.Add(New ReportParameter("FechaFin", LblFechaFin.Text))
@@ -240,7 +240,7 @@ Partial Class Acarreos_RepContratosAcarreosDetalle
params.Add(New ReportParameter("VolF", LblVolFaltante.Text))
params.Add(New ReportParameter("PresF", LblPresFaltante.Text))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
ImprimirPDF("Empresas/Grales/Formatos/RepContratosAcarreosDetalle.rdlc", DTCont, params, String.Format("RepContratosAcarreosDetalle-{0}", NowADS().ToDateTime.ToShortDateString), "Excel")
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If

8
Acarreos/RepPreEstimacionDetalle.aspx.vb
View File

@@ -100,14 +100,14 @@ Partial Class Acarreos_RepPreEstimacionDetalle
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("Filtros", StrFiltro.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", $"file://{Imagen}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString))
ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", NowADS().ToDateTime.ToShortDateString))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
@@ -133,10 +133,10 @@ Partial Class Acarreos_RepPreEstimacionDetalle
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("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", Now.ToDateTime.ToShortDateString), "Excel")
ImprimirPDF("Empresas/Grales/Formatos/RepPreEstimacionDetalle.rdlc", DTCont, params, String.Format("RepPreEstimacionDetalle-{0}", NowADS().ToDateTime.ToShortDateString), "Excel")
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If