-- cambios GlobalDTSubPr

OC/OC.aspx.vb

@@ -1686,7 +1686,7 @@ Partial Class OC_OC
                 CboE.DataBind()
             End If
 
-            If objOC.GetOrdenesDetalle(pCveOrdenCompra) Then
+            If objOC.GetOrdenesDetalle(pCveOrdenCompra, UsuarioActual.cveempresa) Then
                 DtDetalle = objOC.DtResultados
             End If
 
@@ -2043,7 +2043,7 @@ Partial Class OC_OC
     End Sub
     Private Sub CargaSubProyectosEdit(DdlSP As DropDownList, CveProyectoEdit As Integer)
         DdlSP.Items.Clear()
-        DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyectoEdit)
+        DdlSP.DataSource = DtEstatusUsuarios.FiltraParametros(String.Format("CveProyecto = {0}", CveProyectoEdit), "", {"CveSubProyecto", "SubProyecto"})
         DdlSP.DataBind()
         DdlSP.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub