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

8
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -304,7 +304,7 @@ Partial Class Compras_RepComprasAFDetalle
GenerarPDF()
End Sub
Private Sub LnkExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles LnkExcelPersonalizado.Click
GvDatos.ExportToExcel("ComprasDetalle_" + DdlPS.txtValue.Value + Now.ToShortDateString)
GvDatos.ExportToExcel("ComprasDetalle_" + DdlPS.txtValue.Value + NowADS().ToShortDateString)
End Sub
Private Sub GenerarPDF(Optional Formato As String = "PDF")
@@ -331,10 +331,10 @@ Partial Class Compras_RepComprasAFDetalle
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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaPDF, DTDatos, params, "ReporteComprasAFDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
ImprimirPDF(RutaPDF, DTDatos, params, "ReporteComprasAFDetalle_" & NowADS().ToString("yyyyMMddmmss"), Formato:=Formato)
End Sub
@@ -344,7 +344,7 @@ Partial Class Compras_RepComprasAFDetalle
If RblTipoCambio.SelectedValue.ToEntero = 3 Then
Dim TipoCambio As Double
LiEspecifico.Visible = True
TipoCambio = GlobalTipoCambio(Now)
TipoCambio = GlobalTipoCambio(NowADS())
TxtEspecifico.Text = TipoCambio.ToString
Else
LiEspecifico.Visible = False