diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8f621996d..170fc058f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -8693,6 +8693,10 @@ Partial Class Compras_Compras
         Next
 
 
+        'If Not validaNumeroReembolso() Then
+        '    Exit Sub
+        'End If
+
         Dim ObjCompra As New ClsCompras
         Dim ObjProveedores As New ClsCompProveedores(ObjCompra.IniciaTransacSQL())
         Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL)
@@ -9285,6 +9289,15 @@ Partial Class Compras_Compras
 
     End Sub
 
+
+    Private Function validaNumeroReembolso() As Boolean
+
+        If NumeroReembolsoOriginal <> TxtNumeroReembolso.Text Then
+
+        End If
+
+    End Function
+
     Private Sub MandaCorreoActualizacionDetalle()
 
 
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 05c21d7f5..3db1a81e7 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -707,7 +707,8 @@ Partial Class Ventas_Promociones
                         End If
                     End If
 
-
+                Else
+                    BloqueadoPromocionPorcentaje = True
                 End If
 
             Next