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

4
Finanzas/AnalisisCreditoCliente.aspx.vb
View File

@@ -47,8 +47,8 @@ Partial Class Finanzas_AnalisisCreditoCliente
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString
TxtFechaFCredito.Text = Now.ToShortDateString
TxtFechaICredito.Text = NowADS().AddYears(-2).ToShortDateString
TxtFechaFCredito.Text = NowADS().ToShortDateString
End If
End Sub

2
Finanzas/AnalisisCreditoProveedor.aspx.vb
View File

@@ -60,7 +60,7 @@ Partial Class Finanzas_AnalisisCreditoProveedor
DtVencido = ObjProveedores.DtResultados
End If
If ObjFinanzas.GetRotacionCarteraProveedores(MinFecha, MaxFecha, UsuarioActual.CveEmpresa, 1, "-1", " -1", -1, Now) Then
If ObjFinanzas.GetRotacionCarteraProveedores(MinFecha, MaxFecha, UsuarioActual.CveEmpresa, 1, "-1", " -1", -1, NowADS()) Then
DtRotacion = ObjFinanzas.DtResultados
End If

6
Finanzas/RepBalanceGeneral.aspx.vb
View File

@@ -204,7 +204,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
CargaDatosGenerales()
DdlEjercicio.SelectedValue = Now.Year.ToString
DdlEjercicio.SelectedValue = NowADS().Year.ToString
''Anual
'Anos = 0
@@ -250,7 +250,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
Private Sub CargaDatos()
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim Anio As String = If(DdlEjercicio.SelectedValue <> "", DdlEjercicio.SelectedValue, Now.Year.ToString)
Dim Anio As String = If(DdlEjercicio.SelectedValue <> "", DdlEjercicio.SelectedValue, NowADS().Year.ToString)
Dim ObjConta As New ClsContabilidad
Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), Anio)
Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
@@ -745,7 +745,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
' End If
' ObjConta.Dispose()
' Anos = (Year(Date.Now) - DdlEjercicio.SelectedValue.ToEntero) + 1
' Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1
' 'Esconde todo
' For index = 1 To 20

4
Finanzas/RepBalanceGeneralHorizontal.aspx.vb
View File

@@ -38,7 +38,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
CargaCombos()
DdlEjercicio.SelectedValueExist(Now.Year.ToString)
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
CargaDatos()
End Sub
Private Sub CargaCombos()
@@ -53,7 +53,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
Conta.Dispose()
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(Now.Year.ToString)
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()

6
Finanzas/RepBalanceGeneralVertical.aspx.vb
View File

@@ -18,7 +18,7 @@ Partial Class Contabilidad_RepBalanceGeneralVertical
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
DdlEjercicio.SelectedValueExist(Now.Year.ToString)
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
InicializaValores()
End If
End Sub
@@ -42,14 +42,14 @@ Partial Class Contabilidad_RepBalanceGeneralVertical
Conta.Dispose()
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(Now.Year.ToString)
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValue = "-1"
DdlPeriodo.SelectedValue = Now.Month.ToString
DdlPeriodo.SelectedValue = NowADS().Month.ToString
End Sub
#End Region

6
Finanzas/RepEstadoResultados.aspx.vb
View File

@@ -133,14 +133,14 @@ Partial Class Contabilidad2_RepEstadoResultados
CargaDatosGenerales()
DdlEjercicio.SelectedValue = Now.Year.ToString
DdlEjercicio.SelectedValue = NowADS().Year.ToString
Anos = 0
'Normal
TotalActual = 0
TotalAnterior = 0
DdlPeriodo.SelectedValue = Now.Month.ToString
DdlPeriodo.SelectedValue = NowADS().Month.ToString
TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
End If
@@ -531,7 +531,7 @@ Partial Class Contabilidad2_RepEstadoResultados
End If
ObjConta.Dispose()
Anos = (Year(Date.Now) - DdlEjercicio.SelectedValue.ToEntero) + 1
Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1
'Esconde todo
For index = 1 To 40 Step 2

2
Finanzas/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -49,7 +49,7 @@ Partial Class Contabilidad2_RepEstadoResultadosHorizontal
Conta.Dispose()
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(Now.Year.ToString)
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()

4
Finanzas/RepEstadoResultadosVertical.aspx.vb
View File

@@ -44,14 +44,14 @@ Partial Class Finanzas_RepEstadoResultadosVertical
Conta.Dispose()
DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(Now.Year.ToString)
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.SelectedValue = "-1"
DdlPeriodo.SelectedValue = Now.Month.ToString
DdlPeriodo.SelectedValue = NowADS().Month.ToString
End Sub
#End Region

12
Finanzas/RepOrigenAplicacion.aspx.vb
View File

@@ -72,8 +72,8 @@ Partial Class Contabilidad2_RepOrigenAplicacion
'End If
'Normal
TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
TxtFechaAl.Text = Date.Now.ToShortDateString
TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
TxtFechaAl.Text = NowADS().ToShortDateString
'Anual
Anos = 0
@@ -87,7 +87,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
DdlSubproyecto.DataBind()
DdlEjercicio.SelectedValue = Now.Year.ToString
DdlEjercicio.SelectedValue = NowADS().Year.ToString
TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
@@ -155,8 +155,8 @@ Partial Class Contabilidad2_RepOrigenAplicacion
' Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), Anio)
' Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
@@ -296,7 +296,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
Anos = (Year(Date.Now) - DdlEjercicio.SelectedValue.ToEntero) + 1
Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1
If ObjConta.GetOrigenAplicacionAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
DtDatosAnual = ObjConta.DtResultados

2
Finanzas/RepRotacionCartera.aspx.cs
View File

@@ -351,7 +351,7 @@ public partial class Finanzas_RepRotacionCartera : ClsPaginas
@params.Add(new ReportParameter("FechaInicio", TxtFechaI.Text));
@params.Add(new ReportParameter("FechaFin", TxtFechaF.Text));
@params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
@params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
@params.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
@params.Add(new ReportParameter("Grupo", DdlGrupo.SelectedItem.Text));
@params.Add(new ReportParameter("TipoReporte", Tab.ActiveTab.HeaderText));

2
Finanzas/RepRotacionCarteraDetalle.aspx.cs
View File

@@ -340,7 +340,7 @@ public partial class Finanzas_RepRotacionCarteraDetalle : ClsPaginas
// @params.Add(new ReportParameter("FechaInicio", TxtFechaI.Text));
// @params.Add(new ReportParameter("FechaFin", TxtFechaF.Text));
// @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
// @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
// @params.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
// @params.Add(new ReportParameter("Grupo", DdlGrupo.SelectedItem.Text));
// @params.Add(new ReportParameter("Sucursal", DdlSucursal.SelectedItem.Text));