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

22
Bancos/RepIE.aspx.vb
View File

@@ -46,8 +46,8 @@ Partial Class Bancos_RepIE
If Not Page.IsPostBack Then
GvDatos.DataBind()
Me.Form.DefaultButton = BtnConsultar.UniqueID
txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
CargaGvBitacora()
TipoPagina = ""
ViewState("Orden") = ""
@@ -84,8 +84,8 @@ Partial Class Bancos_RepIE
GvDatos.Columns(15).Visible = True
GvDatos.Columns(18).Visible = False
txtFechaI.Text = DateSerial(Year(Date.Now), Month(Date.Now), 1).ToShortDateString
txtFechaF.Text = Date.Now.ToShortDateString
txtFechaI.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
ImgConciliacion.Visible = True
LblTitulo.Text = "Conciliación Bancaria"
End If
@@ -99,7 +99,7 @@ Partial Class Bancos_RepIE
CargaUsuarioConcilio()
DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"Nombre", "CveUsuario"})
DdlUsuarioRegistro.databind
txtFechaI.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().ToShortDateString
DivDdlTarjeta.Visible = False
DivLabelTarjeta.Visible = False
@@ -159,7 +159,7 @@ Partial Class Bancos_RepIE
End If
If ChkTotalizar.Checked Then
Dim SaldoDolares As Decimal = DtDatos.SUMD("Importe", "CveMoneda = 2") * GlobalTipoCambio(Now).ToDecimal
Dim SaldoDolares As Decimal = DtDatos.SUMD("Importe", "CveMoneda = 2") * GlobalTipoCambio(NowADS()).ToDecimal
SaldoTotal.Text = DtDatos.SUM("ImporteMN").ToString.FormatoNumero '(DtDatos.SUM("Importe") + SaldoDolares).ToString.FormatoNumero
LtlSaldo.Text = DtDatos.SUM("Importe", "CveMoneda = 1").ToString.FormatoNumero
LtlSaldoDolares.Text = DtDatos.SUM("Importe", "CveMoneda = 2").ToString.FormatoNumero
@@ -176,7 +176,7 @@ Partial Class Bancos_RepIE
If GvDatos.Rows.Count > 0 AndAlso TipoPagina = "Conciliaciones" Then
BtnGuardar.Visible = True
GvDatos.HeaderRow.FCTextBox("TxtFechaAplicadoHeader").Text = DateAdd("d", -1, Date.Now).ToShortDateString
GvDatos.HeaderRow.FCTextBox("TxtFechaAplicadoHeader").Text = DateAdd("d", -1, NowADS()).ToShortDateString
If AceptaOtrosIngresos Then
Dim ObjProveedores As New ClsCompProveedores
@@ -214,7 +214,7 @@ Partial Class Bancos_RepIE
If Row.FCCheckBox("ChkFueConciliado").Checked <> CBool(Row.FCHiddenField("HdnConciliado").Value) Then
If Not CBool(Row.FCHiddenField("HdnConciliado").Value) Then
If Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate >= Row.FCLiteral("LtlFechaDocumento").Text.Trim.ToDate AndAlso Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate < Date.Now Then '
If Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate >= Row.FCLiteral("LtlFechaDocumento").Text.Trim.ToDate AndAlso Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate < NowADS() Then '
Fecha = Row.FCTextBox("TxtFechaAplicado").Text.Trim.ToDate
Else
FolioError = Row.DataKey("Folio").ToString
@@ -348,7 +348,7 @@ Partial Class Bancos_RepIE
e.Row.Cells(13).Style.Add("background-color", "#dddddd")
e.Row.Cells(15).Style.Add("background-color", "#dddddd")
If Not CBool(e.Row.DBCampo("FueConciliado").ToString) Then
e.Row.FCTextBox("TxtFechaAplicado").Text = If(TipoTrasaccion, e.Row.DBCampo("FechaDocumento"), DateAdd("d", -1, Date.Now).ToShortDateString)
e.Row.FCTextBox("TxtFechaAplicado").Text = If(TipoTrasaccion, e.Row.DBCampo("FechaDocumento"), DateAdd("d", -1, NowADS()).ToShortDateString)
e.Row.FCTextBox("TxtFechaAplicado").Style.Add("display", "none")
If AceptaOtrosIngresos Then e.Row.FCTextBox("TxtOtIng").Style.Add("display", "none")
e.Row.FCCalendarExtender("Calendario").StartDate = e.Row.DBCampo("FechaDocumento").ToDate
@@ -451,7 +451,7 @@ Partial Class Bancos_RepIE
GvDatos.Columns(14).Visible = True 'visualizo la columna oculta de fecha aplicacion cuando es conciliacion
GvDatos.Columns(15).Visible = False 'oculto columna de fecha de aplicacion, en modo de registro
GvDatos.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
GvDatos.ExportToExcel("ReporteSaldos" & NowADS().ToShortDateString)
'Imprimir("EXCEL")
GvDatos.Columns(13).Visible = True
GvDatos.Columns(14).Visible = False
@@ -545,7 +545,7 @@ Partial Class Bancos_RepIE
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
Dim ParametrosReporte As String = "Caja chica: " & DdlCuenta.SelectedItem.Text & " Fecha inicio: " & txtFechaI.Text & " Fecha fin: " & txtFechaF.Text