diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index fc8c83826..2b460b21e 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -794,7 +794,7 @@ Partial Class Bancos_PolizaCheque
             e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto")
             e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
 
-            If UsuarioActual.CveEmpresa = 119 Then
+            If UsuarioActual.CveEmpresa.Contiene(119, 7, 11, 12, 122, 145) Then
                 e.Row.FCLiteral("LtlSP").Visible = False
                 e.Row.FCDropDownList("DdlSubProyecto").Visible = True
             End If