diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index e479d4b2d..a52d631e0 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2098,7 +2098,7 @@ Partial Class OC
         Dim ObjContratos As New ClsContratos
         Dim TieneError As Boolean = False
         Dim Mensaje As String = ""
-        Dim dttemp As DataTable = GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
+        Dim dttemp As DataTable = Nothing 'GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
         If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
             Dim drContrato As DataRow = dttemp.Rows(0)
             If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
@@ -5465,7 +5465,7 @@ Partial Class OC
         Dim subproyectos As New List(Of Integer)
 
         For Each Row As DataRow In DtDetalle.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}).Rows
-            Dim RowCon As DataRow = GlobalDTContratos.FiltroPrimero(String.Format("CveSubProyecto={0}", Row("CveSubProyecto")))
+            Dim RowCon As DataRow = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto={0}", Row("CveSubProyecto")))
             If Not IsNothing(RowCon) Then
                 filtro.AppendFormat(",{0}", Row("CveSubProyecto"))
                 subproyectos.Add(Row("CveSubProyecto").ToString.ToEntero)
@@ -8411,7 +8411,7 @@ Partial Class OC
 
 
         DdlContratosObra.Items.Clear()
-        DdlContratosObra.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}"))
+        DdlContratosObra.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo in (30,31)  ")
         DdlContratosObra.DataBind()
         DdlContratosObra.Items.Insert(0, New ListItem("Seleccione", "-1"))