diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx
index d308ceb0d..af0be3766 100644
--- a/Planeacion/CatSubProyectos.aspx
+++ b/Planeacion/CatSubProyectos.aspx
@@ -54,7 +54,7 @@
                     <div class="col-md-12">
                           <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%"
                         DataKeyNames="CveSubProyecto,SubProyecto,IdSegNeg,Estatus,Serie,IVA,Calle,NoExt,NoInt,Colonia,Localidad,Municipio,Estado,Pais,CP,CveProyecto,TipoSucursal,EsSucursal,
-                        CvePais,CveEstado,CveMunicipio,CveColonia,AplicaComercioExterior,CvePrecioLista,Correo,Telefono,UTCOffsetVerano,UTCOffsetInvierno,NoVerificaAlmacen,CodigoSucursal,CveLocalidad,DeshabilitaAutorizacion"
+                        CvePais,CveEstado,CveMunicipio,CveColonia,AplicaComercioExterior,CvePrecioLista,Correo,Telefono,UTCOffsetVerano,UTCOffsetInvierno,NoVerificaAlmacen,CodigoSucursal,Acum_PortalUsuario,Acum_PortalContrasena,CveLocalidad,DeshabilitaAutorizacion"
                         EmptyDataText="No se encontraron SubProyectos" ShowHeader="true" CssClass="table table-striped table-advance table-hover ScrollAD mysmallbtn" data-sort="true"  GridLines="None">
                         <Columns>
                             <asp:BoundField DataField="SubProyecto" HeaderText="Centro de costo" />
@@ -189,8 +189,22 @@
                                             </div>
                                             <div id="DivCodigoSucursal" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
                                                 <asp:TextBox ID="TxtCodigoSucursal" runat="server" CssClass="form-control"></asp:TextBox>
-                                                <label for="<%= TxtCentroCosto.ClientID.ToString()%>">Código Sucursal:</label>
+                                                <label for="<%= TxtCodigoSucursal.ClientID.ToString()%>">Código Sucursal:</label>
                                             </div>
+                                             <div class="row"  id="DivAcumPVirtual" runat="server" visible="false">
+                                                  <div class="col-md-6">
+                                                    <div class="form-group form-md-line-input input-iconright">
+                                                        <asp:TextBox ID="TxtAcumPortalUsuario" runat="server" Enabled="false" CssClass="form-control"></asp:TextBox>
+                                                        <label for="<%= TxtAcumPortalUsuario.ClientID.ToString()%>">Portal Usuario:</label>
+                                                    </div>
+                                                  </div>
+                                                 <div class="col-md-6">
+                                                      <div class="form-group form-md-line-input input-iconright">
+                                                          <asp:TextBox ID="TxtAcumPortalContra" runat="server" Enabled="false" CssClass="form-control"></asp:TextBox>
+                                                          <label for="<%= TxtAcumPortalContra.ClientID.ToString()%>">Portal Contraseña:</label>
+                                                      </div>
+                                                    </div>
+                                                </div>
                                             <br />
                                             <div class="row">
                                                 <div class="col-md-6">
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index c180762b0..cda932202 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -64,6 +64,7 @@ Partial Class CatSubProyectos
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 DivCodigoSucursal.Visible = True
+                DivAcumPVirtual.Visible = True
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(381).Trim() <> "" Then
@@ -332,6 +333,8 @@ Partial Class CatSubProyectos
         'AplicaComercio()
         ChkNoVerificaAlmacen.Checked = If(GvRow.DataKey("NoVerificaAlmacen").ToString = "True", True, False)
         TxtCodigoSucursal.Text = (GvRow.DataKey("CodigoSucursal"))
+        TxtAcumPortalUsuario.Text = (GvRow.DataKey("Acum_PortalUsuario"))
+        TxtAcumPortalContra.Text = (GvRow.DataKey("Acum_PortalContrasena"))
         ChkDeshabilitaAutorizaciones.Checked = CBool(GvRow.DataKey("DeshabilitaAutorizacion"))
 
         BtnGuardar.Text = "Actualizar"