Promociones si no tiene ultimo costo bloquea

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()
 
 

Ventas/Promociones.aspx.vb

@@ -712,7 +712,8 @@ Partial Class Ventas_Promociones
                         End If
                     End If
 
-
+                Else
+                    BloqueadoPromocionPorcentaje = True
                 End If
 
             Next