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
OC/RepOC.aspx.vb
View File

@@ -35,8 +35,8 @@ Partial Class RepOC
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
txtFechaI.Text = Now.AddMonths(-3).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().AddMonths(-3).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
DdlTipo.SelectedValue = IfNull(Request("Tipo"), "-1").ToString
@@ -78,8 +78,8 @@ Partial Class RepOC
CargaPendientes()
txtFechaISemanal.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaFSemanal.Text = Now.ToShortDateString
txtFechaISemanal.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaFSemanal.Text = NowADS().ToShortDateString
@@ -513,7 +513,7 @@ Partial Class RepOC
#Region " IMPRESION "
Protected Sub LbPorAtender_Click(sender As Object, e As System.EventArgs) Handles LbPorAtender.Click
'GvPorAtender.ExportToExcel("OrdenesCompraPorAtender" & Now.ToShortDateString)
'GvPorAtender.ExportToExcel("OrdenesCompraPorAtender" & NowADS().ToShortDateString)
ImprimePorAtender("Excel")
End Sub
Protected Sub LbPorAtenderPDF_Click(sender As Object, e As System.EventArgs) Handles LbPorAtenderPDF.Click
@@ -564,7 +564,7 @@ Partial Class RepOC
End Sub
Protected Sub LbPendientes_Click(sender As Object, e As System.EventArgs) Handles LbPendientes.Click
'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & NowADS().ToShortDateString)
ImprimirPendientes("EXCEL")
End Sub
Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click
@@ -578,12 +578,12 @@ Partial Class RepOC
params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))
ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtPendiente, params, Formato:=format)
Else
GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
GvConsultar.ExportToExcel("OrdenesCompra" & NowADS().ToShortDateString)
End If
End Sub
Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click
@@ -593,12 +593,12 @@ Partial Class RepOC
params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))
ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtOC, params, Formato:="EXCEL")
Else
GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
GvConsultar.ExportToExcel("OrdenesCompra" & NowADS().ToShortDateString)
End If
End Sub
Private Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) Handles Tab.ActiveTabChanged