From cd9ad6028752605502f4db2f86731f3c2b1acf75 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 10 Oct 2022 16:45:35 -0700 Subject: [PATCH] -- eliminar que sea transaccional --- Planeacion/CatSubProyectos.aspx.vb | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index 59ac8f9c2..3fcafaebd 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/Planeacion/CatSubProyectos.aspx.vb @@ -143,7 +143,7 @@ Partial Class CatSubProyectos Private Sub CargaSegmentosNegocio() DdlSegmentoNegocio.Items.Clear() - If UsuarioActual.Empresa.UsaContabilidad Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then Dim Cuenta As New ClsContPAQi(UsuarioActual.Empresa) @@ -962,15 +962,17 @@ Partial Class CatSubProyectos Dim SubProyecto As String = GvRow.DataKey("SubProyecto") Dim Erroreliminacion As Boolean = False - Dim ObjUsuarios As New ClsSisUsuarios - Dim ObjGenerales As New ClsGenerales + Dim ObjUsuarios As New ClsSisUsuarios() + Dim ObjGenerales As New ClsGenerales(ObjUsuarios.IniciaTransacSQL) 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 Erroreliminacion = True + ObjUsuarios.Commit() End If Else Erroreliminacion = True + ObjUsuarios.RollBack() End If ObjUsuarios.Dispose()