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
Inventarios/RepExistenciasCostos.aspx.vb
View File

@@ -53,8 +53,8 @@ Partial Class Inventarios_RepExistenciasCostos
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFechaI.Text = New Date(Now.Year, Now.Month, 1).ToShortDateString
TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
TxtFechaI.Text = New Date(NowADS().Year, NowADS().Month, 1).ToShortDateString
TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
If Request("CvePS") IsNot Nothing AndAlso Request("CveProveedor") IsNot Nothing AndAlso
Request("CveMoneda") IsNot Nothing AndAlso Request("CveConcepto") IsNot Nothing AndAlso
@@ -295,7 +295,7 @@ Partial Class Inventarios_RepExistenciasCostos
params.Add(New ReportParameter("FechaInicio", FechaIn))
params.Add(New ReportParameter("FechaFin", FechaFn))
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", $"{FechaIn} {FechaFn} {Proveedor} {Concepto} {Almacen} {Clasificacion} {PS} {Moneda}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("OcultarImportes", UsuarioActual.TienePermisoProceso(201).ToString))
@@ -352,7 +352,7 @@ Partial Class Inventarios_RepExistenciasCostos
' Dim IDPoliza As Integer = 0
' Dim Folio = 0
' Dim Fecha As Date = Date.Now 'TxtFecha.Text.ToDate
' Dim Fecha As Date = NowADS() 'TxtFecha.Text.ToDate
' Dim TieneError = False
' Dim TextoError = ""