diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9b8ada6eb..8d26f91be 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3359,7 +3359,7 @@ Partial Class Ventas
         Dim ObjContrato As New ClsContratos
         Dim NoId As Integer = 0
 
-        If ObjContrato.GetContratosDetalle(DdlContratosModal.SelectedValue.ToEntero()) Then
+        If ObjContrato.GetContratosDetalle(DdlContratosModal.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
 
             'SI ES CONTRATO DE CONSIGNACION DE VENTA AGARRA LAS EXISTENCIAS DEL ALMACEN 
             CreaConsignacionSerieDetalle()