From affad9858d530dcb3de82ddba48376cb22f5786d Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 4 Oct 2024 10:00:30 -0700
Subject: [PATCH] Compras Cambio numero de reeembolso, Compras quitar mensaje
 de dos porcentajes IVAS

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

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f70d68b75..a8e75f504 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -15,6 +15,7 @@ Imports ClsPaginas
 Imports System.Activities.Expressions
 Imports Microsoft.Data.Edm.Expressions
 Imports Telerik.Web.UI
+Imports DocumentFormat.OpenXml.Math
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -11712,6 +11713,8 @@ Partial Class Compras_Compras
 #Region "  AJUSTA IMPORTES  "
     Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
 
+
+
         If ImporteAjuste = 0 Then Exit Sub
 
         Dim Amortizacion As Decimal = 0
@@ -17423,18 +17426,18 @@ Partial Class Compras_Compras
             End If
         End If
 
-        Select Case Modalidad
-            Case "A"
-                If Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> TmpDT.MAX("IVAPorcentaje").ToDouble And TmpDT.MAX("IVAPorcentaje").ToDouble <> 0 And Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> 0 And TmpDT.Rows.Count > 0 Then
-                    Alert("No puede haber dos tipos de IVA en la compra.", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
-            Case "U"
-                If Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> TmpDT.FiltraParametros($"Consec <> {Index}").MAX("IVAPorcentaje").ToDouble And TmpDT.FiltraParametros($"Consec <> {Index}").MAX("IVAPorcentaje").ToDouble <> 0 And Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> 0 And TmpDT.FiltraParametros($"Consec <> {Index}").Rows.Count > 0 Then
-                    Alert("No puede haber dos tipos de IVA en la compra.", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
-                End If
-        End Select
+        'Select Case Modalidad
+        '    Case "A"
+        '        If Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> TmpDT.MAX("IVAPorcentaje").ToDouble And TmpDT.MAX("IVAPorcentaje").ToDouble <> 0 And Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> 0 And TmpDT.Rows.Count > 0 Then
+        '            Alert("No puede haber dos tipos de IVA en la compra.", TipoMensaje.MsgAdvertencia)
+        '            Exit Sub
+        '        End If
+        '    Case "U"
+        '        If Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> TmpDT.FiltraParametros($"Consec <> {Index}").MAX("IVAPorcentaje").ToDouble And TmpDT.FiltraParametros($"Consec <> {Index}").MAX("IVAPorcentaje").ToDouble <> 0 And Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2) <> 0 And TmpDT.FiltraParametros($"Consec <> {Index}").Rows.Count > 0 Then
+        '            Alert("No puede haber dos tipos de IVA en la compra.", TipoMensaje.MsgAdvertencia)
+        '            Exit Sub
+        '        End If
+        'End Select
 
 
         Dim Total As Decimal = (TxtCantidad.Text.ToDecimal * TxtPrecio.Text.ToDecimal) - TxtDescuentoModal.Text.ToDecimal