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

20
Ventas/RepVentas.aspx.vb
View File

@@ -232,8 +232,8 @@ Partial Class Ventas_RepVentas
DdlTipoRelacion.DataBind()
DdlTipoRelacion.Items.Insert(0, New ListItem("Todos", "-1"))
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
End Sub
@@ -347,7 +347,7 @@ Partial Class Ventas_RepVentas
TipoCambio = RblTipoCambio.SelectedValue.ToEntero
If TipoCambio = 3 Then
LiEspecifico.Visible = True
TCEspecifico = GlobalTipoCambio(Now).ToDecimal
TCEspecifico = GlobalTipoCambio(NowADS()).ToDecimal
TxtEspecifico.Text = TCEspecifico.ToString
Else
LiEspecifico.Visible = False
@@ -787,7 +787,7 @@ Partial Class Ventas_RepVentas
#Region " EXCEL "
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
GenerarPDF("Excel")
End Sub
#End Region
@@ -830,7 +830,7 @@ Partial Class Ventas_RepVentas
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("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -840,7 +840,7 @@ Partial Class Ventas_RepVentas
ruta = "Empresas/Grales/Formatos/RepVentas.rdlc"
End If
ImprimirPDF(ruta, dt, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF(ruta, dt, params, String.Format("ReporteVentas-{0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
End If
@@ -977,7 +977,7 @@ Partial Class Ventas_RepVentas
' txtFechaIHP.Text = PrevMondayDate.ToString("dd/MM/yyyy")
' txtFechaFHP.Text = Sunday.ToString("dd/MM/yyyy")
' Case "2" ' MENSUAL
' Dim FechaRef As DateTime = Now
' Dim FechaRef As DateTime = NowADS()
' Dim LastDayOfMonth = DateTime.DaysInMonth(FechaRef.Year, FechaRef.Month)
' txtFechaIHP.Text = $"01/{FechaRef.Month}/{FechaRef.Year}"
@@ -1032,10 +1032,10 @@ Partial Class Ventas_RepVentas
Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
'GvVsh.Visible = True
'GvVsh.ExportToExcel("DetalleVentas_" & Now.ToShortDateString)
'GvVsh.ExportToExcel("DetalleVentas_" & NowADS().ToShortDateString)
'GvVsh.Visible = False
GvDatos.ExportToExcel("Ventas_" & Now.ToShortDateString & ".xls")
'GvDatos.ExportToExcelG("DetalleVentas_" & Now.ToShortDateString & ".xlsx")
GvDatos.ExportToExcel("Ventas_" & NowADS().ToShortDateString & ".xls")
'GvDatos.ExportToExcelG("DetalleVentas_" & NowADS().ToShortDateString & ".xlsx")
End Sub