From 1cea8b03bb14490b401616139a6d558b3eb00128 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 9 May 2022 09:39:36 -0700
Subject: [PATCH] =?UTF-8?q?-=20subtotal2=20en=20la=20validaci=C3=B3n=20sob?=
 =?UTF-8?q?re=20las=20facturas=20que=20se=20peude=20hacer=20devoluci=C3=B3?=
 =?UTF-8?q?n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4974cfbfb..fe7583a4e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1313,7 +1313,7 @@ Partial Class Compras_Compras
                     If DdlTipoComprobante.SelectedValue = "NC" Then
                         paneldevolucion.Visible = True
                         Pnlalmaceninventarios.Visible = False
-                        cargaddldevoluciones(CveProveedor, TxtSubTotal.Text.ToDouble)
+                        cargaddldevoluciones(CveProveedor, TxtSubTotal2.Text.ToDouble)
                         InicializaAplicaNCFact()
                         DivReembolso.Visible = False
                         RBLPago.Items(2).Enabled = False
@@ -5925,8 +5925,7 @@ Partial Class Compras_Compras
                                                     Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal)))
                                                     Dim importeMN As Decimal = 0
 
-                                                    Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
-
+                                                    Dim Multiplicador As Integer = Row("Multiplicador").ToString.ToEntero ' If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
 
                                                     Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
                                                     Dim PorcentajeImpuesto As Decimal = 0
@@ -16950,7 +16949,7 @@ Partial Class Compras_Compras
                 If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then
                     DivAlmacenDev.Visible = True
                 End If
-                cargaddldevoluciones(CveProveedor, TxtSubTotal.Text.ToDouble)
+                cargaddldevoluciones(CveProveedor, TxtSubTotal2.Text.ToDouble)
                 InicializaAplicaNCFact()
                 DivReembolso.Visible = False
                 RBLPago.Items(2).Enabled = False