diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 70d7c7c1e..112e913f1 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2951,7 +2951,7 @@ Partial Class OC_OC
                     TieneError = True
                 End If
 
-                Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
+                Dim tCveSubProyecto As Integer = -1
                 If ModalidadSubProyectoGeneral Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
 
                 If tCveSubProyecto <= 0 Then