From 2ca8eaa8236782912d791c994c94595e8a0da768 Mon Sep 17 00:00:00 2001
From: Desarrollo2019 <Desarrollo2019@DESKTOP-F7RCSVR>
Date: Thu, 22 Aug 2019 12:27:10 -0700
Subject: [PATCH] Dividir en Compras

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

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 71414eccf..1019c0ea2 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -11220,10 +11220,10 @@ Partial Class Compras_Compras
         Dim dr1 As DataRow = TmpDT.Rows(Index)
         Dim dr As DataRow = TmpDT.NewRow
         dr.ItemArray = dr1.ItemArray
-        Dim IVA = dr1("IVA").ToString.ToDouble / (dr1("Cantidad").ToString.ToDouble * dr1("PU").ToString.ToDouble)
         dr1("Cantidad") = (dr1("Cantidad").ToString.ToDouble - Cantidad.ToDouble)
-        dr1("IVA") = IVA * dr1("Cantidad").ToString.ToDouble * dr1("PU").ToString.ToDouble
         dr1("Total") = dr1("PU").ToString.ToDouble * dr1("Cantidad").ToString.ToDouble
+        dr1("IVA") = Math.Round(dr1("IVAPorcentaje").ToString.ToDouble * dr1("Total").ToString.ToDouble, 6)
+
         TmpDT.AcceptChanges()
 
         dr("CvePersonal") = 0
@@ -11231,8 +11231,8 @@ Partial Class Compras_Compras
         dr("CveActivoFijo") = 0
         dr("CodAF") = 0
         dr("Cantidad") = Cantidad.ToDouble
-        dr("IVA") = IVA * dr("Cantidad").ToString.ToDouble * dr("PU").ToString.ToDouble
         dr("Total") = dr("PU").ToString.ToDouble * Cantidad.ToDouble
+        dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * dr("Total").ToString.ToDouble, 6)
         TmpDT.Rows.InsertAt(dr, Index)
         TmpDT.AcceptChanges()
 
@@ -11432,6 +11432,7 @@ Partial Class Compras_Compras
 
         dr1("Cantidad") = (dr1("Cantidad").ToString.ToDouble - Cantidad.ToDouble)
         dr1("Total") = dr1("PU").ToString.ToDouble * dr1("Cantidad").ToString.ToDouble
+        dr1("IVA") = Math.Round(dr1("IVAPorcentaje").ToString.ToDouble * dr1("Total").ToString.ToDouble, 6)
         TmpDT.AcceptChanges()
 
 
@@ -11439,6 +11440,7 @@ Partial Class Compras_Compras
         dr("CodAF") = ""
         dr("Cantidad") = Cantidad.ToDouble
         dr("Total") = dr("PU").ToString.ToDouble * Cantidad.ToDouble
+        dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDouble * dr("Total").ToString.ToDouble, 6)
 
         TmpDT.Rows.InsertAt(dr, Index + 1)