-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

OC/RepOCGuias.aspx.vb

@@ -80,7 +80,7 @@ Partial Class OC_RepOCGuias
     End Sub
 
     Private Sub CargaSubProyectos()
-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+        DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubproyecto.DataBind()
         DdlSubproyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub