From 22a60a7375b0a672bddc1de3f4795cc6fa5098b0 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 19 Nov 2019 10:05:14 -0700
Subject: [PATCH] -amortizacion

---
 Compras/Compras.aspx.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6fd0f5399..ddc112746 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -16263,11 +16263,15 @@ Partial Class Compras_Compras
         Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double
         'Dim TempPorcentajeRetIVA = LblRetIVA.Text.ToDouble / 100
         'Dim TempPorcentajeRetISR = LblRetISR.Text.ToDouble / 100
+        Dim Amortizacion As Decimal = 0
+        If UsuarioActual.CveEmpresa = 119 Then
+            Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
+        End If
 
         TempSubTotal = TxtSubTotal.Text.ToDouble
         SubTotalOriginal = TxtSubTotal.Text.ToDouble
         SubTotal2Original = TxtSubTotal2.Text.ToDouble
-        TempDescuentos = TxtDescuento.Text.Trim.ToDouble + LblAmortizacion.Text.Trim.ToDouble
+        TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion
         TempSubTotal2 = TempSubTotal - TempDescuentos
         TempIVA = TxtIVA.Text.ToDouble
         TempIEPS = TxtIEPS.Text.ToDouble