69 lines
2.5 KiB
VB.net
69 lines
2.5 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Partial Class Sistemas_Cierre
|
|
Inherits ClsPaginas
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CargaDatos()
|
|
End If
|
|
End Sub
|
|
Private Sub CargaDatos()
|
|
|
|
Dim ObjEmpresas As New ClsSisEmpresas()
|
|
If ObjEmpresas.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
If ObjEmpresas.DtResultados.Rows.Count > 0 Then
|
|
TxtFecha.Text = ObjEmpresas.DtResultados.Rows(0)("Conta_FechaCerrado").ToString().ToDateTime().ToString("dd/MM/yyyy")
|
|
End If
|
|
End If
|
|
ObjEmpresas.Dispose()
|
|
|
|
'If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
|
|
' 'DivFechaContPAQ.Visible = True
|
|
' Dim DtParametros As DataTable = Nothing
|
|
' Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
' If ObjConta.GetParametros() Then
|
|
' DtParametros = ObjConta.DtResultados.Copy()
|
|
' End If
|
|
' ObjConta.Dispose()
|
|
' If DtParametros IsNot Nothing Then
|
|
' If DtParametros.Rows.Count > 0 Then
|
|
' TxtFechaContPAQ.Text = DtParametros.Rows(0)("FechaCierreSIG").ToString().ToDateTime().ToString("dd/MM/yyyy")
|
|
' End If
|
|
' DtParametros.Dispose()
|
|
' End If
|
|
|
|
'End If
|
|
|
|
|
|
UpParametros.Update()
|
|
End Sub
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
|
|
Dim FechaCierre As Date = TxtFecha.Text.ToDate()
|
|
'Dim FechaCierreContPAQ As Date = TxtFechaContPAQ.Text.ToDate()
|
|
|
|
Dim GuardoFechaContPAQ As Boolean = False
|
|
|
|
If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
|
|
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
GuardoFechaContPAQ = ObjConta.UpdateFechaCierreSIG(FechaCierre)
|
|
ObjConta.Dispose()
|
|
Else
|
|
GuardoFechaContPAQ = True
|
|
End If
|
|
|
|
Dim ObjEmpresas As New ClsSisEmpresas()
|
|
If GuardoFechaContPAQ AndAlso ObjEmpresas.UpdateEmpresaCierre(UsuarioActual.CveEmpresa, FechaCierre) Then
|
|
Alert("La fecha de cierre de período se guardó correctamente.")
|
|
Else
|
|
Alert("Ocurrió un error al guardar la fecha", TipoMensaje.MsgError)
|
|
End If
|
|
ObjEmpresas.Dispose()
|
|
|
|
CargaDatos()
|
|
End Sub
|
|
End Class
|