diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 11be021c2..a5bb839c7 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25003,11 +25003,13 @@ Partial Class Ventas
             End If
             DdlMarca.Items.Clear()
             DdlMarcaPSDes.Items.Clear()
-            Dim ObjMarcas As New ClsProductosServicios
-            ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
-            DdlMarca.DataSource = ObjMarcas.DtResultados
-            DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-            ObjMarcas.Dispose()
+            'Dim ObjMarcas As New ClsProductosServicios
+            'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
+            'DdlMarca.DataSource = ObjMarcas.DtResultados
+            'DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+            'ObjMarcas.Dispose()
+            DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+            DdlMarcaPSDes.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
             DdlMarca.DataBind()
             DdlMarcaPSDes.DataBind()
         End If