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

14
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -116,8 +116,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
End Sub
Private Sub SetValues()
txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
'Cargo Categorias
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
@@ -510,7 +510,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
Dim TipoCambioM As Double
LiEspecifico.Visible = True
TipoCambioM = GlobalTipoCambio(Now)
TipoCambioM = GlobalTipoCambio(NowADS())
TxtEspecifico.Text = TipoCambioM.ToString
Else
LiEspecifico.Visible = False
@@ -670,7 +670,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
#Region " EXCEL "
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvDatos.ExportToExcel("ReporteProductosServicios" & Now.ToShortDateString)
GvDatos.ExportToExcel("ReporteProductosServicios" & NowADS().ToShortDateString)
End Sub
#End Region
@@ -695,7 +695,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
ImprimirPDF("Empresas/Grales/Formatos/RepProductosServiciosDetalle.rdlc", TmpDT, params, "ReportePS")
'ImprimirPDF(String.Format("{0}Formatos\RepProductosServicios.rdlc", UsuarioActual.Empresa.Ruta), dtPS, params, "ReporteProductosServicios")
@@ -773,7 +773,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
Dim Archivo As String = String.Empty
Dim HuboInexistentes As Boolean = False
Dim SBInexistentes As New StringBuilder : SBInexistentes.Append("No se pudieron anexar los siguientes archivos:<br />")
Dim ArchivoDestino As String = String.Format("{0}Temp\{1}.zip", AppDomain.CurrentDomain.BaseDirectory, Now.ToString("yyyyMMddhhmmss") & UsuarioActual.CveUsuario.ToString)
Dim ArchivoDestino As String = String.Format("{0}Temp\{1}.zip", AppDomain.CurrentDomain.BaseDirectory, NowADS().ToString("yyyyMMddhhmmss") & UsuarioActual.CveUsuario.ToString)
Dim archiveZip As ZipArchive = ZipFile.Open(ArchivoDestino, ZipArchiveMode.Create)
Dim DTVentas As DataTable = TmpDT.FiltraParametros("", "", {"CveVenta", "TipoDocumento", "Folio", "SerieFolio"})
@@ -812,7 +812,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
archiveZip.Dispose()
Response.Clear()
Response.ContentType = "application/zip"
Response.AddHeader("content-disposition", $"attachment; filename=facturas{Now.ToString("yyyyMMddhhmmss")}.zip")
Response.AddHeader("content-disposition", $"attachment; filename=facturas{NowADS().ToString("yyyyMMddhhmmss")}.zip")
Response.TransmitFile(ArchivoDestino)
Response.Flush()