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()