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

10
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

@@ -90,8 +90,8 @@ Partial Class AC2_RepAnexoCatalogo
DtDatos = Nothing
CargaTipoCuentas()
FechaInicio = Now.FirstDayOfMonth
FechaFin = Date.Now
FechaInicio = NowADS().FirstDayOfMonth
FechaFin = NowADS()
'If UsuarioActual.Empresa.UsaAC Then
' TipoReporte = -1
@@ -289,7 +289,7 @@ Partial Class AC2_RepAnexoCatalogo
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
@@ -315,8 +315,8 @@ Partial Class AC2_RepAnexoCatalogo
If DdlCuentas.SelectedValue.ToEntero = -1 Then
Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
Else
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
IdCuenta = DdlCuentas.SelectedValue.ToEntero
CargaDatos()
End If