Pago Electronico Grupos correción etiqueta de importe, Compras editar no acreditable en compra son xml con pago

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)