diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx index 90295d72b..23ac1393b 100644 --- a/Planeacion/CatSubProyectos.aspx +++ b/Planeacion/CatSubProyectos.aspx @@ -235,18 +235,18 @@ -
+
- +
- +
@@ -275,12 +275,25 @@
- -
- - - +
+
+
+ + + +
+
+
+
+ + + + + +
+
+
@@ -315,18 +328,7 @@
- -
- - - - - -
- - - - +
@@ -386,17 +388,20 @@
- -
- - -
- -
- - -
- +
+
+
+ + +
+
+
+
+ + +
+
+
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb index a5ee41164..6dedc434c 100644 --- a/Planeacion/CatSubProyectos.aspx.vb +++ b/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()