diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4c790a109..81eb592ba 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -11632,12 +11632,16 @@ Partial Class Compras_Compras
 
             If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 Then 'si es negativo, que tome el dato anterior
                 Indice = Indice - 1
-                If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
-                    tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
-                Else
-                    tPU = 0
+                'VALIDACION ADICIONAL DE OTRO PRODUCTO CON LA MISMA SITUACIÓN
+                If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 AndAlso Indice > 0 Then 'si es negativo, que tome el dato anterior
+                    Indice = Indice - 1
                 End If
             End If
+            If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
+                tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
+            Else
+                tPU = 0
+            End If
 
             TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU
             TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDecimal + ImporteAjuste