diff --git a/CRM/RepAcercamientos.aspx.cs b/CRM/RepAcercamientos.aspx.cs
index 579b7e035..a0db080ea 100644
--- a/CRM/RepAcercamientos.aspx.cs
+++ b/CRM/RepAcercamientos.aspx.cs
@@ -43,7 +43,7 @@ public partial class CRM_RepAcercamientos : ClsPaginas
     {
         CveVendedor = DdlVendedor.SelectedValue.ToEntero();
 
-        if (true)
+        if (CveVendedor > 0)
         {
             string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text;
             string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text;
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb
index fdd9bf68e..c3a54da1d 100644
--- a/Compras/RepCxP.aspx.vb
+++ b/Compras/RepCxP.aspx.vb
@@ -763,6 +763,9 @@ Partial Class Compras_RepCxP
         End If
 
         If Modalidad = "A" Then
+            If Not ValidarRangosAgregar() Then
+                Exit Sub
+            End If
             Dim Dt As DataRow = Nothing
             Dt = DtPersonalizarRango.NewRow
             Dt("RangoInicial") = TxtRI.Text.ToDouble
@@ -771,6 +774,9 @@ Partial Class Compras_RepCxP
             Dt("TipoEscrito") = DdlTipo.SelectedItem.Text
             DtPersonalizarRango.Rows.InsertAt(Dt, DtPersonalizarRango.Rows.Count)
         ElseIf Modalidad = "U" Then
+            If Not ValidarRangosEditar() Then
+                Exit Sub
+            End If
             DtPersonalizarRango.Rows(Index)("RangoInicial") = TxtRI.Text.ToDouble
             DtPersonalizarRango.Rows(Index)("RangoFinal") = TxtRF.Text.ToDouble
             DtPersonalizarRango.Rows(Index)("Tipo") = DdlTipo.SelectedValue
@@ -783,6 +789,61 @@ Partial Class Compras_RepCxP
         RegistraScript("$('#DivPersonalizarRango').modal()", "SDSD")
     End Sub
 
+    Private Function ValidarRangosAgregar() As Boolean
+        Dim UltimoRango As DataTable = DtPersonalizarRango.FiltraParametros(String.Format("Tipo = {0}", DdlTipo.SelectedValue), "RangoInicial")
+        Dim TieneNullRow As DataRow = UltimoRango.Rows(UltimoRango.Rows.Count - 1)
+        Dim aux As String = TieneNullRow.Item("RangoFinal").ToString
+        'Dim TieneNull As DataTable = UltimoRango.FiltraParametros(String.Format("RangoFinal < 0"))
+        If aux = "" Then
+            Alert("Falta indicar el valor maximo del rango anterior", TipoMensaje.MsgAdvertencia)
+            Return False
+        End If
+        Dim ValorMinimoPosible As Double = UltimoRango.MAX("RangoFinal").ToDouble
+        If Not TxtRI.Text.ToDouble > ValorMinimoPosible Then
+            Alert("El rango inicial no puede ser inferior al rango final anterior", TipoMensaje.MsgAdvertencia)
+        End If
+        Return TxtRI.Text.ToDouble > ValorMinimoPosible
+    End Function
+
+    Private Function ValidarRangosEditar() As Boolean
+        Dim TablaDeDatosAux As DataTable = DtPersonalizarRango.FiltraParametros(String.Format("Tipo = {0}", DdlTipo.SelectedValue))
+
+        'Valida que hay datos en el row anterior
+        Dim valorMinimo As Double = 0.0
+        If Index > 0 Then
+            'Validar que el RowAnterior sea del mismo tipo
+            Dim RowAnterior As GridViewRow = GvPersonalizarRango.Rows(Index - 1)
+            If RowAnterior.DataKey("Tipo") = DdlTipo.SelectedValue Then
+                'Validar que el valor final del row anterior no sea null
+                valorMinimo = If(RowAnterior.DataKey("RangoFinal") IsNot Nothing, RowAnterior.DataKey("RangoFinal").ToDouble, -1.0)
+            End If
+        End If
+
+        'Valida que datos en e row siguiente
+        Dim valorMaximo As Double = 1000000.0
+        If Index < (GvPersonalizarRango.Rows.Count - 1) Then
+            'Validamos que el row siguiente sea del mismo tipo
+            Dim RowSiguiente As GridViewRow = GvPersonalizarRango.Rows(Index + 1)
+            If RowSiguiente.DataKey("Tipo") = DdlTipo.SelectedValue Then
+                'Validamos que el valor inicial del row siguiente no sea NULL
+                valorMaximo = If(RowSiguiente.DataKey("RangoInicial") IsNot Nothing, RowSiguiente.DataKey("RangoInicial").ToDouble, 1000000.0)
+            End If
+        End If
+
+        If Not TxtRI.Text.ToDouble > valorMinimo Then
+            Alert("El rango inicial no puede ser inferior al rango final anterior", TipoMensaje.MsgAdvertencia)
+            Return False
+        End If
+
+        If Not TxtRF.Text.ToDouble < valorMaximo Then
+            Alert("El rango final no puede ser superior al rango inicial siguiente", TipoMensaje.MsgAdvertencia)
+            Return False
+        End If
+
+        Return (TxtRI.Text.ToDouble > valorMinimo And TxtRF.Text.ToDouble < valorMaximo)
+
+    End Function
+
     Protected Sub BtnCancelarPersonalizarRangoEditar_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivPersonalizarRangoEditar').modal('hide')")
         RegistraScript("$('#DivPersonalizarRango').modal()", "SDSD")