-- unificación de módulos de Contabilidad a una sola carpeta. como principal ContaSIG

2024-06-17 08:33:45 -07:00
parent 54ac9b836b
commit 9219751707
88 changed files with 17456 additions and 21235 deletions
--- a/Contabilidad/CatContaEjercicios.aspx.vb
+++ b/Contabilidad/CatContaEjercicios.aspx.vb
@@ -0,0 +1,144 @@
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class Contabilidad2_CatContaEjercicios
+    Inherits ClsPaginas
+
+    Private Property CveEjercicio() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+        Get
+            Return If(IsNothing(ViewState("CveEjercicio")), -1, CInt(ViewState("CveEjercicio")))
+        End Get
+        Set
+            ViewState("CveEjercicio") = Value
+        End Set
+    End Property
+    Private Property Ejercicio() As Integer
+        Get
+            Return If(IsNothing(ViewState("Ejercicio")), -1, CInt(ViewState("Ejercicio")))
+        End Get
+        Set
+            ViewState("Ejercicio") = Value
+        End Set
+    End Property
+    Private Property PeriodoActualNumero() As Integer
+        Get
+            Return If(IsNothing(ViewState("PeriodoActualNumero")), -1, CInt(ViewState("PeriodoActualNumero")))
+        End Get
+        Set
+            ViewState("PeriodoActualNumero") = Value
+        End Set
+    End Property
+    Private Property Estatus() As Boolean
+        Get
+            Return CBool(ViewState("Estatus"))
+        End Get
+        Set
+            ViewState("Estatus") = Value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaDatos()
+        End If
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetContaEjercicio(UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjConta.DtResultados
+        End If
+
+        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlCuentas.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvDatos.DataBind()
+        DdlCuentas.DataBind()
+        DdlCuentas.Items.Insert(0, New ListItem("seleccione", "-1"))
+    End Sub
+
+    Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
+        TxtEjercicio.Text = ""
+        ChkEstatus.Checked = False
+        DdlPeriodoActual.SelectedValue = "0"
+        LbAgregar.Text = "Agregar"
+        UpModalModulos.Update()
+        RegistraScript("$('#ModalCat').modal();")
+    End Sub
+
+    Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
+        Dim ObjConta As New ClsContabilidad
+        Dim errorString As String = ""
+        If LbAgregar.Text = "Agregar" Then
+            If Not ObjConta.AddContaEjercicio(TxtEjercicio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                              PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero) Then
+                errorString = "Error al agregar"
+            End If
+        ElseIf LbAgregar.Text = "Actualizar" Then
+            If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text.ToEntero, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero,
+                                                 Estatus:=ChkEstatus.Checked) Then
+                errorString = "Error al actualizar"
+            End If
+        End If
+            ObjConta.Dispose()
+        RegistraScript("$('#ModalCat').modal('hide');")
+        CargaDatos()
+        UpDatos.Update()
+        If errorString.Length > 0 Then
+            Alert(errorString)
+        Else
+            If LbAgregar.Text = "Agregar" Then
+                Alert("Agregado correctamente")
+            ElseIf LbAgregar.Text = "Actualizar" Then
+                Alert("Actualizado correctamente")
+            End If
+        End If
+    End Sub
+
+    Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        CveEjercicio = GvRow.DataKey("CveEjercicio").ToEntero
+        TxtEjercicio.Text = GvRow.DataKey("Ejercicio")
+        ChkEstatus.Checked = GvRow.DataKey("Estatus") = "True"
+        DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero")
+        LbAgregar.Text = "Actualizar"
+        UpModalModulos.Update()
+        RegistraScript("$('#ModalCat').modal();")
+    End Sub
+
+    Protected Sub EliminarRow(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.RemoveContaEjercicio(GvRow.DataKey("CveEjercicio").ToEntero) Then
+            Alert("eliminado correctamente")
+        End If
+        ObjConta.Dispose()
+        CargaDatos()
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub PolizaCierre(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Ejercicio = GvRow.DataKey("Ejercicio").ToEntero
+        PeriodoActualNumero = GvRow.DataKey("PeriodoActualNumero").ToEntero
+
+        RegistraScript("$('#ModalGenerarPoliza').modal();")
+    End Sub
+
+    Protected Sub LbGenerarPoliza_Click(sender As Object, e As EventArgs) Handles LbGenerarPoliza.Click
+        Dim ObjConta As New ClsContabilidad
+        Dim FechaI As String = $"01/01/{NowADS().Year}"
+        Dim FechaF As String = $"{DateTime.DaysInMonth(NowADS().Year, 12)}/12/{NowADS().Year}"
+        Dim CvePrePolizaCierre As Integer = -1
+        CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, Ejercicio, DdlCuentas.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal)
+        If CvePrePolizaCierre > 0 Then
+            If ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=Ejercicio, PeriodoActual:=PeriodoActualNumero, CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero,
+                                             CvePrePoliza:=CvePrePolizaCierre, Estatus:=Estatus) Then
+                Alert("Cierre de ejercicio correcto")
+            End If
+        End If
+        ObjConta.Dispose()
+    End Sub
+End Class