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

-- eliminar que sea transaccional

Browse Source
This commit is contained in:
rrene
2022-10-10 16:45:35 -07:00
parent 784e8c823f
commit cd9ad60287
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -143,7 +143,7 @@ Partial Class CatSubProyectos
Private Sub CargaSegmentosNegocio() Private Sub CargaSegmentosNegocio()
DdlSegmentoNegocio.Items.Clear() DdlSegmentoNegocio.Items.Clear()
If UsuarioActual.Empresa.UsaContabilidad Then If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa) Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa)
@@ -962,15 +962,17 @@ Partial Class CatSubProyectos
Dim SubProyecto As String = GvRow.DataKey("SubProyecto") Dim SubProyecto As String = GvRow.DataKey("SubProyecto")
Dim Erroreliminacion As Boolean = False Dim Erroreliminacion As Boolean = False
Dim ObjUsuarios As New ClsSisUsuarios Dim ObjUsuarios As New ClsSisUsuarios()
Dim ObjGenerales As New ClsGenerales Dim ObjGenerales As New ClsGenerales(ObjUsuarios.IniciaTransacSQL)
If ObjUsuarios.RemoveSubProyectos(CveUsuario, CveSubProyectoUsuarios, UsuarioActual.CveUsuario) Then If ObjUsuarios.RemoveSubProyectos(CveUsuario, CveSubProyectoUsuarios, UsuarioActual.CveUsuario) Then
If Not ObjGenerales.AddHistorialBitacora(406, -1, -1, -1, -1, -1, -1, -1, "", SubProyecto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, "-1", "-1", "-1", CveUsuarioTabla:=CveUsuario) Then If Not ObjGenerales.AddHistorialBitacora(406, -1, -1, -1, -1, -1, -1, -1, "", SubProyecto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, "-1", "-1", "-1", CveUsuarioTabla:=CveUsuario) Then
Erroreliminacion = True Erroreliminacion = True
ObjUsuarios.Commit()
End If End If
Else Else
Erroreliminacion = True Erroreliminacion = True
ObjUsuarios.RollBack()
End If End If
ObjUsuarios.Dispose() ObjUsuarios.Dispose()