- limitar por empresa, las compras detalle

App_Code/ClsCompras.vb

@@ -1921,12 +1921,12 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
-
-    Public Function GetCompraDetallealmacen(CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean
+    Public Function GetCompraDetalleAlmacen(CveEmpresa As Integer, CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_DetalleAlmacen")
 
         With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
         End With

Compras/Compras.aspx.vb

@@ -13105,14 +13105,13 @@ Partial Class Compras_Compras
 
     End Sub
 
-
     Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged
         If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then
             DivAlmacenDev.Visible = True
         End If
 
         Dim objcompras As New ClsCompras()
-        If objcompras.GetCompraDetallealmacen(DDLDevolucion.SelectedValue.ToEntero) Then
+        If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then
             GVDevolucion.DataSource = objcompras.DtResultados
             GVDevolucion.DataBind()
         End If