--reacomodo

Planeacion/CatSubProyectos.aspx.vb

@@ -127,7 +127,7 @@ Partial Class CatSubProyectos
 
         Dim ObjSub As New ClsSubProyectos
         If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
-            GvDatos.DataSource = ObjSub.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+            GvDatos.DataSource = ObjSub.DtResultados
             GvDatos.DataBind()
         End If
         ObjSub.Dispose()
@@ -445,11 +445,8 @@ Partial Class CatSubProyectos
                 Alert("Los valores de horario no deben ser superiores a '12' o menor a '-12'", TipoMensaje.MsgAdvertencia)
                 TieneError = True
             End If
-        End If
-
-
-
-
+        End If
+
         If Not TieneError Then
             ObjSubproyectos.Commit()
             If HdnModalidad.Value = "I" Then
@@ -464,25 +461,14 @@ Partial Class CatSubProyectos
         Else
             ObjSubproyectos.RollBack()
             RecargaGlobal()
-        End If
-
-        'se regeneran los subproyectos
-        'If Not TieneError Then
-        '    If UsuarioActual.Empresa.GralSoloProyecto Then
-        '        If ObjSubproyectos.GetSubProyectos() Then
-        '            GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
-        '            UpDatos.Update()
-        '        Else
-        '            TieneError = True
-        '        End If
-        '    End If
-        'End If
+        End If
+
         If DdlSegmentoNegocio.Visible = True Then
             CargaSegmentosNegocio()
         End If
         ObjSubproyectos.Dispose()
 
-        If HdnModalidad.Value = "I" Then
+        If HdnModalidad.Value = "I" AndAlso Not TieneError Then
             If UsuarioActual.Empresa.Funcionalidad(523) <> "" Then
                 Dim ObjOC As New ClsOC
                 ObjOC.IniciaTransacSQL()