AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

catálogo tentativamente terminado

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-04-01 14:52:30 -07:00
parent 72d68add8a
commit d7ccb2a470
3 changed files with 82 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Contabilidad2/CatContaEjercicios.aspx.vb
View File

@@ -25,14 +25,20 @@ Partial Class Contabilidad2_CatContaEjercicios
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 = 0
ChkPeriodoActual.Checked = 0
DdlPeriodoActual.SelectedValue = 0
UpModalModulos.Update()
RegistraScript("$('#ModalCat').modal();")
End Sub
@@ -42,12 +48,12 @@ Partial Class Contabilidad2_CatContaEjercicios
Dim errorString As String = ""
If LbAgregar.Text = "Agregar" Then
If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then
PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
errorString = "Error al agregar"
End If
ElseIf LbAgregar.Text = "Actualizar" Then
If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text,
PeriodoActual:=If(ChkPeriodoActual.Checked, 1, 0), Estatus:=ChkEstatus.Checked) Then
If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero,
CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
errorString = "Error al actualizar"
End If
End If
@@ -71,7 +77,8 @@ Partial Class Contabilidad2_CatContaEjercicios
CveEjercicio = GvRow.DataKey("CveEjercicio").ToEntero
TxtEjercicio.Text = GvRow.DataKey("Ejercicio")
ChkEstatus.Checked = GvRow.DataKey("Estatus")
ChkPeriodoActual.Checked = If(GvRow.DataKey("PeriodoActual").ToEntero > 0, True, False)
DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero")
DdlCuentas.SelectedValue = GvRow.DataKey("CveCuentaCierre")
LbAgregar.Text = "Actualizar"
UpModalModulos.Update()
RegistraScript("$('#ModalCat').modal();")
@@ -87,4 +94,20 @@ Partial Class Contabilidad2_CatContaEjercicios
CargaDatos()
UpDatos.Update()
End Sub
Protected Sub PolizaCierre(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim ObjConta As New ClsContabilidad
Dim FechaI As String = $"01/01/{DateTime.Now.Year}"
Dim FechaF As String = $"{DateTime.DaysInMonth(DateTime.Now.Year, 12)}/12/{DateTime.Now.Year}"
Dim CvePrePolizaCierre As Integer = -1
CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, GvRow.DataKey("Ejercicio").ToEntero, GvRow.DataKey("CveCuentaCierre").ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal)
If CvePrePolizaCierre > 0 Then
If ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=GvRow.DataKey("Ejercicio").ToEntero, PeriodoActual:=GvRow.DataKey("PeriodoActualNumero").ToEntero,
CveCuentaCierre:=GvRow.DataKey("CveCuentaCierre").ToEntero, CvePrePoliza:=CvePrePolizaCierre, Estatus:=GvRow.DataKey("Estatus")) Then
Alert("Cierre de ejercicio correcto")
End If
End If
ObjConta.Dispose()
End Sub
End Class