Clientes, Sunproyectos Precios de Lista Funcionalidad 404

Planeacion/CatSubProyectos.aspx.vb

@@ -92,6 +92,11 @@ Partial Class CatSubProyectos
                 DivSegmentoNegocio.Visible = True
             End If
             BtnGuardar.OnClientClick = $"ValidaGuardar();"
+
+            If UsuarioActual.Empresa.Funcionalidad(404) = "20" Then
+                DVModalPrecioLista.Visible = True
+            End If
+
         End If
     End Sub
 
@@ -285,6 +290,9 @@ Partial Class CatSubProyectos
     End Sub
     Public Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Tab.ActiveTabIndex = 0
+
         CveCentroCosto = (GvRow.DataKey("CveSubProyecto")).ToEntero
         HdnModalidad.Value = "U"
         TxtCentroCosto.Text = (GvRow.DataKey("SubProyecto"))