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

16
Bancos/RepCobradoPagado.aspx.vb
View File

@@ -50,8 +50,8 @@ Partial Class Bancos_RepCobradoPagado
#Region "CARGA DATOS"
Private Sub CargaCombos()
DdlGrupo.Items.Clear()
txtFechaI.Text = DateTime.Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = DateTime.Now.LastDayOfMonth.ToShortDateString
txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
If DdlModalidad.SelectedValue = "2" Then
DdlGrupo.Items.Insert(0, New ListItem("Año", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Año/Mes", "2"))
@@ -91,7 +91,7 @@ Partial Class Bancos_RepCobradoPagado
If ObjBancos.GetCobradoPagado(DdlModalidad.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero,
If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha, txtFechaI.Text.ToDate),
If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Now, txtFechaF.Text.ToDate),
If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate),
DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico) Then
DtDatos = ObjBancos.DtResultados
If DtDatos.Rows.Count > 0 Then
@@ -128,13 +128,13 @@ Partial Class Bancos_RepCobradoPagado
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
'If PrendeLink Then
' e.Row.FCLiteral("Gpo").Text = $"<a class=""Texto"" href='/Bancos/RepCobradoPagadoDetalle.aspx?FI={If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha.ToDate.ToShortDateString, txtFechaI.Text)}&FF={If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Now.ToDate.ToShortDateString, txtFechaF.Text)}&MOD={DdlModalidad.SelectedValue}&CVEPC={e.Row.DBCampo("CveProveedorCliente")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
' e.Row.FCLiteral("Gpo").Text = $"<a class=""Texto"" href='/Bancos/RepCobradoPagadoDetalle.aspx?FI={If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha.ToDate.ToShortDateString, txtFechaI.Text)}&FF={If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS().ToDate.ToShortDateString, txtFechaF.Text)}&MOD={DdlModalidad.SelectedValue}&CVEPC={e.Row.DBCampo("CveProveedorCliente")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
'End If
If e.Row.DBCampo("Orden") = "" Then
e.Row.CssClass = "Totales"
Else
e.Row.FCLiteral("Gpo").Text = $"<a class=""Texto"" href='/Bancos/RepCobradoPagadoDetalle.aspx?FI={If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha.ToDate.ToShortDateString, txtFechaI.Text)}&FF={If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Now.ToDate.ToShortDateString, txtFechaF.Text)}&CveProyecto={e.Row.DBCampo("CveProyecto")}&CveSubProyecto={e.Row.DBCampo("CveSubProyecto")}&MOD={DdlModalidad.SelectedValue}&Grupo={e.Row.DBCampo("Grupo")}&GPO={e.Row.DBCampo("GPO")}&TipoCambio={RblTipoCambio.SelectedValue}&TCEspecifico={TxtEspecifico.Text}&CveMoneda={e.Row.DBCampo("CveMoneda")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
e.Row.FCLiteral("Gpo").Text = $"<a class=""Texto"" href='/Bancos/RepCobradoPagadoDetalle.aspx?FI={If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", MinFecha.ToDate.ToShortDateString, txtFechaI.Text)}&FF={If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS().ToDate.ToShortDateString, txtFechaF.Text)}&CveProyecto={e.Row.DBCampo("CveProyecto")}&CveSubProyecto={e.Row.DBCampo("CveSubProyecto")}&MOD={DdlModalidad.SelectedValue}&Grupo={e.Row.DBCampo("Grupo")}&GPO={e.Row.DBCampo("GPO")}&TipoCambio={RblTipoCambio.SelectedValue}&TCEspecifico={TxtEspecifico.Text}&CveMoneda={e.Row.DBCampo("CveMoneda")}' target='_blank'>{e.Row.DBCampo("GPO")}</a>"
End If
If e.Row.DBCampo("Grupo") = "10" Then
If e.Row.DBCampo("CveSubProyecto") <> "" AndAlso e.Row.DBCampo("CveClasificacion") = "" Then
@@ -157,7 +157,7 @@ Partial Class Bancos_RepCobradoPagado
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
@@ -171,7 +171,7 @@ Partial Class Bancos_RepCobradoPagado
#Region "I M P R I M I R <i class='fa fa-print'></i>"
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GvDatos.ExportToExcel("ReporteCobrado-Pagado" & Now.ToShortDateString)
GvDatos.ExportToExcel("ReporteCobrado-Pagado" & NowADS().ToShortDateString)
End Sub
Private Sub GenerarPDF()
@@ -197,7 +197,7 @@ Partial Class Bancos_RepCobradoPagado
params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Moneda}{FechaIn}{FechaFn}"))
params.Add(New ReportParameter("FUltimaSemana", FUltimaSemana))
params.Add(New ReportParameter("FUltimoMes", FUltimoMes))