From a46659fc657479237bda16903ad39c92846c21c0 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Fri, 13 Jun 2025 16:08:22 -0700
Subject: [PATCH] =?UTF-8?q?Pago=20Electronico=20Grupos=20correci=C3=B3n=20?=
 =?UTF-8?q?=20etiqueta=20de=20importe,=20Compras=20editar=20no=20acreditab?=
 =?UTF-8?q?le=20en=20compra=20son=20xml=20con=20pago?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PagoElectronicoGrupos.aspx.vb |  7 +++++++
 Compras/Compras.aspx.vb              | 21 +++++++++++++++------
 2 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb
index 06fabcddc..7e8382112 100644
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/Bancos/PagoElectronicoGrupos.aspx.vb
@@ -468,6 +468,7 @@ Partial Class Bancos_PagoElectronicoGrupos
                     End Select
                 Else
                     Movimientos += 1
+                    Importe += dr("Abonado").ToString.ToDecimal
                 End If
 
                 ' 3. MOVIMIENTOS de cuentas ya existentes
@@ -3404,6 +3405,12 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         Dim FileName As String = NombreArchivo
         Dim FilePath As String = $"{UsuarioActual.Empresa.Ruta}Layout\{NombreArchivo}"
+
+        If NombreArchivo.Length = 0 Then
+            FileName = LnkDescarga.Text
+            FilePath = $"{UsuarioActual.Empresa.Ruta}Layout\{ LnkDescarga.Text}"
+        End If
+
         Response.Clear()
         Response.ContentType = "application/octet-stream"
         Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName)
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8b1947ecb..293ac5316 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9164,9 +9164,12 @@ Partial Class Compras_Compras
                         Next
 
                         'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
-                        If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
-                            Retorno = False
+                        If Not ComparaDatatables(False) Then
+                            If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
+                                Retorno = False
+                            End If
                         End If
+
                         'End If
 
 
@@ -9972,26 +9975,32 @@ Partial Class Compras_Compras
 
     End Sub
 
-    Private Function ComparaDatatables() As Boolean
+    Private Function ComparaDatatables(Optional ValidaNoDeducible As Boolean = True) As Boolean
         Dim NumRow As Integer = 0
         For Each row1 As DataRow In TmpDT.Rows
             Dim NumRow2 As Integer = 0
 
             For Each row2 As DataRow In TmpDTOriginal.Rows
 
+
+                'Dim test As Boolean = (row1("NoDeducible").ToString <> row2("NoDeducible").ToString And ValidaNoDeducible)
+                'Dim test2 As Boolean = (row1("IVAPorcentaje").ToString.ToDecimal <> row2("IVAPorcentaje").ToString.ToDecimal AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0)
+
+                Dim TipoCompra As Integer = If(DdlTipoCompra.SelectedValue.ToEntero > 0, DdlTipoCompra.SelectedValue.ToEntero, 0)
+
                 If NumRow2 = NumRow Then
                     If (row1("CveSubProyecto").ToString.ToEntero <> row2("CveSubProyecto").ToString.ToEntero) Or
                     (row1("CveClasificacion").ToString.ToEntero <> row2("CveClasificacion").ToString.ToEntero) Or
                     (row1("CveTipoGasto").ToString.ToEntero <> row2("CveTipoGasto").ToString.ToEntero) Or
                     (row1("Total").ToString.ToDouble <> row2("Total").ToString.ToDouble) Or
-                    (row1("NoDeducible").ToString <> row2("NoDeducible").ToString) Or
+                    (row1("NoDeducible").ToString <> row2("NoDeducible").ToString And ValidaNoDeducible) Or
                     (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or
                     (row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or
                     (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
                     (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Or
                     (row1("Obs").ToString <> row2("Obs").ToString) Or
-                    (row1("IVAPorcentaje").ToString <> row2("IVAPorcentaje").ToString AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
-                    (DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
+                    (row1("IVAPorcentaje").ToString.ToDecimal <> row2("IVAPorcentaje").ToString.ToDecimal AndAlso CveCompra > 0 AndAlso CveCompraFactura = 0) Or
+                    (TipoCompra <> TipoCompraOriginal) Then
                         Return False
                     End If
                 End If