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

usuario

Browse Source
This commit is contained in:
rrene
2022-02-16 21:00:55 -07:00
parent 1cd82e46f0
commit f010f45cb5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Contabilidad2/CatContaEjercicios.aspx.vb
View File

@@ -72,7 +72,7 @@ Partial Class Contabilidad2_CatContaEjercicios
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
Dim errorString As String = "" Dim errorString As String = ""
If LbAgregar.Text = "Agregar" Then If LbAgregar.Text = "Agregar" Then
If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text, If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
errorString = "Error al agregar" errorString = "Error al agregar"
End If End If