diff --git a/Acumuladores/CatGarantiasMeses.aspx.vb b/Acumuladores/CatGarantiasMeses.aspx.vb
index 3e71a5f47..0f204a538 100644
--- a/Acumuladores/CatGarantiasMeses.aspx.vb
+++ b/Acumuladores/CatGarantiasMeses.aspx.vb
@@ -72,15 +72,20 @@ Partial Class Acumuladores_CatFoliosGarantia
 
     Private Sub CargaCombos()
 
-        Dim ObjPS As New ClsProductosServicios
+        'Dim ObjPS As New ClsProductosServicios
 
-        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-            DdlMarca.DataSource = ObjPS.DtResultados
-            DdlMarca.DataBind()
-            DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlMarca.SelectedValue = "-1"
-        End If
-        ObjPS.Dispose()
+        'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+        '    DdlMarca.DataSource = ObjPS.DtResultados
+        '    DdlMarca.DataBind()
+        '    DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+        '    DdlMarca.SelectedValue = "-1"
+        'End If
+        'ObjPS.Dispose()
+
+        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlMarca.SelectedValue = "-1"
 
         DdlTipoUso.DataSource = GlobalDTAcumTiposUso()
         DdlTipoUso.DataBind()
@@ -109,13 +114,14 @@ Partial Class Acumuladores_CatFoliosGarantia
 
     Private Sub CargaCombosModal()
 
-        Dim ObjPS As New ClsProductosServicios
+        'Dim ObjPS As New ClsProductosServicios
 
-        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
-            DdlMarcaM.DataSource = ObjPS.DtResultados
+        'If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+        '    DdlMarcaM.DataSource = ObjPS.DtResultados
 
-        End If
-        ObjPS.Dispose()
+        'End If
+        'ObjPS.Dispose()
+        DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
         DdlMarcaM.DataBind()
 
         DdlTipoUsoM.DataSource = GlobalDTAcumTiposUso()