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

12
Inventarios/RepEntradasSalidas.aspx.vb
View File

@@ -67,8 +67,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
LnkFormatoInventario.Visible = True
End If
TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
FechaInicial = "-1"
FechaFinal = "-1"
@@ -348,7 +348,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
ImprimiReporte("EXCEL")
End Sub
Private Sub LnkExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles LnkExcelPersonalizado.Click
GvM.ExportToExcel("EntradasSalidas_" + Now.ToShortDateString)
GvM.ExportToExcel("EntradasSalidas_" + NowADS().ToShortDateString)
End Sub
Private Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
ImprimiReporte()
@@ -376,8 +376,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
If FechaI = "-1" Then
FechaI = "01-01-0001"
End If
If FechaF = "-1" OrElse FechaFinal.ToDate > Now.ToDate Then
FechaF = Now.ToString("dd/MM/yyyy")
If FechaF = "-1" OrElse FechaFinal.ToDate > NowADS().ToDate Then
FechaF = NowADS().ToString("dd/MM/yyyy")
End If
Dim RutaPDF As String
Dim Ruta As String = UsuarioActual.Empresa.Ruta
@@ -413,7 +413,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
If FormatoInventario Then
params.Add(New ReportParameter("Sucursal", DdlAlmacen.SelectedItem.Text))
params.Add(New ReportParameter("Bodega", DdlAlmacen.SelectedItem.Text))