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