From ba349c18fbc19d41cdf1d606be5f927cad8ddef1 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 24 Mar 2025 20:23:36 -0700
Subject: [PATCH] --FIX sub proyectos OC

---
 OC/OC.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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