diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4eec7425f..cacee39da 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37861,7 +37861,7 @@ Partial Class Ventas
 
     Private Sub CargaTiposVenta()
 
-        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+        RBLTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         RBLTipoVenta.DataBind()
         RBLTipoVenta.Items.Add(New ListItem("Otros", "99"))