From 9ee199fc021c0fcca27a6b0f63b32778435175bc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 26 Sep 2024 20:32:48 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

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