diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx
index 23ac1393b..677baa2bc 100644
--- a/Planeacion/CatSubProyectos.aspx
+++ b/Planeacion/CatSubProyectos.aspx
@@ -213,7 +213,7 @@
                                                         <label for="<%= ChkAplicaComercioExterior.ClientID.ToString()%>">¿Aplica Comercio Exterior?</label>
                                                     </div>
                                                 </div>
-                                                <div class="col-md-6">
+                                                <div class="col-md-6" id="divNoVerificaAlmacen" runat="server" visible="false">
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:CheckBox ID="ChkNoVerificaAlmacen" runat="server" CssClass="form-control" />
                                                         <label for="<%= ChkNoVerificaAlmacen.ClientID.ToString()%>">¿No verifica almacén?</label>
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 9470d1c12..ad3b00a41 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -68,8 +68,12 @@ Partial Class CatSubProyectos
 
             If UsuarioActual.Empresa.Funcionalidad(381).Trim() <> "" Then
                 DivDeshabilitaAutorizaciones.Visible = True
+            End If
+            If UsuarioActual.CveEmpresa = 119 Then
+                divNoVerificaAlmacen.Visible = True
             End If
 
+
             CargaProyecto()
             CargaSegmentosNegocio()
 
@@ -244,7 +248,7 @@ Partial Class CatSubProyectos
             Dim index As Integer = Convert.ToInt32(e.CommandArgument)
             Dim row As GridViewRow = GvDatos.Rows(index)
 
-            Dim SubProyecto = GvDatos.Rows(index).DataKey("SubProyecto").ToString
+            Dim SubProyecto As String = GvDatos.Rows(index).DataKey("SubProyecto").ToString
             Dim CveSegmento As Integer = ObjContpaQ.AddSegmentosNegocio(SubProyecto)
             Dim CveSubProyecto As Integer = GvDatos.DataKeys(index).Value.ToString.ToEntero
             Dim ErrorSubProyecto As Boolean = False
@@ -535,7 +539,7 @@ Partial Class CatSubProyectos
 
             Dim DTExcel As New Data.DataTable
             Dim conn As Odbc.OdbcConnection = Nothing
-            Dim ErrorExcel = False
+            Dim ErrorExcel As Boolean = False
             Try
 
                 conn = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & FilePath & ";")