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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:03:55 -07:00
parent 7ee978059d
commit 3bc4f72658
23 changed files with 212 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Contabilidad/CatPeriodosBloqueo.aspx.vb
View File

@@ -116,7 +116,8 @@ Partial Class Contabilidad_CatPeriodosBloqueo
Dim ObjConta As New ClsContabilidad
If Not Actualizar Then
If ObjConta.AddPeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked) Then
If ObjConta.AddPeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text.ToEntero, If(ChkM1.Checked, 1, 0), If(ChkM2.Checked, 1, 0), If(ChkM3.Checked, 1, 0), If(ChkM4.Checked, 1, 0), If(ChkM5.Checked, 1, 0), If(ChkM6.Checked, 1, 0),
If(ChkM7.Checked, 1, 0), If(ChkM8.Checked, 1, 0), If(ChkM9.Checked, 1, 0), If(ChkM10.Checked, 1, 0), If(ChkM11.Checked, 1, 0), If(ChkM12.Checked, 1, 0)) Then
CargadatosGvPeriodosBloqueo()
@@ -128,7 +129,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo
Alert("Ocurrió un error al guardar el Periodo de Bloqueo", TipoMensaje.MsgError)
End If
Else
Dim AplicarBloqueso As String = ObjConta.UpdatePeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked, UsuarioActual.CveUsuario)
Dim AplicarBloqueso As String = ObjConta.UpdatePeriodosBloqueo(UsuarioActual.CveEmpresa, TxtEjercicio.Text.ToEntero, ChkM1.Checked, ChkM2.Checked, ChkM3.Checked, ChkM4.Checked, ChkM5.Checked, ChkM6.Checked, ChkM7.Checked, ChkM8.Checked, ChkM9.Checked, ChkM10.Checked, ChkM11.Checked, ChkM12.Checked, UsuarioActual.CveUsuario)
If AplicarBloqueso.Length = 0 Then
CargadatosGvPeriodosBloqueo()
@@ -154,9 +155,8 @@ Partial Class Contabilidad_CatPeriodosBloqueo
Dim ObjConta As New ClsContabilidad
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
Ejercicio = GvRow.DataKey("Ejercicio")
CveEmpresa = GvRow.DataKey("CveEmpresa")
Ejercicio = GvRow.DataKey("Ejercicio").ToEntero
CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero
If ObjConta.RemovePeriodosBloqueo(CveEmpresa, Ejercicio) Then
CargadatosGvPeriodosBloqueo()
@@ -177,15 +177,13 @@ Partial Class Contabilidad_CatPeriodosBloqueo
Public Sub Edit_ClickPeriodosBloqueo(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
LtlTituloModalPeriodosBloqueo.Text = "Editar Bloqueo"
Actualizar = True
Ejercicio = GvRow.DataKey("Ejercicio")
CveEmpresa = GvRow.DataKey("CveEmpresa")
Ejercicio = GvRow.DataKey("Ejercicio").ToEntero
CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero
TxtEjercicio.Text = Ejercicio
TxtEjercicio.Text = GvRow.DataKey("Ejercicio")
'DdlTareaProgra.SelectedValueExist(CveTareaProgramada)
LimpiarChecked()