diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb
index 5c2cd3230..7fceb03ec 100644
--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -222,8 +222,8 @@ Partial Class Bancos_RepProgramarRecursos
             CargaCreditosVencimiento()
 
 
-            'Esconde PROYECTO EMP 13,14
-            If UsuarioActual.CveEmpresa = 13 Or UsuarioActual.CveEmpresa = 14 Then
+            'Esconde PROYECTO EMP 13,14,83
+            If UsuarioActual.CveEmpresa.Contiene(13,14,83) Then
                 Gv.Columns(3).Visible = False
                 Gv.Columns(4).Visible = True
             ElseIf UsuarioActual.CveEmpresa <> 119 Then