- ocultar no surte almacen

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 & ";")