Empresas Zona Horaria
This commit is contained in:
@@ -77,8 +77,8 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
|
||||
DtDatos = Nothing
|
||||
CargaTipoCuentas()
|
||||
|
||||
FechaInicio = Now.FirstDayOfMonth
|
||||
FechaFin = Date.Now
|
||||
FechaInicio = NowADS().FirstDayOfMonth
|
||||
FechaFin = NowADS()
|
||||
|
||||
'If UsuarioActual.Empresa.UsaAC Then
|
||||
' TipoReporte = -1
|
||||
@@ -279,7 +279,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
|
||||
'Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
|
||||
' If Not IsNothing(DtDatos) Then
|
||||
' ImprimirReporte("Excel")
|
||||
' 'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
|
||||
' 'GvDatos.ExportToExcelG("AnexoCatalogo" & NowADS().ToShortDateString & ".xlsx")
|
||||
' 'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
|
||||
' End If
|
||||
'End Sub
|
||||
@@ -305,8 +305,8 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
|
||||
If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then
|
||||
Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
|
||||
Else
|
||||
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
|
||||
FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
|
||||
FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
|
||||
FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
|
||||
IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
|
||||
|
||||
CargaDatos()
|
||||
|
||||
Reference in New Issue
Block a user