diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 91d82696c..21fce0286 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -164,11 +164,12 @@ Partial Class Ventas_Promociones
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             GvDatos.Columns(8).Visible = True
             DivRin.Visible = True
-            Dim ObjGral As New ClsGenerales
-            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-                DdlRin.DataSource = ObjGral.DtResultados
-            End If
-            ObjGral.Dispose()
+            'Dim ObjGral As New ClsGenerales
+            'If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then
+            '    DdlRin.DataSource = ObjGral.DtResultados
+            'End If
+            'ObjGral.Dispose()
+            DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa)
             DdlRin.DataBind()
             DdlRin.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
@@ -1073,12 +1074,12 @@ Partial Class Ventas_Promociones
         ObjPS.Dispose()
 
 
-        Dim ObjGral As New ClsGenerales
-        If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-            DTRines = ObjGral.DtResultados
-        End If
-        ObjGral.Dispose()
-
+        'Dim ObjGral As New ClsGenerales
+        'If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then
+        '    DTRines = ObjGral.DtResultados
+        'End If
+        'ObjGral.Dispose()
+        DTRines = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa)
 
         Dim RegistroActual As Integer = 1
         For Each dRow As DataRow In DTPlantilla.Rows